*COMDECK COMRNET
#     COMRNET - NETWORK DESCRIPTION TABLE.  # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
# 
***   COMRNET - NETWORK DESCRIPTION TABLE.
* 
*     COMRNET CONTAINS THE ARRAY DEFINITIONS FOR THE NETOWRK DESCRIP- 
*     TION TABLE.  THIS TABLE PROVIDES A TRANSLATION FROM A LID TO A
*     LOGICAL PATH DESCRIPTION.  IT IS ORGANIZED ON A REMOTE MAINFRAME
*     BASIS.  A SET OF LIDS AND PATHS IS DEFINED FOR EACH REMOTE
*     MAINFRAME.  EACH PATH IN TURN IS COMPOSED OF A LOCAL NAD AND
*     REMOTE NAD.  THE TABLE IS PHYSICALLY ORGANIZED SO THAT ALL LOCAL
*     NADS ARE DEFINED TOGETHER AND ALL REMOTE ANDS ARE DEFINED 
*     TOGETHER. 
*     IF NOS, COMRNET ALSO CONTAINS THE ARRAY DEFINITIONS FOR THE CENTRA
*     MEMORY LID TABLE (LDT).  THIS TABLE CONSISTS OF PID AND LID ENTRIE
*     FOR EACH REMOTE MAINFRAME.
# 
  
      BEGIN # COMRNET # 
  
      DEF NAD$LENGTH #5#;            # LOCAL NAD ENTRY LENGTH # 
  
      DEF NST$LENGTH #3#;            # NAD STATUS ENTRY LENGTH #
  
      DEF NSTDMPLIM  #3#;            # DUMP COUNT LIMIT (.LT. 7) #
      DEF PTH$LENGTH #2#;            # PATH ENTRY LENGTH #
      DEF RMT$LENGTH #4#;            # REMOTE NAD ENTRY LENGTH #
  
    CONTROL IFEQ OS$NOS;
      DEF  LDTPIDL        #3#;          # LENGTH OF LDT PID ENTRY  #
# 
*     CENTRAL LID TABLE NETWORK STATUS DEFINITIONS
# 
  
      DEF  NW$NAVAIL      #0#;          # NETWORK NOT AVAILABLE  #
      DEF  NW$PTHSUP      #1#;          # PATHS IN SERVICE  # 
      DEF  NW$PTHSDIS     #2#;          # ALL PATHS OUT OF SERVICE  # 
      DEF  NW$PIDDIS      #O"10"#;      # PID DISABLED  # 
  
# 
*     CENTRAL LID MANAGEMENT FUNCTION CODES 
# 
      DEF  LDTFC$SPA      #O"36"#;      # SET PID ATTRIBUTE  #
      DEF  LDTFC$GLA      #O"30"#;      # GET LID ATTRIBUTE  #
      DEF  LDTFC$GLC      #O"40"#;      # GET LID CONFIGURATION  #
  
# 
*     CENTRAL LID MANAGEMENT SUBFUNCTION CODES
* 
*     SET PID ATTRIBUTE FUNCTIONS 
# 
  
      DEF  SPA$SPAF       #0#;          # SET PID ATTRIBUTE  #
      DEF  SPA$SNSF       #1#;          # SET NETWORK STATUS  # 
      DEF  SPA$SLTF       #5#;          # SET LID ATTRIBUTE  #
    CONTROL ENDIF;
  
# 
*     NAD STATE DEFINITIONS 
*       THESE DEFINITIONS ARE DIVIDED INTO 3 SECTIONS 
*       SECTION 1 COMMON DEFINITIONS
*       SECTION 2 REMOTE NAD DEFINITIONS
*       SECTION 3 LOCAL NAD DEFINITIONS 
# 
  
