database marmotech
screen size 24 by 80
{
               Fecha Inicial [k       ]
               Fecha Final   [p       ]

               Codigo        [a]-[b]-[c ]-[d  ]
}
end
tables
intb00006
attributes
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";   
a    = intb00006.cod_n,autonext;
b    = intb00006.cod_grupo,autonext;
c    = intb00006.cod_tipo,autonext;
d    = intb00006.cod_sec,autonext;
  instructions
     delimiters " "
end