DATABASE marmotech    
 SCREEN SIZE 24 by 80
{
            Busqueda de las Provincias  
   \g------------------------------------------\g
     Codigo  Descripcion 
   \g------------------------------------------\g
     [i ]  [f2                            ]
     [i ]  [f2                            ]
     [i ]  [f2                            ]
     [i ]  [f2                            ]
     [i ]  [f2                            ]
     [i ]  [f2                            ]
}
end

tables
vetb00009, 
vetb00020
attributes
i   = formonly.cod_provincia,noentry;
f2  = vetb00020.nombre_provincia,upshift, 
      comments = "        <Esc>  Busca todas las Provincias";

instructions
   screen record s_provincias[6] (cod_provincia,nombre_provincia)
   delimiters " "
end