database smarmotech    
screen size 24 by 80
{
         Ordenado Por [o       ]
         Maquina      [p       ]
         Nombre       [a                               ]
}
end
tables
irtb00009
attributes
o   = formonly.decide type char,upshift,
      comments = "A - Alfabetico   N - Numerico";
p   = irtb00009.codigo;
a   = irtb00009.nombre;
  instructions
     delimiters " "
end