COMTUSE 
COMMON
  
#     COMTUSE - COMMON DEFINITIONS FOR *SSUSE* PROCS.                 # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMTUSE #
  
# 
***   COMTUSE - COMMON DEFINITIONS FOR *SSUSE* PROCS. 
* 
*     COMTUSE CONTAINS THE DEFINITIONS FOR ALL THE ITEMS, ARRAYS, 
*     AND COMMON AREAS COMMON TO ALL THE *SSUSE* PROCS. 
# 
  
      DEF USTOT$LN   #8#;            # NUM OF WORDS IN TOTALS ARRAYS #
      DEF MAX$LN      #60#; 
  
# 
*     ARRAY TO HOLD THE CATALOG NAME. 
# 
  
      ARRAY SFMCATNM [0:0] P(1);
        BEGIN 
        ITEM SFMCAT$NM  C(00,00,06) = [SFMCAT]; 
        ITEM SFMCAT$LST C(00,36,01);  # LAST CATALOG NAME CHARACTER # 
        END 
  
# 
*     ARRAY TO HOLD ANY FATAL ERROR 
*     MESSAGES FROM *SSUSE*.
# 
  
      ARRAY SSMSG [0:0] P(4); 
        BEGIN 
        ITEM SSMSG$LN   C(00,00,37);  # MESSAGE LINE #
        ITEM SSMSG$ABN  C(00,00,17) = [" SSUSE ABNORMAL, "];
        ITEM SSMSG$PROC C(01,42,20);  # PROC NAME # 
        ITEM SSMSG$TERM U(03,48,12) = [0];  # ZERO TERMINATOR # 
        END 
  
# 
*     ARRAY TO HOLD THE MESSAGES TO BE DISPLAYED
*     IN THE DAYFILE. 
# 
  
      ARRAY SSMSG$BUF [0:0] P(4);    # MESSAGE BUFFER # 
        BEGIN 
        ITEM SSMSG$LINE C(00,00,38);  # MESSAGE LINE #
        ITEM SSMSG$ZERO U(03,48,12) = [0];  # ZERO BYTE TERMINATOR #
        END 
  
# 
*     COMMON AREA USED BY *SSUSE* PROCS.
# 
  
      COMMON TUSECOM; 
  
        BEGIN  # TUSECOM #
                                                      #$$#
              ITEM $$TUSE$$ C(20) = "****** COMTUSE *****"; 
                                                      #$$#
        ITEM REPORT$A   B;           # REPORT OPTION A FLAG # 
        ITEM REPORT$B   B;           # REPORT OPTION B FLAG # 
        ITEM REPORT$C   B;           # REPORT OPTION C FLAG # 
        ITEM REPORT$D   B;           # REPORT OPTION D FLAG # 
        ITEM SEL$CSN    C(8);        # CSN OF SELECTED CATRIDGE # 
        ITEM SEL$CM     C(2);        # CARTRIDGE MANUFACTURER # 
        ITEM SEL$SM     U;           # BITS SET FOR SELECTED SM-S # 
        ITEM SEL$SB     U;           # BITS SET FOR SELECTED
                                       SUBFAMILIES #
  
  
      ARRAY CHAR [0:0]  S(1); 
        BEGIN 
        ITEM CHAR$10   C(00,00,10);  # ALL 10 CHARACTERS #
        ITEM CHAR$L2   C(00,00,02);  # LEFTMOST 2 CHARS # 
        ITEM CHAR$L7   C(00,00,07);  # LEFTMOST 7 CHARS # 
        ITEM CHAR$L8   C(00,00,08);  # LEFTMOST 8 CHARS # 
        ITEM CHAR$R7   C(00,18,07);  # RIGHTMOST 7 CHARS #
        ITEM CHAR$R4   C(00,36,04);  # RIGHTMOST 4 CHARS #
        ITEM CHAR$R3   C(00,42,03);  # RIGHTMOST 3 CHARS #
        ITEM CHAR$R2   C(00,48,02);  # RIGHTMOST 2 CHARS #
        ITEM CHAR$R1   C(00,54,01);  # RIGHTMOST 1 CHAR # 
        END 
  
  
# 
*     ARRAY TO HOLD THE SUBFAMILY TOTALS FOR THE FIELDS ASSOCIATED
*     WITH *SSUSE*. 
# 
  
        ARRAY SF$TOT   [0:MAXSF]  P(USTOT$LN);
          BEGIN 
          ITEM SF$AUC    I(00,00,30);   # AU CONFLICT  #
          ITEM SF$AULF   I(00,30,30);   # AVAILABLE AU FOR LARGE
                                          FILES # 
          ITEM SF$AUSF   I(01,00,30);   # AVAILABLE AU FOR SMALL
                                          FILES # 
          ITEM SF$FA     I(01,30,30);   # FLAWED AND AVAILABLE AU # 
          ITEM SF$FB     I(02,00,30);   # FLAWED AND BUSY AU #
          ITEM SF$FC     I(02,30,30);   # FROZEN CHAIN  # 
          ITEM SF$FRC    I(03,00,30);   # FREE CARTRIDGE  # 
          ITEM SF$INH    I(03,30,30);   # CARTRIDGES WITH INHIBIT 
                                          FLAG SET #
          ITEM SF$LOC    I(04,00,30);   # NUMBER OF CUBICLES #
          ITEM SF$LOST   I(04,30,30);   # LOST CARTRIDGE  # 
          ITEM SF$OCL    I(05,00,30);   # CARTRIDGES WITH OFF CART. 
                                          LINKS AVAILABLE # 
          ITEM SF$RES    I(05,30,30);   # NUMBER OF CARTRIDGES #
          ITEM SF$SE     I(06,00,30);   # SMMAP ERROR # 
          ITEM SF$SF     I(06,30,30);   # START OF FRAGMENT COUNT # 
          ITEM SF$XPE    I(07,00,30);   # EXCESSIVE PARITY ERRORS # 
          END 
  
  
