XMZDOM2.m

XMZDOM2 ;(WASH ISC)/CAP - CONVERT MAILMAN HOST #'S TO IDCU ;5/10/90  13:08

 ;;7.1;Mailman;**1003**;OCT 27, 1998

 ;;1.0;

 ;;ALL;

 S %=0

A S %=%+1,X=$T(Z+%) I $L(X),X'?1"END".E S XMA=XMA+1,^UTILITY($J,"#",XMA)=X G A

 W !,%-1," DOMAINS LOADED" Q

 ;

Z ;;DOMAIN_NAME;IDCU HOST

 ;;MARION-IL;84120198;1864

 ;;MARION-IN;84199523;1867

 ;;MARLIN;84024123;879

 ;;MARTINEZ;84000173;927

 ;;MARTINSBURG;84316924;597

 ;;MEMPHIS;84120223;964

 ;;MIAMI;84216073;967

 ;;MILES-CITY;84108199;92

 ;;MILWAUKEE;84199574;744

 ;;MINNEAPOLIS;84116199;234

 ;;MIRMO-VACO;84299099;143

 ;;MONTGOMERY;84208349;240

 ;;MONTROSE;84300172;1804

 ;;MTN-HOME;84208373;1087

 ;;MURFREESBORO;84208398;970

 ;;MUSKOGEE;84104299;603

 ;;N-CHICAGO;84199349;296

 ;;NASHVILLE;84208419;925

 ;;NEW-ORLEANS;84008149;626

 ;;NEW-YORK;84300199;627

 ;;NEWINGTON;84308099;633

 ;;NORTHAMPTON;84304323;1807

 ;;NORTHPORT;84300223;1810

 ;;NRMIS;84000274;493

 ;;OKLAHOMA;84024149;255

 ;;OMAHA;84104324;208

 ;;PACE-WASH;84299421;258

 ;;PALO-ALTO;84000199;302

 ;;PDC;84108323;1192

 ;;PERRY-POINT;84200148;1085

 ;;PHILADELPHIA;84399273;642

 ;;PHOENIX;84012099;236

 ;;PITTS-HGHLND;84212349;644

 ;;PITTSBURGH;84212374;221

 ;;POPLAR-BLUFF;84120249;389

 ;;PORTLAND;84100174;645

 ;;PRESCOTT;84012123;1179

 ;;PROVIDENCE;84304349;668

 ;;RD2-REGION2;84204048;690

 ;;RD4-REGION4;84112074;34

 ;;RD5-REGION5;84120324;98

 ;;RD6-REGION6;84000273;493

 ;;RD7-REGION7;84099647;1194

 ;;RENO;84000224;699

 ;;RICHMOND;84299399;216

 ;;RMEC-BIRM;84208237;177

 ;;RMEC-CLEVE;84112373;2045

 ;;RMEC-LBEACH;84016071;1219

 ;;RMEC-NORTHPT;84300298;1141

 ;;RMEC-SLC;84108221;1015

 ;;ROSEBURG;84004095;931

 ;;SAGINAW;84112298;1870

 ;;SALEM;84204124;708

 ;;SALISBURY;84208474;711

 ;;SALT-LAKE;84108224;204

 ;;SAN-ANTONIO;84099699;714

 ;;SAN-DIEGO;84016124;304

 ;;SAN-JUAN;84216174;717

 ;;SANFRANCISCO;84000249;308

 ;;SEATTLE;84100199;232

 ;;SEPULVEDA;84016149;282

 ;;SHERIDAN;84108273;1840

 ;;SHREVEPORT;84104346;722

 ;;SILVER.FORUM;84299097;259

 ;;SIOUX-FALLS;84116099;723

 ;;SPOKANE;84100223;934

 ;;ST-CLOUD;84216223;1843

 ;;ST-LOUIS;84120298;1500

 ;;SUPP-CHICAGO;84199148;179

 ;;SYRACUSE;84312124;726

 ;;TACOMA;84100148;937

 ;;TEMPLE;84024173;888

 ;;TAMPA;84216198;1029

 ;;TOGUS;84304099;729

 ;;TOMAH;84199549;1058

 ;;TOPEKA;84104372;1846

 ;;TUCSON;84012148;940

 ;;TUSCALOOSA;84208499;241

 ;;TUSKEGEE;84208524;242

 ;;VACOWMAIL;84299303;196

 ;;WACO;84024196;235

 ;;WALLA-WALLA;84100248;943

 ;;WASHINGTON;84299422;213

 ;;WEST-HAVEN;84308122;1813

 ;;WEST-LA;84016174;237

 ;;WHITE-CITY;84004123;946

 ;;WHITE-RIVER;84304149;732

 ;;WICHITA;84104099;735

 ;;WILKES-BARRE;84312149;738

 ;;WILMINGTON;84399199;741

XMZDOM2   ;(WASH ISC)/CAP - CONVERT MAILMAN HOST #'S TO IDCU ;5/10/90  13:08

 +1       ;;7.1;Mailman;**1003**;OCT 27, 1998

 +2       ;;1.0;

 +3       ;;ALL;

 +4        SET %=0

