Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XMUDTOP

XMUDTOP.m

Go to the documentation of this file. 
  1. XMUDTOP ;ISC-SF/GMB-Top-Level Domain Names ;04/17/2002  11:48
  1.  ;;8.0;MailMan;;Jun 28, 2002
  1.  Q
  1. ENTRY ; Populate file 4.2996 with the proper, recognized top-level domains.
  1.  D DELALL
  1.  D ADD
  1.  Q
  1. DELALL ; Delete all entries.
  1.  N DIK,DA
  1.  S DIK="^DIC(4.2996,"
  1.  S DA=0
  1.  F  S DA=$O(^DIC(4.2996,DA)) Q:'DA  D ^DIK
  1.  K ^DIC(4.2996,"B")
  1.  Q
  1. ADD ; Add entries
  1.  N I,XMFDA,XMIEN,XMREC
  1.  F I=1:1 S X=$T(T+I) Q:X=" ;;"  D
  1.  . S XMREC=$E(X,4,255)
  1.  . S XMIENS="?+1,"
  1.  . S XMFDA(4.2996,XMIENS,.01)=$P(XMREC,U,1)
  1.  . S XMFDA(4.2996,XMIENS,1)=$P(XMREC,U,2)
  1.  . D UPDATE^DIE("","XMFDA")
  1.  . I $D(DIERR) W !,"ERROR=",XMREC
  1.  Q
  1. T ;
  1.  ;;AERO^AIR TRANSPORT INDUSTRY
  1.  ;;BIZ^BUSINESS
  1.  ;;COM^COMMERCIAL
  1.  ;;COOP^NON-PROFIT COOPERATIVE
  1.  ;;EDU^EDUCATIONAL
  1.  ;;GOV^US GOVERNMENT
  1.  ;;INFO^GENERAL USE
  1.  ;;INT^INTERNATIONAL ORGANIZATION
  1.  ;;MIL^US MILITARY
  1.  ;;MUSEUM^ACCREDITED MUSEUM
  1.  ;;NAME^INDIVIDUALS
  1.  ;;NET^NETWORK PROVIDER
  1.  ;;ORG^NON-PROFIT ORGANIZATION
  1.  ;;PRO^PROFESSIONAL
  1.  ;;AC^ASCENSION ISLAND
  1.  ;;AD^ANDORRA
  1.  ;;AE^UNITED ARAB EMIRATES
  1.  ;;AF^AFGHANISTAN
  1.  ;;AG^ANTIGUA AND BARBUDA
  1.  ;;AI^ANGUILLA
  1.  ;;AL^ALBANIA
  1.  ;;AM^ARMENIA
  1.  ;;AN^NETHERLANDS ANTILLES
  1.  ;;AO^ANGOLA
  1.  ;;AQ^ANTARCTICA
  1.  ;;AR^ARGENTINA
  1.  ;;AS^AMERICAN SAMOA
  1.  ;;AT^AUSTRIA
  1.  ;;AU^AUSTRALIA
  1.  ;;AW^ARUBA
  1.  ;;AZ^AZERBAIJAN
  1.  ;;BA^BOSNIA AND HERZEGOVINA
  1.  ;;BB^BARBADOS
  1.  ;;BD^BANGLADESH
  1.  ;;BE^BELGIUM
  1.  ;;BF^BURKINA FASO
  1.  ;;BG^BULGARIA
  1.  ;;BH^BAHRAIN
  1.  ;;BI^BURUNDI
  1.  ;;BJ^BENIN
  1.  ;;BM^BERMUDA
  1.  ;;BN^BRUNEI DARUSSALAM
  1.  ;;BO^BOLIVIA
  1.  ;;BR^BRAZIL
  1.  ;;BS^BAHAMAS
  1.  ;;BT^BHUTAN
  1.  ;;BV^BOUVET ISLAND
  1.  ;;BW^BOTSWANA
  1.  ;;BY^BELARUS
  1.  ;;BZ^BELIZE
  1.  ;;CA^CANADA
  1.  ;;CC^COCOS (KEELING) ISLANDS
  1.  ;;CD^CONGO, DEMOCRATIC PEOPLE'S REPUBLIC
  1.  ;;CF^CENTRAL AFRICAN REPUBLIC
  1.  ;;CG^CONGO, REPUBLIC OF
  1.  ;;CH^SWITZERLAND
  1.  ;;CI^COTE D'IVOIRE
  1.  ;;CK^COOK ISLANDS
  1.  ;;CL^CHILE
  1.  ;;CM^CAMEROON
  1.  ;;CN^CHINA
  1.  ;;CO^COLOMBIA
  1.  ;;CR^COSTA RICA
  1.  ;;CU^CUBA
  1.  ;;CV^CAPE VERDE
  1.  ;;CX^CHRISTMAS ISLAND
  1.  ;;CY^CYPRUS
  1.  ;;CZ^CZECH REPUBLIC
  1.  ;;DE^GERMANY
  1.  ;;DJ^DJIBOUTI
  1.  ;;DK^DENMARK
  1.  ;;DM^DOMINICA
  1.  ;;DO^DOMINICAN REPUBLIC
  1.  ;;DZ^ALGERIA
  1.  ;;EC^ECUADOR
  1.  ;;EE^ESTONIA
  1.  ;;EG^EGYPT
  1.  ;;EH^WESTERN SAHARA
  1.  ;;ER^ERITREA
  1.  ;;ES^SPAIN
  1.  ;;ET^ETHIOPIA
  1.  ;;FI^FINLAND
  1.  ;;FJ^FIJI
  1.  ;;FK^FALKLAND ISLANDS (MALVINAS)
  1.  ;;FM^MICRONESIA, FEDERATED STATES OF
  1.  ;;FO^FAROE ISLANDS
  1.  ;;FR^FRANCE
  1.  ;;GA^GABON
  1.  ;;GB^UNITED KINGDOM
  1.  ;;GD^GRENADA
  1.  ;;GE^GEORGIA
  1.  ;;GF^FRENCH GUIANA
  1.  ;;GG^GUERNSEY
  1.  ;;GH^GHANA
  1.  ;;GI^GIBRALTAR
  1.  ;;GL^GREENLAND
  1.  ;;GM^GAMBIA
  1.  ;;GN^GUINEA
  1.  ;;GP^GUADELOUPE
  1.  ;;GQ^EQUATORIAL GUINEA
  1.  ;;GR^GREECE
  1.  ;;GS^SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS
  1.  ;;GT^GUATEMALA
  1.  ;;GU^GUAM
  1.  ;;GW^GUINEA-BISSAU
  1.  ;;GY^GUYANA
  1.  ;;HK^HONG KONG
  1.  ;;HM^HEARD ISLAND AND MCDONALD ISLANDS
  1.  ;;HN^HONDURAS
  1.  ;;HR^CROATIA/HRVATSKA
  1.  ;;HT^HAITI
  1.  ;;HU^HUNGARY
  1.  ;;ID^INDONESIA
  1.  ;;IE^IRELAND
  1.  ;;IL^ISRAEL
  1.  ;;IM^ISLE OF MAN
  1.  ;;IN^INDIA
  1.  ;;IO^BRITISH INDIAN OCEAN TERRITORY
  1.  ;;IQ^IRAQ
  1.  ;;IR^IRAN, ISLAMIC REPUBLIC OF
  1.  ;;IS^ICELAND
  1.  ;;IT^ITALY
  1.  ;;JE^JERSEY
  1.  ;;JM^JAMAICA
  1.  ;;JO^JORDAN
  1.  ;;JP^JAPAN
  1.  ;;KE^KENYA
  1.  ;;KG^KYRGYZSTAN
  1.  ;;KH^CAMBODIA
  1.  ;;KI^KIRIBATI
  1.  ;;KM^COMOROS
  1.  ;;KN^SAINT KITTS AND NEVIS
  1.  ;;KP^KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF
  1.  ;;KR^KOREA, REPUBLIC OF
  1.  ;;KW^KUWAIT
  1.  ;;KY^CAYMAN ISLANDS
  1.  ;;KZ^KAZAKSTAN
  1.  ;;LA^LAO PEOPLE'S DEMOCRATIC REPUBLIC
  1.  ;;LB^LEBANON
  1.  ;;LC^SAINT LUCIA
  1.  ;;LI^LIECHTENSTEIN
  1.  ;;LK^SRI LANKA
  1.  ;;LR^LIBERIA
  1.  ;;LS^LESOTHO
  1.  ;;LT^LITHUANIA
  1.  ;;LU^LUXEMBOURG
  1.  ;;LV^LATVIA
  1.  ;;LY^LIBYAN ARAB JAMAHIRIYA
  1.  ;;MA^MOROCCO
  1.  ;;MC^MONACO
  1.  ;;MD^MOLDOVA, REPUBLIC OF
  1.  ;;MG^MADAGASCAR
  1.  ;;MH^MARSHALL ISLANDS
  1.  ;;MK^MACEDONIA, FORMER YUGOSLAV REPUBLIC OF
  1.  ;;ML^MALI
  1.  ;;MM^MYANMAR
  1.  ;;MN^MONGOLIA
  1.  ;;MO^MACAU
  1.  ;;MP^NORTHERN MARIANA ISLANDS
  1.  ;;MQ^MARTINIQUE
  1.  ;;MR^MAURITANIA
  1.  ;;MS^MONTSERRAT
  1.  ;;MT^MALTA
  1.  ;;MU^MAURITIUS
  1.  ;;MV^MALDIVES
  1.  ;;MW^MALAWI
  1.  ;;MX^MEXICO
  1.  ;;MY^MALAYSIA
  1.  ;;MZ^MOZAMBIQUE
  1.  ;;NA^NAMIBIA
  1.  ;;NC^NEW CALEDONIA
  1.  ;;NE^NIGER
  1.  ;;NF^NORFOLK ISLAND
  1.  ;;NG^NIGERIA
  1.  ;;NI^NICARAGUA
  1.  ;;NL^NETHERLANDS
  1.  ;;NO^NORWAY
  1.  ;;NP^NEPAL
  1.  ;;NR^NAURU
  1.  ;;NU^NIUE
  1.  ;;NZ^NEW ZEALAND
  1.  ;;OM^OMAN
  1.  ;;PA^PANAMA
  1.  ;;PE^PERU
  1.  ;;PF^FRENCH POLYNESIA
  1.  ;;PG^PAPUA NEW GUINEA
  1.  ;;PH^PHILIPPINES
  1.  ;;PK^PAKISTAN
  1.  ;;PL^POLAND
  1.  ;;PM^SAINT PIERRE AND MIQUELON
  1.  ;;PN^PITCAIRN ISLAND
  1.  ;;PR^PUERTO RICO
  1.  ;;PS^PALESTINIAN TERRITORIES
  1.  ;;PT^PORTUGAL
  1.  ;;PW^PALAU
  1.  ;;PY^PARAGUAY
  1.  ;;QA^QATAR
  1.  ;;RE^REUNION ISLAND
  1.  ;;RO^ROMANIA
  1.  ;;RU^RUSSIAN FEDERATION
  1.  ;;RW^RWANDA
  1.  ;;SA^SAUDI ARABIA
  1.  ;;SB^SOLOMON ISLANDS
  1.  ;;SC^SEYCHELLES
  1.  ;;SD^SUDAN
  1.  ;;SE^SWEDEN
  1.  ;;SG^SINGAPORE
  1.  ;;SH^SAINT HELENA
  1.  ;;SI^SLOVENIA
  1.  ;;SJ^SVALBARD AND JAN MAYEN
  1.  ;;SK^SLOVAK REPUBLIC
  1.  ;;SL^SIERRA LEONE
  1.  ;;SM^SAN MARINO
  1.  ;;SN^SENEGAL
  1.  ;;SO^SOMALIA
  1.  ;;SR^SURINAME
  1.  ;;ST^SAO TOME AND PRINCIPE
  1.  ;;SV^EL SALVADOR
  1.  ;;SY^SYRIAN ARAB REPUBLIC
  1.  ;;SZ^SWAZILAND
  1.  ;;TC^TURKS AND CAICOS ISLANDS
  1.  ;;TD^CHAD
  1.  ;;TF^FRENCH SOUTHERN TERRITORIES
  1.  ;;TG^TOGO
  1.  ;;TH^THAILAND
  1.  ;;TJ^TAJIKISTAN
  1.  ;;TK^TOKELAU
  1.  ;;TM^TURKMENISTAN
  1.  ;;TN^TUNISIA
  1.  ;;TO^TONGA
  1.  ;;TP^EAST TIMOR
  1.  ;;TR^TURKEY
  1.  ;;TT^TRINIDAD AND TOBAGO
  1.  ;;TV^TUVALU
  1.  ;;TW^TAIWAN
  1.  ;;TZ^TANZANIA
  1.  ;;UA^UKRAINE
  1.  ;;UG^UGANDA
  1.  ;;UK^UNITED KINGDOM
  1.  ;;UM^UNITED STATES MINOR OUTLYING ISLANDS
  1.  ;;US^UNITED STATES
  1.  ;;UY^URUGUAY
  1.  ;;UZ^UZBEKISTAN
  1.  ;;VA^HOLY SEE (VATICAN CITY STATE)
  1.  ;;VC^SAINT VINCENT AND THE GRENADINES
  1.  ;;VE^VENEZUELA
  1.  ;;VG^VIRGIN ISLANDS, BRITISH
  1.  ;;VI^VIRGIN ISLANDS, U.S.
  1.  ;;VN^VIETNAM
  1.  ;;VU^VANUATU
  1.  ;;WF^WALLIS AND FUTUNA ISLANDS
  1.  ;;WS^WESTERN SAMOA
  1.  ;;YE^YEMEN
  1.  ;;YT^MAYOTTE
  1.  ;;YU^YUGOSLAVIA
  1.  ;;ZA^SOUTH AFRICA
  1.  ;;ZM^ZAMBIA
  1.  ;;ZR^ZAIRE
  1.  ;;ZW^ZIMBABWE
  1.  ;;