# 
*     COMMON STATE DEFINITIONS
# 
  
      DEF  NS$AVAIL       #0#;          # NAD AVAILABLE # 
      DEF  NS$LDCW        #1#;          # LOADING CONTROLWARE # 
      DEF  NS$LDREQ       #2#;          # LOAD REQUIRED # 
      DEF  NS$DMPCW       #3#;          # DUMPING CONTROLWARE # 
      DEF  NS$DMPREQ      #4#;          # DUMP REQUIRED # 
      DEF  NS$DMPST       #5#;          # DUMP STATUS # 
      DEF  NS$STDMPR      #6#;          # STATUS-DUMP REQUIRED #
      DEF  NS$NADHT       #7#;          # NAD PROCESSOR HALTED #
      DEF  NS$DISAB       #O"77"#;      # NAD DISABLED #
  
# 
*     REMOTE NAD STATE DEFINITIONS
# 
      DEF  NS$NOPATH      #O"10"#;      # NO PATH AVAILABLE # 
      DEF  NS$HSTINA      #O"11"#;      # HOST INACTIVE # 
      DEF  NS$IDLDN       #O"12"#;      # IDLE DOWN # 
      DEF  NS$CWMIS       #O"13"#;      # CONTROLWARE MISMATCH #
      DEF  NS$NORESP      #O"14"#;      # NOT RESPONDING #
      DEF  NS$CONBK       #O"17"#;      # CONNECTION BROKEN # 
  
# 
*     LOCAL NAD STATE DEFINITIONS 
# 
  
      DEF  NS$ESTDN       #O"20"#;      # NAD EST ENTRY = DOWN #
      DEF  NS$ESTOFF      #O"40"#;      # NAD EST ENTRY = OFF # 
  
  
      COMMON COMRNET; 
      BEGIN  # COMRNET COMMON AREA #
  
      ITEM ACTIVECONS I = 0;         # NUMBER OF ACTIVE CONNECTIONS # 
      BASED ARRAY NDT$HEADER S(1);
        BEGIN 
        ITEM NDT$WD1    I(00,00,60);
        ITEM NDT$NUMLN  U(00,00,06); # NUMBER OF LOCAL NADS # 
        ITEM NDT$FWALNT U(00,06,18); # FWA OF LOCAL NAD TABLE # 
        ITEM NDT$LENGTH U(00,24,18); # LENGTH OF NDT #
        ITEM NDT$FWA    U(00,42,18); # FWA OF NDT # 
        END 
  
      BASED ARRAY NET$HEADER S(3);
        BEGIN # NETWORK MAINFRAME HEADER #
        ITEM NET$PID    C(00,00,03); # MAINFRAME PHYSICAL ID #
#       ITEM NET$RES    U(00,18,05)    RESERVED # 
        ITEM NET$ENABLE B(00,23,01); # PID ENABLED #
#       ITEM NET$RES    U(00,24,18)    RESERVED # 
        ITEM NET$NXTPID U(00,42,18); # NEXT PID ADDRESS # 
        ITEM NET$MFTYPE U(01,00,42); # MAINFRAME TYPE # 
        ITEM NET$MFC    C(01,00,07); # CHAR REFERENCE FOR MFTYPE #
        ITEM NET$LIDADR U(01,42,18); # START LID ADDRESS #
#       ITEM NET$RES    U(02,00,12)    RESERVED # 
        ITEM NET$NUMLID U(02,12,12); # NUMBER OF LIDS # 
        ITEM NET$NMPATH U(02,24,12); # NUMBER OF PATHS #
#       ITEM NET$RES    U(02,36,06)    RESERVED # 
        ITEM NET$PATHAD U(02,42,18); # START PATH ADDRESS # 
        END # NETWORK MAINFRAME HEADER #
  
      BASED ARRAY LID$ENTRY S(1); 
        BEGIN # LID ENTRY # 
#       ITEM LID$RES    U(00,00,11)    RESERVED # 
        ITEM LID$ENAB1  B(00,11,01); # LID1 ENABLE #
        ITEM LID$1      U(00,12,18); # LID1 # 
