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

XMZDOM2.m

Go to the documentation of this file. 
  1. XMZDOM2 ;(WASH ISC)/CAP - CONVERT MAILMAN HOST #'S TO IDCU ;5/10/90  13:08
  1.  ;;7.1;Mailman;**1003**;OCT 27, 1998
  1.  ;;1.0;
  1.  ;;ALL;
  1.  S %=0
  1. A S %=%+1,X=$T(Z+%) I $L(X),X'?1"END".E S XMA=XMA+1,^UTILITY($J,"#",XMA)=X G A
  1.  W !,%-1," DOMAINS LOADED" Q
  1.  ;
  1. Z ;;DOMAIN_NAME;IDCU HOST
  1.  ;;MARION-IL;84120198;1864
  1.  ;;MARION-IN;84199523;1867
  1.  ;;MARLIN;84024123;879
  1.  ;;MARTINEZ;84000173;927
  1.  ;;MARTINSBURG;84316924;597
  1.  ;;MEMPHIS;84120223;964
  1.  ;;MIAMI;84216073;967
  1.  ;;MILES-CITY;84108199;92
  1.  ;;MILWAUKEE;84199574;744
  1.  ;;MINNEAPOLIS;84116199;234
  1.  ;;MIRMO-VACO;84299099;143
  1.  ;;MONTGOMERY;84208349;240
  1.  ;;MONTROSE;84300172;1804
  1.  ;;MTN-HOME;84208373;1087
  1.  ;;MURFREESBORO;84208398;970
  1.  ;;MUSKOGEE;84104299;603
  1.  ;;N-CHICAGO;84199349;296
  1.  ;;NASHVILLE;84208419;925
  1.  ;;NEW-ORLEANS;84008149;626
  1.  ;;NEW-YORK;84300199;627
  1.  ;;NEWINGTON;84308099;633
  1.  ;;NORTHAMPTON;84304323;1807
  1.  ;;NORTHPORT;84300223;1810
  1.  ;;NRMIS;84000274;493
  1.  ;;OKLAHOMA;84024149;255
  1.  ;;OMAHA;84104324;208
  1.  ;;PACE-WASH;84299421;258
  1.  ;;PALO-ALTO;84000199;302
  1.  ;;PDC;84108323;1192
  1.  ;;PERRY-POINT;84200148;1085
  1.  ;;PHILADELPHIA;84399273;642
  1.  ;;PHOENIX;84012099;236
  1.  ;;PITTS-HGHLND;84212349;644
  1.  ;;PITTSBURGH;84212374;221
  1.  ;;POPLAR-BLUFF;84120249;389
  1.  ;;PORTLAND;84100174;645
  1.  ;;PRESCOTT;84012123;1179
  1.  ;;PROVIDENCE;84304349;668
  1.  ;;RD2-REGION2;84204048;690
  1.  ;;RD4-REGION4;84112074;34
  1.  ;;RD5-REGION5;84120324;98
  1.  ;;RD6-REGION6;84000273;493
  1.  ;;RD7-REGION7;84099647;1194
  1.  ;;RENO;84000224;699
  1.  ;;RICHMOND;84299399;216
  1.  ;;RMEC-BIRM;84208237;177
  1.  ;;RMEC-CLEVE;84112373;2045
  1.  ;;RMEC-LBEACH;84016071;1219
  1.  ;;RMEC-NORTHPT;84300298;1141
  1.  ;;RMEC-SLC;84108221;1015
  1.  ;;ROSEBURG;84004095;931
  1.  ;;SAGINAW;84112298;1870
  1.  ;;SALEM;84204124;708
  1.  ;;SALISBURY;84208474;711
  1.  ;;SALT-LAKE;84108224;204
  1.  ;;SAN-ANTONIO;84099699;714
  1.  ;;SAN-DIEGO;84016124;304
  1.  ;;SAN-JUAN;84216174;717
  1.  ;;SANFRANCISCO;84000249;308
  1.  ;;SEATTLE;84100199;232
  1.  ;;SEPULVEDA;84016149;282
  1.  ;;SHERIDAN;84108273;1840
  1.  ;;SHREVEPORT;84104346;722
  1.  ;;SILVER.FORUM;84299097;259
  1.  ;;SIOUX-FALLS;84116099;723
  1.  ;;SPOKANE;84100223;934
  1.  ;;ST-CLOUD;84216223;1843
  1.  ;;ST-LOUIS;84120298;1500
  1.  ;;SUPP-CHICAGO;84199148;179
  1.  ;;SYRACUSE;84312124;726
  1.  ;;TACOMA;84100148;937
  1.  ;;TEMPLE;84024173;888
  1.  ;;TAMPA;84216198;1029
  1.  ;;TOGUS;84304099;729
  1.  ;;TOMAH;84199549;1058
  1.  ;;TOPEKA;84104372;1846
  1.  ;;TUCSON;84012148;940
  1.  ;;TUSCALOOSA;84208499;241
  1.  ;;TUSKEGEE;84208524;242
  1.  ;;VACOWMAIL;84299303;196
  1.  ;;WACO;84024196;235
  1.  ;;WALLA-WALLA;84100248;943
  1.  ;;WASHINGTON;84299422;213
  1.  ;;WEST-HAVEN;84308122;1813
  1.  ;;WEST-LA;84016174;237
  1.  ;;WHITE-CITY;84004123;946
  1.  ;;WHITE-RIVER;84304149;732
  1.  ;;WICHITA;84104099;735
  1.  ;;WILKES-BARRE;84312149;738
  1.  ;;WILMINGTON;84399199;741