XMUDTOP ;ISC-SF/GMB-Top-Level Domain Names ;04/17/2002 11:48
;;8.0;MailMan;;Jun 28, 2002
Q
ENTRY ; Populate file 4.2996 with the proper, recognized top-level domains.
D DELALL
D ADD
Q
DELALL ; Delete all entries.
N DIK,DA
S DIK="^DIC(4.2996,"
S DA=0
F S DA=$O(^DIC(4.2996,DA)) Q:'DA D ^DIK
K ^DIC(4.2996,"B")
Q
ADD ; Add entries
N I,XMFDA,XMIEN,XMREC
F I=1:1 S X=$T(T+I) Q:X=" ;;" D
. S XMREC=$E(X,4,255)
. S XMIENS="?+1,"
. S XMFDA(4.2996,XMIENS,.01)=$P(XMREC,U,1)
. S XMFDA(4.2996,XMIENS,1)=$P(XMREC,U,2)
. D UPDATE^DIE("","XMFDA")
. I $D(DIERR) W !,"ERROR=",XMREC
Q
T ;
;;AERO^AIR TRANSPORT INDUSTRY
;;BIZ^BUSINESS
;;COM^COMMERCIAL
;;COOP^NON-PROFIT COOPERATIVE
;;EDU^EDUCATIONAL
;;GOV^US GOVERNMENT
;;INFO^GENERAL USE
;;INT^INTERNATIONAL ORGANIZATION
;;MIL^US MILITARY
;;MUSEUM^ACCREDITED MUSEUM
;;NAME^INDIVIDUALS
;;NET^NETWORK PROVIDER
;;ORG^NON-PROFIT ORGANIZATION
;;PRO^PROFESSIONAL
;;AC^ASCENSION ISLAND
;;AD^ANDORRA
;;AE^UNITED ARAB EMIRATES
;;AF^AFGHANISTAN
;;AG^ANTIGUA AND BARBUDA
;;AI^ANGUILLA
;;AL^ALBANIA
;;AM^ARMENIA
;;AN^NETHERLANDS ANTILLES
;;AO^ANGOLA
;;AQ^ANTARCTICA
;;AR^ARGENTINA
;;AS^AMERICAN SAMOA
;;AT^AUSTRIA
;;AU^AUSTRALIA
;;AW^ARUBA
;;AZ^AZERBAIJAN
;;BA^BOSNIA AND HERZEGOVINA
;;BB^BARBADOS
;;BD^BANGLADESH
;;BE^BELGIUM
;;BF^BURKINA FASO
;;BG^BULGARIA
;;BH^BAHRAIN
;;BI^BURUNDI
;;BJ^BENIN
;;BM^BERMUDA
;;BN^BRUNEI DARUSSALAM
;;BO^BOLIVIA
;;BR^BRAZIL
;;BS^BAHAMAS
;;BT^BHUTAN
;;BV^BOUVET ISLAND
;;BW^BOTSWANA
;;BY^BELARUS
;;BZ^BELIZE
;;CA^CANADA
;;CC^COCOS (KEELING) ISLANDS
;;CD^CONGO, DEMOCRATIC PEOPLE'S REPUBLIC
;;CF^CENTRAL AFRICAN REPUBLIC
;;CG^CONGO, REPUBLIC OF
;;CH^SWITZERLAND
;;CI^COTE D'IVOIRE
;;CK^COOK ISLANDS
;;CL^CHILE
;;CM^CAMEROON
;;CN^CHINA
;;CO^COLOMBIA
;;CR^COSTA RICA
;;CU^CUBA
;;CV^CAPE VERDE
;;CX^CHRISTMAS ISLAND
;;CY^CYPRUS
;;CZ^CZECH REPUBLIC
;;DE^GERMANY
;;DJ^DJIBOUTI
;;DK^DENMARK
;;DM^DOMINICA
;;DO^DOMINICAN REPUBLIC
;;DZ^ALGERIA
;;EC^ECUADOR
;;EE^ESTONIA
;;EG^EGYPT
;;EH^WESTERN SAHARA
;;ER^ERITREA
;;ES^SPAIN
;;ET^ETHIOPIA
;;FI^FINLAND
;;FJ^FIJI
;;FK^FALKLAND ISLANDS (MALVINAS)
;;FM^MICRONESIA, FEDERATED STATES OF
;;FO^FAROE ISLANDS
;;FR^FRANCE
;;GA^GABON
;;GB^UNITED KINGDOM
;;GD^GRENADA
;;GE^GEORGIA
;;GF^FRENCH GUIANA
;;GG^GUERNSEY
;;GH^GHANA
;;GI^GIBRALTAR
;;GL^GREENLAND
;;GM^GAMBIA
;;GN^GUINEA
;;GP^GUADELOUPE
;;GQ^EQUATORIAL GUINEA
;;GR^GREECE
;;GS^SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS
;;GT^GUATEMALA
;;GU^GUAM
;;GW^GUINEA-BISSAU
;;GY^GUYANA
;;HK^HONG KONG
;;HM^HEARD ISLAND AND MCDONALD ISLANDS
;;HN^HONDURAS
;;HR^CROATIA/HRVATSKA
;;HT^HAITI
;;HU^HUNGARY
;;ID^INDONESIA
;;IE^IRELAND
;;IL^ISRAEL
;;IM^ISLE OF MAN
;;IN^INDIA
;;IO^BRITISH INDIAN OCEAN TERRITORY
;;IQ^IRAQ
;;IR^IRAN, ISLAMIC REPUBLIC OF
;;IS^ICELAND
;;IT^ITALY
;;JE^JERSEY
;;JM^JAMAICA
;;JO^JORDAN
;;JP^JAPAN
;;KE^KENYA
;;KG^KYRGYZSTAN
;;KH^CAMBODIA
;;KI^KIRIBATI
;;KM^COMOROS
;;KN^SAINT KITTS AND NEVIS
;;KP^KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF
;;KR^KOREA, REPUBLIC OF
;;KW^KUWAIT
;;KY^CAYMAN ISLANDS
;;KZ^KAZAKSTAN
;;LA^LAO PEOPLE'S DEMOCRATIC REPUBLIC
;;LB^LEBANON
;;LC^SAINT LUCIA
;;LI^LIECHTENSTEIN
;;LK^SRI LANKA
;;LR^LIBERIA
;;LS^LESOTHO
;;LT^LITHUANIA
;;LU^LUXEMBOURG
;;LV^LATVIA
;;LY^LIBYAN ARAB JAMAHIRIYA
;;MA^MOROCCO
;;MC^MONACO
;;MD^MOLDOVA, REPUBLIC OF
;;MG^MADAGASCAR
;;MH^MARSHALL ISLANDS
;;MK^MACEDONIA, FORMER YUGOSLAV REPUBLIC OF
;;ML^MALI
;;MM^MYANMAR
;;MN^MONGOLIA
;;MO^MACAU
;;MP^NORTHERN MARIANA ISLANDS
;;MQ^MARTINIQUE
;;MR^MAURITANIA
;;MS^MONTSERRAT
;;MT^MALTA
;;MU^MAURITIUS
;;MV^MALDIVES
;;MW^MALAWI
;;MX^MEXICO
;;MY^MALAYSIA
;;MZ^MOZAMBIQUE
;;NA^NAMIBIA
;;NC^NEW CALEDONIA
;;NE^NIGER
;;NF^NORFOLK ISLAND
;;NG^NIGERIA
;;NI^NICARAGUA
;;NL^NETHERLANDS
;;NO^NORWAY
;;NP^NEPAL
;;NR^NAURU
;;NU^NIUE
;;NZ^NEW ZEALAND
;;OM^OMAN
;;PA^PANAMA
;;PE^PERU
;;PF^FRENCH POLYNESIA
;;PG^PAPUA NEW GUINEA
;;PH^PHILIPPINES
;;PK^PAKISTAN
;;PL^POLAND
;;PM^SAINT PIERRE AND MIQUELON
;;PN^PITCAIRN ISLAND
;;PR^PUERTO RICO
;;PS^PALESTINIAN TERRITORIES
;;PT^PORTUGAL
;;PW^PALAU
;;PY^PARAGUAY
;;QA^QATAR
;;RE^REUNION ISLAND
;;RO^ROMANIA
;;RU^RUSSIAN FEDERATION
;;RW^RWANDA
;;SA^SAUDI ARABIA
;;SB^SOLOMON ISLANDS
;;SC^SEYCHELLES
;;SD^SUDAN
;;SE^SWEDEN
;;SG^SINGAPORE
;;SH^SAINT HELENA
;;SI^SLOVENIA
;;SJ^SVALBARD AND JAN MAYEN
;;SK^SLOVAK REPUBLIC
;;SL^SIERRA LEONE
;;SM^SAN MARINO
;;SN^SENEGAL
;;SO^SOMALIA
;;SR^SURINAME
;;ST^SAO TOME AND PRINCIPE
;;SV^EL SALVADOR
;;SY^SYRIAN ARAB REPUBLIC
;;SZ^SWAZILAND
;;TC^TURKS AND CAICOS ISLANDS
;;TD^CHAD
;;TF^FRENCH SOUTHERN TERRITORIES
;;TG^TOGO
;;TH^THAILAND
;;TJ^TAJIKISTAN
;;TK^TOKELAU
;;TM^TURKMENISTAN
;;TN^TUNISIA
;;TO^TONGA
;;TP^EAST TIMOR
;;TR^TURKEY
;;TT^TRINIDAD AND TOBAGO
;;TV^TUVALU
;;TW^TAIWAN
;;TZ^TANZANIA
;;UA^UKRAINE
;;UG^UGANDA
;;UK^UNITED KINGDOM
;;UM^UNITED STATES MINOR OUTLYING ISLANDS
;;US^UNITED STATES
;;UY^URUGUAY
;;UZ^UZBEKISTAN
;;VA^HOLY SEE (VATICAN CITY STATE)
;;VC^SAINT VINCENT AND THE GRENADINES
;;VE^VENEZUELA
;;VG^VIRGIN ISLANDS, BRITISH
;;VI^VIRGIN ISLANDS, U.S.
;;VN^VIETNAM
;;VU^VANUATU
;;WF^WALLIS AND FUTUNA ISLANDS
;;WS^WESTERN SAMOA
;;YE^YEMEN
;;YT^MAYOTTE
;;YU^YUGOSLAVIA
;;ZA^SOUTH AFRICA
;;ZM^ZAMBIA
;;ZR^ZAIRE
;;ZW^ZIMBABWE
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMUDTOP 5631 printed Apr 09, 2024@21:13:29 Page 2
XMUDTOP ;ISC-SF/GMB-Top-Level Domain Names ;04/17/2002 11:48
+1 ;;8.0;MailMan;;Jun 28, 2002
+2 QUIT
ENTRY ; Populate file 4.2996 with the proper, recognized top-level domains.
+1 DO DELALL
+2 DO ADD
+3 QUIT
DELALL ; Delete all entries.
+1 NEW DIK,DA
+2 SET DIK="^DIC(4.2996,"
+3 SET DA=0
+4 FOR
SET DA=$ORDER(^DIC(4.2996,DA))
if 'DA
QUIT
DO ^DIK
+5 KILL ^DIC(4.2996,"B")
+6 QUIT
ADD ; Add entries
+1 NEW I,XMFDA,XMIEN,XMREC
+2 FOR I=1:1
SET X=$TEXT(T+I)
if X=" ;;"
QUIT
Begin DoDot:1
+3 SET XMREC=$EXTRACT(X,4,255)
+4 SET XMIENS="?+1,"
+5 SET XMFDA(4.2996,XMIENS,.01)=$PIECE(XMREC,U,1)
+6 SET XMFDA(4.2996,XMIENS,1)=$PIECE(XMREC,U,2)
+7 DO UPDATE^DIE("","XMFDA")
+8 IF $DATA(DIERR)
WRITE !,"ERROR=",XMREC
End DoDot:1
+9 QUIT
T ;
+1 ;;AERO^AIR TRANSPORT INDUSTRY
+2 ;;BIZ^BUSINESS
+3 ;;COM^COMMERCIAL
+4 ;;COOP^NON-PROFIT COOPERATIVE
+5 ;;EDU^EDUCATIONAL
+6 ;;GOV^US GOVERNMENT
+7 ;;INFO^GENERAL USE
+8 ;;INT^INTERNATIONAL ORGANIZATION
+9 ;;MIL^US MILITARY
+10 ;;MUSEUM^ACCREDITED MUSEUM
+11 ;;NAME^INDIVIDUALS
+12 ;;NET^NETWORK PROVIDER
+13 ;;ORG^NON-PROFIT ORGANIZATION
+14 ;;PRO^PROFESSIONAL
+15 ;;AC^ASCENSION ISLAND
+16 ;;AD^ANDORRA
+17 ;;AE^UNITED ARAB EMIRATES
+18 ;;AF^AFGHANISTAN
+19 ;;AG^ANTIGUA AND BARBUDA
+20 ;;AI^ANGUILLA
+21 ;;AL^ALBANIA
+22 ;;AM^ARMENIA
+23 ;;AN^NETHERLANDS ANTILLES
+24 ;;AO^ANGOLA
+25 ;;AQ^ANTARCTICA
+26 ;;AR^ARGENTINA
+27 ;;AS^AMERICAN SAMOA
+28 ;;AT^AUSTRIA
+29 ;;AU^AUSTRALIA
+30 ;;AW^ARUBA
+31 ;;AZ^AZERBAIJAN
+32 ;;BA^BOSNIA AND HERZEGOVINA
+33 ;;BB^BARBADOS
+34 ;;BD^BANGLADESH
+35 ;;BE^BELGIUM
+36 ;;BF^BURKINA FASO
+37 ;;BG^BULGARIA
+38 ;;BH^BAHRAIN
+39 ;;BI^BURUNDI
+40 ;;BJ^BENIN
+41 ;;BM^BERMUDA
+42 ;;BN^BRUNEI DARUSSALAM
+43 ;;BO^BOLIVIA
+44 ;;BR^BRAZIL
+45 ;;BS^BAHAMAS
+46 ;;BT^BHUTAN
+47 ;;BV^BOUVET ISLAND
+48 ;;BW^BOTSWANA
+49 ;;BY^BELARUS
+50 ;;BZ^BELIZE
+51 ;;CA^CANADA
+52 ;;CC^COCOS (KEELING) ISLANDS
+53 ;;CD^CONGO, DEMOCRATIC PEOPLE'S REPUBLIC
+54 ;;CF^CENTRAL AFRICAN REPUBLIC
+55 ;;CG^CONGO, REPUBLIC OF
+56 ;;CH^SWITZERLAND
+57 ;;CI^COTE D'IVOIRE
+58 ;;CK^COOK ISLANDS
+59 ;;CL^CHILE
+60 ;;CM^CAMEROON
+61 ;;CN^CHINA
+62 ;;CO^COLOMBIA
+63 ;;CR^COSTA RICA
+64 ;;CU^CUBA
+65 ;;CV^CAPE VERDE
+66 ;;CX^CHRISTMAS ISLAND
+67 ;;CY^CYPRUS
+68 ;;CZ^CZECH REPUBLIC
+69 ;;DE^GERMANY
+70 ;;DJ^DJIBOUTI
+71 ;;DK^DENMARK
+72 ;;DM^DOMINICA
+73 ;;DO^DOMINICAN REPUBLIC
+74 ;;DZ^ALGERIA
+75 ;;EC^ECUADOR
+76 ;;EE^ESTONIA
+77 ;;EG^EGYPT
+78 ;;EH^WESTERN SAHARA
+79 ;;ER^ERITREA
+80 ;;ES^SPAIN
+81 ;;ET^ETHIOPIA
+82 ;;FI^FINLAND
+83 ;;FJ^FIJI
+84 ;;FK^FALKLAND ISLANDS (MALVINAS)
+85 ;;FM^MICRONESIA, FEDERATED STATES OF
+86 ;;FO^FAROE ISLANDS
+87 ;;FR^FRANCE
+88 ;;GA^GABON
+89 ;;GB^UNITED KINGDOM
+90 ;;GD^GRENADA
+91 ;;GE^GEORGIA
+92 ;;GF^FRENCH GUIANA
+93 ;;GG^GUERNSEY
+94 ;;GH^GHANA
+95 ;;GI^GIBRALTAR
+96 ;;GL^GREENLAND
+97 ;;GM^GAMBIA
+98 ;;GN^GUINEA
+99 ;;GP^GUADELOUPE
+100 ;;GQ^EQUATORIAL GUINEA
+101 ;;GR^GREECE
+102 ;;GS^SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS
+103 ;;GT^GUATEMALA
+104 ;;GU^GUAM
+105 ;;GW^GUINEA-BISSAU
+106 ;;GY^GUYANA
+107 ;;HK^HONG KONG
+108 ;;HM^HEARD ISLAND AND MCDONALD ISLANDS
+109 ;;HN^HONDURAS
+110 ;;HR^CROATIA/HRVATSKA
+111 ;;HT^HAITI
+112 ;;HU^HUNGARY
+113 ;;ID^INDONESIA
+114 ;;IE^IRELAND
+115 ;;IL^ISRAEL
+116 ;;IM^ISLE OF MAN
+117 ;;IN^INDIA
+118 ;;IO^BRITISH INDIAN OCEAN TERRITORY
+119 ;;IQ^IRAQ
+120 ;;IR^IRAN, ISLAMIC REPUBLIC OF
+121 ;;IS^ICELAND
+122 ;;IT^ITALY
+123 ;;JE^JERSEY
+124 ;;JM^JAMAICA
+125 ;;JO^JORDAN
+126 ;;JP^JAPAN
+127 ;;KE^KENYA
+128 ;;KG^KYRGYZSTAN
+129 ;;KH^CAMBODIA
+130 ;;KI^KIRIBATI
+131 ;;KM^COMOROS
+132 ;;KN^SAINT KITTS AND NEVIS
+133 ;;KP^KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF
+134 ;;KR^KOREA, REPUBLIC OF
+135 ;;KW^KUWAIT
+136 ;;KY^CAYMAN ISLANDS
+137 ;;KZ^KAZAKSTAN
+138 ;;LA^LAO PEOPLE'S DEMOCRATIC REPUBLIC
+139 ;;LB^LEBANON
+140 ;;LC^SAINT LUCIA
+141 ;;LI^LIECHTENSTEIN
+142 ;;LK^SRI LANKA
+143 ;;LR^LIBERIA
+144 ;;LS^LESOTHO
+145 ;;LT^LITHUANIA
+146 ;;LU^LUXEMBOURG
+147 ;;LV^LATVIA
+148 ;;LY^LIBYAN ARAB JAMAHIRIYA
+149 ;;MA^MOROCCO
+150 ;;MC^MONACO
+151 ;;MD^MOLDOVA, REPUBLIC OF
+152 ;;MG^MADAGASCAR
+153 ;;MH^MARSHALL ISLANDS
+154 ;;MK^MACEDONIA, FORMER YUGOSLAV REPUBLIC OF
+155 ;;ML^MALI
+156 ;;MM^MYANMAR
+157 ;;MN^MONGOLIA
+158 ;;MO^MACAU
+159 ;;MP^NORTHERN MARIANA ISLANDS
+160 ;;MQ^MARTINIQUE
+161 ;;MR^MAURITANIA
+162 ;;MS^MONTSERRAT
+163 ;;MT^MALTA
+164 ;;MU^MAURITIUS
+165 ;;MV^MALDIVES
+166 ;;MW^MALAWI
+167 ;;MX^MEXICO
+168 ;;MY^MALAYSIA
+169 ;;MZ^MOZAMBIQUE
+170 ;;NA^NAMIBIA
+171 ;;NC^NEW CALEDONIA
+172 ;;NE^NIGER
+173 ;;NF^NORFOLK ISLAND
+174 ;;NG^NIGERIA
+175 ;;NI^NICARAGUA
+176 ;;NL^NETHERLANDS
+177 ;;NO^NORWAY
+178 ;;NP^NEPAL
+179 ;;NR^NAURU
+180 ;;NU^NIUE
+181 ;;NZ^NEW ZEALAND
+182 ;;OM^OMAN
+183 ;;PA^PANAMA
+184 ;;PE^PERU
+185 ;;PF^FRENCH POLYNESIA
+186 ;;PG^PAPUA NEW GUINEA
+187 ;;PH^PHILIPPINES
+188 ;;PK^PAKISTAN
+189 ;;PL^POLAND
+190 ;;PM^SAINT PIERRE AND MIQUELON
+191 ;;PN^PITCAIRN ISLAND
+192 ;;PR^PUERTO RICO
+193 ;;PS^PALESTINIAN TERRITORIES
+194 ;;PT^PORTUGAL
+195 ;;PW^PALAU
+196 ;;PY^PARAGUAY
+197 ;;QA^QATAR
+198 ;;RE^REUNION ISLAND
+199 ;;RO^ROMANIA
+200 ;;RU^RUSSIAN FEDERATION
+201 ;;RW^RWANDA
+202 ;;SA^SAUDI ARABIA
+203 ;;SB^SOLOMON ISLANDS
+204 ;;SC^SEYCHELLES
+205 ;;SD^SUDAN
+206 ;;SE^SWEDEN
+207 ;;SG^SINGAPORE
+208 ;;SH^SAINT HELENA
+209 ;;SI^SLOVENIA
+210 ;;SJ^SVALBARD AND JAN MAYEN
+211 ;;SK^SLOVAK REPUBLIC
+212 ;;SL^SIERRA LEONE
+213 ;;SM^SAN MARINO
+214 ;;SN^SENEGAL
+215 ;;SO^SOMALIA
+216 ;;SR^SURINAME
+217 ;;ST^SAO TOME AND PRINCIPE
+218 ;;SV^EL SALVADOR
+219 ;;SY^SYRIAN ARAB REPUBLIC
+220 ;;SZ^SWAZILAND
+221 ;;TC^TURKS AND CAICOS ISLANDS
+222 ;;TD^CHAD
+223 ;;TF^FRENCH SOUTHERN TERRITORIES
+224 ;;TG^TOGO
+225 ;;TH^THAILAND
+226 ;;TJ^TAJIKISTAN
+227 ;;TK^TOKELAU
+228 ;;TM^TURKMENISTAN
+229 ;;TN^TUNISIA
+230 ;;TO^TONGA
+231 ;;TP^EAST TIMOR
+232 ;;TR^TURKEY
+233 ;;TT^TRINIDAD AND TOBAGO
+234 ;;TV^TUVALU
+235 ;;TW^TAIWAN
+236 ;;TZ^TANZANIA
+237 ;;UA^UKRAINE
+238 ;;UG^UGANDA
+239 ;;UK^UNITED KINGDOM
+240 ;;UM^UNITED STATES MINOR OUTLYING ISLANDS
+241 ;;US^UNITED STATES
+242 ;;UY^URUGUAY
+243 ;;UZ^UZBEKISTAN
+244 ;;VA^HOLY SEE (VATICAN CITY STATE)
+245 ;;VC^SAINT VINCENT AND THE GRENADINES
+246 ;;VE^VENEZUELA
+247 ;;VG^VIRGIN ISLANDS, BRITISH
+248 ;;VI^VIRGIN ISLANDS, U.S.
+249 ;;VN^VIETNAM
+250 ;;VU^VANUATU
+251 ;;WF^WALLIS AND FUTUNA ISLANDS
+252 ;;WS^WESTERN SAMOA
+253 ;;YE^YEMEN
+254 ;;YT^MAYOTTE
+255 ;;YU^YUGOSLAVIA
+256 ;;ZA^SOUTH AFRICA
+257 ;;ZM^ZAMBIA
+258 ;;ZR^ZAIRE
+259 ;;ZW^ZIMBABWE
+260 ;;
