*COMDECK COMACBF
#     COMACBF - COMMON BLOCK FOR FIP. # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
  
# 
**    COMACBF - COMMON BLOCK FOR FIP. 
* 
*     COMACBF CONTAINS THE COMMON BLOCK WHICH CONTAINS THE FLAGS AND
*     VARIABLES GLOBAL TO THE FIP MODULE. 
# 
  
      COMMON COMACBF; 
      BEGIN  # COMACBF COMMON AREA #
  
# 
****  GLOBAL FLAGS. 
# 
  
      ARRAY [0:0] S(1);            # GLOBAL FLAGS # 
        BEGIN 
        ITEM DBUGFLAGS  U(00,00,03);            # DEBUG FLAGS FOR -- #
        ITEM DBUGXFR    B(00,00,01) = [FALSE];  #  TRANSFER MESSAGES #
        ITEM DBUGSUP    B(00,01,01) = [FALSE];  #  SUPERVISORY MSGS  #
        ITEM DBUGDAT    B(00,02,01) = [FALSE];  #  DATA MESSAGES #
  
        ITEM MSGFORAP   B(00,06,01) = [FALSE];  # MSG FOR APPLICATION # 
  
        END 
  
# 
*     GLOBAL VARIABLES. 
# 
  
      ITEM MAXIACN    I = -1;        # MAXIMUM ACN ALLOWED #
      ITEM MINIACN    I = +1;        # MINIMUM ACN ALLOWED #
      ITEM NUMFILEXFR I = 0;         #  NO. OF FILE XFR-S IN PROGRESS # 
  
# 
*     GLOBAL ARRAYS.
# 
  
# 
*     NSUPWORD - APPLICATIONS PROGRAM-S NETWORK SUPERVISORY MESSAGE 
*                STATUS WORD (NSUP).
* 
*     NSUPWORD IS A BASED ARRAY WHICH DEFINES THE FORMAT OF THE 
*     APPLICATION PROGRAM-S NSUP. 
# 
  
      BASED ARRAY NSUPWORD [0:0] S(1);
        BEGIN  # ARRAY NSUPWORD # 
        ITEM NSUP$IBIT  B(0,03,01);  # DATA BLOCKS AVAILABLE #
        ITEM NSUP$SBIT  B(0,04,01);  # ASYNCHRONOUS MESSAGES AVAILABLE #
        END    # ARRAY NSUPWORD # 
  
# 
*     HDRWORD - HEADER WORD FOR ASYNCHRONOUS SUPERVISORY MESSAGE. 
* 
*     HDRWORD IS A BASED ARRAY WHICH DEFINES THE FORMAT OF THE HEADER 
*     WORD OF AN ASYNCHRONOUS SUPERVISORY MESSAGE OR A LEVEL 7 COMMAND. 
*     IT IS USED ONLY BY PROCEDURES WHERE THE HEADER WORD ADDRESS IS AN 
*     ENTRY PARAMETER.
* 
*     **** CHECK IF DBGMSG IS THE ONLY USE OF THIS ARRAY **** 
# 
  
      BASED ARRAY HDRWORD [0:0] S(1); 
        BEGIN  # ARRAY HDRWORD #
        ITEM HD$WORD   I(0,00,60);  # HEADER WORD # 
        ITEM HD$ABT    U(0,00,06);  # APPLICATION BLOCK TYPE #
        ITEM HD$ACN    U(0,06,12);  # APPLICATION CONNECTION NUMBER # 
        ITEM HD$ABN    I(0,18,18);  # APPLICATION BLOCK NUMBER #
        ITEM HD$ACT    U(0,36,04);  # APPLICATION CHARACTER TYPE #
        ITEM HD$IBUBIT B(0,40,01);  # INPUT BLOCK UNDELIVERABLE BIT # 
        ITEM HD$TLCU   U(0,48,12);  # TEXT LENGTH IN CHARACTER UNITS #
        END 
  
# 
*     SSCCALL - CALL RHF SUBSYSTEM. 
* 
*     SSCCALL IS THE ARRAY WHICH THE FIP MODULES USE TO CALL SSC. 
*     BECAUSE MOST CALLS TO SSC BY THE FIP MODULES ARE ISSUED WITH
*     RECALL, PROCDURES WHICH USE THIS ARRAY MUST FOLLOW THE
*     CONVENTION OF SETTING THE RECALL BIT TO TRUE AFTER ISSUING AN SSC 
*     WITHOUT RECALL. 
# 
  
        ARRAY SSCCALL [0:0] S(1); 
          BEGIN  # ARRAY SSCCALL #
          ITEM SSCNAME    C(0,00,03) = ["SSC"] ;
          ITEM SSCRECALL  B(0,19,01) = [TRUE];
          ITEM SSCCODE    U(0,30,12) = [RHFSSCCODE];
          ITEM SSCPARAMAD I(0,42,18); 
          END    # ARRAY  SSCCALL # 
  
