database smarmotech   
screen size 24 by 80
{
               Ano           [an  ]
               Mes           [p ]
               Fecha Inicial [f1        ] Fecha Final [f2        ]

               Codigo Movimiento [g ]
               Codigo        [a]-[b]-[c ]-[d  ]
               Departamento  [de       ]
}
end
tables
irtb00006
ATTRIBUTES
de  = formonly.departamento;
an  = formonly.c_ano,comments = "Digite Ano Formato 1995";
p   = formonly.p_mes,comments = "Digite # Del Mes";
f1   = formonly.fech_in type date,format="dd/mm/yyyy",required;
f2   = formonly.fech_fi type date,format="dd/mm/yyyy",required;
g    = irtb00006.cod_mov;
a    = irtb00006.cod_n;
b    = irtb00006.cod_grupo;
c    = irtb00006.cod_tipo;
d    = irtb00006.cod_sec;
  instructions
     delimiters " "
end