source: FOIAVistA/trunk/r/MAILMAN-XM/XMUDTOP.m@ 1119

Last change on this file since 1119 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

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