database marmotech   
screen 
{

    Ordenado Por (N/A) [d]
    Codigo Cronologico [f001    ]                         
    Beneficiario       [f002                                             ]
}
end 
tables
cgtb00031
attributes
d    = formonly.decide type char,include= ("N","A"),upshift,comments=
       "Digite:    N = Ordenamiento Numerico,     A = Ordenamiento Alfabetico"; 
f001 = cgtb00031.cod_cro,upshift,comments = "Digite Codigo de Cronologico";
f002 = cgtb00031.beneficiario,upshift,comments="Digite Nombre de Beneficiario";
instructions delimiters " "
end