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