database smarmotech 
screen size 24 by 80
{

Ordenamiento         [k]
Codigo Suplidor      [a ][b   ]
Nombre Suplidor      [c                                            ]
}
end
tables
cotb00001
attributes
a = cotb00001.cod_sp;
b = cotb00001.cod_sp_sec;
c = cotb00001.nom_sp;
k = formonly.decide type char,required,autonext,
    comments = "Digite A - Alfabetico    N - Numerico",
    include = ("A","N"),upshift;
end