database smarmotech    
screen size 24 by 80
{

Ordenamiento         [k]
Codigo               [a][b][c ][d  ]
Existencia           [et           ]
Descripcion          [e                             ]
}
end
tables
irtb00002
attributes
a = irtb00002.cod_n;
b = irtb00002.cod_grupo;
c = irtb00002.cod_tipo;
d = irtb00002.cod_sec;
et = formonly.existencia;
e = irtb00002.descrip_esp;
k = formonly.decide type char,required,autonext,
    comments = "Digite A - Alfabetico    N - Numerico",
    include = ("A","N"),upshift;
end