database smarmotech 
screen size 24 by 80
{

              Ano              [p   ]
              Mes Inicial      [p1]
              Mes Final        [p2]
              Fecha Existencia [f1        ]

              Codigo [a][b][c ][d  ]
}
end
tables
irtb00006
attributes
p = formonly.p_ano;
p1 = formonly.mes_ini;
p2 = formonly.mes_fin;
f1 = formonly.fecha3 type date,format="dd/mm/yyyy";
a  = irtb00006.cod_n;
b  = irtb00006.cod_grupo;
c  = irtb00006.cod_tipo;
d  = irtb00006.cod_sec;
  instructions
     delimiters " "
end