database smarmotech
screen size 24 by 80
{

               Fecha         [f1       ]
               Codigo        [a]-[b]-[c ]-[d  ]
}
end
tables
intb00006
attributes
f1   = formonly.fech_fi type date,format = "dd/mm/yy";
a    = intb00006.cod_n;
b    = intb00006.cod_grupo;
c    = intb00006.cod_tipo;
d    = intb00006.cod_sec;
  instructions
     delimiters " "
end