schema smarmotech    
 SCREEN SIZE 24 by 80
{
              Busqueda de Proveedor               
   \g--------------------------------------------\g
      Codigo      Nombre 
   \g--------------------------------------------\g
     [i ][j   ] [f2                            ]
     [i ][j   ] [f2                            ]
     [i ][j   ] [f2                            ]
     [i ][j   ] [f2                            ]
     [i ][j   ] [f2                            ]
     [i ][j   ] [f2                            ]
}
end

tables
cotb00001
attributes
i   = cotb00001.cod_sp,noentry;
j   = cotb00001.cod_sp_sec,noentry;
f2  = cotb00001.nom_sp,upshift,
      comments = "          <Esc> Busca todos los Clientes";

instructions
   screen record s_suplid[6] (cod_sp,cod_sp_sec,nom_sp)
   delimiters " "
end