database smarmotech   
screen size 24 by 80
{
               Orden          [j]
               Fecha Inicial  [k       ]
               Fecha Final    [p       ]
               Total Imprimir [e     ] 

               Codigo         [a]-[b]-[c ]-[d  ]
}
end
tables
irtb00006
attributes
j   = formonly.tipo_r TYPE CHAR,include=("V","U"),upshift,
comments = "V- Ranking Por Valor    U- Ranking Por Uso";
k   = formonly.fech_in type date,format = "dd/mm/yy",
      comments = "Introduzca Fecha Inicial ";
p   = formonly.fech_fi type date,format = "dd/mm/yy",
      comments = "Introduzca Fecha Final";   
e   = formonly.limite type smallint,
      comments = "Total de Repuestos a imprimir"; 
a   = irtb00006.cod_n,autonext;
b   = irtb00006.cod_grupo,autonext;
c   = irtb00006.cod_tipo,autonext;
d   = irtb00006.cod_sec,autonext;
  instructions
     delimiters " "
end