XMZDOM1 ;(WASH ISC)/CAP - CONVERT MAILMAN HOST #'S TO IDCU ;5/16/90 15:44
;;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 !,XMA," DOMAINS LOADED" Q
;
Z ;;DOMAIN_NAME;IDCU HOST
;;ALBANY;84308049;210
;;ALBUQUERQUE;84012074;503
;;ALEXANDRIA;84008073;949
;;ALLEN-PARK;84112249;228
;;ALTOONA;84200048;1088
;;AMARILLO;84024048;325
;;ANCHORAGE;84100049;747
;;ANN-ARBOR;84112072;203
;;ASHEVILLE;84208448;973
;;ATLANTA;84208174;222
;;AUGUSTA;84208199;281
;;BALTIMORE;84200074;750
;;BATAVIA;84212097;1002
;;BATH;84312048;1005
;;BATTLE-CREEK;84112123;1849
;;BAY-PINES;84216049;751
;;BDC;84304248;505
;;BECKLEY;84212123;980
;;BEDFORD;84304199;215
;;BIG-SPRING;84099624;1169
;;BILOXI;84008099;214
;;BIRMINGHAM;84208224;207
;;BOISE;84004074;315
;;BONHAM;84024073;1816
;;BOSTON-OC;84303274;1397
;;BOSTON;84304224;752
;;BROCKTON;84304272;1008
;;BRONX;84300073;1159
;;BROOKLYN-OC;84300099;753
;;BROOKLYN;84300099;753
;;BUFFALO;84212149;225
;;BUTLER;84212174;756
;;CANANDAIGUA;84212198;1801
;;CASTLE-POINT;84300149;227
;;CEC-STLOUIS;84120498;1165
;;CEC-WASH;84299424;180
;;CHARLESTON;84208273;952
;;CHEYENNE;84108099;759
;;CHICAGO-LAKE;84199274;212
;;CHICAGO-WEST;84199299;211
;;CHILLICOTHE;84212223;1852
;;CINCINNATI;84112174;762
;;CLARKSBURG;84212248;983
;;CLEVELAND;84112199;231
;;COATESVILLE;84399249;763
;;COLUMBIA-MO;84120123;1855
;;COLUMBIA-SC;84208295;828
;;COLUMBUS;84212424;764
;;DALLAS;84202498;892
;;DANVILLE;84199324;914
;;DAYTON;84112223;1858
;;DENVER;84108124;327
;;DES-MOINES;84104149;771
;;DUBLIN;84208323;955
;;DURHAM;84204074;209
;;EAST-ORANGE;84312073;774
;;EL-PASO;84012174;777
;;ERIE;84212274;780
;;FARGO;84116048;760
;;FAYETTVL-AR;84104173;958
;;FAYETTVL-NC;84204098;986
;;FOC-AUSTIN;84099174;1116
;;FORT-HOWARD;84200099;795
;;FORT-LYON;84108148;1819
;;FORT-MEADE;84116144;1822
;;FORT-WAYNE;84112273;1861
;;FORUM;84299093;977
;;FRESNO;84000124;923
;;FT-HARRISON;84100098;95
;;GAINESVILLE;84216124;201
;;GOLD.FORUM;84299086;650
;;GRAND-ISLAND;84104198;1825
;;GRAND-JUNCT;84108173;1828
;;HAMPTON;84299373;993
;;HINES;84199371;224
;;HONOLULU;84000073;768
;;HOT-SPRINGS;84116173;1831
;;HOUSTON;84020049;506
;;HUNTINGTON;84212293;507
;;IFCAP-VACO;84299071;2069
;;INDIANAPOLIS;84199424;223
;;IOWA-CITY;84199448;861
;;IRON-MTN;84199474;586
;;ISC-ALBANY;84399171;1089
;;ISC-BIRM;84208248;200
;;ISC-CHICAGO;84199146;202
;;ISC-DALLAS;84099649;104
;;ISC-LOMA;84016097;849
;;ISC-SF;84000273;493
;;ISC-SLC;84108249;1148
;;JACKSON;84008124;284
;;KANSAS-CITY;84104224;589
;;KER.ISC-ALBANY;84399164;1924
;;KERNEL.ISC-SF;84000272;1031
;;KERRVILLE;84099673;1834
;;KNOXVILLE;84104249;870
;;LA-OPC;84016199;297
;;LAKE-CITY;84216149;961
;;LAS-VEGAS;84016224;309
;;LEAVENWORTH;84104399;239
;;LEBANON;84200124;590
;;LEXINGTON;84212324;233
;;LINCOLN;84104274;591
;;LITTLE-ROCK;84120149;238
;;LIVERMORE;84000149;316
;;LOMA-LINDA;84016099;206
;;LONG-BEACH;84016074;294
;;LOUISVILLE;84120174;592
;;LYONS;84312097;996
;;MADISON;84199499;229
;;MANCHESTER;84304298;790
;;MANILA;84299672;1212
XMZDOM1 ;(WASH ISC)/CAP - CONVERT MAILMAN HOST #'S TO IDCU ;5/16/90 15:44
+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 !,XMA," DOMAINS LOADED"
QUIT
+2 ;
Z ;;DOMAIN_NAME;IDCU HOST
+1 ;;ALBANY;84308049;210
+2 ;;ALBUQUERQUE;84012074;503
+3 ;;ALEXANDRIA;84008073;949
+4 ;;ALLEN-PARK;84112249;228
+5 ;;ALTOONA;84200048;1088
+6 ;;AMARILLO;84024048;325
+7 ;;ANCHORAGE;84100049;747
+8 ;;ANN-ARBOR;84112072;203
+9 ;;ASHEVILLE;84208448;973
+10 ;;ATLANTA;84208174;222
+11 ;;AUGUSTA;84208199;281
+12 ;;BALTIMORE;84200074;750
+13 ;;BATAVIA;84212097;1002
+14 ;;BATH;84312048;1005
+15 ;;BATTLE-CREEK;84112123;1849
+16 ;;BAY-PINES;84216049;751
+17 ;;BDC;84304248;505
+18 ;;BECKLEY;84212123;980
+19 ;;BEDFORD;84304199;215
+20 ;;BIG-SPRING;84099624;1169
+21 ;;BILOXI;84008099;214
+22 ;;BIRMINGHAM;84208224;207
+23 ;;BOISE;84004074;315
+24 ;;BONHAM;84024073;1816
+25 ;;BOSTON-OC;84303274;1397
+26 ;;BOSTON;84304224;752
+27 ;;BROCKTON;84304272;1008
+28 ;;BRONX;84300073;1159
+29 ;;BROOKLYN-OC;84300099;753
+30 ;;BROOKLYN;84300099;753
+31 ;;BUFFALO;84212149;225
+32 ;;BUTLER;84212174;756
+33 ;;CANANDAIGUA;84212198;1801
+34 ;;CASTLE-POINT;84300149;227
+35 ;;CEC-STLOUIS;84120498;1165
+36 ;;CEC-WASH;84299424;180
+37 ;;CHARLESTON;84208273;952
+38 ;;CHEYENNE;84108099;759
+39 ;;CHICAGO-LAKE;84199274;212
+40 ;;CHICAGO-WEST;84199299;211
+41 ;;CHILLICOTHE;84212223;1852
+42 ;;CINCINNATI;84112174;762
+43 ;;CLARKSBURG;84212248;983
+44 ;;CLEVELAND;84112199;231
+45 ;;COATESVILLE;84399249;763
+46 ;;COLUMBIA-MO;84120123;1855
+47 ;;COLUMBIA-SC;84208295;828
+48 ;;COLUMBUS;84212424;764
+49 ;;DALLAS;84202498;892
+50 ;;DANVILLE;84199324;914
+51 ;;DAYTON;84112223;1858
+52 ;;DENVER;84108124;327
+53 ;;DES-MOINES;84104149;771
+54 ;;DUBLIN;84208323;955
+55 ;;DURHAM;84204074;209
+56 ;;EAST-ORANGE;84312073;774
+57 ;;EL-PASO;84012174;777
+58 ;;ERIE;84212274;780
+59 ;;FARGO;84116048;760
+60 ;;FAYETTVL-AR;84104173;958
+61 ;;FAYETTVL-NC;84204098;986
+62 ;;FOC-AUSTIN;84099174;1116
+63 ;;FORT-HOWARD;84200099;795
+64 ;;FORT-LYON;84108148;1819
+65 ;;FORT-MEADE;84116144;1822
+66 ;;FORT-WAYNE;84112273;1861
+67 ;;FORUM;84299093;977
+68 ;;FRESNO;84000124;923
+69 ;;FT-HARRISON;84100098;95
+70 ;;GAINESVILLE;84216124;201
+71 ;;GOLD.FORUM;84299086;650
+72 ;;GRAND-ISLAND;84104198;1825
+73 ;;GRAND-JUNCT;84108173;1828
+74 ;;HAMPTON;84299373;993
+75 ;;HINES;84199371;224
+76 ;;HONOLULU;84000073;768
+77 ;;HOT-SPRINGS;84116173;1831
+78 ;;HOUSTON;84020049;506
+79 ;;HUNTINGTON;84212293;507
+80 ;;IFCAP-VACO;84299071;2069
+81 ;;INDIANAPOLIS;84199424;223
+82 ;;IOWA-CITY;84199448;861
+83 ;;IRON-MTN;84199474;586
+84 ;;ISC-ALBANY;84399171;1089
+85 ;;ISC-BIRM;84208248;200
+86 ;;ISC-CHICAGO;84199146;202
+87 ;;ISC-DALLAS;84099649;104
+88 ;;ISC-LOMA;84016097;849
+89 ;;ISC-SF;84000273;493
+90 ;;ISC-SLC;84108249;1148
+91 ;;JACKSON;84008124;284
+92 ;;KANSAS-CITY;84104224;589
+93 ;;KER.ISC-ALBANY;84399164;1924
+94 ;;KERNEL.ISC-SF;84000272;1031
+95 ;;KERRVILLE;84099673;1834
+96 ;;KNOXVILLE;84104249;870
+97 ;;LA-OPC;84016199;297
+98 ;;LAKE-CITY;84216149;961
+99 ;;LAS-VEGAS;84016224;309
+100 ;;LEAVENWORTH;84104399;239
+101 ;;LEBANON;84200124;590
+102 ;;LEXINGTON;84212324;233
+103 ;;LINCOLN;84104274;591
+104 ;;LITTLE-ROCK;84120149;238
+105 ;;LIVERMORE;84000149;316
+106 ;;LOMA-LINDA;84016099;206
+107 ;;LONG-BEACH;84016074;294
+108 ;;LOUISVILLE;84120174;592
+109 ;;LYONS;84312097;996
+110 ;;MADISON;84199499;229
+111 ;;MANCHESTER;84304298;790
+112 ;;MANILA;84299672;1212
