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