A          SET %=%+1

           SET X=$TEXT(Z+%)

           IF $LENGTH(X)

               IF X'?1"END".E

                   SET XMA=XMA+1

                   SET ^UTILITY($JOB,"#",XMA)=X

                   GOTO A

 +1        WRITE !,%-1," DOMAINS LOADED"

           QUIT 

 +2       ;

Z         ;;DOMAIN_NAME;IDCU HOST

 +1       ;;MARION-IL;84120198;1864

 +2       ;;MARION-IN;84199523;1867

 +3       ;;MARLIN;84024123;879

 +4       ;;MARTINEZ;84000173;927

 +5       ;;MARTINSBURG;84316924;597

 +6       ;;MEMPHIS;84120223;964

 +7       ;;MIAMI;84216073;967

 +8       ;;MILES-CITY;84108199;92

 +9       ;;MILWAUKEE;84199574;744

 +10      ;;MINNEAPOLIS;84116199;234

 +11      ;;MIRMO-VACO;84299099;143

 +12      ;;MONTGOMERY;84208349;240

 +13      ;;MONTROSE;84300172;1804

 +14      ;;MTN-HOME;84208373;1087

 +15      ;;MURFREESBORO;84208398;970

 +16      ;;MUSKOGEE;84104299;603

 +17      ;;N-CHICAGO;84199349;296

 +18      ;;NASHVILLE;84208419;925

 +19      ;;NEW-ORLEANS;84008149;626

 +20      ;;NEW-YORK;84300199;627

 +21      ;;NEWINGTON;84308099;633

 +22      ;;NORTHAMPTON;84304323;1807

 +23      ;;NORTHPORT;84300223;1810

 +24      ;;NRMIS;84000274;493

 +25      ;;OKLAHOMA;84024149;255

 +26      ;;OMAHA;84104324;208

 +27      ;;PACE-WASH;84299421;258

 +28      ;;PALO-ALTO;84000199;302

 +29      ;;PDC;84108323;1192

 +30      ;;PERRY-POINT;84200148;1085

 +31      ;;PHILADELPHIA;84399273;642

 +32      ;;PHOENIX;84012099;236

 +33      ;;PITTS-HGHLND;84212349;644

 +34      ;;PITTSBURGH;84212374;221

 +35      ;;POPLAR-BLUFF;84120249;389

 +36      ;;PORTLAND;84100174;645

 +37      ;;PRESCOTT;84012123;1179

 +38      ;;PROVIDENCE;84304349;668

 +39      ;;RD2-REGION2;84204048;690

 +40      ;;RD4-REGION4;84112074;34

 +41      ;;RD5-REGION5;84120324;98

 +42      ;;RD6-REGION6;84000273;493

 +43      ;;RD7-REGION7;84099647;1194

 +44      ;;RENO;84000224;699

 +45      ;;RICHMOND;84299399;216

 +46      ;;RMEC-BIRM;84208237;177

 +47      ;;RMEC-CLEVE;84112373;2045

 +48      ;;RMEC-LBEACH;84016071;1219

 +49      ;;RMEC-NORTHPT;84300298;1141

 +50      ;;RMEC-SLC;84108221;1015

 +51      ;;ROSEBURG;84004095;931

 +52      ;;SAGINAW;84112298;1870

 +53      ;;SALEM;84204124;708

 +54      ;;SALISBURY;84208474;711

 +55      ;;SALT-LAKE;84108224;204

 +56      ;;SAN-ANTONIO;84099699;714

 +57      ;;SAN-DIEGO;84016124;304

 +58      ;;SAN-JUAN;84216174;717

 +59      ;;SANFRANCISCO;84000249;308

 +60      ;;SEATTLE;84100199;232

 +61      ;;SEPULVEDA;84016149;282

 +62      ;;SHERIDAN;84108273;1840

 +63      ;;SHREVEPORT;84104346;722

 +64      ;;SILVER.FORUM;84299097;259

 +65      ;;SIOUX-FALLS;84116099;723

 +66      ;;SPOKANE;84100223;934

 +67      ;;ST-CLOUD;84216223;1843

 +68      ;;ST-LOUIS;84120298;1500

 +69      ;;SUPP-CHICAGO;84199148;179

 +70      ;;SYRACUSE;84312124;726

 +71      ;;TACOMA;84100148;937

 +72      ;;TEMPLE;84024173;888

 +73      ;;TAMPA;84216198;1029

 +74      ;;TOGUS;84304099;729

 +75      ;;TOMAH;84199549;1058

 +76      ;;TOPEKA;84104372;1846

 +77      ;;TUCSON;84012148;940

 +78      ;;TUSCALOOSA;84208499;241

 +79      ;;TUSKEGEE;84208524;242

 +80      ;;VACOWMAIL;84299303;196

 +81      ;;WACO;84024196;235

 +82      ;;WALLA-WALLA;84100248;943

 +83      ;;WASHINGTON;84299422;213

 +84      ;;WEST-HAVEN;84308122;1813

 +85      ;;WEST-LA;84016174;237

 +86      ;;WHITE-CITY;84004123;946

 +87      ;;WHITE-RIVER;84304149;732

 +88      ;;WICHITA;84104099;735

 +89      ;;WILKES-BARRE;84312149;738

 +90      ;;WILMINGTON;84399199;741