*COMDECK COMRCON
#     COMRCON - CONNECT REQUEST DEFINITIONS. #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
# 
***   COMRCON - CONNECT REQUEST DEFINITIONS.
* 
*     THIS COMDECK CONTAINS DEFS AND AN ARRAY DEFINING THE FORMAT OF
*     THE CONNECT REQUEST MESSAGE.
* 
* 
# 
  
      BEGIN # COMRCON COMMON DECK # 
  
      DEF RHF$ID  #X"5248"#;         # ASCII FOR "RH" # 
  
      COMMON COMRCON; 
      BEGIN  # COMRCON COMMON AREA #
  
  
# 
*     ARRAY FOR DEFINING CONNECT MESSAGE - PACKED ASCII 
# 
  
      ARRAY CONREQUEST [0:0] S(6);
        BEGIN 
        ITEM CONRWD1    U(00,00,60) = [0];
        ITEM CONRNADAD  U(00,00,08);             # REMOTE NAD ADDRESS # 
        ITEM CONRLTE    U(00,08,04);             # LOCAL TRUNK ENABLES# 
        ITEM CONRDEST   U(00,12,04);             # DESTINATION ADDR # 
        ITEM CONRACCESS U(00,16,16);             # ACCESS CODE #
        ITEM CONRNAME   U(00,32,16) = [RHF$ID];  # CONTROL MSG NAME-RH# 
        ITEM CONRPTID   U(00,48,07);             # NOT USED # 
        ITEM CONRRTE    U(00,56,04);             # REMOTE TRUNK ENABLES#
        ITEM CONRWD2    U(01,00,60) = [0];
        ITEM CONRBUFF   U(01,02,02) = [1];       # BUFFER ALLOC REQUEST#
        ITEM CONRANAM1A U(01,36,24);             # ANAME1 - UPPER PART# 
        ITEM CONRWD3    U(02,00,60) = [0];
        ITEM CONRANAM1B U(02,00,32);             # ANAME1 - LOWER PART# 
        ITEM CONRPID    U(02,32,24);             # PID OF THIS MF # 
        ITEM CONRANAM2A U(02,56,04);             # ANAME2 - UPPER PART# 
        ITEM CONRWD4    U(03,00,60) = [0];
        ITEM CONRANAM2B U(03,00,52);             # ANAME2 - LOWER PART# 
        ITEM CONRABNA   U(03,52,08);             # ABN - UPPER PART # 
        ITEM CONRWD5    U(04,00,60) = [0];
        ITEM CONRABNB   U(04,00,16);             # ABN - LOWER PART # 
        ITEM CONRPWA    U(04,16,44);
        ITEM CONRWD6    U(05,00,60) = [0];
        ITEM CONRPWB    U(05,00,12);
        ITEM CONRLID    U(05,12,24);             # LID USED IN REQUEST# 
        END 
  
      END  # CONRCON COMMON AREA #
  
      END  # COMRCON COMMON DECK #
  
                                               CONTROL LIST;
  
