*COMDECK COMMGET
#     COMMGET - DEFINITIONS AND DECLARATIONS USED TO GET NDT #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
  
# 
***   COMMGET - DEFINITIONS AND DECLARATIONS USED TO GET NDT. 
* 
*     COMMGET CONTAINS THE COMMON ARRAY AND ITEM DECLARATIONS AND 
*     DEFINITIONS THAT ARE USED WHEN GETTING THE NETWORK DESCRIPTION
*     TABLE.
* 
# 
  
      BEGIN  # COMMGET COMDECK #
  
# 
*     VALUES FOR SUPERVISORY MESSAGE HEADER 
# 
  
      DEF SUPCHRTYPE #1#;            # CHARACTER TYPE # 
      DEF SUPTXTLGTH #3#;            # TEXT LENGTH #
      DEF SUPCONNUMB #0#;            # CONNECTION NUMBER #
      DEF SUPBLKNUMB #0#;            # BLOCK NUMBER # 
  
  
# 
**    THE FOLLOWING DEFINITIONS ARE USED IN THE NSTORE AND NFETCH CALLS.
*     THEY ARE THE FIELD NAMES LEFT-JUSTIFIED AND ZERO-FILLED.
  
**    APPLICATION BLOCK HEADER FIELDS 
# 
    DEF $ABHABT    #O"01021001022400000000"#;  # ABHABT  BLOCK TYPE # 
    DEF $ABHADR    #O"01021001042200000000"#;  # ABHADR  ADDR INFO #
    DEF $ABHABN    #O"01021001021600000000"#;  # ABHABN  BLOCK NUMBER # 
    DEF $ABHACT    #O"01021001032400000000"#;  # ABHACT  CHAR TYPE #
    DEF $ABHIBU    #O"01021011022500000000"#;  # ABHIBU  UNDELIV BLK #
    DEF $ABHTLC    #O"01021024140300000000"#;  # ABHTLC  TEXT LENGTH #
# 
**    GENERAL FIELDS FOR SUPERVISORY MESSAGES 
# 
    DEF $PFCSFC    #O"20060323060300000000"#;  # PFCSFC  PRI/SEC FUNC # 
    DEF $CTFC      #O"03240603000000000000"#;  # CTFC    CTL/INFO FUNC #
    DEF $CTFNDTL   #O"03240616042414000000"#;  # CTFNDTL NDT LENGTH # 
    DEF $CTFNDTA   #O"03240616042401000000"#;  # CTFNDTA NDT ADDRESS #
  
      COMMON COMMGET; 
  
      BEGIN  # COMMGET COMMON AREA #
  
# 
*     CTRL/INFO/R/ CALL BLOCK 
# 
  
      ARRAY HEADER [0:0] S(1);
        BEGIN 
        ITEM HDR$HA     I(00,00,60) = [0];
        END 
  
      ARRAY CTRLINFOR [0:0] S(3); 
        BEGIN 
        ITEM CIR$WD1    I(00,00,60) = [0];
        ITEM CIR$WD2    I(01,00,60) = [0];
        ITEM CIR$WD3    I(02,00,60) = [0];
        END 
  
      END  # COMMGET COMMON AREA #
  
      END  # COMMGET COMMON DECK #
                                               CONTROL LIST;
