DATABASE smarmotech   
 SCREEN SIZE 24 by 80
{
       Busqueda de Suplidores 
\g-----------------------------------------\g
 Codigo          Nombre
\g-----------------------------------------\g
 [f1     ] [f3                            ]
 [f1     ] [f3                            ]
 [f1     ] [f3                            ]
 [f1     ] [f3                            ]
 [f1     ] [f3                            ]
 [f1     ] [f3                            ]
}
end
tables
 cotb00001
attributes
f1  = formonly.codigo,autonext;
f3  = cotb00001.nom_sp,upshift,
      comments = "<Esc> Busca Todos Los Suplidores";
instructions
   screen record s_muestra[6] (codigo,nom_sp)
 delimiters " "
end