Procedimiento: Carga de datos - actualización de un fichero con todos los paises del mundo.

Cargar un fichero con todos los paises del mundo



Partiendo de dos constantes [NumeroFichero="255"] y [NombreFichero="Provincias"], este procedimiento sirve de buena utilidad para ser llamado cada vez que se inicie una sesión de trabajo (siempre y cuando utilicemos una tabla para los paises del mundo en la aplicación), para crearnos el fichero de paises, abasteciendose de unos parámetros data tanto para descripciones de los paises.

El número o nombre de las constantes declaradas, se puede cambiar con el que más convenga.

proc CreaPaises()
field=m
const NumeroFichero="255"
const NombreFichero="Paises"
field=m
dcl e% ; para en error
dcl des$=20(254) ; data para los nombres de los paises
dcl buclex%
dcl TamPais$=20 ; Tampon para busqueda por descripcion de la pais
field=m
dcl pais00$=3 ; Código del pais
dcl paisin# ; Indice
dcl pais01$=50 ; Descripción pais
endloc

; Borrado de las datas
restore

; Creacion del fichero en funcion del valor descrito en la constante NombreFichero
assign=NumeroFichero,NombreFichero,wr,mc:TamPais
cfile=NumeroFichero,K=2,D=50:NEXT,E
key=NumeroFichero,"Descripcion",50
ckey=NumeroFichero:next,e
link=NumeroFichero,"Decripcion"
clink=NumeroFichero:next,e

for buclex=1 to 254
read=0:des(buclex)
next buclex

; Carga de datos en el fichero multicriterio
for buclex=1 to 254
pais00=conv(buclex)
pais01=des(buclex)
insert=NumeroFichero,pais00,/ff:next,e,pais01,50
if e=81
modif=NumeroFichero,pais00,/ff:next,e,pais01,50
endif
next buclex

DATA "Afganistán", "Akrotiri", "Albania", "Alemania", "Andorra", "Angola", "Anguila", "Antártida"
DATA "Antigua y Barbuda", "Antillas Neerlandesas", "Arabia Saudí", "Arctic Ocean", "Argelia", "Argentina"
DATA "Armenia", "Aruba", "Ashmore andCartier Islands", "Atlantic Ocean", "Australia", "Austria", "Azerbaiyán"
DATA "Bahamas", "Bahráin", "Bangladesh", "Barbados", "Bélgica", "Belice", "Benín", "Bermudas", "Bielorrusia",
DATA "Birmania Myanmar", "Bolivia", "Bosnia y Hercegovina", "Botsuana", "Brasil", "Brunéi", "Bulgaria",
DATA "Burkina Faso", "Burundi", "Bután", "Cabo Verde", "Camboya", "Camerún", "Canadá", "Chad", "Chile", "China"
DATA "Chipre", "Clipperton Island", "Colombia", "Comoras", "Congo", "Coral Sea Islands", "Corea del Norte",
DATA "Corea del Sur", "Costa de Marfil", "Costa Rica", "Croacia", "Cuba", "Dhekelia", "Dinamarca", "Dominica",
DATA "Ecuador", "Egipto", "El Salvador", "El Vaticano", "Emiratos Árabes Unidos", "Eritrea", "Eslovaquia",
DATA "Eslovenia", "España", "Estados Unidos", "Estonia", "Etiopía", "Filipinas", "Finlandia", "Fiyi", "Francia"
DATA "Gabón", "Gambia", "Gaza Strip", "Georgia", "Ghana", "Gibraltar", "Granada", "Grecia", "Groenlandia", "Guam"
DATA "Guatemala", "Guernsey", "Guinea", "Guinea Ecuatorial", "Guinea-Bissau", "Guyana", "Haití", "Honduras"
DATA "Hong Kong", "Hungría", "India", "Indian Ocean", "Indonesia", "Irán", "Iraq", "Irlanda", "Isla Bouvet"
DATA "Isla Christmas", "Isla Norfolk", "Islandia", "Islas Caimán", "Islas Cocos", "Islas Cook", "Islas Feroe"
DATA "Islas Georgia del Sur y Sandwich del Sur", "Islas Heard y McDonald", "Islas Malvinas"
DATA "Islas Marianas del Norte", "IslasMarshall", "Islas Pitcairn", "Islas Salomón", "Islas Turcas y Caicos"
DATA "Islas Vírgenes Americanas", "Islas Vírgenes Británicas", "Israel", "Italia", "Jamaica", "Jan Mayen", "Japón"
DATA "Jersey", "Jordania", "Kazajistán", "Kenia", "Kirguizistán", "Kiribati", "Kuwait", "Laos", "Lesoto"
DATA "Letonia", "Líbano", "Liberia", "Libia", "Liechtenstein", "Lituania", "Luxemburgo", "Macao", "Macedonia"
DATA "Madagascar", "Malasia", "Malaui", "Maldivas", "Malí", "Malta", "Man, Isle of", "Marruecos", "Mauricio"
DATA "Mauritania", "Mayotte", "México", "Micronesia", "Moldavia", "Mónaco", "Mongolia", "Montserrat", "Mozambique"
DATA "Namibia", "Nauru", "Navassa Island", "Nepal", "Nicaragua", "Níger", "Nigeria", "Niue", "Noruega"
DATA "Nueva Caledonia", "Nueva Zelanda", "Omán", "Pacific Ocean", "Países Bajos", "Pakistán", "Palaos"
DATA "Panamá", "Papúa-Nueva Guinea", "Paracel Islands", "Paraguay", "Perú", "Polinesia Francesa", "Polonia"
DATA "Portugal", "Puerto Rico", "Qatar", "Reino Unido", "República Centroafricana", "República Checa"
DATA "República Democrática del Congo", "República Dominicana", "Ruanda", "Rumania", "Rusia", "Sáhara Occidental"
DATA "Samoa", "Samoa Americana", "San Cristóbal y Nieves", "San Marino", "San Pedro y Miquelón"
DATA "San Vicente y las Granadinas", "Santa Helena", "Santa Lucía", "Santo Tomé y Príncipe", "Senegal"
DATA "Seychelles", "Sierra Leona", "Singapur", "Siria", "Somalia", "Southern Ocean", "Spratly Islands"
DATA "Sri Lanka", "Suazilandia", "Sudáfrica", "Sudán", "Suecia", "Suiza", "Surinam", "Svalbard y Jan Mayen"
DATA "Tailandia", "Taiwán", "Tanzania", "Tayikistán", "TerritorioBritánicodel Océano Indico"
DATA "Territorios Australes Franceses", "Timor Oriental", "Togo", "Tokelau", "Tonga", "Trinidad y Tobago"
DATA "Túnez", "Turkmenistán", "Turquía", "Tuvalu", "Ucrania", "Uganda", "Unión Europea", "Uruguay", "Uzbekistán"
DATA "Vanuatu", "Venezuela", "Vietnam", "Wake Island", "Wallis y Futuna", "West Bank", "World", "Yemen", "Yibuti"
DATA "Zambia", "Zimbabue"
endproc

Sintaxis

CreaPaises