database marmotech
screen size 24 by 80
{

         Ordenamiento  [t]
         Codigo Cliente[cc]-[sc  ] 
         Nombre Cliente[nc                                     ]

}
end
tables
vetb00004 
attributes
t   = formonly.ordenado type char,upshift,include=("A","N"),
      comments="Digite:  A = Alfabetico,     N = Numero";
cc  = vetb00004.tipo_cliente;
sc  = vetb00004.sec_cliente;
nc  = vetb00004.nombre,upshift;

instructions
delimiters " "
end