schema decomarmol    
LAYOUT 
GRID 
{
<G                                                      >
              Busqueda de Proveedor               

      Codigo      Nombre 

     [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