#       ITEM LID$RES    U(00,30,11)    RESERVED # 
        ITEM LID$ENAB2  B(00,41,01); # LID2 ENABLE #
        ITEM LID$2      U(00,42,18); # LID2 # 
        END # LID ENTRY # 
  
      ITEM LID$ORD     I;            # LID ORDINAL #
  
      BASED ARRAY PTH$ENTRY [0:0] S(PTH$LENGTH);
        BEGIN # PATH ENTRY #
        ITEM PTH$WORD0  U(00,00,60); # PATH ENTRY WORD 0 #
        ITEM PTH$ENABLE B(00,00,01); # PATH ENABLE #
        ITEM PTH$ACTIV  B(00,01,01); # PATH ACTIVITY #
        ITEM PTH$REJ    B(00,02,01); # LAST CONNECT REQUEST REJECTED #
        ITEM PTH$STATCH B(00,03,01); # STATUS CHANGE INTERLOCK #
#       ITEM PTH$RES    U(00,04,06)    RESERVED # 
        ITEM PTH$RTE    U(00,10,04); # REMOTE TRUNK ENABLES # 
        ITEM PTH$LTE    U(00,14,04); # LOCAL TRUNK ENABLES #
        ITEM PTH$NADORD U(00,18,06); # LOCAL NAD ORDINAL #
        ITEM PTH$RMTNAD U(00,24,18); # REMOTE NAD ADDRESS # 
        ITEM PTH$PIDADR U(00,42,18); # PID ADDRESS #
        ITEM PTH$WORD1  U(01,00,60); # PATH ENTRY WORD 1 #
#       ITEM PTH$RES    U(01,00,12)    RESERVED FOR INSTALLATION #
        ITEM PTH$LTC    U(01,12,04); # LAST TCU CHECKED # 
        ITEM PTH$RTD    U(01,16,04); # REMOTE TCU-S DOWN #
        ITEM PTH$LTD    U(01,20,04); # LOCAL TCU-S DOWN # 
#       ITEM PTH$RES    U(01,24,08)    RESERVED # 
        ITEM PTH$ACCESS U(01,32,16); # ACCESS CODE #
        ITEM PTH$ORD    U(01,48,12); # PATH ORDINAL # 
        END # PATH ENTRY #
  
      BASED ARRAY NAD$ENTRY S(NAD$LENGTH);
        BEGIN # LOCAL NAD ENTRY # 
        ITEM NAD$WORD0  U(00,00,60); # NAD ENTRY WORD 0 # 
        ITEM NAD$CHDED  B(00,00,01); # DEDICATED CHANNEL #
        ITEM NAD$STATQ  B(00,01,01); # STATUS QUEUED #
        ITEM NAD$ESTOFF B(00,02,01); # NAD OFF #
        ITEM NAD$STATTK B(00,03,01); # STATUS TAKEN # 
        ITEM NAD$PREVOF B(00,04,01); # NAD EST PREVIOUSLY OFF # 
        ITEM NAD$CWSBL  B(00,05,01); # CONTROLWARE SHOULD BE LOADED # 
        ITEM NAD$CONFER B(00,06,01); # CONFIGURATION ERROR #
        ITEM NAD$CME    B(00,07,01); # CODE CONVERSION ENABLED #
#       ITEM NAD$RES    U(00,08,04)    RESERVED FOR CDC # 
        ITEM NAD$CMBUFF U(00,12,06); # CONVERT MODE BUFFERS # 
        ITEM NAD$CMPATH U(00,18,06); # CONVERT MODE PATHS # 
        ITEM NAD$CMPA   U(00,24,06); # CONVERT MODE PATHS AVAILABLE # 
        ITEM NAD$MAXNDR U(00,30,06); # MAXIMUM NDRS FOR THIS NAD #
        ITEM NAD$DESC   U(00,36,18); # NAD DESCRIPTION #
        ITEM NAD$ORD    U(00,36,06); # LOCAL NAD ORDINAL #
        ITEM NAD$CHAN   U(00,42,06); # LOCAL NAD CHANNEL #
        ITEM NAD$ESTORD U(00,48,09); # LOCAL NAD EST ORDINAL #
