User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:comtuse

Common COMTUSE

0 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comtuse +++|
00002  M01S00002.comtuse +++|#     COMTUSE - COMMON DEFINITIONS FOR *SSUSE* PROCS.                 #
00003  M01S00003.comtuse +++|                                               CONTROL NOLIST;
00004  M01S00004.comtuse +++|                                               CONTROL IFEQ LISTCON,1;
00005  M01S00005.comtuse +++|                                               CONTROL LIST;
00006  M01S00006.comtuse +++|                                               CONTROL FI;
00007  M01S00007.comtuse +++|      BEGIN  # COMTUSE #
00008  M01S00008.comtuse +++|
00009  M01S00009.comtuse +++|#
00010  M01S00010.comtuse +++|***   COMTUSE - COMMON DEFINITIONS FOR *SSUSE* PROCS.
00011  M01S00011.comtuse +++|*
00012  M01S00012.comtuse +++|*     COMTUSE CONTAINS THE DEFINITIONS FOR ALL THE ITEMS, ARRAYS,
00013  M01S00013.comtuse +++|*     AND COMMON AREAS COMMON TO ALL THE *SSUSE* PROCS.
00014  M01S00014.comtuse +++|#
00015  M01S00015.comtuse +++|
00016  M01S00016.comtuse +++|      DEF USTOT$LN   #8#;            # NUM OF WORDS IN TOTALS ARRAYS #
00017  M01S00017.comtuse +++|      DEF MAX$LN      #60#;
00018  M01S00018.comtuse +++|
00019  M01S00019.comtuse +++|#
00020  M01S00020.comtuse +++|*     ARRAY TO HOLD THE CATALOG NAME.
00021  M01S00021.comtuse +++|#
00022  M01S00022.comtuse +++|
00023  M01S00023.comtuse +++|      ARRAY SFMCATNM [0:0] P(1);
00024  M01S00024.comtuse +++|        BEGIN
00025  M01S00025.comtuse +++|        ITEM SFMCAT$NM  C(00,00,06) = [SFMCAT];
00026  M01S00026.comtuse +++|        ITEM SFMCAT$LST C(00,36,01);  # LAST CATALOG NAME CHARACTER #
00027  M01S00027.comtuse +++|        END
00028  M01S00028.comtuse +++|
00029  M01S00029.comtuse +++|#
00030  M01S00030.comtuse +++|*     ARRAY TO HOLD ANY FATAL ERROR
00031  M01S00031.comtuse +++|*     MESSAGES FROM *SSUSE*.
00032  M01S00032.comtuse +++|#
00033  M01S00033.comtuse +++|
00034  M01S00034.comtuse +++|      ARRAY SSMSG [0:0] P(4);
00035  M01S00035.comtuse +++|        BEGIN
00036  M01S00036.comtuse +++|        ITEM SSMSG$LN   C(00,00,37);  # MESSAGE LINE #
00037  M01S00037.comtuse +++|        ITEM SSMSG$ABN  C(00,00,17) = [" SSUSE ABNORMAL, "];
00038  M01S00038.comtuse +++|        ITEM SSMSG$PROC C(01,42,20);  # PROC NAME #
00039  M01S00039.comtuse +++|        ITEM SSMSG$TERM U(03,48,12) = [0];  # ZERO TERMINATOR #
00040  M01S00040.comtuse +++|        END
00041  M01S00041.comtuse +++|
00042  M01S00042.comtuse +++|#
00043  M01S00043.comtuse +++|*     ARRAY TO HOLD THE MESSAGES TO BE DISPLAYED
00044  M01S00044.comtuse +++|*     IN THE DAYFILE.
00045  M01S00045.comtuse +++|#
00046  M01S00046.comtuse +++|
00047  M01S00047.comtuse +++|      ARRAY SSMSG$BUF [0:0] P(4);    # MESSAGE BUFFER #
00048  M01S00048.comtuse +++|        BEGIN
00049  M01S00049.comtuse +++|        ITEM SSMSG$LINE C(00,00,38);  # MESSAGE LINE #
00050  M01S00050.comtuse +++|        ITEM SSMSG$ZERO U(03,48,12) = [0];  # ZERO BYTE TERMINATOR #
00051  M01S00051.comtuse +++|        END
00052  M01S00052.comtuse +++|
00053  M01S00053.comtuse +++|#
00054  M01S00054.comtuse +++|*     COMMON AREA USED BY *SSUSE* PROCS.
00055  M01S00055.comtuse +++|#
00056  M01S00056.comtuse +++|
00057  M01S00057.comtuse +++|      COMMON TUSECOM;
00058  M01S00058.comtuse +++|
00059  M01S00059.comtuse +++|        BEGIN  # TUSECOM #
00060  M01S00060.comtuse +++|                                                      #$$#
00061  M01S00061.comtuse +++|              ITEM $$TUSE$$ C(20) = "****** COMTUSE *****";
00062  M01S00062.comtuse +++|                                                      #$$#
00063  M01S00063.comtuse +++|        ITEM REPORT$A   B;           # REPORT OPTION A FLAG #
00064  M01S00064.comtuse +++|        ITEM REPORT$B   B;           # REPORT OPTION B FLAG #
00065  M01S00065.comtuse +++|        ITEM REPORT$C   B;           # REPORT OPTION C FLAG #
00066  M01S00066.comtuse +++|        ITEM REPORT$D   B;           # REPORT OPTION D FLAG #
00067  M01S00067.comtuse +++|        ITEM SEL$CSN    C(8);        # CSN OF SELECTED CATRIDGE #
00068  M01S00068.comtuse +++|        ITEM SEL$CM     C(2);        # CARTRIDGE MANUFACTURER #
00069  M01S00069.comtuse +++|        ITEM SEL$SM     U;           # BITS SET FOR SELECTED SM-S #
00070  M01S00070.comtuse +++|        ITEM SEL$SB     U;           # BITS SET FOR SELECTED
00071  M01S00071.comtuse +++|                                       SUBFAMILIES #
00072  M01S00072.comtuse +++|
00073  M01S00073.comtuse +++|
00074  M01S00074.comtuse +++|      ARRAY CHAR [0:0]  S(1);
00075  M01S00075.comtuse +++|        BEGIN
00076  M01S00076.comtuse +++|        ITEM CHAR$10   C(00,00,10);  # ALL 10 CHARACTERS #
00077  M01S00077.comtuse +++|        ITEM CHAR$L2   C(00,00,02);  # LEFTMOST 2 CHARS #
00078  M01S00078.comtuse +++|        ITEM CHAR$L7   C(00,00,07);  # LEFTMOST 7 CHARS #
00079  M01S00079.comtuse +++|        ITEM CHAR$L8   C(00,00,08);  # LEFTMOST 8 CHARS #
00080  M01S00080.comtuse +++|        ITEM CHAR$R7   C(00,18,07);  # RIGHTMOST 7 CHARS #
00081  M01S00081.comtuse +++|        ITEM CHAR$R4   C(00,36,04);  # RIGHTMOST 4 CHARS #
00082  M01S00082.comtuse +++|        ITEM CHAR$R3   C(00,42,03);  # RIGHTMOST 3 CHARS #
00083  M01S00083.comtuse +++|        ITEM CHAR$R2   C(00,48,02);  # RIGHTMOST 2 CHARS #
00084  M01S00084.comtuse +++|        ITEM CHAR$R1   C(00,54,01);  # RIGHTMOST 1 CHAR #
00085  M01S00085.comtuse +++|        END
00086  M01S00086.comtuse +++|
00087  M01S00087.comtuse +++|
00088  M01S00088.comtuse +++|#
00089  M01S00089.comtuse +++|*     ARRAY TO HOLD THE SUBFAMILY TOTALS FOR THE FIELDS ASSOCIATED
00090  M01S00090.comtuse +++|*     WITH *SSUSE*.
00091  M01S00091.comtuse +++|#
00092  M01S00092.comtuse +++|
00093  M01S00093.comtuse +++|        ARRAY SF$TOT   [0:MAXSF]  P(USTOT$LN);
00094  M01S00094.comtuse +++|          BEGIN
00095  M01S00095.comtuse +++|          ITEM SF$AUC    I(00,00,30);   # AU CONFLICT  #
00096  M01S00096.comtuse +++|          ITEM SF$AULF   I(00,30,30);   # AVAILABLE AU FOR LARGE
00097  M01S00097.comtuse +++|                                          FILES #
00098  M01S00098.comtuse +++|          ITEM SF$AUSF   I(01,00,30);   # AVAILABLE AU FOR SMALL
00099  M01S00099.comtuse +++|                                          FILES #
00100  M01S00100.comtuse +++|          ITEM SF$FA     I(01,30,30);   # FLAWED AND AVAILABLE AU #
00101  M01S00101.comtuse +++|          ITEM SF$FB     I(02,00,30);   # FLAWED AND BUSY AU #
00102  M01S00102.comtuse +++|          ITEM SF$FC     I(02,30,30);   # FROZEN CHAIN  #
00103  M01S00103.comtuse +++|          ITEM SF$FRC    I(03,00,30);   # FREE CARTRIDGE  #
00104  M01S00104.comtuse +++|          ITEM SF$INH    I(03,30,30);   # CARTRIDGES WITH INHIBIT
00105  M01S00105.comtuse +++|                                          FLAG SET #
00106  M01S00106.comtuse +++|          ITEM SF$LOC    I(04,00,30);   # NUMBER OF CUBICLES #
00107  M01S00107.comtuse +++|          ITEM SF$LOST   I(04,30,30);   # LOST CARTRIDGE  #
00108  M01S00108.comtuse +++|          ITEM SF$OCL    I(05,00,30);   # CARTRIDGES WITH OFF CART.
00109  M01S00109.comtuse +++|                                          LINKS AVAILABLE #
00110  M01S00110.comtuse +++|          ITEM SF$RES    I(05,30,30);   # NUMBER OF CARTRIDGES #
00111  M01S00111.comtuse +++|          ITEM SF$SE     I(06,00,30);   # SMMAP ERROR #
00112  M01S00112.comtuse +++|          ITEM SF$SF     I(06,30,30);   # START OF FRAGMENT COUNT #
00113  M01S00113.comtuse +++|          ITEM SF$XPE    I(07,00,30);   # EXCESSIVE PARITY ERRORS #
00114  M01S00114.comtuse +++|          END
00115  M01S00115.comtuse +++|
00116  M01S00116.comtuse +++|
00117  M01S00117.comtuse +++|#
00118  M01S00118.comtuse +++|*     ARRAY TO HOLD GROUP SUB-TOTALS AND SM TOTALS FOR THE
00119  M01S00119.comtuse +++|*     FIELDS ASSOCIATED WITH *SSUSE*.  *GRP$TOT[MXGRPLS]*
00120  M01S00120.comtuse +++|*     IS USED TO ACCUMULATE THE TOTAL FOR ALL GROUPS.
00121  M01S00121.comtuse +++|#
00122  M01S00122.comtuse +++|
00123  M01S00123.comtuse +++|        ARRAY GRP$TOT  [0:MXGRPLS]  P(USTOT$LN);
00124  M01S00124.comtuse +++|          BEGIN
00125  M01S00125.comtuse +++|          ITEM GRP$AUC   I(00,00,30);   # AU CONFLICT #
00126  M01S00126.comtuse +++|          ITEM GRP$AULF  I(00,30,30);   # AVAILABLE AU FOR LARGE
00127  M01S00127.comtuse +++|                                          FILES #
00128  M01S00128.comtuse +++|          ITEM GRP$AUSF  I(01,00,30);   # AVAILABLE AU FOR SMALL
00129  M01S00129.comtuse +++|                                          FILES #
00130  M01S00130.comtuse +++|          ITEM GRP$FA    I(01,30,30);   # FLAWED AND AVAILABLE AU #
00131  M01S00131.comtuse +++|          ITEM GRP$FB    I(02,00,30);   # FLAWED AND BUSY AU #
00132  M01S00132.comtuse +++|          ITEM GRP$FC    I(02,30,30);   # FROZEN CHAIN #
00133  M01S00133.comtuse +++|          ITEM GRP$FRC   I(03,00,30);   # FREE CARTRIDGE #
00134  M01S00134.comtuse +++|          ITEM GRP$INH   I(03,30,30);   # CARTRIDGES WITH INHIBIT
00135  M01S00135.comtuse +++|                                          FLAG SET #
00136  M01S00136.comtuse +++|          ITEM GRP$LOC   I(04,00,30);   # NUMBER OF CUBICLES #
00137  M01S00137.comtuse +++|          ITEM GRP$LOST  I(04,30,30);   # LOST CARTRIDGE #
00138  M01S00138.comtuse +++|          ITEM GRP$OCL   I(05,00,30);   # CARTRIDGES WITH OFF CART.
00139  M01S00139.comtuse +++|                                          LINKS AVAILABLE #
00140  M01S00140.comtuse +++|          ITEM GRP$RES   I(05,30,30);   # NUMBER OF CARTRIDGES #
00141  M01S00141.comtuse +++|          ITEM GRP$SE    I(06,00,30);   # SMMAP ERROR #
00142  M01S00142.comtuse +++|          ITEM GRP$SF    I(06,30,30);   # START OF FRAGMENT COUNT #
00143  M01S00143.comtuse +++|          ITEM GRP$XPE   I(07,00,30);   # EXCESSIVE PARITY ERRORS #
00144  M01S00144.comtuse +++|          END
00145  M01S00145.comtuse +++|
00146  M01S00146.comtuse +++|#
00147  M01S00147.comtuse +++|*     ARRAY TO HOLD THE SM TOTALS FOR THE FIELDS ASSOCIATED
00148  M01S00148.comtuse +++|*     WITH *SSUSE*.
00149  M01S00149.comtuse +++|#
00150  M01S00150.comtuse +++|
00151  M01S00151.comtuse +++|        ARRAY SM$TOT   [1:MAXSM]  P(USTOT$LN);
00152  M01S00152.comtuse +++|          BEGIN
00153  M01S00153.comtuse +++|          ITEM SM$AUC    I(00,00,30);   # AU CONFLICT #
00154  M01S00154.comtuse +++|          ITEM SM$AULF   I(00,30,30);   # AVAILABLE AU FOR LARGE
00155  M01S00155.comtuse +++|                                          FILES #
00156  M01S00156.comtuse +++|          ITEM SM$AUSF   I(01,00,30);   # AVAILABLE AU FOR SMALL
00157  M01S00157.comtuse +++|                                          FILES #
00158  M01S00158.comtuse +++|          ITEM SM$FA     I(01,30,30);   # FLAWED AND AVAILABLE AU #
00159  M01S00159.comtuse +++|          ITEM SM$FB     I(02,00,30);   # FLAWED AND BUSY AU #
00160  M01S00160.comtuse +++|          ITEM SM$FC     I(02,30,30);   # FROZEN CHAIN #
00161  M01S00161.comtuse +++|          ITEM SM$FRC    I(03,00,30);   # FREE CARTRIDGE #
00162  M01S00162.comtuse +++|          ITEM SM$INH    I(03,30,30);   # CARTRIDGES WITH INHIBIT
00163  M01S00163.comtuse +++|                                          FLAG SET #
00164  M01S00164.comtuse +++|          ITEM SM$LOC    I(04,00,30);   # NUMBER OF CUBICLES #
00165  M01S00165.comtuse +++|          ITEM SM$LOST   I(04,30,30);   # LOST CARTRIDGE #
00166  M01S00166.comtuse +++|          ITEM SM$OCL    I(05,00,30);   # CARTRIDGES WITH OFF CART.
00167  M01S00167.comtuse +++|                                          LINKS AVAILABLE #
00168  M01S00168.comtuse +++|          ITEM SM$RES    I(05,30,30);   # NUMBER OF CARTRIDGES #
00169  M01S00169.comtuse +++|          ITEM SM$SE     I(06,00,30);   # SMMAP ERROR #
00170  M01S00170.comtuse +++|          ITEM SM$SF     I(06,30,30);   # START OF FRAGMENT #
00171  M01S00171.comtuse +++|          ITEM SM$XPE    I(07,00,30);   # EXCESSIVE PARITY ERRORS #
00172  M01S00172.comtuse +++|          END
00173  M01S00173.comtuse +++|#
00174  M01S00174.comtuse +++|*     ARRAY TO HOLD THE *AST*.
00175  M01S00175.comtuse +++|#
00176  M01S00176.comtuse +++|
00177  M01S00177.comtuse +++|        ARRAY US$ASTENT [0:0] P(ASTENTL);;
00178  M01S00178.comtuse +++|#
00179  M01S00179.comtuse +++|*     ARRAY TO HOLD *FCT* ENTRY.
00180  M01S00180.comtuse +++|#
00181  M01S00181.comtuse +++|
00182  M01S00182.comtuse +++|        ARRAY US$FCTENT [0:0] P(FCTENTL);;
00183  M01S00183.comtuse +++|
00184  M01S00184.comtuse +++|        END  # TUSECOM #
00185  M01S00185.comtuse +++|
00186  M01S00186.comtuse +++|      END  # COMTUSE #
00187  M01S00187.comtuse +++|
00188  M01S00188.comtuse +++|                                               CONTROL LIST;
cdc/nos2.source/opl.opl871/common/comtuse.txt ยท Last modified: by 127.0.0.1