User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:0qm

Deck 0QM

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.0qm     +++|          IDENT  0QM,IQMX
00002  M01S00002.0qm     +++|          PERIPH J
00003  M01S00003.0qm     +++|          BASE   MIXED
00004  M01S00004.0qm     +++|          SST
00005  M01S00005.0qm     +++|*COMMENT  0QM - ISSUE QUEUE FILE ACCOUNTING MESSAGE.
Line S00006 Modification History
M01 (Added by) 0qm
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1988.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.0qm     +++|          TITLE  0QM - ISSUE QUEUE FILE ACCOUNTING MESSAGE.
00009  M01S00008.0qm     +++|          SPACE  4,10
00010  M01S00009.0qm     +++|***       0QM - ISSUE QUEUE FILE ACCOUNTING MESSAGE.
00011  M01S00010.0qm     +++|*
00012  M01S00011.0qm     +++|*         P. D. HAAS.        81/06/18.
00013  M01S00012.0qm     +++|*         G. S. YODER.       88/09/21.
00014  M01S00013.0qm     +++|          SPACE  4,10
00015  M01S00014.0qm     +++|***       0QM GENERATES *ABLQ*, *ARRQ*, AND *AEQP* ACCOUNT DAYFILE
00016  M01S00015.0qm     +++|*         MESSAGES FOR FILES ENTERING, REENTERING, AND LEAVING THE QFT.
00017  M01S00016.0qm     +++|          SPACE  4,10
00018  M01S00017.0qm     +++|***       ENTRY CONDITIONS.
00019  M01S00018.0qm     +++|*
00020  M01S00019.0qm     +++|*         (LA-2 - LA-1) = ACCOUNT FILE MESSAGE IDENTIFIER (*ABLQ*,
00021  M01S00020.0qm     +++|*                         *ARRQ* OR *AEQP*).
00022  M01S00021.0qm     +++|*         QUEUE FILE SYSTEM SECTOR IN *BFMS*.
00023  M01S00022.0qm     +++|          SPACE  4,10
00024  M01S00023.0qm     +++|***       EXIT CONDITIONS.
00025  M01S00024.0qm     +++|*
00026  M01S00025.0qm     +++|*         (A) = 0.
00027  M01S00026.0qm     +++|*         MESSAGE ISSUED TO ACCOUNT DAYFILE.
00028  M01S00027.0qm     +++|          SPACE  4,10
00029  M01S00028.0qm     +++|***       USES.
00030  M01S00029.0qm     +++|*
00031  M01S00030.0qm     +++|*         USES   CM - CM+4, T1 - T3.
00032  M01S00031.0qm     +++|          SPACE  4,40
00033  M01S00032.0qm     +++|***       ACCOUNT DAYFILE MESSAGES.
00034  M01S00033.0qm     +++|*
00035  M01S00034.0qm     +++|*
00036  M01S00035.0qm     +++|*         *ABLQ, C1, JSN, YYMMDD, HHMMSS, DC.*
00037  M01S00036.0qm     +++|*         *ABLQ, C2, XXXXXX.XXXKUNS, SC.*
00038  M01S00037.0qm     +++|*                JSN = JOB SEQUENCE NAME.
00039  M01S00038.0qm     +++|*                YYMMDD = DATE OF ENTRY.
00040  M01S00039.0qm     +++|*                HHMMSS = TIME OF ENTRY.
00041  M01S00040.0qm     +++|*                DC = DISPOSITION CODE.
00042  M01S00041.0qm     +++|*                XXXXXX.XXX = FILE SIZE IN SECTORS.
00043  M01S00042.0qm     +++|*                SC = SERVICE CLASS.
00044  M01S00043.0qm     +++|*                FILE ENTERED IN QUEUE.  THE *JSN*, *YYMMDD*, AND
00045  M01S00044.0qm     +++|*                  *HHMMSS*, FIELDS WILL MATCH THE CORRESPONDING FIELDS
00046  M01S00045.0qm     +++|*                  IN SUBSEQUENT *ARRQ* AND *AEQP* MESSAGES ISSUED FOR
00047  M01S00046.0qm     +++|*                  THE FILE.
00048  M01S00047.0qm     +++|*
00049  M01S00048.0qm     +++|*         *ARRQ, C1, JSN, YYMMDD, HHMMSS, DC.*
00050  M01S00049.0qm     +++|*         *ARRQ, C2, XXXXXX.XXXKUNS, SC.*
00051  M01S00050.0qm     +++|*                JSN = ORIGINAL JOB SEQUENCE NAME.
00052  M01S00051.0qm     +++|*                YYMMDD = DATE OF ORIGINAL ENTRY IN QUEUE.
00053  M01S00052.0qm     +++|*                HHMMSS = TIME OF ORIGINAL ENTRY IN QUEUE.
00054  M01S00053.0qm     +++|*                DC = DISPOSITION CODE.
00055  M01S00054.0qm     +++|*                XXXXXX.XXX = FILE SIZE IN SECTORS.
00056  M01S00055.0qm     +++|*                SC = SERVICE CLASS.
00057  M01S00056.0qm     +++|*                FILE REENTERED IN ACTIVE QUEUE AFTER REMOVAL.  THE
00058  M01S00057.0qm     +++|*                 *JSN*, *YYMMDD*, AND *HHMMSS* FIELDS WILL MATCH THE
00059  M01S00058.0qm     +++|*                 CORRESPONDING FIELDS IN THE ORIGINAL *ABLQ* MESSAGE
00060  M01S00059.0qm     +++|*                 ISSUED FOR THE FILE.
00061  M01S00060.0qm     +++|*
00062  M01S00061.0qm     +++|*         *AEQP, C1, JSN, YYMMDD, HHMMSS, DC.*
00063  M01S00062.0qm     +++|*         *AEQP, C2, XXXXXX.XXXKUNS, SC.*
00064  M01S00063.0qm     +++|*                JSN = ORIGINAL JOB SEQUENCE NAME.
00065  M01S00064.0qm     +++|*                YYMMDD = DATE OF ORIGINAL ENTRY IN QUEUE.
00066  M01S00065.0qm     +++|*                HHMMSS = TIME OF ORIGINAL ENTRY IN QUEUE.
00067  M01S00066.0qm     +++|*                DC = DISPOSITION CODE.
00068  M01S00067.0qm     +++|*                XXXXXX.XXX = FILE SIZE IN SECTORS.
00069  M01S00068.0qm     +++|*                SC = SERVICE CLASS.
00070  M01S00069.0qm     +++|*                FILE REMOVED FROM QUEUE.  THE *JSN*, *YYMMDD*, AND
00071  M01S00070.0qm     +++|*                  *HHMMSS* FIELDS WILL MATCH THE CORRESPONDING FIELDS
00072  M01S00071.0qm     +++|*                  IN THE ORIGINAL *ABLQ* MESSAGE ISSUED FOR THE FILE.
00073  M01S00072.0qm     +++|          SPACE  4,10
00074  M01S00073.0qm     +++|**        COMMON DECKS.
00075  M01S00074.0qm     +++|
00076  M01S00075.0qm     +++|
00077  M01S00076.0qm     +++|*CALL     COMPMAC
00078  M01S00077.0qm     +++|*CALL     COMPREL
00079  M01S00078.0qm     +++|*CALL     COMSSCD
00080  M01S00079.0qm     +++|*CALL     COMSSSE
00081  M01S00080.0qm     +++|*CALL     COMSZOL
00082  M01S00081.0qm     +++|          TITLE  MAIN ROUTINE.
00083  M01S00082.0qm     +++|**        IQM - MAIN ROUTINE.
00084  M01S00083.0qm     +++|
00085  M01S00084.0qm     +++|
00086  M01S00085.0qm     +++|          ORG    5
00087  M01S00086.0qm     +++| IQM      SUBR               ENTRY/EXIT
00088  M01S00087.0qm     +++|          LDM    -1          SET ACCOUNT FILE MESSAGE IDENTIFIER
00089  M01S00088.0qm     +++|          STM    MC1B+1
00090  M01S00089.0qm     +++|          STM    MC2B+1
00091  M01S00090.0qm     +++|          LDM    -2
00092  M01S00091.0qm     +++|          STM    MC1B
00093  M01S00092.0qm     +++|          STM    MC2B
00094  M01S00093.0qm     +++|
00095  M01S00094.0qm     +++|*         SET MESSAGE HEADER JSN AND SERVICE CLASS.
00096  M01S00095.0qm     +++|
00097  M01S00096.0qm     +++|          LMC    2RAB
00098  M01S00097.0qm     +++|          SHN    14
00099  M01S00098.0qm     +++|          NJN    IQM1        IF NOT *ABLQ* MESSAGE
00100  M01S00099.0qm     +++|          LDK    CJSS-IOSS   USE QUEUE FILE JSN
00101  M01S00100.0qm     +++| IQM1     STD    T1
00102  M01S00101.0qm     +++|          LDM.   IOSS,T1     SET CREATING JOB OR QUEUE FILE JSN
00103  M01S00102.0qm     +++|          STM    MC1A
00104  M01S00103.0qm     +++|          STM    MC2A
00105  M01S00104.0qm     +++|          LDM.   IOSS+1,T1
00106  M01S00105.0qm     +++|          STM    MC1A+1
00107  M01S00106.0qm     +++|          STM    MC2A+1
00108  M01S00107.0qm     +++|          LDD    T1
00109  M01S00108.0qm     +++|          ZJN    IQM2        IF NOT *ABLQ* MESSAGE
00110  M01S00109.0qm     +++|          LDD    CP          USE SERVICE CLASS OF CURRENT JOB
00111  M01S00110.0qm     +++|          ADK    TFSW
00112  M01S00111.0qm     +++|          CRD    CM
00113  M01S00112.0qm     +++|          CFI    EJT,CM
00114  M01S00113.0qm     +++|          STD    T1
00115  M01S00114.0qm     +++|          LDK    EJTP
00116  M01S00115.0qm     +++|          CRD    CM
00117  M01S00116.0qm     +++|          LDD    CM
00118  M01S00117.0qm     +++|          SHN    14
00119  M01S00118.0qm     +++|          LMD    CM+1
00120  M01S00119.0qm     +++|          ADD    T1
00121  M01S00120.0qm     +++|          ADK    SCLE
00122  M01S00121.0qm     +++|          CRD    CM
00123  M01S00122.0qm     +++|          LDD    CM
00124  M01S00123.0qm     +++|          UJN    IQM3        SET SERVICE CLASS IN MESSAGE HEADER
00125  M01S00124.0qm     +++|
00126  M01S00125.0qm     +++| IQM2     LDM.   IOSS+SCLQ*5+0  USE SERVICE CLASS OF QUEUED FILE
00127  M01S00126.0qm     +++| IQM3     SHN    -6
00128  M01S00127.0qm     +++|          STM    MC1A+4
00129  M01S00128.0qm     +++|          STM    MC2A+4
00130  M01S00129.0qm     +++|
00131  M01S00130.0qm     +++|*         SET ORIGINAL JSN, SERVICE CLASS, AND DISPOSITION CODE.
00132  M01S00131.0qm     +++|
00133  M01S00132.0qm     +++|          LDM.   OJSS        SET ORIGINAL JSN
00134  M01S00133.0qm     +++|          STM    MC1C
00135  M01S00134.0qm     +++|          LDM.   OJSS+1
00136  M01S00135.0qm     +++|          STM    MC1C+1
00137  M01S00136.0qm     +++|          LDM.   IOSS+SCLQ*5+0  SET SERVICE CLASS
00138  M01S00137.0qm     +++|          SHN    -6
00139  M01S00138.0qm     +++|          ADD    LA
00140  M01S00139.0qm     +++|          STD    T1
00141  M01S00140.0qm     +++|          LDM.   TOSC,T1
00142  M01S00141.0qm     +++|          STM    MC2D
00143  M01S00142.0qm     +++|          LDM.   DCSS        SET DISPOSITION CODE
00144  M01S00143.0qm     +++|          STM    MC1E
00145  M01S00144.0qm     +++|
00146  M01S00145.0qm     +++|*         SET FILE LENGTH.
00147  M01S00146.0qm     +++|
00148  M01S00147.0qm     +++|          LDD    LA          RELOCATE FILE LENGTH READ
00149  M01S00148.0qm     +++|          RAM    IQMA
00150  M01S00149.0qm     +++|          LDN    ZERL        SET UP CONVERSION REQUEST
00151  M01S00150.0qm     +++|          CRD    CM
00152  M01S00151.0qm     +++|          LDM.   FLSS
00153  M01S00152.0qm     +++|          STD    CM+3
00154  M01S00153.0qm     +++|          LDM.   FLSS+1
00155  M01S00154.0qm     +++|          STD    CM+4
00156  M01S00001.0qm1    +++|          ADD    CM+3
00157  M01S00002.0qm1    +++|          ZJN    IQM3.1      IF ZERO LENGTH FILE
00158  M01S00155.0qm     +++|          LDD    MA
00159  M01S00156.0qm     +++|          CWD    CM
00160  M01S00157.0qm     +++|          MONITOR  RDCM      CONVERT FILE LENGTH
00161  M01S00158.0qm     +++|          LDD    MA          SET FILE LENGTH IN MESSAGE
00162  M01S00159.0qm     +++|          CRM.   MC2C,ON
00163  M01S00160.0qm     +++| IQMA     EQU    *-1
00164  M01S00161.0qm     +++|
00165  M01S00162.0qm     +++|*         SET CREATION DATE AND TIME.
00166  M01S00163.0qm     +++|
Line S00164 Modification History
M01 (Added by) 0qm
M02 (Updated by) 0qm1
Seq #  *Modification Id* Act 
----------------------------+
00167  M02S00164.0qm1    ---|          LDN    3           SET LOOP INDEX
00168  M01S00003.0qm1    +++| IQM3.1   LDN    3           SET LOOP INDEX
00169  M01S00165.0qm     +++|          STD    T3
00170  M01S00166.0qm     +++|          LDC    CDSS+2      SET ADDRESS OF DATE AND TIME GROUP
00171  M01S00167.0qm     +++|          STD    T1
00172  M01S00168.0qm     +++|          LDC    MC1D        SET DESTINATION ADDRESS
00173  M01S00169.0qm     +++|          ADD    LA
00174  M01S00170.0qm     +++|          STD    T2
00175  M01S00171.0qm     +++| IQM4     LDI    T1          CONVERT DATE AND TIME
00176  M01S00172.0qm     +++|          SHN    -6
00177  M01S00173.0qm     +++|          STD    CM          SAVE VALUE
00178  M01S00174.0qm     +++|          LDD    T3          CHECK PROCESSING POINT
00179  M01S00175.0qm     +++|          SBN    3
00180  M01S00176.0qm     +++|          NJN    IQM5        IF NOT PROCESSING PACKED YEAR
00181  M01S00001.ns2786  +++|          LDD    CM
00182  M01S00002.ns2786  +++|          SBN    30D         BIAS FOR YEARS .GE. 2000
00183  M01S00003.ns2786  +++|          PJN    IQM5.1      IF YEAR IS .GE. 2000
00184  M01S00177.0qm     +++|          LDC    70D         BIAS YEAR BY 1970
00185  M01S00178.0qm     +++|          RAD    CM
00186  M01S00179.0qm     +++| IQM5     LDD    CM          CONVERT TO DISPLAY CODE
Line S00180 Modification History
M01 (Added by) 0qm
M02 (Updated by) ns2786
Seq #  *Modification Id* Act 
----------------------------+
00187  M02S00180.ns2786  ---|          RJM    CDD
00188  M01S00004.ns2786  +++| IQM5.1   RJM    CDD
00189  M01S00181.0qm     +++|          STI    T2
00190  M01S00182.0qm     +++|          AOD    T2          ADVANCE MESSAGE ADDRESS
00191  M01S00183.0qm     +++|          LDD    T3
00192  M01S00184.0qm     +++|          SBN    2
00193  M01S00185.0qm     +++|          NJN    IQM6        IF TIME VALUE NOT REACHED
00194  M01S00186.0qm     +++|          AOD    T2
00195  M01S00187.0qm     +++| IQM6     LDI    T1          CONVERT TO DISPLAY CODE
00196  M01S00188.0qm     +++|          LPN    77
00197  M01S00189.0qm     +++|          RJM    CDD
00198  M01S00190.0qm     +++|          STI    T2
00199  M01S00191.0qm     +++|          AOD    T1          ADVANCE SYSTEM SECTOR ADDRESS
00200  M01S00192.0qm     +++|          AOD    T2
00201  M01S00193.0qm     +++|          SOD    T3
00202  M01S00194.0qm     +++|          NJN    IQM4        IF CONVERSION NOT COMPLETE
00203  M01S00195.0qm     +++|
00204  M01S00196.0qm     +++|*         ISSUE MESSAGES TO ACCOUNT FILE.
00205  M01S00197.0qm     +++|
00206  M01S00198.0qm     +++|          LDC    AJNN+MC1A
00207  M01S00199.0qm     +++|          ADD    LA
00208  M01S00200.0qm     +++|          RJM.   DFM         ISSUE *C1* MESSAGE
00209  M01S00201.0qm     +++|          LDC    AJNN+MC2A
00210  M01S00202.0qm     +++|          ADD    LA
00211  M01S00203.0qm     +++|          RJM.   DFM         ISSUE *C2* MESSAGE
00212  M01S00204.0qm     +++|*         LDN    0
00213  M01S00205.0qm     +++|          LJM    IQMX        RETURN
00214  M01S00206.0qm     +++|          SPACE  4,10
00215  M01S00207.0qm     +++|**        DATA   AREA.
00216  M01S00208.0qm     +++|
00217  M01S00209.0qm     +++|
00218  M01S00210.0qm     +++|*         *C1* MESSAGE.
00219  M01S00211.0qm     +++|
00220  M01S00212.0qm     +++| MC1A     DATA   10HJSNC
00221  M01S00213.0qm     +++| MC1B     DATA   H*AXXX, C1,*
00222  M01S00214.0qm     +++| MC1C     DATA   H*JSNO,*
00223  M01S00215.0qm     +++| MC1D     DATA   H*YYMMDD, HHMMSS,*
00224  M01S00216.0qm     +++| MC1E     DATA   C*DC.*
00225  M01S00217.0qm     +++|
00226  M01S00218.0qm     +++|*         *C2* MESSAGE.
00227  M01S00219.0qm     +++|
00228  M01S00220.0qm     +++| MC2A     DATA   10HJSNC
00229  M01S00221.0qm     +++| MC2B     DATA   H*AXXX, C2,*
Line S00222 Modification History
M01 (Added by) 0qm
M02 (Updated by) 0qm1
Seq #  *Modification Id* Act 
----------------------------+
00230  M02S00222.0qm1    ---| MC2C     DATA   H*000000.000KUNS, *
00231  M01S00004.0qm1    +++| MC2C     DATA   H*     0.000KUNS, *
00232  M01S00223.0qm     +++| MC2D     DATA   C*SC.*
00233  M01S00224.0qm     +++|
00234  M01S00225.0qm     +++|*         TABLE OF SERVICE CLASS CODES.
00235  M01S00226.0qm     +++|
00236  M01S00227.0qm     +++| TOSC     BSS    0
00237  M01S00228.0qm     +++|          DATA   H+"NMSC"+
00238  M01S00229.0qm     +++|          SPACE  4,10
00239  M01S00230.0qm     +++|**        COMMON DECKS.
00240  M01S00231.0qm     +++|
00241  M01S00232.0qm     +++|
00242  M01S00233.0qm     +++|*CALL     COMPCDD
00243  M01S00234.0qm     +++|
00244  M01S00235.0qm     +++|
00245  M01S00236.0qm     +++|          RSTR
00246  M01S00237.0qm     +++|          SPACE  4,10
00247  M01S00238.0qm     +++|          ERRNG     ZQML-*   BYTES WHICH CAN BE ADDED TO *0QM*
00248  M01S00239.0qm     +++|          SPACE  4,10
00249  M01S00240.0qm     +++|          END
cdc/nos2.source/opl.opl871/deck/0qm.txt ยท Last modified: by 127.0.0.1