#       ITEM NAD$RES    U(00,57,03)    RESERVED # 
        ITEM NAD$WORD1  U(01,00,60); # NAD ENTRY WORD 1 # 
#       ITEM NAD$RES    U(01,00,12)    RESERVED # 
        ITEM NAD$QCOUNT U(01,12,12); # QUEUE COUNT #
        ITEM NAD$CCOUNT U(01,24,12); # CONNECTION COUNT # 
        ITEM NAD$NDRASG U(01,36,06); # COUNT OF ASSIGNED NDRS # 
        ITEM NAD$Q      U(01,42,18); # QUEUE REQUIRING NAD I/O #
        ITEM NAD$NSTWD0 U(02,00,60); # NAD STATUS ENTRY WORD 0 #
        END # LOCAL NAD ENTRY # 
  
      BASED ARRAY RMT$ENTRY S(RMT$LENGTH);
        BEGIN # REMOTE NAD ENTRY #
        ITEM RMT$WORD0  U(00,00,60); # REMOTE NAD ENTRY WORD 0 #
        ITEM RMT$NAD    U(00,00,08); # NAD HARDWARE ADDRESS # 
        ITEM RMT$DEST   U(00,08,04); # DESTINATION #
        ITEM RMT$LOG    B(00,12,01); # LOG TRUNK ERRORS FLAG #
        ITEM RMT$CCOUNT U(00,48,12); # CONNECTION COUNT # 
        ITEM RMT$NSTWD0 U(01,00,60); # NAD STATUS ENTRY WORD 0 #
        END # REMOTE NAD ENTRY #
  
      BASED ARRAY NST$ENTRY [0:0] S(NST$LENGTH);
        BEGIN  # NAD STATUS ENTRY (LOCAL AND REMOTE) #
        ITEM NST$WORD0  U(00,00,60); # NAD STATUS WORD #
        ITEM NST$STATUS U(00,00,15); # NAD STATUS # 
        ITEM NST$AUTOL  B(00,01,01); # AUTO-LOAD FLAG # 
        ITEM NST$AUTOD  B(00,02,01); # AUTO-DUMP FLAG # 
        ITEM NST$DMPCTR U(00,03,03); # AUTO-DUMP COUNTER #
        ITEM NST$STATE  U(00,06,06); # NAD STATE #
        ITEM NST$TRACE  U(00,12,02); # TRACE (0=DEF,1=OFF,2=ON,3=BIG) # 
        ITEM NST$LOG    B(00,14,01); # NAD ERROR LOG FLAG # 
#       ITEM NST$RES    U(00,15,09)    RESERVED # 
        ITEM NST$TIMES  U(00,24,36); # TIMES (HHMMSS) # 
        ITEM NST$TIMCHG U(00,24,18); # TIME OF LAST STATE CHANGE #
        ITEM NST$TIMCHK U(00,42,18); # TIME OF LAST STATE CHECK # 
  
        ITEM NST$WORD1  U(01,00,60); # NAD STATUS WORD 1 #
#       ITEM NST$RES    U(01,00,09)    RESERVED # 
        ITEM NST$DLRTY  U(01,09,03); # DUMP/LOAD RETRY COUNT #
        ITEM NST$DLDLY  U(01,12,06); # DUMP/LOAD DELAY #
