cdc:nos2.source:opl.opl871:deck:class
Deck CLASS
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.class +++| IDENT CLASS,FWA,CLASS 00002 M00S00002.class +++| ABS 00003 M00S00003.class +++| SST 00004 M00S00004.class +++| ENTRY CLASS 00005 M00S00005.class +++| ENTRY SSJ= 00006 M00S00006.class +++| ENTRY RFL= 00007 M00S00007.class +++| SYSCOM B1 00008 M00S00008.class +++| TITLE CLASS - CHANGE USER SERVICE CLASS. 00009 M00S00009.class +++|*COMMENT CLASS - CHANGE USER SERVICE CLASS.
| Line S00010 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00010.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1982.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00012 M00S00011.class +++| SPACE 4,10 00013 M00S00012.class +++|*** CLASS - CHANGE USER SERVICE CLASS. 00014 M00S00013.class +++|* 00015 M00S00014.class +++|* W. T. COLEMAN. 82/08/09. 00016 M00S00015.class +++| SPACE 4,10 00017 M00S00016.class +++|*** *CLASS* PERMITS THE SERVICE CLASS OF THE JOB TO BE 00018 M00S00017.class +++|* CHANGED AT ANY TIME DURING A TERMINAL SESSION OR BY 00019 M00S00018.class +++|* USING THE *CLASS* COMMAND WITHIN A BATCH JOB. THIS 00020 M00S00019.class +++|* COMMAND ALSO ALLOWS THE SERVICE CLASS OF ANY BATCH JOB 00021 M00S00020.class +++|* UNDER THE CALLING USER-S CONTROL TO BE CHANGED. THIS 00022 M00S00021.class +++|* COMMAND ALLOWS INQUIRY OF AVAILABLE SERVICE CLASSES. 00023 M00S00022.class +++|* IT WILL ACCEPT PARAMETERS FROM THE *CLASS* COMMAND 00024 M00S00023.class +++|* INPUT FROM THE FILE *INPUT*, AND SEND OUTPUT TO THE 00025 M00S00024.class +++|* USER VIA FILE *OUTPUT* OR A SPECIFIED OUTPUT FILE. 00026 M00S00025.class +++| SPACE 4,10 00027 M00S00026.class +++|*** *CLASS* COMMAND. 00028 M00S00027.class +++|* 00029 M00S00028.class +++|* CLASS,SC,OT,LFN,A. 00030 M00S00029.class +++|* 00031 M00S00030.class +++|* CLASS,SC=SC,OT=OT,L=LFN,OP=A. 00032 M00S00031.class +++|* 00033 M00S00032.class +++|* CLASS,SC,,,,JSN. 00034 M00S00033.class +++|* 00035 M00S00034.class +++|* CLASS,SC,JSN=JSN. 00036 M00S00035.class +++|* 00037 M00S00036.class +++|* CLASS,SC=SC,JSN=JSN. 00038 M00S00037.class +++|* 00039 M00S00038.class +++|* *CLASS* CONTROL STATEMENT PARAMETERS ARE DEFINED 00040 M00S00039.class +++|* AS FOLLOWS. 00041 M00S00040.class +++|* 00042 M00S00041.class +++|* SC TWO CHARACTER SERVICE CLASS SYMBOL OF DESIRED 00043 M00S00042.class +++|* SERVICE CLASS OR NULL. IF THIS PARAMETER IS 00044 M00S00043.class +++|* NOT SPECIFIED, AND THE COMMAND HAS BEEN ISSUED 00045 M00S00044.class +++|* FROM AN TIMESHARING USER WHOSE INPUT/OUTPUT 00046 M00S00045.class +++|* FILES ARE ASSIGNED TO THEIR TERMINAL, AND NO 00047 M00S00046.class +++|* ORIGIN (*OT* PARAMETER) HAS BEEN SPECIFIED THEN 00048 M00S00047.class +++|* A TERMINAL DISPLAY IS GENERATED FOR THE USER TO 00049 M00S00048.class +++|* SELECT A SERVICE CLASS. AN ALTERNATE OUTPUT 00050 M00S00049.class +++|* FILE CAN BE SPECIFIED FOR THE DISPLAY IF NO 00051 M00S00050.class +++|* SERVICE CLASS IS PRESENT. THIS PARAMETER HAS 00052 M00S00051.class +++|* NO DEFAULT AND IS REQUIRED IF THE *JSN* 00053 M00S00052.class +++|* PARAMETER IS SPECIFIED. THE SELECTED 00054 M00S00053.class +++|* SERVICE CLASS MUST BE DEFINED AND VALIDATED FOR 00055 M00S00054.class +++|* USE. THE DEFINED SERVICE CLASSES ARE: 00056 M00S00055.class +++|* SY - SYSTEM, 00057 M00S00056.class +++|* BC - BATCH, 00058 M00S00057.class +++|* RB - REMOTE BATCH, 00059 M00S00058.class +++|* TS - INTERACTIVE, 00060 M00S00059.class +++|* DI - DETACHED INTERACTIVE, 00061 M00S00060.class +++|* NS - NETWORK SUPERVISOR, 00062 M00S00061.class +++|* SS - SUBSYSTEM, 00063 M00S00062.class +++|* MA - MAINTENANCE, 00064 M00S00063.class +++|* CT - COMMUNCATION TASK, 00065 M00S00064.class +++|* I0 - INSTALLATION CLASS 0, 00066 M00S00065.class +++|* I1 - INSTALLATION CLASS 1, 00067 M00S00066.class +++|* I2 - INSTALLATION CLASS 2, 00068 M00S00067.class +++|* I3 - INSTALLATION CLASS 3. 00069 M00S00068.class +++|* 00070 M00S00069.class +++|* OT ORIGIN TYPE TO INSPECT FOR ACCESSABLE SERVICE 00071 M00S00070.class +++|* CLASS(S). DEFAULT TO JOBS CURRENT ORIGIN TYPE. 00072 M00S00071.class +++|* THIS PARAMETER IS IGNORED IF A SERVICE CLASS 00073 M00S00072.class +++|* (*SC* PARAMETER) IS SPECIFIED. THE POSSIBLE 00074 M00S00073.class +++|* ORIGIN TYPES ARE: 00075 M00S00074.class +++|* SY - SYSTEM ORIGIN, 00076 M00S00075.class +++|* BC - BATCH ORIGIN, 00077 M00S00076.class +++|* RB - REMOTE BATCH ORIGIN, 00078 M00S00077.class +++|* EI - REMOTE BATCH ORIGIN, 00079 M00S00078.class +++|* TX - INTERACTIVE, 00080 M00S00079.class +++|* IA - INTERACTIVE. 00081 M00S00080.class +++|* 00082 M00S00081.class +++|* L LISTING IS PLACED ON SPECIFIED FILE. THIS 00083 M00S00082.class +++|* PARAMETER IS IGNORED IF A SERVICE CLASS 00084 M00S00083.class +++|* (*SC* PARAMETER) IS PRESENT. IF THE SPECIFIED 00085 M00S00084.class +++|* FILE IS ASIGNED TO THE TERMINAL (TYPE *TT*) 00086 M00S00085.class +++|* THEN PROMPTING WILL OCCUR. THE DEFAULT FILE 00087 M00S00086.class +++|* WILL OCCUR. DEFAULT FILE IS *OUTPUT*. 00088 M00S00087.class +++|* 00089 M00S00088.class +++|* OP ABORT OPTION INDICATING WHETHER THE JOB SHOULD 00090 M00S00089.class +++|* ABORT OR END IF AN ERROR IN PROCESSING IS 00091 M00S00090.class +++|* ENCOUNTERED. THIS IS AN OPTIONAL PARAMETER. 00092 M00S00091.class +++|* THE ABORT OPTION CAN BE SPECIFIED POSTIONALLY 00093 M00S00092.class +++|* *A* OR ORDER INDEPENDENTLY BY *OP=A*. 00094 M00S00093.class +++|* 00095 M00S00094.class +++|* JSN JOB SEQUENCE NAME OF THE JOB WHOSE SERVICE 00096 M00S00095.class +++|* CLASS IS TO BE CHANGED IF NOT THE CURRENT JOB. 00097 M00S00096.class +++| SPACE 4,10 00098 M00S00097.class +++|*** OUTPUT MESSAGES. 00099 M00S00098.class +++|* 00100 M00S00099.class +++|* * CANNOT CHANGE CLASS OF ON-LINE JOB.* 00101 M00S00100.class +++|* THE SERVICE CLASS OF ANOTHER ON-LINE JOB CANNOT BE 00102 M00S00101.class +++|* CHANGED. 00103 M00S00102.class +++|* 00104 M00S00103.class +++|* * CANNOT CHANGE CLASS OF SUBSYSTEM.* 00105 M00S00104.class +++|* THE SERVICE CLASS OF A JOB THAT IS EXECUTING AT 00106 M00S00105.class +++|* THE SUBSYSTEM SERVICE CLASS CANNOT BE CHANGED. 00107 M00S00106.class +++|* 00108 M00S00107.class +++|* * CLASS ARGUMENT ERROR.* 00109 M00S00108.class +++|* INCORRECT *CLASS* ARGUMENT ON COMMAND. 00110 M00S00109.class +++|* 00111 M00S00110.class +++|* * CLASS COMPLETE.* 00112 M00S00111.class +++|* THE *CLASS* CONTROL STATEMENT COMPLETED PROCESSING. 00113 M00S00112.class +++|* 00114 M00S00113.class +++|* * INCORRECT JSN ARGUMENT.* 00115 M00S00114.class +++|* THE JSN IS EITHER NOT FOUR CHARACTERS LONG OR IT 00116 M00S00115.class +++|* CONTAINS NON-ALPHANUMERIC CHARACTERS. 00117 M00S00116.class +++|* 00118 M00S00117.class +++|* * INCORRECT OPTION ARGUMENT.* 00119 M00S00118.class +++|* INCORRECT OPTION ARGUMENT ON COMMAND. 00120 M00S00119.class +++|* 00121 M00S00120.class +++|* * INCORRECT OUTPUT FILENAME.* 00122 M00S00121.class +++|* SPECIFIED OUTPUT FILENAME ARGUMENT IS INCORRECT. 00123 M00S00122.class +++|* THE FILENAME IS EITHER TOO LONG (GREATER THAN 00124 M00S00123.class +++|* SEVEN CHARATERS) OR IT CONTAINS NON-ALPHANUMERIC 00125 M00S00124.class +++|* CHARACTERS. 00126 M00S00125.class +++|* 00127 M00S00126.class +++|* * INCORRECT SERVICE CLASS.* 00128 M00S00127.class +++|* THE TWO CHARACTER SERVICE CLASS WAS NOT VALID FOR 00129 M00S00128.class +++|* THE USER OR NOT VALID FOR THE CURRENT ORIGIN TYPE 00130 M00S00129.class +++|* OF THE USER. 00131 M00S00130.class +++|* 00132 M00S00131.class +++|* * JOB ALREADY WAITING ON SERVICE CLASS.* 00133 M00S00132.class +++|* THE SERVICE CLASS CHANGE CANNOT BE MADE BECAUSE THE 00134 M00S00133.class +++|* JOB IS WAITING FOR A *CLASS* COMMAND IN THE JOB TO 00135 M00S00134.class +++|* COMPLETE. 00136 M00S00135.class +++|* 00137 M00S00136.class +++|* * JSN NOT FOUND.* 00138 M00S00137.class +++|* THE JSN SPECIFIED IS NOT IN THE SYSTEM OR DOES NOT 00139 M00S00138.class +++|* BELONG TO THE CALLING USER. 00140 M00S00139.class +++|* 00141 M00S00140.class +++|* * SC ONLY PARAMTER VALID WITH JSN.* 00142 M00S00141.class +++|* THE *OT*, *L* AND *OP* PARAMETERS ARE NOT ALLOWED 00143 M00S00142.class +++|* WHEN THE *JSN* PARAMETER IS SPECIFIED. 00144 M00S00143.class +++|* 00145 M00S00144.class +++|* * SERVICE CLASS FULL.* 00146 M00S00145.class +++|* INFORMATIVE MESSAGE INDICATING THE SERVICE CLASS 00147 M00S00146.class +++|* CHANGE CANNOT BE MADE BECAUSE THE NUMBER OF JOBS 00148 M00S00147.class +++|* WITH THAT CLASS IS ALREADY AT THE SERVICE LIMIT. 00149 M00S00148.class +++|* 00150 M00S00149.class +++|* * SERVICE CLASS REQUIRED WITH JSN.* 00151 M00S00150.class +++|* THE *SC* PARAMETER MUST BE SPECIFIED WHEN THE *JSN* 00152 M00S00151.class +++|* PARAMETER IS SPECIFIED. 00153 M00S00152.class +++|* 00154 M00S00153.class +++|* * UNDEFINED ORIGIN TYPE.* 00155 M00S00154.class +++|* ORIGIN TYPE ARGUMENT IS NOT DEFINED. 00156 M00S00155.class +++|* 00157 M00S00156.class +++|* * UNDEFINED SERVICE CLASS.* 00158 M00S00157.class +++|* SERVICE CLASS MNEMONIC IS NOT DEFINED. 00159 M00S00158.class +++|* 00160 M00S00159.class +++|* * WAITING FOR SERVICE CLASS CHANGE TO SC.* 00161 M00S00160.class +++|* A BATCH JOB IS WAITING FOR AN AVAILABLE POSITION IN 00162 M00S00161.class +++|* SERVICE CLASS *SC* WHICH HAS REACHED SERVICE LIMIT. 00163 M00S00162.class +++| SPACE 4,10 00164 M00S00163.class +++|* COMMON DECKS. 00165 M00S00164.class +++| 00166 M00S00165.class +++|*CALL COMCCMD 00167 M00S00166.class +++|*CALL COMCMAC 00168 M00S00167.class +++|*CALL COMSEVT 00169 M00S00168.class +++|*CALL COMSQAC 00170 M00S00169.class +++|*CALL COMSSSJ 00171 M00S00170.class +++|*CALL COMSTCM 00172 M00S00171.class +++| SCLASS SPACE 4,15 00173 M00S00172.class +++|** SCLASS - DEFINE SERVICE CLASS TABLE. 00174 M00S00173.class +++|* 00175 M00S00174.class +++|* SCLASS NM,MN,DF,ST,TX 00176 M00S00175.class +++|* 00177 M00S00176.class +++|* ENTRY *NM* = SERVICE CLASS NAME. 00178 M00S00177.class +++|* *MN* = TWO CHARACTER MNEMONIC. 00179 M00S00178.class +++|* *DF* = DAYFILE MESSAGE CHARACTER. 00180 M00S00179.class +++|* *ST* = SHORT TEXT FOR *QFTLIST*. 00181 M00S00180.class +++|* *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE. 00182 M00S00181.class +++|* 00183 M00S00182.class +++|* NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF 00184 M00S00183.class +++|* THIS MACRO. 00185 M00S00184.class +++| 00186 M00S00185.class +++| 00187 M00S00186.class +++| PURGMAC SCLASS 00188 M00S00187.class +++| 00189 M00S00188.class +++| SCLASS MACRO NM,MN,DF,ST,TX 00190 M00S00189.class +++| .SCL RMT 00191 M00S00190.class +++| VFD 12/0L_MN,48/NM TX 00192 M00S00191.class +++| .SCL RMT 00193 M00S00192.class +++| SCLASS ENDM 00194 M00S00193.class +++| 00195 M00S00194.class +++| 00196 M00S00195.class +++| SCL$ EQU 0 ONLY PROCESS CLSSES WITH JCB-S 00197 M00S00196.class +++|*CALL COMSSCD 00198 M00S00197.class +++| TITLE DEFINITIONS. 00199 M00S00198.class +++|* ASSEMBLY CONSTANTS. 00200 M00S00199.class +++| 00201 M00S00200.class +++| IBFL EQU 3 INPUT BUFFER LENGTH 00202 M00S00201.class +++| LMSG EQU 4 LENGTH OF TIMESHARING MESSAGES. 00203 M00S00202.class +++| OBFL EQU 200D OUTPUT BUFFER LENGTH 00204 M00S00203.class +++| SCTL EQU 37D SERVICE CLASS TABLE LENGTH 00205 M00S00204.class +++| SPACE 4,10 00206 M00S00205.class +++|* FETS. 00207 M00S00206.class +++| 00208 M00S00207.class +++| ORG 110B 00209 M00S00208.class +++| FWA BSS 0 SET ORIGIN ADDRESS 00210 M00S00209.class +++| 00211 M00S00210.class +++| INPUT FILEC INBUF,IBFL INPUT FET 00212 M00S00211.class +++| 00213 M00S00212.class +++| O BSS 0 00214 M00S00213.class +++| OUTPUT FILEC OUTBUF,OBFL OUTPUT FET 00215 M00S00214.class +++| SPACE 4,10 00216 M00S00215.class +++|* SPECIAL ENTRY POINT. 00217 M00S00216.class +++| 00218 M00S00217.class +++| SSJ= EQU SSJP 00219 M00S00218.class +++| SPACE 4,10 00220 M00S00219.class +++|* WORKING STORAGE. 00221 M00S00220.class +++| 00222 M00S00221.class +++| ABTF CON 0 ABORT OPTION FLAG 00223 M00S00222.class +++| ARGE CON 0 *CLASS* ARGUMENT ERROR FLAG 00224 M00S00223.class +++| ASFG CON 0 *ASCII* CHARACTER SET FLAG 00225 M00S00224.class +++| CPMB CON 0 CONTROL POINT MANAGER PARAMETER BLOCK 00226 M00S00225.class +++| DOUT VFD 42/0LOUTPUT,18/1 DEFAULT OUTPUT FILENAME 00227 M00S00226.class +++| JORG CON 0 JOBS CURRENT ORIGIN TYPE 00228 M00S00227.class +++| JOSC CON 0 JOBS CURRENT SERVICE CLASS 00229 M00S00228.class +++| JSNA CON 0 JOB TO HAVE SERVICE CLASS CHANGED 00230 M00S00229.class +++| NUMA CON 0 NUMBER OF *CLASS* ARGUMENTS 00231 M00S00230.class +++| NUSC CON 0 NUMBER OF VALIDATED SERVICE CLASSES 00232 M00S00231.class +++| ORGN CON 0 ORIGIN JOB IS ENQUIRING UPON 00233 M00S00232.class +++| POUT CON 0 PROPOSED OUTPUT FILENAME 00234 M00S00233.class +++| RDMU CON 10D RANGE DETERMINATOR MULTIPLIER 00235 M00S00234.class +++| ROLT VFD 48/SCFE,12/SCRT ROLLOUT EVENT AND TIME INTERVAL 00236 M00S00235.class +++| SERC CON 0 SERVICE CLASS MNEMONIC 00237 M00S00236.class +++| SERV CON 0 DESIRED SERVICE CLASS (CHARACTER/VALUE) 00238 M00S00237.class +++| TFLG CON 0 TIMESHARING ORIGIN FLAG (IAOT) 00239 M00S00238.class +++| TTFG CON 0 INPUT/OUTPUT FILE *TT* TYPE FLAG 00240 M00S00239.class +++| TTST CON 0 *TSTATUS* PARAMETER BLOCK 00241 M00S00240.class +++| CON 0 00242 M00S00241.class +++| WRDO CON 0 NUMBER OF WORDS IN OUTBUF BUFFER 00243 M00S00242.class +++| SPACE 4,10 00244 M00S00243.class +++|* DAYFILE AND INTERACTIVE MESSAGES AND POSSIBLE REPLIES. 00245 M00S00244.class +++| 00246 M00S00245.class +++| MSGA DATA C* INCORRECT SERVICE CLASS. * 00247 M00S00246.class +++| MSGB DATA C* CLASS ARGUMENT ERROR.* 00248 M00S00247.class +++| MSGC DATA C* SERVICE CLASS FULL. * 00249 M00S00248.class +++| MSGD DATA C* UNDEFINED SERVICE CLASS. * 00250 M00S00249.class +++| MSGE DATA C* WAITING FOR SERVICE CLASS CHANGE TO SC.* 00251 M00S00250.class +++| MSGF DATA C* CLASS COMPLETE.* 00252 M00S00251.class +++| MSGG DATA C* INCORRECT OPTION ARGUMENT.* 00253 M00S00252.class +++| MSGH DATA C* UNDEFINED ORIGIN TYPE.* 00254 M00S00253.class +++| MSGI DATA C* INCORRECT OUTPUT FILENAME.* 00255 M00S00254.class +++| MSGJ DATA C* SC ONLY PARAMETER VALID WITH JSN.* 00256 M00S00255.class +++| MSGK DATA C* SERVICE CLASS REQUIRED WITH JSN.* 00257 M00S00256.class +++| MSGL DATA C* JSN NOT FOUND. * 00258 M00S00257.class +++| MSGM DATA C* CANNOT CHANGE CLASS OF ON-LINE JOB.* 00259 M00S00258.class +++| MSGN DATA C* INCORRECT JSN ARGUMENT.* 00260 M00S00259.class +++| MSPO DATA C* JOB ALREADY WAITING ON SERVICE CLASS.* 00261 M00S00260.class +++| MSPQ DATA C* CANNOT CHANGE CLASS OF SUBSYSTEM.* 00262 M00S00261.class +++| TITLE TABLE DEFINITIONS. 00263 M00S00262.class +++| BQAC SPACE 4,10 00264 M00S00263.class +++|** BQAC - *QAC* PARAMETER BLOCK. 00265 M00S00264.class +++|* 00266 M00S00265.class +++|* PREFIX PORTION. 00267 M00S00266.class +++| 00268 M00S00267.class +++| BQAC VFD 50/0,9/ALFC,1/0 *ALTER* 00269 M00S00268.class +++| VFD 36/0,6/ALLB-5,18/0 00270 M00S00269.class +++| VFD 60/0 00271 M00S00270.class +++| VFD 60/0 00272 M00S00271.class +++| VFD 60/0 00273 M00S00272.class +++| 00274 M00S00273.class +++|* SELECTION CRITERIA PORTION. 00275 M00S00274.class +++| 00276 M00S00275.class +++| VFD 60/0 00277 M00S00276.class +++| VFD 60/0 00278 M00S00277.class +++| BJSN VFD 24/0,36/JSSF JSN 00279 M00S00278.class +++| VFD 12/INQQ+EXQQ,48/0 00280 M00S00279.class +++| VFD 60/0 00281 M00S00280.class +++| VFD 60/0 00282 M00S00281.class +++| VFD 60/0 00283 M00S00282.class +++| 00284 M00S00283.class +++|* *ALTER* FUNCTION PORTION. 00285 M00S00284.class +++| 00286 M00S00285.class +++| VFD 30/0,6/0,12/CLAF,12/0 SERVICE CLASS FLAG 00287 M00S00286.class +++| VFD 60/0 00288 M00S00287.class +++| VFD 60/0 00289 M00S00288.class +++| BCLS VFD 42/0,12/0,6/0 NEW SERVICE CLASS 00290 M00S00289.class +++| VFD 60/0 00291 M00S00290.class +++| GTDT SPACE 4,10 00292 M00S00291.class +++|** GTDT - GENERATE TERMINAL DISPLAY TABLE. 00293 M00S00292.class +++|* 00294 M00S00293.class +++|* INTERACTIVE DISPLAY TEMPLATE. 00295 M00S00294.class +++| 00296 M00S00295.class +++| GTDA DATA C* AVAILABLE SERVICE CLASSES* 00297 M00S00296.class +++| DATA C* * 00298 M00S00297.class +++| DATA C* ---RELATIVE PRIORITY---* 00299 M00S00298.class +++| DATA C* CLASS INPUT FILES EXECUTING JOBS OUTPUT FILES* 00300 M00S00299.class +++| GTDAL EQU *-GTDA 00301 M00S00300.class +++| 00302 M00S00301.class +++| GTDB DATA C* * 00303 M00S00302.class +++| GTDB1 DATA C* ENTER CLASS: "EB"* 00304 M00S00303.class +++| GTDBL EQU *-GTDB 00305 M00S00304.class +++| 00306 M00S00305.class +++| GTDC DATA C*CURRENT* 00307 M00S00306.class +++| 00308 M00S00307.class +++| GTDD DATA C/ SC * * * / 00309 M00S00308.class +++| GTDDL EQU *-GTDD 00310 M00S00309.class +++| TORT SPACE 4,10 00311 M00S00310.class +++|** TORT - TABLE OF ORIGIN TYPES. 00312 M00S00311.class +++|* 00313 M00S00312.class +++|*T 12/ORIGIN, 48/VLAUE
Figure
00314 M00S00313.class +++|* 00315 M00S00314.class +++|* ORIGIN - TWO CHARACTER ORIGIN TYPE. 00316 M00S00315.class +++|* VALUE - CORRESPONDING ORIGIN TYPE VALUE. 00317 M00S00316.class +++| 00318 M00S00317.class +++| TORT BSS 0 00319 M00S00318.class +++| VFD 12/0LSY,48/SYOT+4000B SYSTEM ORIGIN TYPE 00320 M00S00319.class +++| VFD 12/0LBC,48/BCOT BATCH ORIGIN TYPE 00321 M00S00320.class +++| VFD 12/0LEI,48/RBOT REMOTE BATCH ORIGIN TYPE 00322 M00S00321.class +++| VFD 12/0LTX,48/IAOT INTERACTIVE ORIGIN TYPE 00323 M00S00322.class +++| VFD 12/0LRB,48/RBOT REMOTE BATCH ORIGIN TYPE 00324 M00S00323.class +++| VFD 12/0LIA,48/IAOT INTERACTIVE ORIGIN TYPE 00325 M00S00324.class +++| TORTL EQU *-TORT 00326 M00S00325.class +++| TSCT SPACE 4,10 00327 M00S00326.class +++|** TSCT - SERVICE CLASS TABLE. 00328 M00S00327.class +++|* 00329 M00S00328.class +++|*T 12/CLASS, 48/VALUE
Figure
00330 M00S00329.class +++|* 00331 M00S00330.class +++|* CLASS - VALID SERVICE CLASS. 00332 M00S00331.class +++|* VALUE - CORRESPONDING SERVICE CLASS VALUE. 00333 M00S00332.class +++| 00334 M00S00333.class +++| 00335 M00S00334.class +++| TSCT BSS 0 00336 M00S00335.class +++| LIST D 00337 M00S00336.class +++| .SCL HERE 00338 M00S00337.class +++| LIST * 00339 M00S00338.class +++| CON 0 END OF TABLE 00340 M00S00339.class +++| TSCTL EQU *-TSCT-1 00341 M00S00340.class +++| ERRNZ TSCTL-MXJC+1 ENSURE ALL SERVICE CLASSES PRESENT 00342 M00S00341.class +++| CLASS TITLE MAIN PROGRAM. 00343 M00S00342.class +++|** CLASS - MAIN PROGRAM. 00344 M00S00343.class +++| 00345 M00S00344.class +++| 00346 M00S00345.class +++| CLASS BSS 0 ENTRY 00347 M00S00346.class +++| RJ PRS PRESET 00348 M00S00347.class +++| SA2 ARGE 00349 M00S00348.class +++| SX4 X2-3 00350 M00S00349.class +++| ZR X4,CLA2 IF UNDEFINED SERVICE CLASS 00351 M00S00350.class +++| ZR X2,CLA1 IF NO ARGUMENT ERROR 00352 M00S00351.class +++| RJ AEM ABORT AND ISSUE ERROR MESSAGE 00353 M00S00352.class +++| EQ CLA5 END OF COMMAND PROCESSING 00354 M00S00353.class +++| 00355 M00S00354.class +++|* GENERATE DISPLAY AND/OR ATTEMPT TO CHANGE SERVICE CLASS. 00356 M00S00355.class +++| 00357 M00S00356.class +++| CLA1 SA2 ARGE 00358 M00S00357.class +++| NZ X2,CLA2 IF ARGUMENT ERROR 00359 M00S00358.class +++| SA2 SERV 00360 M00S00359.class +++| ZR X2,CLA3 IF NO SERVICE CLASS ARGUMENT 00361 M00S00360.class +++| RJ VCS VALIDATE/CHANGE SERVICE CLASS 00362 M00S00361.class +++| SA2 ARGE 00363 M00S00362.class +++| ZR X2,CLA4 IF SERVICE CLASS CHANGE COMPLETED 00364 M00S00363.class +++| CLA2 RJ AEM ISSUE ERROR MESSAGE 00365 M00S00364.class +++| WRITEW O,X3,LMSG DISPLAY ERROR MESSAGE 00366 M00S00365.class +++| WRITER O,R 00367 M00S00366.class +++| SA1 JSNA 00368 M00S00367.class +++| NZ X1,CLA5 IF JSN SPECIFIED 00369 M00S00368.class +++| CLA3 SETFET O,(BUF=OUTBUF,OBFL) 00370 M00S00369.class +++| RJ GTD GENERATE TERMINAL DISPLAY 00371 M00S00370.class +++| SA1 NUSC 00372 M00S00371.class +++| ZR X1,CLA4 IF NO SERVICE CLASS AVAILABLE 00373 M00S00372.class +++| SA1 TTFG 00374 M00S00373.class +++| ZR X1,CLA4 IF FILE TYPE NOT *TT* 00375 M00S00374.class +++| SA1 TFLG 00376 M00S00375.class +++| ZR X1,CLA4 IF NOT *IAOT* 00377 M00S00376.class +++| SA1 ORGN 00378 M00S00377.class +++| NZ X1,CLA4 IF DISPLAY BUILT FOR SPECIFIED ORIGIN 00379 M00S00378.class +++| WRITEW O,GTDB,GTDBL 00380 M00S00379.class +++| WRITER O FLUSH BUFFER 00381 M00S00380.class +++| SETFET INPUT,(BUF=INBUF,IBFL) 00382 M00S00381.class +++| READ INPUT,R READ REPONSE 00383 M00S00382.class +++| READC INPUT,INBUF,IBFL 00384 M00S00383.class +++| NZ X1,CLA4 IF NO SERVICE CLASS ENTERED 00385 M00S00384.class +++| RJ VTI VALIDATE TIMESHARING INPUT 00386 M00S00385.class +++| EQ CLA1 VALIDATE NEW ARGUMENTS 00387 M00S00386.class +++| 00388 M00S00387.class +++|* TERMINATION PROCESSING. 00389 M00S00388.class +++| 00390 M00S00389.class +++| CLA4 MESSAGE MSGF,3,R * CLASS COMPLETE.* 00391 M00S00390.class +++| CLA5 SA1 TFLG 00392 M00S00391.class +++| ZR X1,CLA6 IF NOT TIMESHARING 00393 M00S00392.class +++| PROMPT ON 00394 M00S00393.class +++| SA1 ASFG 00395 M00S00394.class +++| ZR X1,CLA6 IF NOT ASCII 00396 M00S00395.class +++| CSET ASCII 00397 M00S00396.class +++| CLA6 ENDRUN 00398 M00S00397.class +++| SPACE 4,10 00399 M00S00398.class +++| TITLE SUBROUTINES. 00400 M00S00399.class +++| AEM SPACE 4,10 00401 M00S00400.class +++|** AEM - ABORT AND/OR ISSUE ERROR MESSAGE. 00402 M00S00401.class +++|* 00403 M00S00402.class +++|* ENTRY (X3) = ADDRESS OF DAYFILE MESSAGE. 00404 M00S00403.class +++|* (ABTF) = ABORT OPTION PRESENT FLAG 00405 M00S00404.class +++|* (ARGE) = ARGUMENT ERROR FLAG 00406 M00S00405.class +++|* 00407 M00S00406.class +++|* EXIT (X3) = ADDRESS OF DAYFILE MESSAGE. 00408 M00S00407.class +++|* (ARGE)= RESET TO ZERO. 00409 M00S00408.class +++|* 00410 M00S00409.class +++|* USES X - 1, 2, 4, 6. 00411 M00S00410.class +++|* A - 1, 2, 4, 6. 00412 M00S00411.class +++|* 00413 M00S00412.class +++|* MACROS ABORT, CSET, MESSAGE. 00414 M00S00413.class +++| 00415 M00S00414.class +++| 00416 M00S00415.class +++| AEM SUBR ENTRY/EXIT 00417 M00S00416.class +++| MESSAGE X3,3 ISSUE DAYFILE MESSAGE 00418 M00S00417.class +++| SA2 ARGE GET ARGUMENT ERROR FLAG 00419 M00S00418.class +++| SA4 ABTF GET ABORT OPTION FLAG 00420 M00S00419.class +++| SX6 B0+ 00421 M00S00420.class +++| SA6 A2 RESET *ARGE* 00422 M00S00421.class +++| BX4 X2*X4 00423 M00S00422.class +++| ZR X4,AEMX IF NOT ERROR OR NOT ABORT OPTION 00424 M00S00423.class +++| SA1 TFLG 00425 M00S00424.class +++| ZR X1,AEM1 IF CALLING JOB NOT TIMESHARING 00426 M00S00425.class +++| SA1 ASFG 00427 M00S00426.class +++| ZR X1,AEM1 IF CHARACTER SET *NORMAL* 00428 M00S00427.class +++| CSET ASCII SET *ASCII* 128 CHARACTER SET MODE 00429 M00S00428.class +++| AEM1 ABORT 00430 M00S00429.class +++| DPM SPACE 4,10 00431 M00S00430.class +++|** DPM - DETERMINE PRIORITY MULTIPLIERS. 00432 M00S00431.class +++|* 00433 M00S00432.class +++|* ENTRY (RDMU) = RANGE DETERMINATOR MULTIPLIER. 00434 M00S00433.class +++|* (USCP) = BUFFER CONTAINS VALIDATED SERVICE CLASSES, 00435 M00S00434.class +++|* LOWER BOUND INPUT, UPPER BOUND EXECUTION 00436 M00S00435.class +++|* AND LOWER BOUND OUTPUT PRIORITIES. 00437 M00S00436.class +++|* 00438 M00S00437.class +++|* EXIT (NUSC) = NUMBER OF ENTRIES IN *USCP*. 00439 M00S00438.class +++|* (USCP) = BUFFER CONTAINS VALIDATED SERVICE CLASSES, 00440 M00S00439.class +++|* RELATIVE INPUT, RELATIVE EXECUTION AND 00441 M00S00440.class +++|* RELATIVE OUTPUT PRIORITIES. 00442 M00S00441.class +++|* 00443 M00S00442.class +++|* USES X - ALL. 00444 M00S00443.class +++|* A - 1, 5, 6. 00445 M00S00444.class +++|* B - 3, 4, 5, 6, 7. 00446 M00S00445.class +++| 00447 M00S00446.class +++| 00448 M00S00447.class +++| DPM SUBR ENTRY/EXIT 00449 M00S00448.class +++| SB4 B0+ 00450 M00S00449.class +++| SA1 USCP 00451 M00S00450.class +++| SB5 B1 SET FIELD FLAG 00452 M00S00451.class +++| MX0 -12 00453 M00S00452.class +++| LX1 -12 EXTRACT NUMBER OF RETURNED SERVICE CLASSES 00454 M00S00453.class +++| BX6 -X0*X1 00455 M00S00454.class +++| SA6 NUSC 00456 M00S00455.class +++| SB6 X6 00457 M00S00456.class +++| BX7 X6 00458 M00S00457.class +++| 00459 M00S00458.class +++|* FIND HIGHEST INPUT, EXECUTION OR OUTPUT PRIORITY IN *USCP*. 00460 M00S00459.class +++| 00461 M00S00460.class +++| DPM1 SA1 A1+B1 OBTAIN SERVICE CLASS PRIORITY 00462 M00S00461.class +++| ZR X7,DPM3 IF END OF SERVICE CLASSES 00463 M00S00462.class +++| SX7 X7-1 DECREMENT NUMBER OF SERVICE CLASSES 00464 M00S00463.class +++| BX2 -X0*X1 00465 M00S00464.class +++| EQ B5,B1,DPM2 IF PROCESSING OUTPUT PRIORITY 00466 M00S00465.class +++| LX2 -12D 00467 M00S00466.class +++| ZR B5,DPM2 IF PROCESSING EXECUTION PRIORITY 00468 M00S00467.class +++| LX2 -12D 00469 M00S00468.class +++| DPM2 SB3 X2 00470 M00S00469.class +++| LE B3,B4,DPM1 IF NOT HIGHER PRIORITY 00471 M00S00470.class +++| SB4 B3 00472 M00S00471.class +++| EQ DPM1 PROCESS NEXT ENTRY 00473 M00S00472.class +++| 00474 M00S00473.class +++|* CALCULATE PRIORITY MULTIPLIER (A = 10 * (P / H)) WHERE 00475 M00S00474.class +++|* P IS SERVICE CLASSES PRIORITY AND H IS THE MAXIMUM P. 00476 M00S00475.class +++|* THE MULTIPLIERS FOR INPUT, EXECUTION AND OUTPUT PRIORITIES 00477 M00S00476.class +++|* ARE COMPUTED INDEPENDENTLY. THE RESULT IS ROUNDED. 00478 M00S00477.class +++| 00479 M00S00478.class +++| DPM3 SX7 B6+ 00480 M00S00479.class +++| ZR B4,DPM7 IF HIGHEST PRIORITY IS ZERO 00481 M00S00480.class +++| SA1 USCP 00482 M00S00481.class +++| SX4 B4 00483 M00S00482.class +++| PX4 X4 00484 M00S00483.class +++| NX4 X4 00485 M00S00484.class +++| SA5 RDMU GET RANGE DETERMINATOR MULTIPLIER 00486 M00S00485.class +++| PX5 X5 00487 M00S00486.class +++| ZX5 X5 00488 M00S00487.class +++| DPM4 SA1 A1+B1 00489 M00S00488.class +++| ZR X7,DPM7 IF END OF SERVICE CLASSES 00490 M00S00489.class +++| SX7 X7-1 DECREMENT NUMBER OF SERVICE CLASSES 00491 M00S00490.class +++| BX3 -X0*X1 OBTAIN SERVICE CLASS PRIORITY 00492 M00S00491.class +++| EQ B5,B1,DPM5 IF PROCESSING OUTPUT PRIORITY 00493 M00S00492.class +++| LX3 -12D 00494 M00S00493.class +++| ZR B5,DPM5 IF PROCESSING EXECUTION PRIORITY 00495 M00S00494.class +++| LX3 -12D 00496 M00S00495.class +++| DPM5 PX3 X3 00497 M00S00496.class +++| NX3 X3 00498 M00S00497.class +++| RX3 X3/X4 CALCULATE RELATIVE PRIORITY 00499 M00S00498.class +++| RX3 X3*X5 00500 M00S00499.class +++| UX3,B7 X3 UNPACK MULTIPLIER 00501 M00S00500.class +++| LX3 X3,B7 00502 M00S00501.class +++| EQ B5,B1,DPM6 IF PROCESSING OUTPUT PRIORITY 00503 M00S00502.class +++| LX3 12D 00504 M00S00503.class +++| ZR B5,DPM6 IF PROCESSING EXECUTION PRIORITY 00505 M00S00504.class +++| LX3 12D 00506 M00S00505.class +++| DPM6 BX6 X0*X1 EXTRACT SERVICE CLASS 00507 M00S00506.class +++| BX6 X3+X6 CREATE NEW TABLE ENTRY 00508 M00S00507.class +++| SA6 A1+ 00509 M00S00508.class +++| EQ DPM4 CALCULATE NEXT *USCP* ENTRY 00510 M00S00509.class +++| 00511 M00S00510.class +++| DPM7 SX7 B6 00512 M00S00511.class +++| NG B5,DPMX IF ALL MULTIPLIERS COMPUTED 00513 M00S00512.class +++| SB4 B0 RESET HIGHEST PRIORITY TO ZERO 00514 M00S00513.class +++| SB5 B5-B1 UPDATE FIELD FLAG 00515 M00S00514.class +++| LX0 12 00516 M00S00515.class +++| SA1 USCP 00517 M00S00516.class +++| EQ DPM1 PROCESS OUTPUT PRIORITY 00518 M00S00517.class +++| GTD SPACE 4,15 00519 M00S00518.class +++|** GTD - GENERATE TERMINAL DISPLAY. 00520 M00S00519.class +++|* 00521 M00S00520.class +++|* ENTRY (SERV) = SET TO DESIRED SERIVCE CLASS. 00522 M00S00521.class +++|* (TSCT) = TABLE OF VALIDATED SERVICE CLASSES. 00523 M00S00522.class +++|* 00524 M00S00523.class +++|* EXIT (GTDF) = SET GENERATED DISPLAY FLAG. 00525 M00S00524.class +++|* (OUTBUF) = CONTAINS SERVICE CLASSES FOR DISPLAY. 00526 M00S00525.class +++|* 00527 M00S00526.class +++|* USES X - ALL. 00528 M00S00527.class +++|* A - 1, 2, 3, 5, 7. 00529 M00S00528.class +++|* B - 3, 4, 5, 6, 7. 00530 M00S00529.class +++|* 00531 M00S00530.class +++|* CALLS DFM, SCB, SRT. 00532 M00S00531.class +++|* 00533 M00S00532.class +++|* MACROS GETUSC, WRITER, WRITEW. 00534 M00S00533.class +++| 00535 M00S00534.class +++| 00536 M00S00535.class +++| GTD SUBR ENTRY/EXIT 00537 M00S00536.class +++| 00538 M00S00537.class +++|* SETUP *GETUSC* PARAMETER BLOCK. 00539 M00S00538.class +++| 00540 M00S00539.class +++| SX6 SCTL SET LENGTH OF *USCP* 00541 M00S00540.class +++| MX0 -11 00542 M00S00541.class +++| LX6 -12 00543 M00S00542.class +++| SA2 JORG GET JOBS CURRENT ORIGIN TYPE 00544 M00S00543.class +++| SA1 SERV 00545 M00S00544.class +++| NZ X1,GTD1 IF SERVICE CLASS ARGUMENT SPECIFIED 00546 M00S00545.class +++| SA2 ORGN GET SPECIFIED ORIGIN ARGUMENT 00547 M00S00546.class +++| NZ X2,GTD1 IF SPECIFIED ORIGIN ARGUMENT EXISTS 00548 M00S00547.class +++| SA2 JORG 00549 M00S00548.class +++| GTD1 BX2 -X0*X2 CLEAR *SY* ENTRY FLAG 00550 M00S00549.class +++| BX6 X6+X2 SET ORIGIN OF INQUIRY 00551 M00S00550.class +++| LX6 24 00552 M00S00551.class +++| SA6 USCP 00553 M00S00552.class +++| GETUSC USCP OBTAIN VALIDATED SERVICE CLASS 00554 M00S00553.class +++| RJ DPM DETERMINE PRIORITY MULTIPLIERS 00555 M00S00554.class +++| RJ SRT SORT *USCP* IN DESCENDING ORDER 00556 M00S00555.class +++| SA1 NUSC NUMBER OF *USCP* ENTRIES TO PROCESS 00557 M00S00556.class +++| SX0 X1+ 00558 M00S00557.class +++| ZR X0,GTDX IF NO SERVICE CLASS RETURNED 00559 M00S00558.class +++| SA5 USCP SET VALIDATED SERVICE CLASS TABLE 00560 M00S00559.class +++| SB7 OUTBUF+GTDAL SET FWA WORKING BUFFER 00561 M00S00560.class +++| GTD2 SB4 GTDDL MOVE DISPLAY LINE TO BUFFER 00562 M00S00561.class +++| SB3 GTDD 00563 M00S00562.class +++| GTD3 SB4 B4-B1 00564 M00S00563.class +++| SA1 B3+B4 00565 M00S00564.class +++| BX7 X1 00566 M00S00565.class +++| SA7 B7+B4 00567 M00S00566.class +++| NE B4,B0,GTD3 IF NOT END OF DISPLAY LINE 00568 M00S00567.class +++| SA5 A5+B1 SET CHARACTER STRING 00569 M00S00568.class +++| BX6 X5 00570 M00S00569.class +++| SB3 GTDT SET ADDRESS OF LINE DESCRIPTOR ENTRY 00571 M00S00570.class +++| RJ SCB SET SERVICE CLASS IN DISPLAY LINE 00572 M00S00571.class +++| SA1 =10H********** SET CHARACTER STRING 00573 M00S00572.class +++| BX6 X1 00574 M00S00573.class +++| LX5 36 00575 M00S00574.class +++| SB6 B1+ 00576 M00S00575.class +++| GTD4 MX1 -6 INSERT CHARACTER COUNT IN FORMAT TABLE 00577 M00S00576.class +++| SA3 B6+GTDT 00578 M00S00577.class +++| BX4 -X1*X5 00579 M00S00578.class +++| LX1 36 00580 M00S00579.class +++| BX7 X1*X3 00581 M00S00580.class +++| LX4 36 00582 M00S00581.class +++| SB3 A3 SET ADDRESS OF LINE DESCRIPTOR 00583 M00S00582.class +++| BX7 X7+X4 00584 M00S00583.class +++| SA7 A3 00585 M00S00584.class +++| RJ SCB SET PRIORITY IN DISPLAY 00586 M00S00585.class +++| SB6 B6+B1 00587 M00S00586.class +++| SB5 4 00588 M00S00587.class +++| LX5 12 00589 M00S00588.class +++| NE B6,B5,GTD4 IF NOT END OF PRIORITIES 00590 M00S00589.class +++| SA2 JOSC GET CURRENT SERVICE CLASS 00591 M00S00590.class +++| SB5 X2-1 00592 M00S00591.class +++| MX1 12 00593 M00S00592.class +++| LX5 48 00594 M00S00593.class +++| SA2 B5+TSCT GET DISPLAY CODE EQUIVALENT 00595 M00S00594.class +++| BX4 X1*X2 00596 M00S00595.class +++| BX3 X1*X5 00597 M00S00596.class +++| BX1 X3-X4 00598 M00S00597.class +++| NZ X1,GTD5 IF NOT CURRENT SERVICE CLASS 00599 M00S00598.class +++| SA3 GTDC SET *CURRENT* IN DISPLAY 00600 M00S00599.class +++| BX7 X3 00601 M00S00600.class +++| SA7 B7+GTDDL-1 00602 M00S00601.class +++| GTD5 SB7 B7+GTDDL 00603 M00S00602.class +++| SX0 X0-1 DECREMENT SERVICE CLASS COUNT 00604 M00S00603.class +++| NZ X0,GTD2 IF NOT END OF SERVICE CLASSES 00605 M00S00604.class +++| SX7 B7-OUTBUF-GTDAL COMPUTE DISPLAY LENGTH 00606 M00S00605.class +++| SA7 WRDO SAVE NUMBER OF WORDS WRITTEN TO *OUTBUF* 00607 M00S00606.class +++| 00608 M00S00607.class +++|* DISPLAY AVAILABLE SERVICE CLASSES AND HISTOGRAMS. 00609 M00S00608.class +++| 00610 M00S00609.class +++| WRITEW O,GTDA,GTDAL WRITE CLASS DISPLAY HEADER 00611 M00S00610.class +++| SA1 WRDO 00612 M00S00611.class +++| WRITEW O,OUTBUF+GTDAL,X1 DISPLAY AVAILABLE SERVICE CLASSES 00613 M00S00612.class +++| WRITER O FLUSH BUFFER 00614 M00S00613.class +++| EQ GTDX RETURN 00615 M00S00614.class +++| 00616 M00S00615.class +++|* GTDT - SET CHARACTERS IN BUFFER FORMAT DESCRIPTION TABLE. 00617 M00S00616.class +++| 00618 M00S00617.class +++| GTDT VFD 12/0,6/1,6/2,36/0 SC 00619 M00S00618.class +++| VFD 12/0,6/8,6/0,36/0 IN 00620 M00S00619.class +++| VFD 12/2,6/2,6/0,36/0 EX 00621 M00S00620.class +++| VFD 12/3,6/7,6/0,36/0 OUT 00622 M00S00621.class +++| SRT SPACE 4,10 00623 M00S00622.class +++|** SRT - SORT TABLE INTO DESENDING ORDER USING MULTIPLIER FIELD. 00624 M00S00623.class +++|* 00625 M00S00624.class +++|* ENTRY (USCP) = TABLE ENTRIES UNSORTED. 00626 M00S00625.class +++|* 00627 M00S00626.class +++|* EXIT (USCP) = TABLE SORTED INTO DESCENDING ORDER. 00628 M00S00627.class +++|* 00629 M00S00628.class +++|* USES X - ALL. 00630 M00S00629.class +++|* A - 1, 6, 7. 00631 M00S00630.class +++|* B - 3, 5, 7. 00632 M00S00631.class +++| 00633 M00S00632.class +++| 00634 M00S00633.class +++| SRT SUBR ENTRY/EXIT 00635 M00S00634.class +++| SA1 NUSC GET NUMBER OF SERVICE CLASS ENTRIES 00636 M00S00635.class +++| SB3 X1+ 00637 M00S00636.class +++| SX1 X1-1 00638 M00S00637.class +++| ZR X1,SRTX IF ONLY ONE ENTRY TO SORT IN *USCP* TABLE 00639 M00S00638.class +++| MX0 -12 00640 M00S00639.class +++| LX0 12 SORT ON UPPER BOUND EXECUTION PRIORITY 00641 M00S00640.class +++| SRT1 SB7 B0+ CLEAR CHANGE FLAG 00642 M00S00641.class +++| SB5 B1+ RESET ENTRY COUNT 00643 M00S00642.class +++| SA1 USCP+B1 READ FIRST SERVICE CLASS ENTRY IN *USCP* 00644 M00S00643.class +++| BX6 X1 TRANSFER CONTENTS TO CURRENT 00645 M00S00644.class +++| BX2 -X0*X6 EXTRACT MULTIPLIER FROM CURRENT ENTRY 00646 M00S00645.class +++| 00647 M00S00646.class +++|* COMPARE CURRENT AND NEXT TABLE ENTRIES. 00648 M00S00647.class +++| 00649 M00S00648.class +++| SRT2 SA1 A1+B1 READ NEXT ENTRY IN *USCP* 00650 M00S00649.class +++| BX4 -X0*X1 EXTRACT MULTIPLIER FROM NEXT ENTRY 00651 M00S00650.class +++| BX7 X1 TRANSFER CONTENTS TO NEXT 00652 M00S00651.class +++| IX1 X2-X4 00653 M00S00652.class +++| ZR X1,SRT4 IF CURRENT MULTIPLIER EQUALS NEXT 00654 M00S00653.class +++| NG X1,SRT4 IF CURRENT MULTIPLIER IS LESS THAN NEXT 00655 M00S00654.class +++| 00656 M00S00655.class +++|* SWAP CURRENT ENTRY WITH NEXT ENTRY. 00657 M00S00656.class +++| 00658 M00S00657.class +++| SRT3 SB7 B1+ SET CHANGE FLAG 00659 M00S00658.class +++| BX5 X7 TEMP IS ASSIGNED NEXT 00660 M00S00659.class +++| BX3 X4 00661 M00S00660.class +++| BX7 X6 NEXT IS ASSIGNED CURRENT 00662 M00S00661.class +++| BX4 X2 00663 M00S00662.class +++| BX6 X5 CURRENT IS ASSIGNED TEMP 00664 M00S00663.class +++| BX2 X3 00665 M00S00664.class +++| SA6 A1-B1 WRITE CURRENT INTO *USCP* TABLE 00666 M00S00665.class +++| SA7 A1 WRITE NEXT INTO *USCP* TABLE 00667 M00S00666.class +++| 00668 M00S00667.class +++|* CURRENT IS NOW ASSIGNED VALUE OF NEXT. 00669 M00S00668.class +++| 00670 M00S00669.class +++| SRT4 BX6 X7 CURRENT IS ASSIGNED NEXT 00671 M00S00670.class +++| BX2 X4 00672 M00S00671.class +++| SB5 B5+B1 INCREMENT NUMBER OF ENTRIES PROCESSED 00673 M00S00672.class +++| LT B5,B3,SRT2 IF NOT END OF *USCP* TABLE 00674 M00S00673.class +++| ZR B7,SRTX IF TABLE FULLY SORTED 00675 M00S00674.class +++| SB3 B3-B1 DECREMENT NUMBER OF ENTRIES TO PROCESS 00676 M00S00675.class +++| EQ SRT1 START NEXT PASS ON LIST 00677 M00S00676.class +++| VCS SPACE 4,15 00678 M00S00677.class +++|** VCS - VALIDATE AND CHANGE SERVICE CLASS. 00679 M00S00678.class +++|* 00680 M00S00679.class +++|* ENTRY (SERV) = CONTAINS DESIRED SERVICE CLASS. 00681 M00S00680.class +++|* (TFLG) = TIMESHARING FLAG. 00682 M00S00681.class +++|* 00683 M00S00682.class +++|* EXIT (X3) = ERROR MESSAGE. 00684 M00S00683.class +++|* (ARGE) = ARGUMENT ERROR FLAG SET. 00685 M00S00684.class +++|* 00686 M00S00685.class +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 00687 M00S00686.class +++|* A - 1, 2, 4, 5, 6. 00688 M00S00687.class +++|* B - 4, 5. 00689 M00S00688.class +++|* 00690 M00S00689.class +++|* CALLS COMCCPM, *QAC*. 00691 M00S00690.class +++|* 00692 M00S00691.class +++|* MACROS MESSAGE, ROLLOUT, SYSTEM. 00693 M00S00692.class +++| 00694 M00S00693.class +++| 00695 M00S00694.class +++| VCS SUBR ENTRY/EXIT 00696 M00S00695.class +++| SA4 JSNA 00697 M00S00696.class +++| NZ X4,VCS3 IF JSN SPECIFIED 00698 M00S00697.class +++| SA2 SERV 00699 M00S00698.class +++| SB5 X2+ 00700 M00S00699.class +++| SA4 JOSC GET CURRENT SERVICE CLASS 00701 M00S00700.class +++| SB4 X4+ 00702 M00S00701.class +++| EQ B4,B5,VCS7 IF SAME AS CURRENT SERVICE CLASS 00703 M00S00702.class +++| BX6 X2 00704 M00S00703.class +++| SA6 CPMB 00705 M00S00704.class +++| VCS1 SX1 CPMB SET PARAMETER BLOCK LOCATION 00706 M00S00705.class +++| SX2 124B SET FUNCTION CODE 00707 M00S00706.class +++| RJ =XCPM= ATTEMPT TO CHANGE SERVICE CLASS 00708 M00S00707.class +++| MX0 -6 00709 M00S00708.class +++| SA1 CPMB CHECK FOR ERROR 00710 M00S00709.class +++| LX1 -6 00711 M00S00710.class +++| BX2 -X0*X1 00712 M00S00711.class +++| ZR X2,VCS7 IF SERVICE CLASS CHANGE ACCEPTED 00713 M00S00712.class +++| SX2 X2-1 00714 M00S00713.class +++| SX6 B1+ SET ARGUMENT ERROR FLAG 00715 M00S00714.class +++| SA6 ARGE 00716 M00S00715.class +++| ZR X2,VCS6 IF UNDEFINED SERVICE CLASS 00717 M00S00716.class +++| SX2 X2-1 00718 M00S00717.class +++| ZR X2,VCS4 IF INVALID SERVICE CLASS 00719 M00S00718.class +++| SA1 TFLG 00720 M00S00719.class +++| NZ X1,VCS5 IF TIMESHARING JOB 00721 M00S00720.class +++| SA1 ABTF 00722 M00S00721.class +++| NZ X1,VCS5 IF ABORT OPTION 00723 M00S00722.class +++| VCS2 SA5 MSGE+3 INSERT SERVICE CLASS INTO MESSAGE 00724 M00S00723.class +++| MX0 -12D 00725 M00S00724.class +++| LX0 6 00726 M00S00725.class +++| BX5 X0*X5 00727 M00S00726.class +++| SA2 TSCT+B5-1 00728 M00S00727.class +++| LX2 18D 00729 M00S00728.class +++| BX2 -X0*X2 00730 M00S00729.class +++| BX6 X5+X2 00731 M00S00730.class +++| SA6 A5+ 00732 M00S00731.class +++| MESSAGE MSGE,1,R ISSUE * WAITING FOR SERVICE CLASS XX.* 00733 M00S00732.class +++| ROLLOUT ROLT ROLLOUT BATCH JOB 00734 M00S00733.class +++| EQ VCS1 TRY TO CHANGE SERVICE CLASS AGAIN 00735 M00S00734.class +++| 00736 M00S00735.class +++| 00737 M00S00736.class +++|* CALL *QAC* TO CHANGE THE SERVICE CLASS OF SPECIFIED JOB. 00738 M00S00737.class +++| 00739 M00S00738.class +++| VCS3 SA2 SERC PUT SERVICE CLASS IN *QAC* BLOCK 00740 M00S00739.class +++| LX2 18 00741 M00S00740.class +++| SA1 BCLS 00742 M00S00741.class +++| BX6 X1+X2 00743 M00S00742.class +++| SA6 A1 00744 M00S00743.class +++| SA4 JSNA PUT JSN IN *QAC* PARAMETER BLOCK 00745 M00S00744.class +++| SA2 BJSN 00746 M00S00745.class +++| BX6 X2+X4 00747 M00S00746.class +++| SA6 A2 00748 M00S00747.class +++| SYSTEM QAC,R,BQAC 00749 M00S00748.class +++| SA1 BQAC CHECK FOR ERROR 00750 M00S00749.class +++| MX0 -8D 00751 M00S00750.class +++| AX1 10D 00752 M00S00751.class +++| BX2 -X0*X1 00753 M00S00752.class +++| ZR X2,VCS7 IF SERVICE CLASS CHANGE ACCEPTED 00754 M00S00753.class +++| SX6 B1 SET ARGUMENT ERROR FLAG 00755 M00S00754.class +++| SA6 ARGE 00756 M00S00755.class +++| SX1 X2-ER24 00757 M00S00756.class +++| ZR X1,VCS5 IF SERVICE CLASS FULL 00758 M00S00757.class +++| SX4 X2-ER25 00759 M00S00758.class +++| ZR X4,VCS8 IF ON-LINE JOB 00760 M00S00759.class +++| SX1 X2-ER26 00761 M00S00760.class +++| ZR X1,VCS6 IF UNDEFINED SERVICE CLASS 00762 M00S00761.class +++| SX4 X2-ER27 00763 M00S00762.class +++| ZR X4,VCS9 IF WAITING ON *CLASS* 00764 M00S00763.class +++| SX1 X2-ER28 00765 M00S00764.class +++| ZR X1,VCS10 IF SUBSYSTEM SERVICE CLASS 00766 M00S00765.class +++| SX4 X2-ER07 00767 M00S00766.class +++| ZR X4,VCS11 IF JSN NOT FOUND 00768 M00S00767.class +++| VCS4 SX3 MSGA * INCORRECT SERVICE CLASS.* 00769 M00S00768.class +++| EQ VCSX RETURN 00770 M00S00769.class +++| 00771 M00S00770.class +++| VCS5 SX3 MSGC * SERVICE CLASS FULL.* 00772 M00S00771.class +++| EQ VCSX RETURN 00773 M00S00772.class +++| 00774 M00S00773.class +++| VCS6 SX3 MSGD * UNDEFINED SERVICE CLASS.* 00775 M00S00774.class +++| EQ VCSX RETURN 00776 M00S00775.class +++| 00777 M00S00776.class +++| VCS7 SX6 B0+ 00778 M00S00777.class +++| SA6 ARGE CLEAR ARGUMENT ERROR FLAG 00779 M00S00778.class +++| EQ VCSX RETURN 00780 M00S00779.class +++| 00781 M00S00780.class +++| VCS8 SX3 MSGM * CANNOT CHANGE ON-LINE JOB.* 00782 M00S00781.class +++| EQ VCSX RETURN 00783 M00S00782.class +++| 00784 M00S00783.class +++| VCS9 SX3 MSPO * JOB ALREADY WAITING ON SERVICE CLASS.* 00785 M00S00784.class +++| EQ VCSX RETURN 00786 M00S00785.class +++| 00787 M00S00786.class +++| VCS10 SX3 MSPQ * CANNOT CHANGE CLASS OF SUBSYSTEM.* 00788 M00S00787.class +++| EQ VCSX RETURN 00789 M00S00788.class +++| 00790 M00S00789.class +++| VCS11 SX3 MSGL * JSNA NOT FOUND.* 00791 M00S00790.class +++| SA2 JSNA SET JSN IN MESSAGE 00792 M00S00791.class +++| SA1 MSGL 00793 M00S00792.class +++| MX0 24 00794 M00S00793.class +++| LX0 -6 00795 M00S00794.class +++| BX4 -X0*X1 00796 M00S00795.class +++| LX2 -6 00797 M00S00796.class +++| BX6 X2+X4 00798 M00S00797.class +++| SA6 A1 00799 M00S00798.class +++| EQ VCSX RETURN 00800 M00S00799.class +++| 00801 M00S00800.class +++| VTI SPACE 4,10 00802 M00S00801.class +++|** VTI - VALIDATE TIMESHARING INPUT. 00803 M00S00802.class +++|* 00804 M00S00803.class +++|* ENTRY (SERV) = SERVICE CLASS INPUT BY USER (CHARACTER). 00805 M00S00804.class +++|* 00806 M00S00805.class +++|* EXIT (ARGE) = ARGUMENT ERROR FLAG 00807 M00S00806.class +++|* (SERV) = SERVICE CLASS (VALUE). 00808 M00S00807.class +++|* 00809 M00S00808.class +++|* USES X - 0, 1, 2, 3, 4, 6. 00810 M00S00809.class +++|* A - 1, 3, 6. 00811 M00S00810.class +++| 00812 M00S00811.class +++| 00813 M00S00812.class +++| VTI SUBR ENTRY/EXIT 00814 M00S00813.class +++| SA3 TSCT-1 00815 M00S00814.class +++| MX0 12 00816 M00S00815.class +++| SA1 INBUF GET TIMESHARING USERS INPUT 00817 M00S00816.class +++| BX2 X0*X1 00818 M00S00817.class +++| BX3 -X0*X1 00819 M00S00818.class +++| SX6 B0 RESET INPUT BUFFER 00820 M00S00819.class +++| SA6 A1 00821 M00S00820.class +++| ZR X3,VTI2 IF NOT MORE THAN THREE CHARACTERS 00822 M00S00821.class +++| VTI1 SA1 ARGE 00823 M00S00822.class +++| SX6 B1 SET ARGUMENT ERROR FLAG 00824 M00S00823.class +++| SA6 A1 00825 M00S00824.class +++| SX3 MSGD SET * UNDEFINED SERVICE CLASS.* 00826 M00S00825.class +++| EQ VTIX RETURN 00827 M00S00826.class +++| 00828 M00S00827.class +++|* DETERMINE IF ENTERED SERVICE CLASS IS DEFINED. 00829 M00S00828.class +++| 00830 M00S00829.class +++| VTI2 SA3 A3+B1 GET *TSCT* TABLE ENTRY 00831 M00S00830.class +++| ZR X3,VTI1 IF END OF *TSCT* TABLE 00832 M00S00831.class +++| BX4 X0*X3 00833 M00S00832.class +++| BX4 X4-X2 COMPARE TABLE ENTRY TO ENTERED CLASS 00834 M00S00833.class +++| NZ X4,VTI2 IF NO MATCH 00835 M00S00834.class +++| MX0 -12 00836 M00S00835.class +++| BX6 -X0*X3 EXTRACT CORRESPONDING SERVICE CLASS VALUE 00837 M00S00836.class +++| SA6 SERV SAVE DESIRED SERVICE CLASS VALUE 00838 M00S00837.class +++| EQ VTIX RETURN 00839 M00S00838.class +++| SPACE 4,10 00840 M00S00839.class +++|* COMMON DECKS. 00841 M00S00840.class +++| 00842 M00S00841.class +++|*CALL COMCCIO 00843 M00S00842.class +++|*CALL COMCCPM 00844 M00S00843.class +++|*CALL COMCRDC 00845 M00S00844.class +++|*CALL COMCRDW 00846 M00S00845.class +++|*CALL COMCSCB 00847 M00S00846.class +++|*CALL COMCSFN 00848 M00S00847.class +++|*CALL COMCSYS 00849 M00S00848.class +++|*CALL COMCWTW 00850 M00S00849.class +++| SPACE 4,10 00851 M00S00850.class +++|* BUFFERS. 00852 M00S00851.class +++| 00853 M00S00852.class +++| USE LITERALS 00854 M00S00853.class +++| INBUF EQU * INPUT BUFFER 00855 M00S00854.class +++| USCP EQU INBUF+IBFL INPUT BUFFER 00856 M00S00855.class +++| OUTBUF EQU USCP+SCTL OUTPUT BUFFER 00857 M00S00856.class +++| OUTBUFL EQU OUTBUF+OBFL OUTPUT BUFFER LIMIT 00858 M00S00857.class +++| TITLE PRESET. 00859 M00S00858.class +++| PRS SPACE 4,20 00860 M00S00859.class +++|** PRS - PRESET. 00861 M00S00860.class +++|* 00862 M00S00861.class +++|* *PRS* DETERMINES ORIGIN, SERVICE CLASS, AND TERMINAL 00863 M00S00862.class +++|* CHARACTERISTICS. 00864 M00S00863.class +++|* 00865 M00S00864.class +++|* EXIT (ASFG) = SET TO ONE IF *ASCII* USER. 00866 M00S00865.class +++|* (DOUT) = SET TO DEFAULT OUTPUT FILENAME. 00867 M00S00866.class +++|* (JORG) = SET TO CURRENT JOBS ORIGIN. 00868 M00S00867.class +++|* (JOSC) = SET TO CURRENT JOBS SERVICE CLASS. 00869 M00S00868.class +++|* (TFLG) = SET TO ONE IF TIMESHARING USER. 00870 M00S00869.class +++|* (TTFG) = SET TO ONE IF INPUT FILE TYPE IS *TT*. 00871 M00S00870.class +++|* 00872 M00S00871.class +++|* USES X - 0, 1, 2, 6. 00873 M00S00872.class +++|* A - 1, 6. 00874 M00S00873.class +++|* B - 1. 00875 M00S00874.class +++|* 00876 M00S00875.class +++|* CALLS CCP, STF. 00877 M00S00876.class +++|* 00878 M00S00877.class +++|* MACROS CSET, GETJOSC, PROMPT, TSTATUS. 00879 M00S00878.class +++| 00880 M00S00879.class +++| 00881 M00S00880.class +++| PRS SUBR ENTRY/EXIT 00882 M00S00881.class +++| SB1 1 SYSTEM COMMUNICATION (B1)=1 00883 M00S00882.class +++| 00884 M00S00883.class +++|* DETERMINE JOB ORIGIN AND SERVICE CLASS. 00885 M00S00884.class +++| 00886 M00S00885.class +++| GETJOSC JOSC GET CURRENT SERVICE CLASS 00887 M00S00886.class +++| SA1 JOSC 00888 M00S00887.class +++| MX0 -6 00889 M00S00888.class +++| LX1 -6 00890 M00S00889.class +++| BX6 -X0*X1 00891 M00S00890.class +++| SA6 A1+ 00892 M00S00891.class +++| LX1 6 00893 M00S00892.class +++| BX6 -X0*X1 00894 M00S00893.class +++| SA1 JORG GET JOB ORIGIN TYPE 00895 M00S00894.class +++| SA6 A1 00896 M00S00895.class +++| SX1 X6-IAOT 00897 M00S00896.class +++| NZ X1,PRS2 IF NOT *IAOT* 00898 M00S00897.class +++| SX6 B1+ SET TIMESHARING FLAG 00899 M00S00898.class +++| SA6 TFLG 00900 M00S00899.class +++| 00901 M00S00900.class +++|* DETERMINE TERMINAL CHARACTERISTICS. 00902 M00S00901.class +++| 00903 M00S00902.class +++| TSTATUS TTST GET TERMINAL STATUS 00904 M00S00903.class +++| SA1 B1+TTST GET CURRENT CHARACTER SET 00905 M00S00904.class +++| MX0 1 00906 M00S00905.class +++| LX0 3 00907 M00S00906.class +++| BX1 X0*X1 00908 M00S00907.class +++| ZR X1,PRS1 IF NOT 64 CHARACTER SET 00909 M00S00908.class +++| BX6 X1 SET *ASCII* FLAG 00910 M00S00909.class +++| SA6 ASFG 00911 M00S00910.class +++| CSET NORMAL SET TERMINAL CHARACTER MODE 00912 M00S00911.class +++| PRS1 PROMPT OFF SUPPRESS *IAF* PROMPTS 00913 M00S00912.class +++| PRS2 RJ CCP CRACK *CLASS* PARAMETERS 00914 M00S00913.class +++| SX2 INPUT 00915 M00S00914.class +++| RJ STF DETERMINE IF INPUT FILE TYPE *TT* 00916 M00S00915.class +++| SX2 O 00917 M00S00916.class +++| RJ STF DETERMINE IF OUTPUT FILE TYPE *TT* 00918 M00S00917.class +++| NZ X6,PRS3 IF FILE TYPE NOT *TT* 00919 M00S00918.class +++| SX6 B1+ 00920 M00S00919.class +++| SA6 TTFG STORE *TT* FILE TYPE FLAG 00921 M00S00920.class +++| PRS3 SA1 SERV 00922 M00S00921.class +++| ZR X1,PRS5 IF NO SERVICE CLASS ARGUMENT 00923 M00S00922.class +++| PRS4 SA1 DOUT RESET *L* TO OUTPUT 00924 M00S00923.class +++| BX6 X1 00925 M00S00924.class +++| SA6 O 00926 M00S00925.class +++| SX6 B0 00927 M00S00926.class +++| SA6 ORGN CLEAR SPECIFIED ORIGIN ARGUMENT 00928 M00S00927.class +++| EQ PRSX RETURN 00929 M00S00928.class +++| 00930 M00S00929.class +++| PRS5 SA1 ARGE 00931 M00S00930.class +++| ZR X1,PRSX IF NO ARGUMENT ERROR 00932 M00S00931.class +++| EQ PRS4 RESET *L* TO OUTPUT 00933 M00S00932.class +++| TITLE PRESET SUBROUTINES. 00934 M00S00933.class +++| CCP SPACE 4,20 00935 M00S00934.class +++|** CCP - CRACK *CLASS* PARAMETERS. 00936 M00S00935.class +++|* 00937 M00S00936.class +++|* ENTRY (X3) = ADDRESS OF ERROR MESSAGE TO BE DISPLAYED. 00938 M00S00937.class +++|* 00939 M00S00938.class +++|* EXIT (X3) = ADDRESS OF ERROR MESSAGE TO BE DISPLAYED. 00940 M00S00939.class +++|* (ABTF) = SET TO ONE IF ABORT OPTION PRESENT. 00941 M00S00940.class +++|* (ARGE) = SET TO ONE IF ARGUMENT ERROR OCCURS. 00942 M00S00941.class +++|* (NUMA) = SET TO NUMBER OF *CLASS* ARGUMENTS. 00943 M00S00942.class +++|* (ORGN) = SET TO ORIGIN OF INQUIRY. 00944 M00S00943.class +++|* (POUT) = PROPOSED OUTPUT FILENAME. 00945 M00S00944.class +++|* (SERV) = SET TO DESIRED SERVICE CLASS. 00946 M00S00945.class +++|* 00947 M00S00946.class +++|* USES X - 1, 2, 3, 4, 6. 00948 M00S00947.class +++|* A - 1, 2, 6. 00949 M00S00948.class +++|* B - 2, 3, 4, 6, 7. 00950 M00S00949.class +++|* 00951 M00S00950.class +++|* CALLS ARM, CPA, FNB, USB, VCP. 00952 M00S00951.class +++| 00953 M00S00952.class +++| 00954 M00S00953.class +++| CCP SUBR ENTRY/EXIT 00955 M00S00954.class +++| SA1 ACTR 00956 M00S00955.class +++| SX6 X1 00957 M00S00956.class +++| SA6 NUMA STORE NUMBER OF ARGUMENTS 00958 M00S00957.class +++| ZR X6,CCPX IF NO ARGUMENTS 00959 M00S00958.class +++| CCP1 SB2 CCDR UNPACK CONTROL CARD 00960 M00S00959.class +++| SB3 B0+ FOR NORMAL CHARACTER SET 00961 M00S00960.class +++| RJ USB 00962 M00S00961.class +++| SA1 A6 ASSURE TERMINATOR CHARACTER 00963 M00S00962.class +++| SX6 1R. 00964 M00S00963.class +++| SA6 X1+B1 00965 M00S00964.class +++| SA2 CCPB SET SEPARATOR MASK 00966 M00S00965.class +++| SB2 60 SET MAXIMUM NON-DELIMITER DISPLAY CODE 00967 M00S00966.class +++| SB7 CCP4 SET EXIT FOR TERMINATOR CHARACTER 00968 M00S00967.class +++| RJ FNB FIND NON-BLANK CHARACTER 00969 M00S00968.class +++| 00970 M00S00969.class +++|* OBTAIN *CLASS* ARGUMENTS. 00971 M00S00970.class +++| 00972 M00S00971.class +++| SB7 CCPX SET EXIT FOR TERMINATOR CHARACTER 00973 M00S00972.class +++| CCP2 RJ FNB FIND NON-BLANK CHARACTER 00974 M00S00973.class +++| SB4 B5-B2 00975 M00S00974.class +++| LX4 X2,B5 00976 M00S00975.class +++| PL B4,CCP3 IF SEPARATOR CHARACTER 00977 M00S00976.class +++| PL X4,CCP2 IF NOT SEPARATOR CHARACTER 00978 M00S00977.class +++| CCP3 SB3 TARG FWA ARGUMENT EQUIVALENCE TABLE 00979 M00S00978.class +++| SB2 TARGL LENGTH ARGUMENT TABLE 00980 M00S00979.class +++| SB4 CCPA ADDRESS TO PLACE DATA 00981 M00S00980.class +++| RJ CPA CONVERT POSITIONAL ARGUMENTS 00982 M00S00981.class +++| NG B5,CCP4 IF ARGUMENT ERROR 00983 M00S00982.class +++| PL X1,CCPX IF NO ARGUMENTS PROCESSED 00984 M00S00983.class +++| SX6 B5 SET LWA OF ARGUMENTS 00985 M00S00984.class +++| SA6 USBC 00986 M00S00985.class +++| SB6 CCPA FWA OF ARGUMENTS 00987 M00S00986.class +++| RJ ARM PROCESS ARGUMENTS 00988 M00S00987.class +++| NZ X1,CCP4 IF ERROR 00989 M00S00988.class +++| RJ VCP VALIDATE *CLASS* PARAMETER(S) 00990 M00S00989.class +++| EQ CCPX RETURN 00991 M00S00990.class +++| 00992 M00S00991.class +++|* FLAG ARGUMENT ERROR CONDITION. 00993 M00S00992.class +++| 00994 M00S00993.class +++| CCP4 SX6 B1+ 00995 M00S00994.class +++| SA6 ARGE SET ARGUMENT ERROR FLAG 00996 M00S00995.class +++| SX3 MSGB SET * CLASS ARGUMENT ERROR.* 00997 M00S00996.class +++| EQ CCPX RETURN 00998 M00S00997.class +++| 00999 M00S00998.class +++| CCPA BSS 100 01000 M00S00999.class +++| 01001 M00S01000.class +++| CCPB CON 40000000000033127777B SEPARATOR MASK 01002 M00S01001.class +++| 01003 M00S01002.class +++| TARG SPACE 4,10 01004 M00S01003.class +++|* TARG - ARGUMENT TABLE. 01005 M00S01004.class +++| 01006 M00S01005.class +++| TARG BSS 0 01007 M00S01006.class +++| SC ARG SERV,SERV,0,0 DESIRED JOB SERVICE CLASS 01008 M00S01007.class +++| OT ARG ORGN,ORGN,0,0 ORIGIN OF INQUIRY 01009 M00S01008.class +++| L ARG POUT,POUT,0,0 PROPOSED OUTPUT FILENAME 01010 M00S01009.class +++| OP ARG ABTF,ABTF,0,0 ABORT OPTION 01011 M00S01010.class +++| JSN ARG JSNA,JSNA,0,0 DESIRED JSN 01012 M00S01011.class +++| ARG 01013 M00S01012.class +++| TARGL EQU *-TARG-1 LENGTH OF ARGUMENT TABLE 01014 M00S01013.class +++| FNB SPACE 4,15 01015 M00S01014.class +++|** FNB - FIND NON-BLANK CHARACTER. 01016 M00S01015.class +++|* 01017 M00S01016.class +++|* ENTRY (B6) = NEXT CHARACTER ADDRESS. 01018 M00S01017.class +++|* (B7) = EXIT ADDRESS, IF TERMINATOR ENCOUNTERED. 01019 M00S01018.class +++|* 01020 M00S01019.class +++|* EXIT (X1) = (B5) = NEXT NON-BLANK CHARACTER. 01021 M00S01020.class +++|* (B6) = NEXT CHARACTER ADDRESS (UPDATED). 01022 M00S01021.class +++|* EXIT IS MADE TO (B7), IF TERMINATOR ENCOUNTERED. 01023 M00S01022.class +++|* 01024 M00S01023.class +++|* USES X - 1, 4. 01025 M00S01024.class +++|* A - 1. 01026 M00S01025.class +++|* B - 5, 6. 01027 M00S01026.class +++| 01028 M00S01027.class +++| 01029 M00S01028.class +++| FNB SUBR ENTRY/EXIT 01030 M00S01029.class +++| FNB1 SA1 B6 GET NEXT CHARACTER 01031 M00S01030.class +++| SB6 B6+B1 01032 M00S01031.class +++| SX4 X1-1R 01033 M00S01032.class +++| ZR X4,FNB1 IF BLANK CHARACTER 01034 M00S01033.class +++| SB5 X1+ 01035 M00S01034.class +++| SX4 X1-1R. 01036 M00S01035.class +++| ZR X4,FNB2 IF TERMINATOR CHARACTER 01037 M00S01036.class +++| SX4 X1-1R) 01038 M00S01037.class +++| NZ X4,FNBX IF NOT TERMINATOR CHARACTER, RETURN 01039 M00S01038.class +++| FNB2 JP B7 PROCESS TERMINATOR CHARACTER 01040 M00S01039.class +++| VCP SPACE 4,15 01041 M00S01040.class +++|** VCP - VALIDATE *CLASS* PARAMETERS. 01042 M00S01041.class +++|* 01043 M00S01042.class +++|* ENTRY (X3) = ADDRESS OF ERROR MESSAGE TO BE DISPLAYED. 01044 M00S01043.class +++|* (ORGN) = ORIGIN OF INQUIRY. 01045 M00S01044.class +++|* (POUT) = PROPOSED OUTPUT FILENAME. 01046 M00S01045.class +++|* (SERV) = SET TO DESIRED SERVICE CLASS. 01047 M00S01046.class +++|* 01048 M00S01047.class +++|* EXIT (X3) = ADDRESS OF ERROR MESSAGE TO BE DISPLAYED. 01049 M00S01048.class +++|* (ARGE) = SET TO ONE IF ARGUMENT ERROR OCCURS. 01050 M00S01049.class +++|* (SERV) = SET TO DESIRED SERVICE CLASS. 01051 M00S01050.class +++|* 01052 M00S01051.class +++|* USES X - 0, 1, 2, 3, 6, 7. 01053 M00S01052.class +++|* A - 1, 2, 6, 7. 01054 M00S01053.class +++|* B - 2, 5, 7. 01055 M00S01054.class +++| 01056 M00S01055.class +++| 01057 M00S01056.class +++| VCP14 SX6 B1+ SET ARGUMENT ERROR FLAG 01058 M00S01057.class +++| SA6 ARGE 01059 M00S01058.class +++| 01060 M00S01059.class +++| VCP SUBR ENTRY/EXIT 01061 M00S01060.class +++| SA1 TSCT-1 01062 M00S01061.class +++| SB7 TSCTL NUMBER OF SERVICE CLASSES 01063 M00S01062.class +++| MX0 12 01064 M00S01063.class +++| SA2 SERV GET STORED SERVICE CLASS ARGUMENT 01065 M00S01064.class +++| BX7 X2 01066 M00S01065.class +++| SA7 SERC 01067 M00S01066.class +++| ZR X2,VCP1 IF NO SERVICE CLASS PARAMETER PRESENT 01068 M00S01067.class +++| 01069 M00S01068.class +++|* CHECK FOR VALID SERVICE CLASS PARAMETER. 01070 M00S01069.class +++| 01071 M00S01070.class +++| VCP0 SA1 A1+B1 01072 M00S01071.class +++| ZR B7,VCP8 IF END OF TABLE 01073 M00S01072.class +++| SB7 B7-B1 DECREMENT NUMBER OF SERVICE CLASSES 01074 M00S01073.class +++| BX7 X0*X1 01075 M00S01074.class +++| BX7 X7-X2 COMPARE CODES 01076 M00S01075.class +++| NZ X7,VCP0 IF NO MATCH WITH TABLE ENTRY 01077 M00S01076.class +++| MX0 -12 01078 M00S01077.class +++| BX7 -X0*X1 01079 M00S01078.class +++| SA7 A2+ SAVE SERVICE CLASS ARGUMENT AS VALUE 01080 M00S01079.class +++| 01081 M00S01080.class +++|* CHECK FOR VALID ORIGIN PARAMETER. 01082 M00S01081.class +++| 01083 M00S01082.class +++| VCP1 SA1 TORT-1 01084 M00S01083.class +++| SB7 TORTL NUMBER OF ORIGINS 01085 M00S01084.class +++| MX0 12 01086 M00S01085.class +++| SA2 ORGN GET STORED ORIGIN TYPE ARGUMENT 01087 M00S01086.class +++| ZR X2,VCP3 IF NO ORIGIN PARAMETER PRESENT 01088 M00S01087.class +++| VCP2 SA1 A1+B1 01089 M00S01088.class +++| ZR B7,VCP9 IF END OF TABLE 01090 M00S01089.class +++| SB7 B7-B1 DECREMENT NUMBER OF ORIGINS 01091 M00S01090.class +++| BX7 X0*X1 01092 M00S01091.class +++| BX7 X7-X2 COMPARE CODES 01093 M00S01092.class +++| NZ X7,VCP2 IF NO MATCH WITH TABLE ENTRY 01094 M00S01093.class +++| MX0 -12 01095 M00S01094.class +++| BX7 -X0*X1 01096 M00S01095.class +++| SA7 A2+ SAVE ORIGIN ARGUMENT AS VALUE 01097 M00S01096.class +++| 01098 M00S01097.class +++|* CHECK FOR VALID OUTPUT FILE PARAMETER. 01099 M00S01098.class +++| 01100 M00S01099.class +++| VCP3 SA1 POUT GET PROPOSED OUTPUT FILENAME 01101 M00S01100.class +++| ZR X1,VCP5 IF NO FILE NAME SPECIFIED 01102 M00S01101.class +++| MX0 -6 01103 M00S01102.class +++| LX0 12 01104 M00S01103.class +++| BX2 -X0*X1 01105 M00S01104.class +++| NZ X2,VCP10 IF EIGHT CHARACTERS 01106 M00S01105.class +++| SB5 7 SET NUMBER OF ALLOWABLE CHARACTERS 01107 M00S01106.class +++| MX0 -6 01108 M00S01107.class +++| VCP4 LX1 6 01109 M00S01108.class +++| SB5 B5-1 DECREMENT CHARACTER COUNT 01110 M00S01109.class +++| BX2 -X0*X1 01111 M00S01110.class +++| SB2 X2-45B SUBTRACT MAXIMUN LEGAL CHARACTER 01112 M00S01111.class +++| PL B2,VCP10 IF INCORRECT CHARACTER 01113 M00S01112.class +++| NZ B5,VCP4 IF NOT LAST CHARACTER OF FILENAME 01114 M00S01113.class +++| SA1 POUT 01115 M00S01114.class +++| SX2 B1 SET COMPLETE BIT 01116 M00S01115.class +++| BX6 X1+X2 01117 M00S01116.class +++| SA6 O 01118 M00S01117.class +++| 01119 M00S01118.class +++|* CHECK FOR VALID OPTION ARGUMENT. 01120 M00S01119.class +++| 01121 M00S01120.class +++| VCP5 SA1 ABTF 01122 M00S01121.class +++| ZR X1,VCP6 IF NO ABORT OPTION PRESENT 01123 M00S01122.class +++| SX6 1RA 01124 M00S01123.class +++| LX6 -6 01125 M00S01124.class +++| IX1 X1-X6 COMPARE OPTION ARGUMENT TO *A* 01126 M00S01125.class +++| NZ X1,VCP11 IF INCORRECT OPTION ARGUMENT 01127 M00S01126.class +++| SX6 B1 01128 M00S01127.class +++| SA6 ABTF SET ABORT OPTION FLAG 01129 M00S01128.class +++| 01130 M00S01129.class +++|* CHECK FOR VALID JSN ARGUMENT. 01131 M00S01130.class +++| 01132 M00S01131.class +++| VCP6 SA1 JSNA 01133 M00S01132.class +++| ZR X1,VCPX IF NO JSN ARGUMENT 01134 M00S01133.class +++| MX0 -6 01135 M00S01134.class +++| LX0 30 01136 M00S01135.class +++| BX2 -X0*X1 01137 M00S01136.class +++| NZ X2,VCP12 IF MORE THAN FOUR CHARACTERS 01138 M00S01137.class +++| LX0 6 01139 M00S01138.class +++| BX2 -X0*X1 01140 M00S01139.class +++| ZR X2,VCP12 IF LESS THAN FOUR CHARACTERS 01141 M00S01140.class +++| MX0 -6 01142 M00S01141.class +++| SB5 4 SET NUMBER OF AVAILABLE CHARACTERS 01143 M00S01142.class +++| VCP7 LX1 6 01144 M00S01143.class +++| SB5 B5-1 DECREMENT CHARACTER COUNT 01145 M00S01144.class +++| BX2 -X0*X1 01146 M00S01145.class +++| SB2 X2-1R+ CHECK CHARACTER FOR ALPHANUMERIC 01147 M00S01146.class +++| PL B2,VCP12 IF NOT VALID CHARACTER 01148 M00S01147.class +++| NZ B5,VCP7 IF NOT LAST CHARACTER 01149 M00S01148.class +++| SA1 POUT 01150 M00S01149.class +++| NZ X1,VCP13 IF OUTPUT FILENAME NOT OUTPUT 01151 M00S01150.class +++| SA2 ORGN 01152 M00S01151.class +++| NZ X2,VCP13 IF ORIGIN SPECIFIED 01153 M00S01152.class +++| SA1 ABTF 01154 M00S01153.class +++| NZ X1,VCP13 IF ABORT OPTION SPECIFIED 01155 M00S01154.class +++| SA2 SERV 01156 M00S01155.class +++| NZ X2,VCPX IF SERVICE CLASS ARGUMENT EXISTS 01157 M00S01156.class +++| 01158 M00S01157.class +++|* FLAG ARGUMENT ERROR CONDITION. 01159 M00S01158.class +++| 01160 M00S01159.class +++| SX3 MSGK * SERVICE CLASS REQUIRED WITH JSN.* 01161 M00S01160.class +++| EQ VCP14 SET ARGUMENT ERROR FLAG 01162 M00S01161.class +++| 01163 M00S01162.class +++| VCP8 SX6 3 01164 M00S01163.class +++| SA6 ARGE SET ARGUMENT ERROR FLAG 01165 M00S01164.class +++| SX3 MSGD SET * UNDEFINED SERVICE CLASS.* 01166 M00S01165.class +++| EQ VCP1 CONTINUE TO VALIDATE NEXT PARAMETER 01167 M00S01166.class +++| 01168 M00S01167.class +++| VCP9 SX3 MSGH * UNIDENTIFIED ORIGIN TYPE.* 01169 M00S01168.class +++| EQ VCP14 SET ARGUMENT ERROR FLAG 01170 M00S01169.class +++| 01171 M00S01170.class +++| VCP10 SX3 MSGI * INCORRECT OUTPUT FILENAME.* 01172 M00S01171.class +++| EQ VCP14 SET ARGUMENT ERROR FLAG 01173 M00S01172.class +++| 01174 M00S01173.class +++| VCP11 SX6 B0+ RESET ABORT FLAG 01175 M00S01174.class +++| SA6 ABTF 01176 M00S01175.class +++| SX3 MSGG * INCORRECT OPTION ARGUMENT.* 01177 M00S01176.class +++| EQ VCP14 SET ARGUMENT ERROR FLAG 01178 M00S01177.class +++| 01179 M00S01178.class +++| VCP12 SX3 MSGN * INCORRECT JSN ARGUMENT.* 01180 M00S01179.class +++| EQ VCP14 SET ARGUMENT ERROR FLAG 01181 M00S01180.class +++| 01182 M00S01181.class +++| VCP13 SX3 MSGJ * SC ONLY PARAMETER VALID WITH JSN.* 01183 M00S01182.class +++| EQ VCP14 SET ARGUMENT ERROR FLAG 01184 M00S01183.class +++| SPACE 4,10 01185 M00S01184.class +++|* PRESET COMMON DECKS. 01186 M00S01185.class +++| 01187 M00S01186.class +++|*CALL COMCARM 01188 M00S01187.class +++|*CALL COMCCPA 01189 M00S01188.class +++|*CALL COMCPOP 01190 M00S01189.class +++|*CALL COMCSTF 01191 M00S01190.class +++|*CALL COMCUSB 01192 M00S01191.class +++| SPACE 4,10 01193 M00S01192.class +++| RFL= EQU * 01194 M00S01193.class +++| END
cdc/nos2.source/opl.opl871/deck/class.txt · Last modified: (external edit)