schema smarmotech   
LAYOUT (TEXT="BUSCA PAISES")
 GRID
{
 <t                                          >
   [f0 ]    [f001                          ]
   [f0 ]    [f001                          ]
   [f0 ]    [f001                          ]
   [f0 ]    [f001                          ]
}
end
tables
cotb00018
attributes
f0   = cotb00018.cod_pais,TITLE="CODIGO",
       comments = "<Esc> Busca los paises";
f001 = cotb00018.nom_pais,upshift,TITLE="DESCRIPCION", 
       comments = "<Esc> Busca los paises";
instructions
   screen record consart[4] (cod_pais,nom_pais)
   delimiters " "
end