#                       U(01,12,06)    RESERVED # 
        ITEM NST$TIMBML U(01,18,18); # TIME LAST BML/CER MSG SENT # 
        ITEM NST$ELENT  U(01,36,24); # LAST ERROR LOG ENTRY INFO #
        ITEM NST$ELORD  U(01,36,06); #  (ENTRY ORDINAL) # 
        ITEM NST$ELLOG  B(01,42,01); #  (LOG ENTRY WAS AVAILABLE) # 
        ITEM NST$ELDST  B(01,43,01); #  (NAD DST WAS AVAILABLE) # 
        ITEM NST$ELTSQ  U(01,44,16); #  (ENTRY TYPE + SEQ NUMBER #
        ITEM NST$ELTYP  U(01,44,08); #  (ENTRY TYPE) #
        ITEM NST$ELSEQ  U(01,52,08); #  (ENTRY SEQUENCE NUMBER) # 
  
        ITEM NST$WORD2  U(02,00,60); # NAD STATUS WORD 2 #
        ITEM NST$CWIPN  C(02,00,07); # C/W INIT PARAMETER REC NAME #
        ITEM NST$CWTYP  C(02,42,03); # C/W TYPE # 
        END  # NAD STATUS ENTRY (LOCAL AND REMOTE) #
  
      ARRAY [0:0] S(1); 
        BEGIN 
        ITEM  LDT$BUFL     U(00,00,12);  # BUFFER SIZE FOR LDT CALLS  # 
        ITEM  LDT$BPTR     U(00,42,18);  # LDT PARAMETER AREA ADDRESS  #
        END 
  
    CONTROL IFEQ OS$NOS;
      BASED ARRAY  LDT$PENTRY S(3); 
        BEGIN  # LID TABLE PID ENTRY DESCRIPTION #
        ITEM  LDT$PWD0     U(00,00,60); 
        ITEM  LDT$PID      C(00,00,03);  # MAINFRAME PHYSICAL ID  # 
        ITEM  LDT$HOST     B(00,18,01);  # HOST  #
        ITEM  LDT$ENABLE   B(00,19,01);  # PID ENABLED  # 
        ITEM  LDT$VLDT     B(00,20,01);  # PRE-VALIDATION  #
        ITEM  LDT$NLST     B(00,21,01);  # PID NOLIST  #
#       ITEM  LDT$RES      U(00,22,25)     RESERVED  #
        ITEM  LDT$NWSTAT   U(00,48,12);  # NETWORK STATUS  #
        ITEM  LDT$SSF      U(00,48,04);  # SCOPE STATION FACILITY  #
        ITEM  LDT$RHF      U(00,52,04);  # REMOTE HOST FACILITY  #
        ITEM  LDT$NHP      U(00,56,04);  # NETWORK HOST PRODUCTS  # 
        ITEM  LDT$PWD1     U(01,00,60); 
        ITEM  LDT$MFTYPE   U(01,00,42);  # NEXT PID OFFSET ADDRESS  # 
        ITEM  LDT$NXTPID   U(01,42,18);  # NEXT PID OFFSET ADDRESS  # 
        ITEM  LDT$PWD2     U(02,00,60); 
#       ITEM  LDT$RES      U(02,00,12)     RESERVED FOR INSTALLATION  # 
#       ITEM  LDT$RES      U(02,12,36)     RESERVED  #
        ITEM  LDT$NUMLID   U(02,48,12);  # NUMBER OF LIDS  #
        END  # LIDT PID ENTRY # 
  
      BASED ARRAY  LDT$LENTRY  S(1);
        BEGIN  # LID TABLE LID ENTRY DESCRIPTION #
        ITEM  LDT$LID1     U(00,00,18);  # FIRST LID  # 
        ITEM  LDT$LENAB1   B(00,18,01);  # LID1 ENABLED  #
        ITEM  LDT$STOREF1  B(00,19,01);  # STORE AND FORWARD  # 
        ITEM  LDT$LOOPB1   B(00,20,01);  # LOOPBACK FOR LID1  # 
#       ITEM  LDT$RES      U(00,21,09)     RESERVED  #
        ITEM  LDT$LID2     U(00,30,18);  # SECOND LID  #
        ITEM  LDT$LENAB2   B(00,31,01);  # LID2 ENABLED  #
        ITEM  LDT$STOREF2  B(00,32,01);  # STORE AND FORWARD FOR LID2  #
        ITEM  LDT$LOOPB2   B(00,33,01);  # LOOPBACK FOR LID2  # 
        END   # LIDT LID ENTRY  # 
  
    CONTROL ENDIF;
  
      END  # COMRNET COMMON AREA #
  
      END # COMRNET # 
                                               CONTROL LIST;
