database smarmotech   
screen size 24 by 80
{
   Ano         [an  ]
   Mes Inicial [a0]    Mes Final [a1]
   Producto Terminado [b]-[c]-[d ]-[e  ]
}
end
tables
iptb00004
attributes
an = formonly.p_ano,comments = "Entre Ano Formato: 1993",required;
a0 = iptb00004.mes_ini,autonext;
a1 = iptb00004.mes_fin,autonext;
b = iptb00004.cod_n,autonext;
c = iptb00004.cod_grupo,autonext;
d = iptb00004.cod_tipo,autonext;
e = iptb00004.cod_sec;
instructions
  delimiters " "
end