User Tools

Site Tools


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

Common COMUQQC

11 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comuqqc +++|
00002  M01S00002.comuqqc +++|#     COMUQQC - *QGET*/*DROP* COMMON DATA.                            #
00003  M01S00003.comuqqc +++|                                               CONTROL NOLIST;
00004  M01S00004.comuqqc +++|                                              CONTROL IFEQ LISTCON,1;
00005  M01S00005.comuqqc +++|                                               CONTROL LIST;
00006  M01S00006.comuqqc +++|                                               CONTROL FI;
00007  M01S00007.comuqqc +++|                                               CONTROL PRESET;
00008  M01S00008.comuqqc +++|      BEGIN  # COMUQQC #
00009  M01S00009.comuqqc +++|
00010  M01S00010.comuqqc +++|#
00011  M01S00011.comuqqc +++|***   COMUQQC - *QGET*/*DROP* COMMON DATA.
00012  M01S00001.281l803 +++|*
00013  M01S00002.281l803 +++|*         COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00014  M01S00012.comuqqc +++|*
00015  M01S00013.comuqqc +++|*     *COMUQQC* CONTAINS THE COMMON STORAGE FOR THE *QAC* PARAMETER
00016  M01S00014.comuqqc +++|*     BLOCK AND OTHER DATA USED TO PROCESS THE *QGET* AND *DROP*
Line S00015 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2118
Seq #  *Modification Id* Act 
----------------------------+
00017  M02S00015.ns2118  ---|*     CONTROL STATEMENTS.
00018  M01S00001.ns2118  +++|*     COMMANDS.
00019  M01S00016.comuqqc +++|#
00020  M01S00017.comuqqc +++|
00021  M01S00018.comuqqc +++|#
00022  M01S00019.comuqqc +++|*     MISCELLANEOUS DEFINITIONS.
00023  M01S00020.comuqqc +++|*
00024  M01S00021.comuqqc +++|*     NOTE - THE REPLY BUFFER LENGTH (*REPLEN*) MUST BE DEFINED AS A
00025  M01S00022.comuqqc +++|*            MULTIPLE OF THE ENTRY LENGTH (*QACRETL*).
00026  M01S00023.comuqqc +++|#
00027  M01S00024.comuqqc +++|
00028  M01S00001.ns2173  +++|      DEF AJLC       #40#;           # ABORT JOB MESSAGE MAX LENGTH #
00029  M01S00025.comuqqc +++|      DEF ALLQUEUES  #O"7777"#;      # ALL QUEUES #
Line S00026 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2687
Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00026.ns2687  ---|      DEF ARGLEN     #6#;            # ARGUMENT TABLE LENGTH #
00031  M01S00027.comuqqc +++|      DEF BADSTP     #O"23"#;        # BAD STEP CODE #
00032  M01S00001.ns2032  +++|      DEF COUNT$END  #4#;            # QUEUE LOOP COUNT #
00033  M01S00028.comuqqc +++|      DEF DCNUM      #5#;            # NUMBER OF *DC* VALUES #
00034  M01S00029.comuqqc +++|      DEF DC$ALL     #"ALL"#;        # ALL DISPOSITION CODES #
00035  M01S00030.comuqqc +++|      DEF DC$EX      #"EX"#;         # EXECUTE DISPOSITION CODE #
00036  M01S00031.comuqqc +++|      DEF DC$IN      #"IN"#;         # INPUT DISPOSITION CODE #
00037  M01S00032.comuqqc +++|      DEF DC$PL      #"PL"#;         # PLOT DISPOSITION CODE #
00038  M01S00033.comuqqc +++|      DEF DC$PR      #"PR"#;         # PRINT DISPOSITION CODE #
00039  M01S00034.comuqqc +++|      DEF DC$PU      #"PU"#;         # PUNCH DISPOSITION CODE #
00040  M01S00035.comuqqc +++|      DEF DC$SC      #"SC"#;         # *DSP* CODE TO MAKE FILE LOCAL #
00041  M01S00036.comuqqc +++|      DEF DC$TT      #"TT"#;         # WAIT DISPOSITION CODE #
00042  M01S00037.comuqqc +++|      DEF DC$WT      #"WT"#;         # WAIT DISPOSITION CODE #
Line S00001 Modification History
M01 (Added by) ns2305
M02 (Updated by) ns2710
Seq #  *Modification Id* Act 
----------------------------+
00043  M02S00001.ns2710  ---|      DEF DUPLFN     #8#;            # DUPLICATE LOCAL FILE NAME #
00044  M01S00001.ns2710  +++|      DEF DQ$YES     #"YES"#;        # DEQUEUE=YES #
00045  M01S00002.ns2710  +++|      DEF DQ$NO      #"NO"#;         # DEQUEUE=NO #
00046  M01S00038.comuqqc +++|      DEF DSPBLKL    #7#;            # *DSP* PARAMETER BLOCK LENGTH #
00047  M01S00003.ns2710  +++|      DEF DUPLFN     #8#;            # DUPLICATE LOCAL FILE NAME #
00048  M01S00039.comuqqc +++|      DEF ENDDC      #5#;            # LAST ITEM IN *DCITEM* #
00049  M01S00001.ns2022  +++|      DEF INVNM      #10#;           # INVALID LOCAL FILE NAME #
00050  M01S00040.comuqqc +++|      DEF MAXCNT     #O"7777"#;      # MAXIMUM QUEUE COUNT #
00051  M01S00041.comuqqc +++|      DEF NOTFND     #7#;            # ENTRY NOT FOUND #
00052  M01S00042.comuqqc +++|      DEF OPTION     #0#;            # *XARG* OPTION #
00053  M01S00043.comuqqc +++|      DEF PARML      #17#;           # *QAC* PARAMETER BLOCK LENGTH #
00054  M01S00044.comuqqc +++|      DEF PARMNOPREL #12#;           # LENGTH - PREFIX LENGTH #
00055  M01S00045.comuqqc +++|      DEF PREFIXL    #5#;            # *QAC* BLOCK PREFIX LENGTH #
00056  M01S00001.ns2284  +++|      DEF PRULIMIT   #29#;           # PRU LIMIT ON ATTACH OF FILE #
00057  M01S00046.comuqqc +++|      DEF QACRETL    #2#;            # *QAC* REPLY ENTRY LENGTH #
Line S00047 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2032
Seq #  *Modification Id* Act 
----------------------------+
00058  M02S00047.ns2032  ---|      DEF QAC$END    #4#;            # *QAC* END OF QUEUE BITS #
00059  M01S00002.ns2032  +++|      DEF QAC$END    #5#;            # *QAC* END OF QUEUE BITS #
00060  M01S00048.comuqqc +++|      DEF QAC$QBITS  #0#;            # *QAC* START OF QUEUE BITS #
00061  M01S00049.comuqqc +++|      DEF QBIT (I)   #B<12-I-1,1>QAC$W8Q[0]#;  # QUEUE BIT ACCESS #
00062  M01S00050.comuqqc +++|      DEF QCOUNT (I) #B<I*12,12>QAC$COUNT[0]#;  # QUEUE COUNT ACCESS #
00063  M01S00051.comuqqc +++|      DEF REPLEN     #50#;           # REPLY BUFFER LENGTH #
00064  M01S00052.comuqqc +++|      DEF SELPARL    #12#;           # SELECTION BLOCK LENGTH #
00065  M01S00053.comuqqc +++|      DEF SYNTAXOK   #0#;            # SYNTAX OK #
00066  M01S00054.comuqqc +++|      DEF TTBIT      #5#;            # *TT* BIT #
00067  M01S00055.comuqqc +++|
00068  M01S00056.comuqqc +++|#
00069  M01S00057.comuqqc +++|*     *QAC* FUNCTION AND PARAMETER BLOCK LENGTHS.
00070  M01S00058.comuqqc +++|#
00071  M01S00059.comuqqc +++|
00072  M01S00060.comuqqc +++|      DEF ALTER      #1#;            # *QAC* ALTER CODE #
00073  M01S00061.comuqqc +++|      DEF ALTERL     #12#;           # *QAC* ALTER BLOCK LENGTH #
00074  M01S00062.comuqqc +++|      DEF GET        #2#;            # *QAC* GET CODE #
00075  M01S00063.comuqqc +++|      DEF GETL       #11#;           # *QAC* GET BLOCK LENGTH #
00076  M01S00064.comuqqc +++|      DEF PEEK       #3#;            # *QAC* PEEK CODE #
00077  M01S00065.comuqqc +++|      DEF PEEKL      #11#;           # *QAC* PEEK BLOCK LENGTH #
00078  M01S00066.comuqqc +++|
00079  M01S00067.comuqqc +++|#
00080  M01S00068.comuqqc +++|*     DISPOSITION CODES TABLE.
00081  M01S00069.comuqqc +++|*
00082  M01S00070.comuqqc +++|*     THIS IS A TABLE USED TO MAP A 2 CHARACTER *DC* PARAMETER INTO
00083  M01S00071.comuqqc +++|*     *QBIT* AND *QCOUNT*.
00084  M01S00072.comuqqc +++|#
00085  M01S00073.comuqqc +++|
00086  M01S00074.comuqqc +++|      ARRAY DCITEM [0:DCNUM] S(1);
00087  M01S00075.comuqqc +++|        BEGIN
00088  M01S00076.comuqqc +++|        ITEM DCITEM$FUL C(00,00,02) =  # 2 CHARACTER VALUES #
00089  M01S00077.comuqqc +++|          ["IN","EX","PR","PU","PL","TT"];
00090  M01S00078.comuqqc +++|        ITEM DCITEM$Q    U(00,12,03) =  # OFFSET #
00091  M01S00079.comuqqc +++|          [0,1,2,3,4,5];
00092  M01S00080.comuqqc +++|        END
00093  M01S00081.comuqqc +++|
00094  M01S00082.comuqqc +++|#
00095  M01S00083.comuqqc +++|*     SCRATCH BUFFER SPACE.
00096  M01S00084.comuqqc +++|#
00097  M01S00085.comuqqc +++|
00098  M01S00086.comuqqc +++|      BASED ARRAY DUMAR [0:0] P(1);;
Line S00087 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2022
Seq #  *Modification Id* Act 
----------------------------+
00099  M02S00087.ns2022  ---|
Line S00088 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2022
Seq #  *Modification Id* Act 
----------------------------+
00100  M02S00088.ns2022  ---|#
Line S00089 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2022
Seq #  *Modification Id* Act 
----------------------------+
00101  M02S00089.ns2022  ---|*     MESSAGE BUFFER.
Line S00090 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2022
Seq #  *Modification Id* Act 
----------------------------+
00102  M02S00090.ns2022  ---|#
Line S00091 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2022
Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00091.ns2022  ---|
Line S00092 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2022
Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00092.ns2022  ---|      ARRAY MSGBUF [0:0] S(4);
Line S00093 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2022
Seq #  *Modification Id* Act 
----------------------------+
00105  M02S00093.ns2022  ---|        BEGIN
Line S00094 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2022
Seq #  *Modification Id* Act 
----------------------------+
00106  M02S00094.ns2022  ---|        ITEM MSG$LINE   C(00,00,38);  # MESSAGE LINE #
Line S00095 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2022
Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00095.ns2022  ---|        ITEM MSG$ZRO    U(03,48,12);  # ZERO BYTE TERMINATOR #
Line S00096 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2022
Seq #  *Modification Id* Act 
----------------------------+
00108  M02S00096.ns2022  ---|        END
00109  M01S00097.comuqqc +++|
00110  M01S00098.comuqqc +++|#
00111  M01S00099.comuqqc +++|*     *QAC* FUNCTION LIST.
00112  M01S00100.comuqqc +++|#
00113  M01S00101.comuqqc +++|
00114  M01S00102.comuqqc +++|      STATUS FCN
00115  M01S00103.comuqqc +++|        PEEK,                        # *PEEK* FUNCTION #
00116  M01S00104.comuqqc +++|        ALTER,                       # *ALTER* FUNCTION #
00117  M01S00105.comuqqc +++|        GET;                         # *GET* FUNCTION #
00118  M01S00106.comuqqc +++|
00119  M01S00107.comuqqc +++|      COMMON UQQCCOM;
00120  M01S00108.comuqqc +++|        BEGIN  # UQQCCOM #
00121  M01S00109.comuqqc +++|
Line S00110 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2118
Seq #  *Modification Id* Act 
----------------------------+
00122  M02S00110.ns2118  ---|      ITEM GETCALL    B;             # *QGET* CALL FLAG #
Line S00111 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2118
Seq #  *Modification Id* Act 
----------------------------+
00123  M02S00111.ns2118  ---|
Line S00112 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2118
Seq #  *Modification Id* Act 
----------------------------+
00124  M02S00112.ns2118  ---|#
Line S00113 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2118
Seq #  *Modification Id* Act 
----------------------------+
00125  M02S00113.ns2118  ---|*     ARRAY FOR JSN/UJN NOT FOUND MESSAGE.
Line S00114 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2118
Seq #  *Modification Id* Act 
----------------------------+
00126  M02S00114.ns2118  ---|#
Line S00115 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2118
Seq #  *Modification Id* Act 
----------------------------+
00127  M02S00115.ns2118  ---|
Line S00116 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2118
Seq #  *Modification Id* Act 
----------------------------+
00128  M02S00116.ns2118  ---|      ARRAY MSGFILE [0:0] S(2);
Line S00117 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2118
Seq #  *Modification Id* Act 
----------------------------+
00129  M02S00117.ns2118  ---|        BEGIN
Line S00118 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2118
Seq #  *Modification Id* Act 
----------------------------+
00130  M02S00118.ns2118  ---|        ITEM MSG$TEXT   C(00,00,15) = [" NNN NOT FOUND."];
Line S00119 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2118
Seq #  *Modification Id* Act 
----------------------------+
00131  M02S00119.ns2118  ---|        ITEM MSG$FILE   C(00,06,03);  # JSN OR UJN #
Line S00120 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2118
Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00120.ns2118  ---|        ITEM MSG$ZERO   U(01,30,12) = [0];
Line S00121 Modification History
M01 (Added by) comuqqc
M02 (Updated by) ns2118
Seq #  *Modification Id* Act 
----------------------------+
00133  M02S00121.ns2118  ---|        END
00134  M01S00002.ns2118  +++|        ITEM MSGLINE    C(80);       # DAYFILE MESSAGE LINE #
00135  M01S00002.ns2173  +++|        ITEM USRLINE    C(AJLC);     # USER DROP MESSAGE LINE #
00136  M01S00122.comuqqc +++|
00137  M01S00123.comuqqc +++|#
00138  M01S00124.comuqqc +++|*     NEXT JSN.
00139  M01S00125.comuqqc +++|#
00140  M01S00126.comuqqc +++|
00141  M01S00127.comuqqc +++|        ARRAY NEXTJSNA [0:0] S(1);
00142  M01S00128.comuqqc +++|          BEGIN
00143  M01S00129.comuqqc +++|          ITEM NEXTJSN    C(00,00,04);  # NEXT JSN #
00144  M01S00130.comuqqc +++|          ITEM NEXTJSNI   U(00,00,60);  # INTEGER FORMAT #
00145  M01S00131.comuqqc +++|          END
00146  M01S00132.comuqqc +++|
00147  M01S00133.comuqqc +++|#
00148  M01S00134.comuqqc +++|*     HOLD NEXT UJN.
00149  M01S00135.comuqqc +++|#
00150  M01S00136.comuqqc +++|
00151  M01S00137.comuqqc +++|        ARRAY NEXTUJNA [0:0] S(1);
00152  M01S00138.comuqqc +++|          BEGIN
00153  M01S00139.comuqqc +++|          ITEM NEXTUJN    C(00,00,07);  # NEXT UJN #
00154  M01S00140.comuqqc +++|          ITEM NEXTUJNI   U(00,00,60);  # INTEGER FORMAT #
00155  M01S00141.comuqqc +++|          END
00156  M01S00142.comuqqc +++|
00157  M01S00143.comuqqc +++|#
00158  M01S00144.comuqqc +++|*     *QAC* PARAMETER BLOCK.
00159  M01S00145.comuqqc +++|*
00160  M01S00146.comuqqc +++|*     NOTE - ANY CHANGES TO THIS ARRAY MAY REQUIRE CHANGES
00161  M01S00147.comuqqc +++|*            TO *COMSQAC*.
00162  M01S00148.comuqqc +++|#
00163  M01S00149.comuqqc +++|
00164  M01S00150.comuqqc +++|        ARRAY QACPARM [0:0] S(PARML);
00165  M01S00151.comuqqc +++|          BEGIN  # QACPARM #
00166  M01S00152.comuqqc +++|          ITEM QAC$W0    U(00,00,60);  # WORD 0 #
00167  M01S00153.comuqqc +++|          ITEM QAC$LFN   C(00,00,07);  # LFN #
00168  M01S00154.comuqqc +++|          ITEM QAC$ERR   U(00,42,08);  # ERROR RETURN CODE #
00169  M01S00155.comuqqc +++|          ITEM QAC$FCN   U(00,50,09);  # FUNCTION CODE #
00170  M01S00156.comuqqc +++|          ITEM QAC$COMP  B(00,59,01);  # COMPLETE BIT #
00171  M01S00157.comuqqc +++|          ITEM QAC$LEN   U(01,36,06);  # LENGTH OF *QAC* BLOCK #
00172  M01S00158.comuqqc +++|          ITEM QAC$FIRST U(01,42,18);  # FIRST POINTER #
00173  M01S00159.comuqqc +++|          ITEM QAC$IN    U(02,42,18);  # IN POINTER #
00174  M01S00160.comuqqc +++|          ITEM QAC$OUT   U(03,42,18);  # OUT POINTER #
00175  M01S00161.comuqqc +++|          ITEM QAC$W4ORD U(04,12,12);  # WORD 4 ORDINAL #
00176  M01S00162.comuqqc +++|          ITEM QAC$W4Q   U(04,24,12);  # WORD 4 QUEUE #
00177  M01S00163.comuqqc +++|          ITEM QAC$LIMIT U(04,42,18);  # FET LIMIT POINTER #
00178  M01S00164.comuqqc +++|
00179  M01S00165.comuqqc +++|
00180  M01S00166.comuqqc +++|#
00181  M01S00167.comuqqc +++|*     SELECTION CRITERIA PORTION (WORDS 5 - 11).
00182  M01S00168.comuqqc +++|#
00183  M01S00169.comuqqc +++|
00184  M01S00170.comuqqc +++|
00185  M01S00171.comuqqc +++|          ITEM QAC$JSN    C(07,00,04);  # JSN #
00186  M01S00001.ns21000 +++|          ITEM QAC$LID    B(07,45,01);  # LID SELECTION #
00187  M01S00172.comuqqc +++|          ITEM QAC$SETJS  B(07,53,01);  # JSN SELECTION  #
00188  M01S00001.ns2003  +++|          ITEM QAC$PRI    B(07,57,01);  # PRIORITY #
00189  M01S00173.comuqqc +++|          ITEM QAC$W8Q    U(08,00,12);  # QUEUE SELECTION BITS #
00190  M01S00174.comuqqc +++|          ITEM QAC$DISP   C(08,24,02);  # DISPOSITION CODE #
00191  M01S00002.ns21000 +++|          ITEM QAC$LIDC   C(09,18,03);  # LID #
00192  M01S00175.comuqqc +++|
00193  M01S00176.comuqqc +++|#
00194  M01S00177.comuqqc +++|*     *PEEK* FUNCTION PORTION (WORDS 12 - 15).
00195  M01S00178.comuqqc +++|#
00196  M01S00179.comuqqc +++|
00197  M01S00180.comuqqc +++|          ITEM QAC$COUNT  U(12,00,60);  # QUEUE COUNTS #
00198  M01S00003.ns2173  +++|          ITEM QAC$EXCNT  U(12,12,12);  # EXECUTING QUEUE COUNT #
00199  M01S00181.comuqqc +++|          ITEM QAC$PEEKJS B(14,58,01);  # GET JSN #
00200  M01S00004.ns2173  +++|          ITEM QAC$PKFOUI B(14,51,01);  # GET FO AND UI #
00201  M01S00182.comuqqc +++|          ITEM QAC$PEEKUJ B(14,50,01);  # GET UJN #
00202  M01S00183.comuqqc +++|          ITEM QAC$TTCNT  U(13,00,12);  # *TT* COUNT #
00203  M01S00184.comuqqc +++|
00204  M01S00185.comuqqc +++|#
00205  M01S00186.comuqqc +++|*     *ALTER* FUNCTION PORTION (WORDS 12 - 16).
00206  M01S00187.comuqqc +++|#
00207  M01S00188.comuqqc +++|
00208  M01S00003.ns2118  +++|          ITEM QAC$KILL   B(12,41,01);  # KILL (SINGLE REPRIEVE) FLAG #
00209  M01S00003.ns21000 +++|          ITEM QAC$SETLD  B(12,42,01);  # SET NEW LID FLAG #
00210  M01S00004.ns2118  +++|          ITEM QAC$MSGA   B(12,44,01);  # MESSAGE AVAILABLE ON ABORT #
00211  M01S00189.comuqqc +++|          ITEM QAC$DROP   B(12,50,01);  # DROP FILE SELECTION FLAG #
00212  M01S00004.ns21000 +++|          ITEM QAC$NWLD   U(13,41,18);  # NEW LID #
00213  M01S00190.comuqqc +++|          END  # QACPARM #
00214  M01S00191.comuqqc +++|
00215  M01S00192.comuqqc +++|#
00216  M01S00193.comuqqc +++|*     *QAC* *PEEK* REPLY ENTRY.
00217  M01S00194.comuqqc +++|#
00218  M01S00195.comuqqc +++|
00219  M01S00196.comuqqc +++|        BASED ARRAY QACREP [0:0] S(QACRETL);
00220  M01S00197.comuqqc +++|          BEGIN
00221  M01S00198.comuqqc +++|          ITEM QACREP$JSN C(00,00,04);  # RETURN JSN #
00222  M01S00199.comuqqc +++|          ITEM QACREP$UJN C(01,00,07);  # RETURN UJN #
00223  M01S00200.comuqqc +++|          END
00224  M01S00201.comuqqc +++|
00225  M01S00202.comuqqc +++|
00226  M01S00203.comuqqc +++|#
00227  M01S00204.comuqqc +++|*     RETURNED JSN.
00228  M01S00205.comuqqc +++|#
00229  M01S00206.comuqqc +++|
00230  M01S00207.comuqqc +++|        ARRAY RETJSNA [0:0] S(1);
00231  M01S00208.comuqqc +++|          BEGIN
00232  M01S00209.comuqqc +++|          ITEM RETJSN     C(00,00,04);  # RETURNED JSN #
00233  M01S00210.comuqqc +++|          ITEM RETJSNI    U(00,00,60);  # INTEGER FORMAT #
00234  M01S00211.comuqqc +++|          END
00235  M01S00212.comuqqc +++|
00236  M01S00213.comuqqc +++|        END  # UQQCCOM #
00237  M01S00214.comuqqc +++|
00238  M01S00215.comuqqc +++|      END  # COMUQQC #
00239  M01S00216.comuqqc +++|                                               CONTROL LIST;
cdc/nos2.source/opl.opl871/common/comuqqc.txt · Last modified: by 127.0.0.1