User Tools

Site Tools


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

Common COMTDBG

0 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comtdbg +++|
00002  M01S00002.comtdbg +++|#     COMTDBG - COMMON DEFINITIONS FOR *SSDEBUG* PROCS.               #
00003  M01S00003.comtdbg +++|                                               CONTROL NOLIST;
00004  M01S00004.comtdbg +++|                                               CONTROL IFEQ LISTCON,1;
00005  M01S00005.comtdbg +++|                                               CONTROL LIST;
00006  M01S00006.comtdbg +++|                                               CONTROL FI;
00007  M01S00007.comtdbg +++|
00008  M01S00008.comtdbg +++|#
00009  M01S00009.comtdbg +++|***   COMTDBG - COMMON DEFINITIONS FOR *SSDEBUG* PROCS.
00010  M01S00010.comtdbg +++|*
00011  M01S00011.comtdbg +++|*     COMTDBG CONTAINS THE DEFINITION OF ALL THE ITEMS, ARRAYS,
00012  M01S00012.comtdbg +++|*     FETS, BUFFERS AND COMMON AREAS USED BY ALL *SSDEBUG*
00013  M01S00013.comtdbg +++|*     PROCS.
00014  M01S00014.comtdbg +++|#
00015  M01S00015.comtdbg +++|
00016  M01S00016.comtdbg +++|      BEGIN  # COMTDBG #
00017  M01S00017.comtdbg +++|      DEF DBUFL      #O"1001"#;      # *CIO* BUFFER LENGTH #
00018  M01S00018.comtdbg +++|      DEF DBDIRNM    #5#;            # NUMBER OF *SSDEBUG* DIRECTIVES -
00019  M01S00019.comtdbg +++|                                       1 #
00020  M01S00020.comtdbg +++|      DEF DBFLAGNM   #8#;            # NUMBER OF FLAGS - 1 #
00021  M01S00021.comtdbg +++|      DEF MAXAU      #1931#;         # MAXIMUM AU NUMBER #
00022  M01S00022.comtdbg +++|      DEF DBSCR      #"SCR1"#;       # SCRATCH FILE NAME #
00023  M01S00023.comtdbg +++|
00024  M01S00024.comtdbg +++|#
00025  M01S00025.comtdbg +++|*     ARRAY TO HOLD THE DIRECTIVE NAMES.  THE ORDER
00026  M01S00026.comtdbg +++|*     OF THE DIRECTIVE NAMES IS THE SAME AS THAT OF
00027  M01S00027.comtdbg +++|*     THE SWITCH SET UP IN *DBMAIN* TO PROCESS THE
00028  M01S00028.comtdbg +++|*     DIRECTIVES.
00029  M01S00029.comtdbg +++|#
00030  M01S00030.comtdbg +++|
00031  M01S00031.comtdbg +++|      ARRAY DB$DIR [0:DBDIRNM] P(1);
00032  M01S00032.comtdbg +++|        BEGIN
00033  M01S00033.comtdbg +++|        ITEM DB$DIRNM   C(00,00,02) = [  ##
00034  M01S00034.comtdbg +++|        "RC",                        # REMOVE MAP ENTRY #
00035  M01S00035.comtdbg +++|        "RL",                        # REMOVE *FCT* ENTRY #
00036  M01S00036.comtdbg +++|        "RP",                        # RELEASE PROBLEM CHAIN #
00037  M01S00037.comtdbg +++|        "RF",                        # READ RAW FILES #
00038  M01S00038.comtdbg +++|        "RS",                        # READ RAW STREAMS #
00039  M01S00039.comtdbg +++|        "CF"];                       # CHANGE FLAG #
00040  M01S00040.comtdbg +++|        END
00041  M01S00041.comtdbg +++|
00042  M01S00042.comtdbg +++|#
00043  M01S00043.comtdbg +++|*     ARRAY CONTAINING THE VALID FLAG MNEMONICS USED WITH THE
00044  M01S00044.comtdbg +++|*     *FL* PARAMETER FOR THE OP=CF DIRECTIVE, AND ASSOCIATED
00045  M01S00045.comtdbg +++|*     STATUS VALUES AND FLAGS.
00046  M01S00046.comtdbg +++|#
00047  M01S00047.comtdbg +++|
00048  M01S00048.comtdbg +++|      ARRAY DB$FLAGS [0:DBFLAGNM] P(1);
00049  M01S00049.comtdbg +++|        BEGIN
00050  M01S00050.comtdbg +++|        ITEM DB$FLAG    C(00,00,02)  # FLAG MNEMONIC #
00051  M01S00051.comtdbg +++|          = [                        ##
00052  M01S00052.comtdbg +++|        "ME",                        # LINKAGE ERROR (MAP) #
00053  M01S00053.comtdbg +++|        "FE",                        # LINKAGE ERROR (*FCT*) #
00054  M01S00054.comtdbg +++|        "IB",                        # INHIBIT ALLOCATION #
00055  M01S00055.comtdbg +++|        "LC",                        # LOST CARTRIDGE #
00056  M01S00056.comtdbg +++|        "EW",                        # EXCESSIVE WRITE ERROR #
00057  M01S00057.comtdbg +++|        "FR",                        # FREE CARTRIDGE #
00058  M01S00058.comtdbg +++|        "SF",                        # START OF FRAGMENT #
00059  M01S00059.comtdbg +++|        "FC",                        # FROZEN CHAIN #
00060  M01S00060.comtdbg +++|        "AC"];                      # AU CONFLICT #
00061  M01S00061.comtdbg +++|
00062  M01S00062.comtdbg +++|        ITEM DB$FLCODE  U(00,12,12)  # FLAG STATUS VALUE #
00063  M01S00063.comtdbg +++|          = [                        ##
00064  M01S00064.comtdbg +++|        UCF"UNUSED",
00065  M01S00065.comtdbg +++|        UCF"CMAP",
00066  M01S00066.comtdbg +++|        UCF"INHIB",
00067  M01S00067.comtdbg +++|        UCF"LOST",
00068  M01S00068.comtdbg +++|        UCF"EWPE",
00069  M01S00069.comtdbg +++|        UCF"FREEFL",
00070  M01S00070.comtdbg +++|        UCF"SOF",
00071  M01S00071.comtdbg +++|        UCF"FROZ",
00072  M01S00072.comtdbg +++|        UCF"CONF"];
00073  M01S00073.comtdbg +++|
00074  M01S00074.comtdbg +++|        ITEM DB$FLSTR   B(00,24,01)  # STREAM DETAIL FLAG #
00075  M01S00075.comtdbg +++|          = [6(FALSE),
00076  M01S00076.comtdbg +++|        3(TRUE)];
00077  M01S00077.comtdbg +++|
00078  M01S00078.comtdbg +++|        END
00079  M01S00079.comtdbg +++|
00080  M01S00080.comtdbg +++|#
00081  M01S00081.comtdbg +++|*     ARRAY TO DISPLAY ABNORMAL TERMINATION MESSAGE
00082  M01S00082.comtdbg +++|*     FOR *SSDEBUG*.
00083  M01S00083.comtdbg +++|#
00084  M01S00084.comtdbg +++|
00085  M01S00085.comtdbg +++|      ARRAY DBMSG [0:0] P(4);
00086  M01S00086.comtdbg +++|        BEGIN
00087  M01S00087.comtdbg +++|        ITEM DBMSG$LN   C(00,00,38);  # MESSAGE LINE #
00088  M01S00088.comtdbg +++|        ITEM DBMSG$ABN  C(00,00,19) = [" SSDEBUG ABNORMAL, "];
00089  M01S00089.comtdbg +++|        ITEM DBMSG$PROC C(01,54,08);  # PROC NAME #
00090  M01S00090.comtdbg +++|        ITEM DBMSG$BLNK C(02,42,10) = ["          "];
00091  M01S00091.comtdbg +++|        ITEM DBMSG$TERM U(03,48,12) = [0];  # ZERO BYTE TERMINATOR #
00092  M01S00092.comtdbg +++|        END
00093  M01S00093.comtdbg +++|
00094  M01S00094.comtdbg +++|#
00095  M01S00095.comtdbg +++|*     ARRAY TO DISPLAY MESSAGES IN THE DAYFILE AND
00096  M01S00096.comtdbg +++|*     AT THE CONSOLE.
00097  M01S00097.comtdbg +++|#
00098  M01S00098.comtdbg +++|
00099  M01S00099.comtdbg +++|      ARRAY DBMSG$BUF [0:0] P(4);
00100  M01S00100.comtdbg +++|        BEGIN
00101  M01S00101.comtdbg +++|        ITEM DBMSG$LINE C(00,00,38);  # MESSAGE LINE #
00102  M01S00102.comtdbg +++|        ITEM DBMSG$CSID C(00,30,01);  # SM-ID #
00103  M01S00103.comtdbg +++|        ITEM DBMSG$TRAY C(02,00,06);  # ENTRY/EXIT TRAY #
00104  M01S00104.comtdbg +++|        ITEM DBMSG$ZRO  U(03,48,12) = [0];  # ZERO BYTE TERMINATOR #
00105  M01S00105.comtdbg +++|        END
00106  M01S00106.comtdbg +++|
00107  M01S00107.comtdbg +++|#
00108  M01S00108.comtdbg +++|*     COMMON AREA USED BY *SSDEBUG* PROCS.
00109  M01S00109.comtdbg +++|#
00110  M01S00110.comtdbg +++|
00111  M01S00111.comtdbg +++|      COMMON TDBGCOM;
00112  M01S00112.comtdbg +++|
00113  M01S00113.comtdbg +++|        BEGIN  # TDBGCOM #
00114  M01S00114.comtdbg +++|                                     # $$ #
00115  M01S00115.comtdbg +++|        ITEM $$TDBG$$   C(20) = "****** COMTDBG *****";
00116  M01S00116.comtdbg +++|                                     # $$ #
00117  M01S00117.comtdbg +++|        ITEM ADDRSENSE  I;           # FWA OF BUFFER TO HOLD DRAWER
00118  M01S00118.comtdbg +++|                                       STATUS TABLE #
00119  M01S00119.comtdbg +++|        ITEM DBREQID    I;           # REQUESTOR ID #
00120  M01S00120.comtdbg +++|        ITEM DBSSID     I;           # SUBSYSTEM ID #
00121  M01S00121.comtdbg +++|        ITEM TRNSPORT   I;           # TRANSPORT ID #
00122  M01S00122.comtdbg +++|
00123  M01S00123.comtdbg +++|#
00124  M01S00124.comtdbg +++|*     FET AND *CIO* BUFFER USED FOR READING THE DIRECTIVES.
00125  M01S00125.comtdbg +++|#
00126  M01S00126.comtdbg +++|
00127  M01S00127.comtdbg +++|        ARRAY DB$FET [0:0] S(SFETL);;
00128  M01S00128.comtdbg +++|        ARRAY DB$CBUF [0:0] S(DBUFL);;
00129  M01S00129.comtdbg +++|
00130  M01S00130.comtdbg +++|#
00131  M01S00131.comtdbg +++|*     FET AND *CIO* BUFFER USED TO WRITE TO THE SCRATCH FILE.
00132  M01S00132.comtdbg +++|#
00133  M01S00133.comtdbg +++|
00134  M01S00134.comtdbg +++|        ARRAY DSCR$FET [0:0] S(SFETL);;
00135  M01S00135.comtdbg +++|        ARRAY DSCR$BUF [0:0] S(DBUFL);;
00136  M01S00136.comtdbg +++|
00137  M01S00137.comtdbg +++|        END  # TDBGCOM #
00138  M01S00138.comtdbg +++|
00139  M01S00139.comtdbg +++|      END  # COMTDBG #
00140  M01S00140.comtdbg +++|
00141  M01S00141.comtdbg +++|                                               CONTROL LIST;
cdc/nos2.source/opl.opl871/common/comtdbg.txt ยท Last modified: by 127.0.0.1