schema marmotech    
 LAYOUT (TEXT="BUSQUEDA ZONAS")
  GRID
{
   <g                                          >
    <t                                        >
     [i ]  [f2                            ]
     [i ]  [f2                            ]
     [i ]  [f2                            ]
     [i ]  [f2                            ]
     [i ]  [f2                            ]
     [i ]  [f2                            ]
}
end

tables
vetb00008
attributes
i   = vetb00008.cod_zona,noentry,TITLE="CODIGO";
f2  = vetb00008.descrip, upshift,TITLE="DESCRIPCION", 
      comments = "          <OK> Busca todas las Zonas";

instructions
   screen record s_zonas[6] (cod_zona,descrip)
   delimiters " "
end