# 
*     RCLCALL - CALL PP PROGRAM RCL.
# 
  
      ARRAY RCLCALL [0:0] S(1); 
        BEGIN  # ARRAY RCLCALL #
        ITEM RCLNAME    C(0,00,03) = ["RCL"]; 
        ITEM RCLRECALL  B(0,19,01) = [FALSE]; 
        ITEM RCLPARAMAD I(0,42,18); 
        ITEM RCLPERIOD  U(0,49,11); 
        END    # ARRAY RCLCALL #
  
# 
*     BKFORRQRLY - BLOCK FOR RHF REQUEST/REPLY. 
* 
*     BKFORRQRLY IS THE RHF REQUEST/REPLY BLOCK THAT IS USED BY ALL THE 
*     FIP FUNCTIONS EXCEPT NETXFR AND NETXFRC.
# 
  
      ARRAY BKFORRQRLY [0:0] S(LENRHFPBLK); 
        BEGIN  # ARRAY BKFORRQRLY # 
          ITEM BKF$WORD$0 I(0,00,60) = [0];  # WORD ZERO #
          ITEM BKF$WC     U(0,36,06) = [MAXWCRHFPL];  # WORD COUNT #
          ITEM BKF$FTLERR B(0,46,01);  # FATAL ERROR FLAG # 
          ITEM BKF$RTNCTL B(0,47,01);  # RETURN CONTROL FLAG #
          ITEM BKF$NOTDEF B(0,56,01);  # SUBSYSTEM NOT DEFINED FLAG # 
          ITEM BKF$BUSY   B(0,57,01);  # SUBSYSTEM BUSY FLAG #
          ITEM BKF$NOTUP  B(0,58,01);  # SUBSYSTEM NOT INITIATED FLG #
          ITEM BKF$DONE   B(0,59,01) = [TRUE];  # SUBSYSTEM CALL DONE # 
          ITEM BKF$FNCNUM U(1,00,12);  # RHF FUNCTION NUMBER #
          ITEM BKF$ACN    U(1,12,12);  # APPLICATION CONNECTION NO. # 
          ITEM BKF$ALN    U(1,12,12);  # APPLICATION LIST NUMBER #
          ITEM BKF$MINACN U(1,12,12);  # MINIMUM VALUE FOR ACN #
          ITEM BKF$STIME  U(1,12,12);  # SUSPEND TIME # 
          ITEM BKF$MAXACN U(1,24,12);  # MAXIMUN VALUE FOR ACN #
          ITEM BKF$RTNFLG B(1,24,12);  # RETURN FROM NETWAIT FUNC FLG # 
          ITEM BKF$RTNCDE U(1,36,06);  # RETURN CODE #
        ITEM BKF$WCM    U(01,36,06); # WAITING FOR CONVERT MODE # 
          ITEM BKF$ATA    I(1,42,18);  # APPLICATION TABLE ADDRESS #
        ITEM BKF$WCMACN U(02,00,12); # ACN WAITING FOR CON MODE # 
          ITEM BKF$ANAME  C(2,00,07);  # APPLICATION NAME # 
          ITEM BKF$HDRADR I(2,06,18);  # HEADER ADDRESS # 
          ITEM BKF$MAXBL  U(2,24,12);  # MAXIMUM BLOCK LENGTH # 
          ITEM BKF$NSUPAD I(2,42,18);  # NSUP ADDRESS # 
          ITEM BKF$TEXTAD I(2,42,18);  # TEXT AREA ADDRESS #
          ITEM BKF$RFETAD I(2,42,18);  # RFH FET ADDRESS #
        END 
  
# 
*     DBGSTATS - DEBUG STATISTICS.
* 
*     DBGSTATS IS THE ARRAY USED TO ACCUMULATE VARIOUS FIP STATISTICS 
*     WHICH ARE SENT TO DAYFILE BY NETOFF IF DEBUG IS ON. 
# 
  
      ARRAY DBGSTATS [0:0] S(3);
        BEGIN  # ARRAY DBGSTATS # 
        ITEM DBGCWD0  U(0,00,60) = [0]; 
        ITEM DBGGET   U(0,00,15); 
        ITEM DBGGETL  U(0,15,15); 
        ITEM DBGPUT   U(0,30,15); 
        ITEM DBGWAIT  U(0,45,15); 
        ITEM DBGCWD1  U(1,00,60) = [0]; 
        ITEM DBGXFR   U(1,00,15); 
        ITEM DBGUXFR  U(1,15,15); 
        ITEM DBGXFRC  U(1,30,15); 
        ITEM DBGCWD2  U(2,00,60) = [0]; 
        ITEM DBGXNG   U(2,00,15); 
        ITEM DBGXNP   U(2,15,15); 
        ITEM DBGXFT   U(2,30,15); 
        ITEM DBGSSC   U(2,45,15); 
        END 
  
      END    # COMACBF COMMON AREA #
  
                                               CONTROL LIST;
