DEFINE pais_wd ARRAY [200] OF RECORD
        cod_pais LIKE cotb00018.cod_pais,
        nom_pais LIKE cotb00018.nom_pais
 END RECORD