database smarmotech   
screen size 24 by 80
{
Mes Inicial     [f1] [g4        ]
Mes Final       [f2] [g5        ]
Ano             [f002]
Codigo          [a ]-[b  ]-[c  ]-[d    ][e                             ] [g  ]

Costo Estandar  [f005          ]
[j]

Usuario Creador   [f006     ]           Usuario Modificador  [f008     ]
Fecha Creacion    [f007            ]    Fecha Modificacion   [f009            ]
}
end
tables
irtb00013,irtb00002
attributes
f1   = irtb00013.mes_ini,autonext,
       comments = "Digite el mes inicial",default = 01,noentry;
g4   = formonly.descrip1 type char,default = "ENERO";
f2   = irtb00013.mes_fin,autonext,noentry,
       comments = "Digite el mes final",default = 12;
g5   = formonly.descrip2 type char,default = "DICIEMBRE";
f002 = irtb00013.ano,autonext,comments = "Digite el ano";
a    = irtb00013.cod_n,autonext,comments = "Digite el NIVEL";
b    = irtb00013.cod_grupo,autonext,comments = "Digite el GRUPO";
c    = irtb00013.cod_tipo,autonext,comments = "Digite el TIPO";
d    = irtb00013.cod_sec,autonext,comments = "Digite la SECUENCIA";
e    = irtb00002.descrip_esp,noentry;
g    = irtb00002.unidad_med,noentry;
f005 = irtb00013.costo_st,comments = "Digite el costo";
j    = irtb00013.status_t,noentry;
f006 = irtb00013.us_crea,noentry;
f007 = irtb00013.fech_crea,noentry;
f008 = irtb00013.us_mod,noentry;
f009 = irtb00013.fech_mod,noentry;
instructions
   delimiters " "
end