# 
*     ARRAY TO HOLD GROUP SUB-TOTALS AND SM TOTALS FOR THE
*     FIELDS ASSOCIATED WITH *SSUSE*.  *GRP$TOT[MXGRPLS]* 
*     IS USED TO ACCUMULATE THE TOTAL FOR ALL GROUPS. 
# 
  
        ARRAY GRP$TOT  [0:MXGRPLS]  P(USTOT$LN);
          BEGIN 
          ITEM GRP$AUC   I(00,00,30);   # AU CONFLICT # 
          ITEM GRP$AULF  I(00,30,30);   # AVAILABLE AU FOR LARGE
                                          FILES # 
          ITEM GRP$AUSF  I(01,00,30);   # AVAILABLE AU FOR SMALL
                                          FILES # 
          ITEM GRP$FA    I(01,30,30);   # FLAWED AND AVAILABLE AU # 
          ITEM GRP$FB    I(02,00,30);   # FLAWED AND BUSY AU #
          ITEM GRP$FC    I(02,30,30);   # FROZEN CHAIN #
          ITEM GRP$FRC   I(03,00,30);   # FREE CARTRIDGE #
          ITEM GRP$INH   I(03,30,30);   # CARTRIDGES WITH INHIBIT 
                                          FLAG SET #
          ITEM GRP$LOC   I(04,00,30);   # NUMBER OF CUBICLES #
          ITEM GRP$LOST  I(04,30,30);   # LOST CARTRIDGE #
          ITEM GRP$OCL   I(05,00,30);   # CARTRIDGES WITH OFF CART. 
                                          LINKS AVAILABLE # 
          ITEM GRP$RES   I(05,30,30);   # NUMBER OF CARTRIDGES #
          ITEM GRP$SE    I(06,00,30);   # SMMAP ERROR # 
          ITEM GRP$SF    I(06,30,30);   # START OF FRAGMENT COUNT # 
          ITEM GRP$XPE   I(07,00,30);   # EXCESSIVE PARITY ERRORS # 
          END 
  
# 
*     ARRAY TO HOLD THE SM TOTALS FOR THE FIELDS ASSOCIATED 
*     WITH *SSUSE*. 
# 
  
        ARRAY SM$TOT   [1:MAXSM]  P(USTOT$LN);
          BEGIN 
          ITEM SM$AUC    I(00,00,30);   # AU CONFLICT # 
          ITEM SM$AULF   I(00,30,30);   # AVAILABLE AU FOR LARGE
                                          FILES # 
          ITEM SM$AUSF   I(01,00,30);   # AVAILABLE AU FOR SMALL
                                          FILES # 
          ITEM SM$FA     I(01,30,30);   # FLAWED AND AVAILABLE AU # 
          ITEM SM$FB     I(02,00,30);   # FLAWED AND BUSY AU #
          ITEM SM$FC     I(02,30,30);   # FROZEN CHAIN #
          ITEM SM$FRC    I(03,00,30);   # FREE CARTRIDGE #
          ITEM SM$INH    I(03,30,30);   # CARTRIDGES WITH INHIBIT 
                                          FLAG SET #
          ITEM SM$LOC    I(04,00,30);   # NUMBER OF CUBICLES #
          ITEM SM$LOST   I(04,30,30);   # LOST CARTRIDGE #
          ITEM SM$OCL    I(05,00,30);   # CARTRIDGES WITH OFF CART. 
                                          LINKS AVAILABLE # 
          ITEM SM$RES    I(05,30,30);   # NUMBER OF CARTRIDGES #
          ITEM SM$SE     I(06,00,30);   # SMMAP ERROR # 
          ITEM SM$SF     I(06,30,30);   # START OF FRAGMENT # 
          ITEM SM$XPE    I(07,00,30);   # EXCESSIVE PARITY ERRORS # 
          END 
# 
*     ARRAY TO HOLD THE *AST*.
# 
  
        ARRAY US$ASTENT [0:0] P(ASTENTL);;
# 
*     ARRAY TO HOLD *FCT* ENTRY.
# 
  
        ARRAY US$FCTENT [0:0] P(FCTENTL);;
  
        END  # TUSECOM #
  
      END  # COMTUSE #
  
                                               CONTROL LIST;
