database smarmotech   
screen size 24 by 80
{

Ordenamiento            [k]
Codigo Movimiento       [a ]
}
end
tables
irtb00005
attributes
a = irtb00005.cod_mov;
k = formonly.decide type char,required,autonext,
    comments = "Digite A - Alfabetico    N - Numerico",
    include = ("A","N"),upshift;
end