Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:class
Deck CLASS
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.class +++| IDENT CLASS,FWA,CLASS 00002 M01S00002.class +++| ABS 00003 M01S00003.class +++| SST 00004 M01S00004.class +++| ENTRY CLASS 00005 M01S00005.class +++| ENTRY SSJ= 00006 M01S00006.class +++| ENTRY RFL= 00007 M01S00007.class +++| SYSCOM B1 00008 M01S00008.class +++| TITLE CLASS - CHANGE USER SERVICE CLASS. 00009 M01S00009.class +++|*COMMENT CLASS - CHANGE USER SERVICE CLASS.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | class |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M02S00010.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1982. 00011 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00012 M01S00011.class +++| SPACE 4,10 00013 M01S00012.class +++|*** CLASS - CHANGE USER SERVICE CLASS. 00014 M01S00013.class +++|* 00015 M01S00014.class +++|* W. T. COLEMAN. 82/08/09. 00016 M01S00015.class +++| SPACE 4,10 00017 M01S00016.class +++|*** *CLASS* PERMITS THE SERVICE CLASS OF THE JOB TO BE 00018 M01S00017.class +++|* CHANGED AT ANY TIME DURING A TERMINAL SESSION OR BY 00019 M01S00018.class +++|* USING THE *CLASS* COMMAND WITHIN A BATCH JOB. THIS 00020 M01S00019.class +++|* COMMAND ALSO ALLOWS THE SERVICE CLASS OF ANY BATCH JOB 00021 M01S00020.class +++|* UNDER THE CALLING USER-S CONTROL TO BE CHANGED. THIS 00022 M01S00021.class +++|* COMMAND ALLOWS INQUIRY OF AVAILABLE SERVICE CLASSES. 00023 M01S00022.class +++|* IT WILL ACCEPT PARAMETERS FROM THE *CLASS* COMMAND 00024 M01S00023.class +++|* INPUT FROM THE FILE *INPUT*, AND SEND OUTPUT TO THE 00025 M01S00024.class +++|* USER VIA FILE *OUTPUT* OR A SPECIFIED OUTPUT FILE. 00026 M01S00025.class +++| SPACE 4,10 00027 M01S00026.class +++|*** *CLASS* COMMAND. 00028 M01S00027.class +++|* 00029 M01S00028.class +++|* CLASS,SC,OT,LFN,A. 00030 M01S00029.class +++|* 00031 M01S00030.class +++|* CLASS,SC=SC,OT=OT,L=LFN,OP=A. 00032 M01S00031.class +++|* 00033 M01S00032.class +++|* CLASS,SC,,,,JSN. 00034 M01S00033.class +++|* 00035 M01S00034.class +++|* CLASS,SC,JSN=JSN. 00036 M01S00035.class +++|* 00037 M01S00036.class +++|* CLASS,SC=SC,JSN=JSN. 00038 M01S00037.class +++|* 00039 M01S00038.class +++|* *CLASS* CONTROL STATEMENT PARAMETERS ARE DEFINED 00040 M01S00039.class +++|* AS FOLLOWS. 00041 M01S00040.class +++|* 00042 M01S00041.class +++|* SC TWO CHARACTER SERVICE CLASS SYMBOL OF DESIRED 00043 M01S00042.class +++|* SERVICE CLASS OR NULL. IF THIS PARAMETER IS 00044 M01S00043.class +++|* NOT SPECIFIED, AND THE COMMAND HAS BEEN ISSUED 00045 M01S00044.class +++|* FROM AN TIMESHARING USER WHOSE INPUT/OUTPUT 00046 M01S00045.class +++|* FILES ARE ASSIGNED TO THEIR TERMINAL, AND NO 00047 M01S00046.class +++|* ORIGIN (*OT* PARAMETER) HAS BEEN SPECIFIED THEN 00048 M01S00047.class +++|* A TERMINAL DISPLAY IS GENERATED FOR THE USER TO 00049 M01S00048.class +++|* SELECT A SERVICE CLASS. AN ALTERNATE OUTPUT 00050 M01S00049.class +++|* FILE CAN BE SPECIFIED FOR THE DISPLAY IF NO 00051 M01S00050.class +++|* SERVICE CLASS IS PRESENT. THIS PARAMETER HAS 00052 M01S00051.class +++|* NO DEFAULT AND IS REQUIRED IF THE *JSN* 00053 M01S00052.class +++|* PARAMETER IS SPECIFIED. THE SELECTED 00054 M01S00053.class +++|* SERVICE CLASS MUST BE DEFINED AND VALIDATED FOR 00055 M01S00054.class +++|* USE. THE DEFINED SERVICE CLASSES ARE: 00056 M01S00055.class +++|* SY - SYSTEM, 00057 M01S00056.class +++|* BC - BATCH, 00058 M01S00057.class +++|* RB - REMOTE BATCH, 00059 M01S00058.class +++|* TS - INTERACTIVE, 00060 M01S00059.class +++|* DI - DETACHED INTERACTIVE, 00061 M01S00060.class +++|* NS - NETWORK SUPERVISOR, 00062 M01S00061.class +++|* SS - SUBSYSTEM, 00063 M01S00062.class +++|* MA - MAINTENANCE, 00064 M01S00063.class +++|* CT - COMMUNCATION TASK, 00065 M01S00064.class +++|* I0 - INSTALLATION CLASS 0, 00066 M01S00065.class +++|* I1 - INSTALLATION CLASS 1, 00067 M01S00066.class +++|* I2 - INSTALLATION CLASS 2, 00068 M01S00067.class +++|* I3 - INSTALLATION CLASS 3. 00069 M01S00068.class +++|* 00070 M01S00069.class +++|* OT ORIGIN TYPE TO INSPECT FOR ACCESSABLE SERVICE 00071 M01S00070.class +++|* CLASS(S). DEFAULT TO JOBS CURRENT ORIGIN TYPE. 00072 M01S00071.class +++|* THIS PARAMETER IS IGNORED IF A SERVICE CLASS 00073 M01S00072.class +++|* (*SC* PARAMETER) IS SPECIFIED. THE POSSIBLE 00074 M01S00073.class +++|* ORIGIN TYPES ARE: 00075 M01S00074.class +++|* SY - SYSTEM ORIGIN, 00076 M01S00075.class +++|* BC - BATCH ORIGIN, 00077 M01S00076.class +++|* RB - REMOTE BATCH ORIGIN, 00078 M01S00077.class +++|* EI - REMOTE BATCH ORIGIN, 00079 M01S00078.class +++|* TX - INTERACTIVE, 00080 M01S00079.class +++|* IA - INTERACTIVE. 00081 M01S00080.class +++|* 00082 M01S00081.class +++|* L LISTING IS PLACED ON SPECIFIED FILE. THIS 00083 M01S00082.class +++|* PARAMETER IS IGNORED IF A SERVICE CLASS 00084 M01S00083.class +++|* (*SC* PARAMETER) IS PRESENT. IF THE SPECIFIED 00085 M01S00084.class +++|* FILE IS ASIGNED TO THE TERMINAL (TYPE *TT*) 00086 M01S00085.class +++|* THEN PROMPTING WILL OCCUR. THE DEFAULT FILE 00087 M01S00086.class +++|* WILL OCCUR. DEFAULT FILE IS *OUTPUT*. 00088 M01S00087.class +++|* 00089 M01S00088.class +++|* OP ABORT OPTION INDICATING WHETHER THE JOB SHOULD 00090 M01S00089.class +++|* ABORT OR END IF AN ERROR IN PROCESSING IS 00091 M01S00090.class +++|* ENCOUNTERED. THIS IS AN OPTIONAL PARAMETER. 00092 M01S00091.class +++|* THE ABORT OPTION CAN BE SPECIFIED POSTIONALLY 00093 M01S00092.class +++|* *A* OR ORDER INDEPENDENTLY BY *OP=A*. 00094 M01S00093.class +++|* 00095 M01S00094.class +++|* JSN JOB SEQUENCE NAME OF THE JOB WHOSE SERVICE 00096 M01S00095.class +++|* CLASS IS TO BE CHANGED IF NOT THE CURRENT JOB. 00097 M01S00096.class +++| SPACE 4,10 00098 M01S00097.class +++|*** OUTPUT MESSAGES. 00099 M01S00098.class +++|* 00100 M01S00099.class +++|* * CANNOT CHANGE CLASS OF ON-LINE JOB.* 00101 M01S00100.class +++|* THE SERVICE CLASS OF ANOTHER ON-LINE JOB CANNOT BE 00102 M01S00101.class +++|* CHANGED. 00103 M01S00102.class +++|* 00104 M01S00103.class +++|* * CANNOT CHANGE CLASS OF SUBSYSTEM.* 00105 M01S00104.class +++|* THE SERVICE CLASS OF A JOB THAT IS EXECUTING AT 00106 M01S00105.class +++|* THE SUBSYSTEM SERVICE CLASS CANNOT BE CHANGED. 00107 M01S00106.class +++|* 00108 M01S00107.class +++|* * CLASS ARGUMENT ERROR.* 00109 M01S00108.class +++|* INCORRECT *CLASS* ARGUMENT ON COMMAND. 00110 M01S00109.class +++|* 00111 M01S00110.class +++|* * CLASS COMPLETE.* 00112 M01S00111.class +++|* THE *CLASS* CONTROL STATEMENT COMPLETED PROCESSING. 00113 M01S00112.class +++|* 00114 M01S00113.class +++|* * INCORRECT JSN ARGUMENT.* 00115 M01S00114.class +++|* THE JSN IS EITHER NOT FOUR CHARACTERS LONG OR IT 00116 M01S00115.class +++|* CONTAINS NON-ALPHANUMERIC CHARACTERS. 00117 M01S00116.class +++|* 00118 M01S00117.class +++|* * INCORRECT OPTION ARGUMENT.* 00119 M01S00118.class +++|* INCORRECT OPTION ARGUMENT ON COMMAND. 00120 M01S00119.class +++|* 00121 M01S00120.class +++|* * INCORRECT OUTPUT FILENAME.* 00122 M01S00121.class +++|* SPECIFIED OUTPUT FILENAME ARGUMENT IS INCORRECT. 00123 M01S00122.class +++|* THE FILENAME IS EITHER TOO LONG (GREATER THAN 00124 M01S00123.class +++|* SEVEN CHARATERS) OR IT CONTAINS NON-ALPHANUMERIC 00125 M01S00124.class +++|* CHARACTERS. 00126 M01S00125.class +++|* 00127 M01S00126.class +++|* * INCORRECT SERVICE CLASS.* 00128 M01S00127.class +++|* THE TWO CHARACTER SERVICE CLASS WAS NOT VALID FOR 00129 M01S00128.class +++|* THE USER OR NOT VALID FOR THE CURRENT ORIGIN TYPE 00130 M01S00129.class +++|* OF THE USER. 00131 M01S00130.class +++|* 00132 M01S00131.class +++|* * JOB ALREADY WAITING ON SERVICE CLASS.* 00133 M01S00132.class +++|* THE SERVICE CLASS CHANGE CANNOT BE MADE BECAUSE THE 00134 M01S00133.class +++|* JOB IS WAITING FOR A *CLASS* COMMAND IN THE JOB TO 00135 M01S00134.class +++|* COMPLETE. 00136 M01S00135.class +++|* 00137 M01S00136.class +++|* * JSN NOT FOUND.* 00138 M01S00137.class +++|* THE JSN SPECIFIED IS NOT IN THE SYSTEM OR DOES NOT 00139 M01S00138.class +++|* BELONG TO THE CALLING USER. 00140 M01S00139.class +++|* 00141 M01S00140.class +++|* * SC ONLY PARAMTER VALID WITH JSN.* 00142 M01S00141.class +++|* THE *OT*, *L* AND *OP* PARAMETERS ARE NOT ALLOWED 00143 M01S00142.class +++|* WHEN THE *JSN* PARAMETER IS SPECIFIED. 00144 M01S00143.class +++|* 00145 M01S00144.class +++|* * SERVICE CLASS FULL.* 00146 M01S00145.class +++|* INFORMATIVE MESSAGE INDICATING THE SERVICE CLASS 00147 M01S00146.class +++|* CHANGE CANNOT BE MADE BECAUSE THE NUMBER OF JOBS 00148 M01S00147.class +++|* WITH THAT CLASS IS ALREADY AT THE SERVICE LIMIT. 00149 M01S00148.class +++|* 00150 M01S00149.class +++|* * SERVICE CLASS REQUIRED WITH JSN.* 00151 M01S00150.class +++|* THE *SC* PARAMETER MUST BE SPECIFIED WHEN THE *JSN* 00152 M01S00151.class +++|* PARAMETER IS SPECIFIED. 00153 M01S00152.class +++|* 00154 M01S00153.class +++|* * UNDEFINED ORIGIN TYPE.* 00155 M01S00154.class +++|* ORIGIN TYPE ARGUMENT IS NOT DEFINED. 00156 M01S00155.class +++|* 00157 M01S00156.class +++|* * UNDEFINED SERVICE CLASS.* 00158 M01S00157.class +++|* SERVICE CLASS MNEMONIC IS NOT DEFINED. 00159 M01S00158.class +++|* 00160 M01S00159.class +++|* * WAITING FOR SERVICE CLASS CHANGE TO SC.* 00161 M01S00160.class +++|* A BATCH JOB IS WAITING FOR AN AVAILABLE POSITION IN 00162 M01S00161.class +++|* SERVICE CLASS *SC* WHICH HAS REACHED SERVICE LIMIT. 00163 M01S00162.class +++| SPACE 4,10 00164 M01S00163.class +++|* COMMON DECKS. 00165 M01S00164.class +++| 00166 M01S00165.class +++|*CALL COMCCMD 00167 M01S00166.class +++|*CALL COMCMAC 00168 M01S00167.class +++|*CALL COMSEVT 00169 M01S00168.class +++|*CALL COMSQAC 00170 M01S00169.class +++|*CALL COMSSSJ 00171 M01S00170.class +++|*CALL COMSTCM 00172 M01S00171.class +++| SCLASS SPACE 4,15 00173 M01S00172.class +++|** SCLASS - DEFINE SERVICE CLASS TABLE. 00174 M01S00173.class +++|* 00175 M01S00174.class +++|* SCLASS NM,MN,DF,ST,TX 00176 M01S00175.class +++|* 00177 M01S00176.class +++|* ENTRY *NM* = SERVICE CLASS NAME. 00178 M01S00177.class +++|* *MN* = TWO CHARACTER MNEMONIC. 00179 M01S00178.class +++|* *DF* = DAYFILE MESSAGE CHARACTER. 00180 M01S00179.class +++|* *ST* = SHORT TEXT FOR *QFTLIST*. 00181 M01S00180.class +++|* *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE. 00182 M01S00181.class +++|* 00183 M01S00182.class +++|* NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF 00184 M01S00183.class +++|* THIS MACRO. 00185 M01S00184.class +++| 00186 M01S00185.class +++| 00187 M01S00186.class +++| PURGMAC SCLASS 00188 M01S00187.class +++| 00189 M01S00188.class +++| SCLASS MACRO NM,MN,DF,ST,TX 00190 M01S00189.class +++| .SCL RMT 00191 M01S00190.class +++| VFD 12/0L_MN,48/NM TX 00192 M01S00191.class +++| .SCL RMT 00193 M01S00192.class +++| SCLASS ENDM 00194 M01S00193.class +++| 00195 M01S00194.class +++| 00196 M01S00195.class +++| SCL$ EQU 0 ONLY PROCESS CLSSES WITH JCB-S 00197 M01S00196.class +++|*CALL COMSSCD 00198 M01S00197.class +++| TITLE DEFINITIONS. 00199 M01S00198.class +++|* ASSEMBLY CONSTANTS. 00200 M01S00199.class +++| 00201 M01S00200.class +++| IBFL EQU 3 INPUT BUFFER LENGTH 00202 M01S00201.class +++| LMSG EQU 4 LENGTH OF TIMESHARING MESSAGES. 00203 M01S00202.class +++| OBFL EQU 200D OUTPUT BUFFER LENGTH 00204 M01S00203.class +++| SCTL EQU 37D SERVICE CLASS TABLE LENGTH 00205 M01S00204.class +++| SPACE 4,10 00206 M01S00205.class +++|* FETS. 00207 M01S00206.class +++| 00208 M01S00207.class +++| ORG 110B 00209 M01S00208.class +++| FWA BSS 0 SET ORIGIN ADDRESS 00210 M01S00209.class +++| 00211 M01S00210.class +++| INPUT FILEC INBUF,IBFL INPUT FET 00212 M01S00211.class +++| 00213 M01S00212.class +++| O BSS 0 00214 M01S00213.class +++| OUTPUT FILEC OUTBUF,OBFL OUTPUT FET 00215 M01S00214.class +++| SPACE 4,10 00216 M01S00215.class +++|* SPECIAL ENTRY POINT. 00217 M01S00216.class +++| 00218 M01S00217.class +++| SSJ= EQU SSJP 00219 M01S00218.class +++| SPACE 4,10 00220 M01S00219.class +++|* WORKING STORAGE. 00221 M01S00220.class +++| 00222 M01S00221.class +++| ABTF CON 0 ABORT OPTION FLAG 00223 M01S00222.class +++| ARGE CON 0 *CLASS* ARGUMENT ERROR FLAG 00224 M01S00223.class +++| ASFG CON 0 *ASCII* CHARACTER SET FLAG 00225 M01S00224.class +++| CPMB CON 0 CONTROL POINT MANAGER PARAMETER BLOCK 00226 M01S00225.class +++| DOUT VFD 42/0LOUTPUT,18/1 DEFAULT OUTPUT FILENAME 00227 M01S00226.class +++| JORG CON 0 JOBS CURRENT ORIGIN TYPE 00228 M01S00227.class +++| JOSC CON 0 JOBS CURRENT SERVICE CLASS 00229 M01S00228.class +++| JSNA CON 0 JOB TO HAVE SERVICE CLASS CHANGED 00230 M01S00229.class +++| NUMA CON 0 NUMBER OF *CLASS* ARGUMENTS 00231 M01S00230.class +++| NUSC CON 0 NUMBER OF VALIDATED SERVICE CLASSES 00232 M01S00231.class +++| ORGN CON 0 ORIGIN JOB IS ENQUIRING UPON 00233 M01S00232.class +++| POUT CON 0 PROPOSED OUTPUT FILENAME 00234 M01S00233.class +++| RDMU CON 10D RANGE DETERMINATOR MULTIPLIER 00235 M01S00234.class +++| ROLT VFD 48/SCFE,12/SCRT ROLLOUT EVENT AND TIME INTERVAL 00236 M01S00235.class +++| SERC CON 0 SERVICE CLASS MNEMONIC 00237 M01S00236.class +++| SERV CON 0 DESIRED SERVICE CLASS (CHARACTER/VALUE) 00238 M01S00237.class +++| TFLG CON 0 TIMESHARING ORIGIN FLAG (IAOT) 00239 M01S00238.class +++| TTFG CON 0 INPUT/OUTPUT FILE *TT* TYPE FLAG 00240 M01S00239.class +++| TTST CON 0 *TSTATUS* PARAMETER BLOCK 00241 M01S00240.class +++| CON 0 00242 M01S00241.class +++| WRDO CON 0 NUMBER OF WORDS IN OUTBUF BUFFER 00243 M01S00242.class +++| SPACE 4,10 00244 M01S00243.class +++|* DAYFILE AND INTERACTIVE MESSAGES AND POSSIBLE REPLIES. 00245 M01S00244.class +++| 00246 M01S00245.class +++| MSGA DATA C* INCORRECT SERVICE CLASS. * 00247 M01S00246.class +++| MSGB DATA C* CLASS ARGUMENT ERROR.* 00248 M01S00247.class +++| MSGC DATA C* SERVICE CLASS FULL. * 00249 M01S00248.class +++| MSGD DATA C* UNDEFINED SERVICE CLASS. * 00250 M01S00249.class +++| MSGE DATA C* WAITING FOR SERVICE CLASS CHANGE TO SC.* 00251 M01S00250.class +++| MSGF DATA C* CLASS COMPLETE.* 00252 M01S00251.class +++| MSGG DATA C* INCORRECT OPTION ARGUMENT.* 00253 M01S00252.class +++| MSGH DATA C* UNDEFINED ORIGIN TYPE.* 00254 M01S00253.class +++| MSGI DATA C* INCORRECT OUTPUT FILENAME.* 00255 M01S00254.class +++| MSGJ DATA C* SC ONLY PARAMETER VALID WITH JSN.* 00256 M01S00255.class +++| MSGK DATA C* SERVICE CLASS REQUIRED WITH JSN.* 00257 M01S00256.class +++| MSGL DATA C* JSN NOT FOUND. * 00258 M01S00257.class +++| MSGM DATA C* CANNOT CHANGE CLASS OF ON-LINE JOB.* 00259 M01S00258.class +++| MSGN DATA C* INCORRECT JSN ARGUMENT.* 00260 M01S00259.class +++| MSPO DATA C* JOB ALREADY WAITING ON SERVICE CLASS.* 00261 M01S00260.class +++| MSPQ DATA C* CANNOT CHANGE CLASS OF SUBSYSTEM.* 00262 M01S00261.class +++| TITLE TABLE DEFINITIONS. 00263 M01S00262.class +++| BQAC SPACE 4,10 00264 M01S00263.class +++|** BQAC - *QAC* PARAMETER BLOCK. 00265 M01S00264.class +++|* 00266 M01S00265.class +++|* PREFIX PORTION. 00267 M01S00266.class +++| 00268 M01S00267.class +++| BQAC VFD 50/0,9/ALFC,1/0 *ALTER* 00269 M01S00268.class +++| VFD 36/0,6/ALLB-5,18/0 00270 M01S00269.class +++| VFD 60/0 00271 M01S00270.class +++| VFD 60/0 00272 M01S00271.class +++| VFD 60/0 00273 M01S00272.class +++| 00274 M01S00273.class +++|* SELECTION CRITERIA PORTION. 00275 M01S00274.class +++| 00276 M01S00275.class +++| VFD 60/0 00277 M01S00276.class +++| VFD 60/0 00278 M01S00277.class +++| BJSN VFD 24/0,36/JSSF JSN 00279 M01S00278.class +++| VFD 12/INQQ+EXQQ,48/0 00280 M01S00279.class +++| VFD 60/0 00281 M01S00280.class +++| VFD 60/0 00282 M01S00281.class +++| VFD 60/0 00283 M01S00282.class +++| 00284 M01S00283.class +++|* *ALTER* FUNCTION PORTION. 00285 M01S00284.class +++| 00286 M01S00285.class +++| VFD 30/0,6/0,12/CLAF,12/0 SERVICE CLASS FLAG 00287 M01S00286.class +++| VFD 60/0 00288 M01S00287.class +++| VFD 60/0 00289 M01S00288.class +++| BCLS VFD 42/0,12/0,6/0 NEW SERVICE CLASS 00290 M01S00289.class +++| VFD 60/0 00291 M01S00290.class +++| GTDT SPACE 4,10 00292 M01S00291.class +++|** GTDT - GENERATE TERMINAL DISPLAY TABLE. 00293 M01S00292.class +++|* 00294 M01S00293.class +++|* INTERACTIVE DISPLAY TEMPLATE. 00295 M01S00294.class +++| 00296 M01S00295.class +++| GTDA DATA C* AVAILABLE SERVICE CLASSES* 00297 M01S00296.class +++| DATA C* * 00298 M01S00297.class +++| DATA C* ---RELATIVE PRIORITY---* 00299 M01S00298.class +++| DATA C* CLASS INPUT FILES EXECUTING JOBS OUTPUT FILES* 00300 M01S00299.class +++| GTDAL EQU *-GTDA 00301 M01S00300.class +++| 00302 M01S00301.class +++| GTDB DATA C* * 00303 M01S00302.class +++| GTDB1 DATA C* ENTER CLASS: "EB"* 00304 M01S00303.class +++| GTDBL EQU *-GTDB 00305 M01S00304.class +++| 00306 M01S00305.class +++| GTDC DATA C*CURRENT* 00307 M01S00306.class +++| 00308 M01S00307.class +++| GTDD DATA C/ SC * * * / 00309 M01S00308.class +++| GTDDL EQU *-GTDD 00310 M01S00309.class +++| TORT SPACE 4,10 00311 M01S00310.class +++|** TORT - TABLE OF ORIGIN TYPES. 00312 M01S00311.class +++|* 00313 M01S00312.class +++|*T 12/ORIGIN, 48/VLAUE
Figure
00314 M01S00313.class +++|* 00315 M01S00314.class +++|* ORIGIN - TWO CHARACTER ORIGIN TYPE. 00316 M01S00315.class +++|* VALUE - CORRESPONDING ORIGIN TYPE VALUE. 00317 M01S00316.class +++| 00318 M01S00317.class +++| TORT BSS 0 00319 M01S00318.class +++| VFD 12/0LSY,48/SYOT+4000B SYSTEM ORIGIN TYPE 00320 M01S00319.class +++| VFD 12/0LBC,48/BCOT BATCH ORIGIN TYPE 00321 M01S00320.class +++| VFD 12/0LEI,48/RBOT REMOTE BATCH ORIGIN TYPE 00322 M01S00321.class +++| VFD 12/0LTX,48/IAOT INTERACTIVE ORIGIN TYPE 00323 M01S00322.class +++| VFD 12/0LRB,48/RBOT REMOTE BATCH ORIGIN TYPE 00324 M01S00323.class +++| VFD 12/0LIA,48/IAOT INTERACTIVE ORIGIN TYPE 00325 M01S00324.class +++| TORTL EQU *-TORT 00326 M01S00325.class +++| TSCT SPACE 4,10 00327 M01S00326.class +++|** TSCT - SERVICE CLASS TABLE. 00328 M01S00327.class +++|* 00329 M01S00328.class +++|*T 12/CLASS, 48/VALUE
Figure
00330 M01S00329.class +++|* 00331 M01S00330.class +++|* CLASS - VALID SERVICE CLASS. 00332 M01S00331.class +++|* VALUE - CORRESPONDING SERVICE CLASS VALUE. 00333 M01S00332.class +++| 00334 M01S00333.class +++| 00335 M01S00334.class +++| TSCT BSS 0 00336 M01S00335.class +++| LIST D 00337 M01S00336.class +++| .SCL HERE 00338 M01S00337.class +++| LIST * 00339 M01S00338.class +++| CON 0 END OF TABLE 00340 M01S00339.class +++| TSCTL EQU *-TSCT-1 00341 M01S00340.class +++| ERRNZ TSCTL-MXJC+1 ENSURE ALL SERVICE CLASSES PRESENT 00342 M01S00341.class +++| CLASS TITLE MAIN PROGRAM. 00343 M01S00342.class +++|** CLASS - MAIN PROGRAM. 00344 M01S00343.class +++| 00345 M01S00344.class +++| 00346 M01S00345.class +++| CLASS BSS 0 ENTRY 00347 M01S00346.class +++| RJ PRS PRESET 00348 M01S00347.class +++| SA2 ARGE 00349 M01S00348.class +++| SX4 X2-3 00350 M01S00349.class +++| ZR X4,CLA2 IF UNDEFINED SERVICE CLASS 00351 M01S00350.class +++| ZR X2,CLA1 IF NO ARGUMENT ERROR 00352 M01S00351.class +++| RJ AEM ABORT AND ISSUE ERROR MESSAGE 00353 M01S00352.class +++| EQ CLA5 END OF COMMAND PROCESSING 00354 M01S00353.class +++| 00355 M01S00354.class +++|* GENERATE DISPLAY AND/OR ATTEMPT TO CHANGE SERVICE CLASS. 00356 M01S00355.class +++| 00357 M01S00356.class +++| CLA1 SA2 ARGE 00358 M01S00357.class +++| NZ X2,CLA2 IF ARGUMENT ERROR 00359 M01S00358.class +++| SA2 SERV 00360 M01S00359.class +++| ZR X2,CLA3 IF NO SERVICE CLASS ARGUMENT 00361 M01S00360.class +++| RJ VCS VALIDATE/CHANGE SERVICE CLASS 00362 M01S00361.class +++| SA2 ARGE 00363 M01S00362.class +++| ZR X2,CLA4 IF SERVICE CLASS CHANGE COMPLETED 00364 M01S00363.class +++| CLA2 RJ AEM ISSUE ERROR MESSAGE 00365 M01S00364.class +++| WRITEW O,X3,LMSG DISPLAY ERROR MESSAGE 00366 M01S00365.class +++| WRITER O,R 00367 M01S00366.class +++| SA1 JSNA 00368 M01S00367.class +++| NZ X1,CLA5 IF JSN SPECIFIED 00369 M01S00368.class +++| CLA3 SETFET O,(BUF=OUTBUF,OBFL) 00370 M01S00369.class +++| RJ GTD GENERATE TERMINAL DISPLAY 00371 M01S00370.class +++| SA1 NUSC 00372 M01S00371.class +++| ZR X1,CLA4 IF NO SERVICE CLASS AVAILABLE 00373 M01S00372.class +++| SA1 TTFG 00374 M01S00373.class +++| ZR X1,CLA4 IF FILE TYPE NOT *TT* 00375 M01S00374.class +++| SA1 TFLG 00376 M01S00375.class +++| ZR X1,CLA4 IF NOT *IAOT* 00377 M01S00376.class +++| SA1 ORGN 00378 M01S00377.class +++| NZ X1,CLA4 IF DISPLAY BUILT FOR SPECIFIED ORIGIN 00379 M01S00378.class +++| WRITEW O,GTDB,GTDBL 00380 M01S00379.class +++| WRITER O FLUSH BUFFER 00381 M01S00380.class +++| SETFET INPUT,(BUF=INBUF,IBFL) 00382 M01S00381.class +++| READ INPUT,R READ REPONSE 00383 M01S00382.class +++| READC INPUT,INBUF,IBFL 00384 M01S00383.class +++| NZ X1,CLA4 IF NO SERVICE CLASS ENTERED 00385 M01S00384.class +++| RJ VTI VALIDATE TIMESHARING INPUT 00386 M01S00385.class +++| EQ CLA1 VALIDATE NEW ARGUMENTS 00387 M01S00386.class +++| 00388 M01S00387.class +++|* TERMINATION PROCESSING. 00389 M01S00388.class +++| 00390 M01S00389.class +++| CLA4 MESSAGE MSGF,3,R * CLASS COMPLETE.* 00391 M01S00390.class +++| CLA5 SA1 TFLG 00392 M01S00391.class +++| ZR X1,CLA6 IF NOT TIMESHARING 00393 M01S00392.class +++| PROMPT ON 00394 M01S00393.class +++| SA1 ASFG 00395 M01S00394.class +++| ZR X1,CLA6 IF NOT ASCII 00396 M01S00395.class +++| CSET ASCII 00397 M01S00396.class +++| CLA6 ENDRUN 00398 M01S00397.class +++| SPACE 4,10 00399 M01S00398.class +++| TITLE SUBROUTINES. 00400 M01S00399.class +++| AEM SPACE 4,10 00401 M01S00400.class +++|** AEM - ABORT AND/OR ISSUE ERROR MESSAGE. 00402 M01S00401.class +++|* 00403 M01S00402.class +++|* ENTRY (X3) = ADDRESS OF DAYFILE MESSAGE. 00404 M01S00403.class +++|* (ABTF) = ABORT OPTION PRESENT FLAG 00405 M01S00404.class +++|* (ARGE) = ARGUMENT ERROR FLAG 00406 M01S00405.class +++|* 00407 M01S00406.class +++|* EXIT (X3) = ADDRESS OF DAYFILE MESSAGE. 00408 M01S00407.class +++|* (ARGE)= RESET TO ZERO. 00409 M01S00408.class +++|* 00410 M01S00409.class +++|* USES X - 1, 2, 4, 6. 00411 M01S00410.class +++|* A - 1, 2, 4, 6. 00412 M01S00411.class +++|* 00413 M01S00412.class +++|* MACROS ABORT, CSET, MESSAGE. 00414 M01S00413.class +++| 00415 M01S00414.class +++| 00416 M01S00415.class +++| AEM SUBR ENTRY/EXIT 00417 M01S00416.class +++| MESSAGE X3,3 ISSUE DAYFILE MESSAGE 00418 M01S00417.class +++| SA2 ARGE GET ARGUMENT ERROR FLAG 00419 M01S00418.class +++| SA4 ABTF GET ABORT OPTION FLAG 00420 M01S00419.class +++| SX6 B0+ 00421 M01S00420.class +++| SA6 A2 RESET *ARGE* 00422 M01S00421.class +++| BX4 X2*X4 00423 M01S00422.class +++| ZR X4,AEMX IF NOT ERROR OR NOT ABORT OPTION 00424 M01S00423.class +++| SA1 TFLG 00425 M01S00424.class +++| ZR X1,AEM1 IF CALLING JOB NOT TIMESHARING 00426 M01S00425.class +++| SA1 ASFG 00427 M01S00426.class +++| ZR X1,AEM1 IF CHARACTER SET *NORMAL* 00428 M01S00427.class +++| CSET ASCII SET *ASCII* 128 CHARACTER SET MODE 00429 M01S00428.class +++| AEM1 ABORT 00430 M01S00429.class +++| DPM SPACE 4,10 00431 M01S00430.class +++|** DPM - DETERMINE PRIORITY MULTIPLIERS. 00432 M01S00431.class +++|* 00433 M01S00432.class +++|* ENTRY (RDMU) = RANGE DETERMINATOR MULTIPLIER. 00434 M01S00433.class +++|* (USCP) = BUFFER CONTAINS VALIDATED SERVICE CLASSES, 00435 M01S00434.class +++|* LOWER BOUND INPUT, UPPER BOUND EXECUTION 00436 M01S00435.class +++|* AND LOWER BOUND OUTPUT PRIORITIES. 00437 M01S00436.class +++|* 00438 M01S00437.class +++|* EXIT (NUSC) = NUMBER OF ENTRIES IN *USCP*. 00439 M01S00438.class +++|* (USCP) = BUFFER CONTAINS VALIDATED SERVICE CLASSES, 00440 M01S00439.class +++|* RELATIVE INPUT, RELATIVE EXECUTION AND 00441 M01S00440.class +++|* RELATIVE OUTPUT PRIORITIES. 00442 M01S00441.class +++|* 00443 M01S00442.class +++|* USES X - ALL. 00444 M01S00443.class +++|* A - 1, 5, 6. 00445 M01S00444.class +++|* B - 3, 4, 5, 6, 7. 00446 M01S00445.class +++| 00447 M01S00446.class +++| 00448 M01S00447.class +++| DPM SUBR ENTRY/EXIT 00449 M01S00448.class +++| SB4 B0+ 00450 M01S00449.class +++| SA1 USCP 00451 M01S00450.class +++| SB5 B1 SET FIELD FLAG 00452 M01S00451.class +++| MX0 -12 00453 M01S00452.class +++| LX1 -12 EXTRACT NUMBER OF RETURNED SERVICE CLASSES 00454 M01S00453.class +++| BX6 -X0*X1 00455 M01S00454.class +++| SA6 NUSC 00456 M01S00455.class +++| SB6 X6 00457 M01S00456.class +++| BX7 X6 00458 M01S00457.class +++| 00459 M01S00458.class +++|* FIND HIGHEST INPUT, EXECUTION OR OUTPUT PRIORITY IN *USCP*. 00460 M01S00459.class +++| 00461 M01S00460.class +++| DPM1 SA1 A1+B1 OBTAIN SERVICE CLASS PRIORITY 00462 M01S00461.class +++| ZR X7,DPM3 IF END OF SERVICE CLASSES 00463 M01S00462.class +++| SX7 X7-1 DECREMENT NUMBER OF SERVICE CLASSES 00464 M01S00463.class +++| BX2 -X0*X1 00465 M01S00464.class +++| EQ B5,B1,DPM2 IF PROCESSING OUTPUT PRIORITY 00466 M01S00465.class +++| LX2 -12D 00467 M01S00466.class +++| ZR B5,DPM2 IF PROCESSING EXECUTION PRIORITY 00468 M01S00467.class +++| LX2 -12D 00469 M01S00468.class +++| DPM2 SB3 X2 00470 M01S00469.class +++| LE B3,B4,DPM1 IF NOT HIGHER PRIORITY 00471 M01S00470.class +++| SB4 B3 00472 M01S00471.class +++| EQ DPM1 PROCESS NEXT ENTRY 00473 M01S00472.class +++| 00474 M01S00473.class +++|* CALCULATE PRIORITY MULTIPLIER (A = 10 * (P / H)) WHERE 00475 M01S00474.class +++|* P IS SERVICE CLASSES PRIORITY AND H IS THE MAXIMUM P. 00476 M01S00475.class +++|* THE MULTIPLIERS FOR INPUT, EXECUTION AND OUTPUT PRIORITIES 00477 M01S00476.class +++|* ARE COMPUTED INDEPENDENTLY. THE RESULT IS ROUNDED. 00478 M01S00477.class +++| 00479 M01S00478.class +++| DPM3 SX7 B6+ 00480 M01S00479.class +++| ZR B4,DPM7 IF HIGHEST PRIORITY IS ZERO 00481 M01S00480.class +++| SA1 USCP 00482 M01S00481.class +++| SX4 B4 00483 M01S00482.class +++| PX4 X4 00484 M01S00483.class +++| NX4 X4 00485 M01S00484.class +++| SA5 RDMU GET RANGE DETERMINATOR MULTIPLIER 00486 M01S00485.class +++| PX5 X5 00487 M01S00486.class +++| ZX5 X5 00488 M01S00487.class +++| DPM4 SA1 A1+B1 00489 M01S00488.class +++| ZR X7,DPM7 IF END OF SERVICE CLASSES 00490 M01S00489.class +++| SX7 X7-1 DECREMENT NUMBER OF SERVICE CLASSES 00491 M01S00490.class +++| BX3 -X0*X1 OBTAIN SERVICE CLASS PRIORITY 00492 M01S00491.class +++| EQ B5,B1,DPM5 IF PROCESSING OUTPUT PRIORITY 00493 M01S00492.class +++| LX3 -12D 00494 M01S00493.class +++| ZR B5,DPM5 IF PROCESSING EXECUTION PRIORITY 00495 M01S00494.class +++| LX3 -12D 00496 M01S00495.class +++| DPM5 PX3 X3 00497 M01S00496.class +++| NX3 X3 00498 M01S00497.class +++| RX3 X3/X4 CALCULATE RELATIVE PRIORITY 00499 M01S00498.class +++| RX3 X3*X5 00500 M01S00499.class +++| UX3,B7 X3 UNPACK MULTIPLIER 00501 M01S00500.class +++| LX3 X3,B7 00502 M01S00501.class +++| EQ B5,B1,DPM6 IF PROCESSING OUTPUT PRIORITY 00503 M01S00502.class +++| LX3 12D 00504 M01S00503.class +++| ZR B5,DPM6 IF PROCESSING EXECUTION PRIORITY 00505 M01S00504.class +++| LX3 12D 00506 M01S00505.class +++| DPM6 BX6 X0*X1 EXTRACT SERVICE CLASS 00507 M01S00506.class +++| BX6 X3+X6 CREATE NEW TABLE ENTRY 00508 M01S00507.class +++| SA6 A1+ 00509 M01S00508.class +++| EQ DPM4 CALCULATE NEXT *USCP* ENTRY 00510 M01S00509.class +++| 00511 M01S00510.class +++| DPM7 SX7 B6 00512 M01S00511.class +++| NG B5,DPMX IF ALL MULTIPLIERS COMPUTED 00513 M01S00512.class +++| SB4 B0 RESET HIGHEST PRIORITY TO ZERO 00514 M01S00513.class +++| SB5 B5-B1 UPDATE FIELD FLAG 00515 M01S00514.class +++| LX0 12 00516 M01S00515.class +++| SA1 USCP 00517 M01S00516.class +++| EQ DPM1 PROCESS OUTPUT PRIORITY 00518 M01S00517.class +++| GTD SPACE 4,15 00519 M01S00518.class +++|** GTD - GENERATE TERMINAL DISPLAY. 00520 M01S00519.class +++|* 00521 M01S00520.class +++|* ENTRY (SERV) = SET TO DESIRED SERIVCE CLASS. 00522 M01S00521.class +++|* (TSCT) = TABLE OF VALIDATED SERVICE CLASSES. 00523 M01S00522.class +++|* 00524 M01S00523.class +++|* EXIT (GTDF) = SET GENERATED DISPLAY FLAG. 00525 M01S00524.class +++|* (OUTBUF) = CONTAINS SERVICE CLASSES FOR DISPLAY. 00526 M01S00525.class +++|* 00527 M01S00526.class +++|* USES X - ALL. 00528 M01S00527.class +++|* A - 1, 2, 3, 5, 7. 00529 M01S00528.class +++|* B - 3, 4, 5, 6, 7. 00530 M01S00529.class +++|* 00531 M01S00530.class +++|* CALLS DFM, SCB, SRT. 00532 M01S00531.class +++|* 00533 M01S00532.class +++|* MACROS GETUSC, WRITER, WRITEW. 00534 M01S00533.class +++| 00535 M01S00534.class +++| 00536 M01S00535.class +++| GTD SUBR ENTRY/EXIT 00537 M01S00536.class +++| 00538 M01S00537.class +++|* SETUP *GETUSC* PARAMETER BLOCK. 00539 M01S00538.class +++| 00540 M01S00539.class +++| SX6 SCTL SET LENGTH OF *USCP* 00541 M01S00540.class +++| MX0 -11 00542 M01S00541.class +++| LX6 -12 00543 M01S00542.class +++| SA2 JORG GET JOBS CURRENT ORIGIN TYPE 00544 M01S00543.class +++| SA1 SERV 00545 M01S00544.class +++| NZ X1,GTD1 IF SERVICE CLASS ARGUMENT SPECIFIED 00546 M01S00545.class +++| SA2 ORGN GET SPECIFIED ORIGIN ARGUMENT 00547 M01S00546.class +++| NZ X2,GTD1 IF SPECIFIED ORIGIN ARGUMENT EXISTS 00548 M01S00547.class +++| SA2 JORG 00549 M01S00548.class +++| GTD1 BX2 -X0*X2 CLEAR *SY* ENTRY FLAG 00550 M01S00549.class +++| BX6 X6+X2 SET ORIGIN OF INQUIRY 00551 M01S00550.class +++| LX6 24 00552 M01S00551.class +++| SA6 USCP 00553 M01S00552.class +++| GETUSC USCP OBTAIN VALIDATED SERVICE CLASS 00554 M01S00553.class +++| RJ DPM DETERMINE PRIORITY MULTIPLIERS 00555 M01S00554.class +++| RJ SRT SORT *USCP* IN DESCENDING ORDER 00556 M01S00555.class +++| SA1 NUSC NUMBER OF *USCP* ENTRIES TO PROCESS 00557 M01S00556.class +++| SX0 X1+ 00558 M01S00557.class +++| ZR X0,GTDX IF NO SERVICE CLASS RETURNED 00559 M01S00558.class +++| SA5 USCP SET VALIDATED SERVICE CLASS TABLE 00560 M01S00559.class +++| SB7 OUTBUF+GTDAL SET FWA WORKING BUFFER 00561 M01S00560.class +++| GTD2 SB4 GTDDL MOVE DISPLAY LINE TO BUFFER 00562 M01S00561.class +++| SB3 GTDD 00563 M01S00562.class +++| GTD3 SB4 B4-B1 00564 M01S00563.class +++| SA1 B3+B4 00565 M01S00564.class +++| BX7 X1 00566 M01S00565.class +++| SA7 B7+B4 00567 M01S00566.class +++| NE B4,B0,GTD3 IF NOT END OF DISPLAY LINE 00568 M01S00567.class +++| SA5 A5+B1 SET CHARACTER STRING 00569 M01S00568.class +++| BX6 X5 00570 M01S00569.class +++| SB3 GTDT SET ADDRESS OF LINE DESCRIPTOR ENTRY 00571 M01S00570.class +++| RJ SCB SET SERVICE CLASS IN DISPLAY LINE 00572 M01S00571.class +++| SA1 =10H********** SET CHARACTER STRING 00573 M01S00572.class +++| BX6 X1 00574 M01S00573.class +++| LX5 36 00575 M01S00574.class +++| SB6 B1+ 00576 M01S00575.class +++| GTD4 MX1 -6 INSERT CHARACTER COUNT IN FORMAT TABLE 00577 M01S00576.class +++| SA3 B6+GTDT 00578 M01S00577.class +++| BX4 -X1*X5 00579 M01S00578.class +++| LX1 36 00580 M01S00579.class +++| BX7 X1*X3 00581 M01S00580.class +++| LX4 36 00582 M01S00581.class +++| SB3 A3 SET ADDRESS OF LINE DESCRIPTOR 00583 M01S00582.class +++| BX7 X7+X4 00584 M01S00583.class +++| SA7 A3 00585 M01S00584.class +++| RJ SCB SET PRIORITY IN DISPLAY 00586 M01S00585.class +++| SB6 B6+B1 00587 M01S00586.class +++| SB5 4 00588 M01S00587.class +++| LX5 12 00589 M01S00588.class +++| NE B6,B5,GTD4 IF NOT END OF PRIORITIES 00590 M01S00589.class +++| SA2 JOSC GET CURRENT SERVICE CLASS 00591 M01S00590.class +++| SB5 X2-1 00592 M01S00591.class +++| MX1 12 00593 M01S00592.class +++| LX5 48 00594 M01S00593.class +++| SA2 B5+TSCT GET DISPLAY CODE EQUIVALENT 00595 M01S00594.class +++| BX4 X1*X2 00596 M01S00595.class +++| BX3 X1*X5 00597 M01S00596.class +++| BX1 X3-X4 00598 M01S00597.class +++| NZ X1,GTD5 IF NOT CURRENT SERVICE CLASS 00599 M01S00598.class +++| SA3 GTDC SET *CURRENT* IN DISPLAY 00600 M01S00599.class +++| BX7 X3 00601 M01S00600.class +++| SA7 B7+GTDDL-1 00602 M01S00601.class +++| GTD5 SB7 B7+GTDDL 00603 M01S00602.class +++| SX0 X0-1 DECREMENT SERVICE CLASS COUNT 00604 M01S00603.class +++| NZ X0,GTD2 IF NOT END OF SERVICE CLASSES 00605 M01S00604.class +++| SX7 B7-OUTBUF-GTDAL COMPUTE DISPLAY LENGTH 00606 M01S00605.class +++| SA7 WRDO SAVE NUMBER OF WORDS WRITTEN TO *OUTBUF* 00607 M01S00606.class +++| 00608 M01S00607.class +++|* DISPLAY AVAILABLE SERVICE CLASSES AND HISTOGRAMS. 00609 M01S00608.class +++| 00610 M01S00609.class +++| WRITEW O,GTDA,GTDAL WRITE CLASS DISPLAY HEADER 00611 M01S00610.class +++| SA1 WRDO 00612 M01S00611.class +++| WRITEW O,OUTBUF+GTDAL,X1 DISPLAY AVAILABLE SERVICE CLASSES 00613 M01S00612.class +++| WRITER O FLUSH BUFFER 00614 M01S00613.class +++| EQ GTDX RETURN 00615 M01S00614.class +++| 00616 M01S00615.class +++|* GTDT - SET CHARACTERS IN BUFFER FORMAT DESCRIPTION TABLE. 00617 M01S00616.class +++| 00618 M01S00617.class +++| GTDT VFD 12/0,6/1,6/2,36/0 SC 00619 M01S00618.class +++| VFD 12/0,6/8,6/0,36/0 IN 00620 M01S00619.class +++| VFD 12/2,6/2,6/0,36/0 EX 00621 M01S00620.class +++| VFD 12/3,6/7,6/0,36/0 OUT 00622 M01S00621.class +++| SRT SPACE 4,10 00623 M01S00622.class +++|** SRT - SORT TABLE INTO DESENDING ORDER USING MULTIPLIER FIELD. 00624 M01S00623.class +++|* 00625 M01S00624.class +++|* ENTRY (USCP) = TABLE ENTRIES UNSORTED. 00626 M01S00625.class +++|* 00627 M01S00626.class +++|* EXIT (USCP) = TABLE SORTED INTO DESCENDING ORDER. 00628 M01S00627.class +++|* 00629 M01S00628.class +++|* USES X - ALL. 00630 M01S00629.class +++|* A - 1, 6, 7. 00631 M01S00630.class +++|* B - 3, 5, 7. 00632 M01S00631.class +++| 00633 M01S00632.class +++| 00634 M01S00633.class +++| SRT SUBR ENTRY/EXIT 00635 M01S00634.class +++| SA1 NUSC GET NUMBER OF SERVICE CLASS ENTRIES 00636 M01S00635.class +++| SB3 X1+ 00637 M01S00636.class +++| SX1 X1-1 00638 M01S00637.class +++| ZR X1,SRTX IF ONLY ONE ENTRY TO SORT IN *USCP* TABLE 00639 M01S00638.class +++| MX0 -12 00640 M01S00639.class +++| LX0 12 SORT ON UPPER BOUND EXECUTION PRIORITY 00641 M01S00640.class +++| SRT1 SB7 B0+ CLEAR CHANGE FLAG 00642 M01S00641.class +++| SB5 B1+ RESET ENTRY COUNT 00643 M01S00642.class +++| SA1 USCP+B1 READ FIRST SERVICE CLASS ENTRY IN *USCP* 00644 M01S00643.class +++| BX6 X1 TRANSFER CONTENTS TO CURRENT 00645 M01S00644.class +++| BX2 -X0*X6 EXTRACT MULTIPLIER FROM CURRENT ENTRY 00646 M01S00645.class +++| 00647 M01S00646.class +++|* COMPARE CURRENT AND NEXT TABLE ENTRIES. 00648 M01S00647.class +++| 00649 M01S00648.class +++| SRT2 SA1 A1+B1 READ NEXT ENTRY IN *USCP* 00650 M01S00649.class +++| BX4 -X0*X1 EXTRACT MULTIPLIER FROM NEXT ENTRY 00651 M01S00650.class +++| BX7 X1 TRANSFER CONTENTS TO NEXT 00652 M01S00651.class +++| IX1 X2-X4 00653 M01S00652.class +++| ZR X1,SRT4 IF CURRENT MULTIPLIER EQUALS NEXT 00654 M01S00653.class +++| NG X1,SRT4 IF CURRENT MULTIPLIER IS LESS THAN NEXT 00655 M01S00654.class +++| 00656 M01S00655.class +++|* SWAP CURRENT ENTRY WITH NEXT ENTRY. 00657 M01S00656.class +++| 00658 M01S00657.class +++| SRT3 SB7 B1+ SET CHANGE FLAG 00659 M01S00658.class +++| BX5 X7 TEMP IS ASSIGNED NEXT 00660 M01S00659.class +++| BX3 X4 00661 M01S00660.class +++| BX7 X6 NEXT IS ASSIGNED CURRENT 00662 M01S00661.class +++| BX4 X2 00663 M01S00662.class +++| BX6 X5 CURRENT IS ASSIGNED TEMP 00664 M01S00663.class +++| BX2 X3 00665 M01S00664.class +++| SA6 A1-B1 WRITE CURRENT INTO *USCP* TABLE 00666 M01S00665.class +++| SA7 A1 WRITE NEXT INTO *USCP* TABLE 00667 M01S00666.class +++| 00668 M01S00667.class +++|* CURRENT IS NOW ASSIGNED VALUE OF NEXT. 00669 M01S00668.class +++| 00670 M01S00669.class +++| SRT4 BX6 X7 CURRENT IS ASSIGNED NEXT 00671 M01S00670.class +++| BX2 X4 00672 M01S00671.class +++| SB5 B5+B1 INCREMENT NUMBER OF ENTRIES PROCESSED 00673 M01S00672.class +++| LT B5,B3,SRT2 IF NOT END OF *USCP* TABLE 00674 M01S00673.class +++| ZR B7,SRTX IF TABLE FULLY SORTED 00675 M01S00674.class +++| SB3 B3-B1 DECREMENT NUMBER OF ENTRIES TO PROCESS 00676 M01S00675.class +++| EQ SRT1 START NEXT PASS ON LIST 00677 M01S00676.class +++| VCS SPACE 4,15 00678 M01S00677.class +++|** VCS - VALIDATE AND CHANGE SERVICE CLASS. 00679 M01S00678.class +++|* 00680 M01S00679.class +++|* ENTRY (SERV) = CONTAINS DESIRED SERVICE CLASS. 00681 M01S00680.class +++|* (TFLG) = TIMESHARING FLAG. 00682 M01S00681.class +++|* 00683 M01S00682.class +++|* EXIT (X3) = ERROR MESSAGE. 00684 M01S00683.class +++|* (ARGE) = ARGUMENT ERROR FLAG SET. 00685 M01S00684.class +++|* 00686 M01S00685.class +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 00687 M01S00686.class +++|* A - 1, 2, 4, 5, 6. 00688 M01S00687.class +++|* B - 4, 5. 00689 M01S00688.class +++|* 00690 M01S00689.class +++|* CALLS COMCCPM, *QAC*. 00691 M01S00690.class +++|* 00692 M01S00691.class +++|* MACROS MESSAGE, ROLLOUT, SYSTEM. 00693 M01S00692.class +++| 00694 M01S00693.class +++| 00695 M01S00694.class +++| VCS SUBR ENTRY/EXIT 00696 M01S00695.class +++| SA4 JSNA 00697 M01S00696.class +++| NZ X4,VCS3 IF JSN SPECIFIED 00698 M01S00697.class +++| SA2 SERV 00699 M01S00698.class +++| SB5 X2+ 00700 M01S00699.class +++| SA4 JOSC GET CURRENT SERVICE CLASS 00701 M01S00700.class +++| SB4 X4+ 00702 M01S00701.class +++| EQ B4,B5,VCS7 IF SAME AS CURRENT SERVICE CLASS 00703 M01S00702.class +++| BX6 X2 00704 M01S00703.class +++| SA6 CPMB 00705 M01S00704.class +++| VCS1 SX1 CPMB SET PARAMETER BLOCK LOCATION 00706 M01S00705.class +++| SX2 124B SET FUNCTION CODE 00707 M01S00706.class +++| RJ =XCPM= ATTEMPT TO CHANGE SERVICE CLASS 00708 M01S00707.class +++| MX0 -6 00709 M01S00708.class +++| SA1 CPMB CHECK FOR ERROR 00710 M01S00709.class +++| LX1 -6 00711 M01S00710.class +++| BX2 -X0*X1 00712 M01S00711.class +++| ZR X2,VCS7 IF SERVICE CLASS CHANGE ACCEPTED 00713 M01S00712.class +++| SX2 X2-1 00714 M01S00713.class +++| SX6 B1+ SET ARGUMENT ERROR FLAG 00715 M01S00714.class +++| SA6 ARGE 00716 M01S00715.class +++| ZR X2,VCS6 IF UNDEFINED SERVICE CLASS 00717 M01S00716.class +++| SX2 X2-1 00718 M01S00717.class +++| ZR X2,VCS4 IF INVALID SERVICE CLASS 00719 M01S00718.class +++| SA1 TFLG 00720 M01S00719.class +++| NZ X1,VCS5 IF TIMESHARING JOB 00721 M01S00720.class +++| SA1 ABTF 00722 M01S00721.class +++| NZ X1,VCS5 IF ABORT OPTION 00723 M01S00722.class +++| VCS2 SA5 MSGE+3 INSERT SERVICE CLASS INTO MESSAGE 00724 M01S00723.class +++| MX0 -12D 00725 M01S00724.class +++| LX0 6 00726 M01S00725.class +++| BX5 X0*X5 00727 M01S00726.class +++| SA2 TSCT+B5-1 00728 M01S00727.class +++| LX2 18D 00729 M01S00728.class +++| BX2 -X0*X2 00730 M01S00729.class +++| BX6 X5+X2 00731 M01S00730.class +++| SA6 A5+ 00732 M01S00731.class +++| MESSAGE MSGE,1,R ISSUE * WAITING FOR SERVICE CLASS XX.* 00733 M01S00732.class +++| ROLLOUT ROLT ROLLOUT BATCH JOB 00734 M01S00733.class +++| EQ VCS1 TRY TO CHANGE SERVICE CLASS AGAIN 00735 M01S00734.class +++| 00736 M01S00735.class +++| 00737 M01S00736.class +++|* CALL *QAC* TO CHANGE THE SERVICE CLASS OF SPECIFIED JOB. 00738 M01S00737.class +++| 00739 M01S00738.class +++| VCS3 SA2 SERC PUT SERVICE CLASS IN *QAC* BLOCK 00740 M01S00739.class +++| LX2 18 00741 M01S00740.class +++| SA1 BCLS 00742 M01S00741.class +++| BX6 X1+X2 00743 M01S00742.class +++| SA6 A1 00744 M01S00743.class +++| SA4 JSNA PUT JSN IN *QAC* PARAMETER BLOCK 00745 M01S00744.class +++| SA2 BJSN 00746 M01S00745.class +++| BX6 X2+X4 00747 M01S00746.class +++| SA6 A2 00748 M01S00747.class +++| SYSTEM QAC,R,BQAC 00749 M01S00748.class +++| SA1 BQAC CHECK FOR ERROR 00750 M01S00749.class +++| MX0 -8D 00751 M01S00750.class +++| AX1 10D 00752 M01S00751.class +++| BX2 -X0*X1 00753 M01S00752.class +++| ZR X2,VCS7 IF SERVICE CLASS CHANGE ACCEPTED 00754 M01S00753.class +++| SX6 B1 SET ARGUMENT ERROR FLAG 00755 M01S00754.class +++| SA6 ARGE 00756 M01S00755.class +++| SX1 X2-ER24 00757 M01S00756.class +++| ZR X1,VCS5 IF SERVICE CLASS FULL 00758 M01S00757.class +++| SX4 X2-ER25 00759 M01S00758.class +++| ZR X4,VCS8 IF ON-LINE JOB 00760 M01S00759.class +++| SX1 X2-ER26 00761 M01S00760.class +++| ZR X1,VCS6 IF UNDEFINED SERVICE CLASS 00762 M01S00761.class +++| SX4 X2-ER27 00763 M01S00762.class +++| ZR X4,VCS9 IF WAITING ON *CLASS* 00764 M01S00763.class +++| SX1 X2-ER28 00765 M01S00764.class +++| ZR X1,VCS10 IF SUBSYSTEM SERVICE CLASS 00766 M01S00765.class +++| SX4 X2-ER07 00767 M01S00766.class +++| ZR X4,VCS11 IF JSN NOT FOUND 00768 M01S00767.class +++| VCS4 SX3 MSGA * INCORRECT SERVICE CLASS.* 00769 M01S00768.class +++| EQ VCSX RETURN 00770 M01S00769.class +++| 00771 M01S00770.class +++| VCS5 SX3 MSGC * SERVICE CLASS FULL.* 00772 M01S00771.class +++| EQ VCSX RETURN 00773 M01S00772.class +++| 00774 M01S00773.class +++| VCS6 SX3 MSGD * UNDEFINED SERVICE CLASS.* 00775 M01S00774.class +++| EQ VCSX RETURN 00776 M01S00775.class +++| 00777 M01S00776.class +++| VCS7 SX6 B0+ 00778 M01S00777.class +++| SA6 ARGE CLEAR ARGUMENT ERROR FLAG 00779 M01S00778.class +++| EQ VCSX RETURN 00780 M01S00779.class +++| 00781 M01S00780.class +++| VCS8 SX3 MSGM * CANNOT CHANGE ON-LINE JOB.* 00782 M01S00781.class +++| EQ VCSX RETURN 00783 M01S00782.class +++| 00784 M01S00783.class +++| VCS9 SX3 MSPO * JOB ALREADY WAITING ON SERVICE CLASS.* 00785 M01S00784.class +++| EQ VCSX RETURN 00786 M01S00785.class +++| 00787 M01S00786.class +++| VCS10 SX3 MSPQ * CANNOT CHANGE CLASS OF SUBSYSTEM.* 00788 M01S00787.class +++| EQ VCSX RETURN 00789 M01S00788.class +++| 00790 M01S00789.class +++| VCS11 SX3 MSGL * JSNA NOT FOUND.* 00791 M01S00790.class +++| SA2 JSNA SET JSN IN MESSAGE 00792 M01S00791.class +++| SA1 MSGL 00793 M01S00792.class +++| MX0 24 00794 M01S00793.class +++| LX0 -6 00795 M01S00794.class +++| BX4 -X0*X1 00796 M01S00795.class +++| LX2 -6 00797 M01S00796.class +++| BX6 X2+X4 00798 M01S00797.class +++| SA6 A1 00799 M01S00798.class +++| EQ VCSX RETURN 00800 M01S00799.class +++| 00801 M01S00800.class +++| VTI SPACE 4,10 00802 M01S00801.class +++|** VTI - VALIDATE TIMESHARING INPUT. 00803 M01S00802.class +++|* 00804 M01S00803.class +++|* ENTRY (SERV) = SERVICE CLASS INPUT BY USER (CHARACTER). 00805 M01S00804.class +++|* 00806 M01S00805.class +++|* EXIT (ARGE) = ARGUMENT ERROR FLAG 00807 M01S00806.class +++|* (SERV) = SERVICE CLASS (VALUE). 00808 M01S00807.class +++|* 00809 M01S00808.class +++|* USES X - 0, 1, 2, 3, 4, 6. 00810 M01S00809.class +++|* A - 1, 3, 6. 00811 M01S00810.class +++| 00812 M01S00811.class +++| 00813 M01S00812.class +++| VTI SUBR ENTRY/EXIT 00814 M01S00813.class +++| SA3 TSCT-1 00815 M01S00814.class +++| MX0 12 00816 M01S00815.class +++| SA1 INBUF GET TIMESHARING USERS INPUT 00817 M01S00816.class +++| BX2 X0*X1 00818 M01S00817.class +++| BX3 -X0*X1 00819 M01S00818.class +++| SX6 B0 RESET INPUT BUFFER 00820 M01S00819.class +++| SA6 A1 00821 M01S00820.class +++| ZR X3,VTI2 IF NOT MORE THAN THREE CHARACTERS 00822 M01S00821.class +++| VTI1 SA1 ARGE 00823 M01S00822.class +++| SX6 B1 SET ARGUMENT ERROR FLAG 00824 M01S00823.class +++| SA6 A1 00825 M01S00824.class +++| SX3 MSGD SET * UNDEFINED SERVICE CLASS.* 00826 M01S00825.class +++| EQ VTIX RETURN 00827 M01S00826.class +++| 00828 M01S00827.class +++|* DETERMINE IF ENTERED SERVICE CLASS IS DEFINED. 00829 M01S00828.class +++| 00830 M01S00829.class +++| VTI2 SA3 A3+B1 GET *TSCT* TABLE ENTRY 00831 M01S00830.class +++| ZR X3,VTI1 IF END OF *TSCT* TABLE 00832 M01S00831.class +++| BX4 X0*X3 00833 M01S00832.class +++| BX4 X4-X2 COMPARE TABLE ENTRY TO ENTERED CLASS 00834 M01S00833.class +++| NZ X4,VTI2 IF NO MATCH 00835 M01S00834.class +++| MX0 -12 00836 M01S00835.class +++| BX6 -X0*X3 EXTRACT CORRESPONDING SERVICE CLASS VALUE 00837 M01S00836.class +++| SA6 SERV SAVE DESIRED SERVICE CLASS VALUE 00838 M01S00837.class +++| EQ VTIX RETURN 00839 M01S00838.class +++| SPACE 4,10 00840 M01S00839.class +++|* COMMON DECKS. 00841 M01S00840.class +++| 00842 M01S00841.class +++|*CALL COMCCIO 00843 M01S00842.class +++|*CALL COMCCPM 00844 M01S00843.class +++|*CALL COMCRDC 00845 M01S00844.class +++|*CALL COMCRDW 00846 M01S00845.class +++|*CALL COMCSCB 00847 M01S00846.class +++|*CALL COMCSFN 00848 M01S00847.class +++|*CALL COMCSYS 00849 M01S00848.class +++|*CALL COMCWTW 00850 M01S00849.class +++| SPACE 4,10 00851 M01S00850.class +++|* BUFFERS. 00852 M01S00851.class +++| 00853 M01S00852.class +++| USE LITERALS 00854 M01S00853.class +++| INBUF EQU * INPUT BUFFER 00855 M01S00854.class +++| USCP EQU INBUF+IBFL INPUT BUFFER 00856 M01S00855.class +++| OUTBUF EQU USCP+SCTL OUTPUT BUFFER 00857 M01S00856.class +++| OUTBUFL EQU OUTBUF+OBFL OUTPUT BUFFER LIMIT 00858 M01S00857.class +++| TITLE PRESET. 00859 M01S00858.class +++| PRS SPACE 4,20 00860 M01S00859.class +++|** PRS - PRESET. 00861 M01S00860.class +++|* 00862 M01S00861.class +++|* *PRS* DETERMINES ORIGIN, SERVICE CLASS, AND TERMINAL 00863 M01S00862.class +++|* CHARACTERISTICS. 00864 M01S00863.class +++|* 00865 M01S00864.class +++|* EXIT (ASFG) = SET TO ONE IF *ASCII* USER. 00866 M01S00865.class +++|* (DOUT) = SET TO DEFAULT OUTPUT FILENAME. 00867 M01S00866.class +++|* (JORG) = SET TO CURRENT JOBS ORIGIN. 00868 M01S00867.class +++|* (JOSC) = SET TO CURRENT JOBS SERVICE CLASS. 00869 M01S00868.class +++|* (TFLG) = SET TO ONE IF TIMESHARING USER. 00870 M01S00869.class +++|* (TTFG) = SET TO ONE IF INPUT FILE TYPE IS *TT*. 00871 M01S00870.class +++|* 00872 M01S00871.class +++|* USES X - 0, 1, 2, 6. 00873 M01S00872.class +++|* A - 1, 6. 00874 M01S00873.class +++|* B - 1. 00875 M01S00874.class +++|* 00876 M01S00875.class +++|* CALLS CCP, STF. 00877 M01S00876.class +++|* 00878 M01S00877.class +++|* MACROS CSET, GETJOSC, PROMPT, TSTATUS. 00879 M01S00878.class +++| 00880 M01S00879.class +++| 00881 M01S00880.class +++| PRS SUBR ENTRY/EXIT 00882 M01S00881.class +++| SB1 1 SYSTEM COMMUNICATION (B1)=1 00883 M01S00882.class +++| 00884 M01S00883.class +++|* DETERMINE JOB ORIGIN AND SERVICE CLASS. 00885 M01S00884.class +++| 00886 M01S00885.class +++| GETJOSC JOSC GET CURRENT SERVICE CLASS 00887 M01S00886.class +++| SA1 JOSC 00888 M01S00887.class +++| MX0 -6 00889 M01S00888.class +++| LX1 -6 00890 M01S00889.class +++| BX6 -X0*X1 00891 M01S00890.class +++| SA6 A1+ 00892 M01S00891.class +++| LX1 6 00893 M01S00892.class +++| BX6 -X0*X1 00894 M01S00893.class +++| SA1 JORG GET JOB ORIGIN TYPE 00895 M01S00894.class +++| SA6 A1 00896 M01S00895.class +++| SX1 X6-IAOT 00897 M01S00896.class +++| NZ X1,PRS2 IF NOT *IAOT* 00898 M01S00897.class +++| SX6 B1+ SET TIMESHARING FLAG 00899 M01S00898.class +++| SA6 TFLG 00900 M01S00899.class +++| 00901 M01S00900.class +++|* DETERMINE TERMINAL CHARACTERISTICS. 00902 M01S00901.class +++| 00903 M01S00902.class +++| TSTATUS TTST GET TERMINAL STATUS 00904 M01S00903.class +++| SA1 B1+TTST GET CURRENT CHARACTER SET 00905 M01S00904.class +++| MX0 1 00906 M01S00905.class +++| LX0 3 00907 M01S00906.class +++| BX1 X0*X1 00908 M01S00907.class +++| ZR X1,PRS1 IF NOT 64 CHARACTER SET 00909 M01S00908.class +++| BX6 X1 SET *ASCII* FLAG 00910 M01S00909.class +++| SA6 ASFG 00911 M01S00910.class +++| CSET NORMAL SET TERMINAL CHARACTER MODE 00912 M01S00911.class +++| PRS1 PROMPT OFF SUPPRESS *IAF* PROMPTS 00913 M01S00912.class +++| PRS2 RJ CCP CRACK *CLASS* PARAMETERS 00914 M01S00913.class +++| SX2 INPUT 00915 M01S00914.class +++| RJ STF DETERMINE IF INPUT FILE TYPE *TT* 00916 M01S00915.class +++| SX2 O 00917 M01S00916.class +++| RJ STF DETERMINE IF OUTPUT FILE TYPE *TT* 00918 M01S00917.class +++| NZ X6,PRS3 IF FILE TYPE NOT *TT* 00919 M01S00918.class +++| SX6 B1+ 00920 M01S00919.class +++| SA6 TTFG STORE *TT* FILE TYPE FLAG 00921 M01S00920.class +++| PRS3 SA1 SERV 00922 M01S00921.class +++| ZR X1,PRS5 IF NO SERVICE CLASS ARGUMENT 00923 M01S00922.class +++| PRS4 SA1 DOUT RESET *L* TO OUTPUT 00924 M01S00923.class +++| BX6 X1 00925 M01S00924.class +++| SA6 O 00926 M01S00925.class +++| SX6 B0 00927 M01S00926.class +++| SA6 ORGN CLEAR SPECIFIED ORIGIN ARGUMENT 00928 M01S00927.class +++| EQ PRSX RETURN 00929 M01S00928.class +++| 00930 M01S00929.class +++| PRS5 SA1 ARGE 00931 M01S00930.class +++| ZR X1,PRSX IF NO ARGUMENT ERROR 00932 M01S00931.class +++| EQ PRS4 RESET *L* TO OUTPUT 00933 M01S00932.class +++| TITLE PRESET SUBROUTINES. 00934 M01S00933.class +++| CCP SPACE 4,20 00935 M01S00934.class +++|** CCP - CRACK *CLASS* PARAMETERS. 00936 M01S00935.class +++|* 00937 M01S00936.class +++|* ENTRY (X3) = ADDRESS OF ERROR MESSAGE TO BE DISPLAYED. 00938 M01S00937.class +++|* 00939 M01S00938.class +++|* EXIT (X3) = ADDRESS OF ERROR MESSAGE TO BE DISPLAYED. 00940 M01S00939.class +++|* (ABTF) = SET TO ONE IF ABORT OPTION PRESENT. 00941 M01S00940.class +++|* (ARGE) = SET TO ONE IF ARGUMENT ERROR OCCURS. 00942 M01S00941.class +++|* (NUMA) = SET TO NUMBER OF *CLASS* ARGUMENTS. 00943 M01S00942.class +++|* (ORGN) = SET TO ORIGIN OF INQUIRY. 00944 M01S00943.class +++|* (POUT) = PROPOSED OUTPUT FILENAME. 00945 M01S00944.class +++|* (SERV) = SET TO DESIRED SERVICE CLASS. 00946 M01S00945.class +++|* 00947 M01S00946.class +++|* USES X - 1, 2, 3, 4, 6. 00948 M01S00947.class +++|* A - 1, 2, 6. 00949 M01S00948.class +++|* B - 2, 3, 4, 6, 7. 00950 M01S00949.class +++|* 00951 M01S00950.class +++|* CALLS ARM, CPA, FNB, USB, VCP. 00952 M01S00951.class +++| 00953 M01S00952.class +++| 00954 M01S00953.class +++| CCP SUBR ENTRY/EXIT 00955 M01S00954.class +++| SA1 ACTR 00956 M01S00955.class +++| SX6 X1 00957 M01S00956.class +++| SA6 NUMA STORE NUMBER OF ARGUMENTS 00958 M01S00957.class +++| ZR X6,CCPX IF NO ARGUMENTS 00959 M01S00958.class +++| CCP1 SB2 CCDR UNPACK CONTROL CARD 00960 M01S00959.class +++| SB3 B0+ FOR NORMAL CHARACTER SET 00961 M01S00960.class +++| RJ USB 00962 M01S00961.class +++| SA1 A6 ASSURE TERMINATOR CHARACTER 00963 M01S00962.class +++| SX6 1R. 00964 M01S00963.class +++| SA6 X1+B1 00965 M01S00964.class +++| SA2 CCPB SET SEPARATOR MASK 00966 M01S00965.class +++| SB2 60 SET MAXIMUM NON-DELIMITER DISPLAY CODE 00967 M01S00966.class +++| SB7 CCP4 SET EXIT FOR TERMINATOR CHARACTER 00968 M01S00967.class +++| RJ FNB FIND NON-BLANK CHARACTER 00969 M01S00968.class +++| 00970 M01S00969.class +++|* OBTAIN *CLASS* ARGUMENTS. 00971 M01S00970.class +++| 00972 M01S00971.class +++| SB7 CCPX SET EXIT FOR TERMINATOR CHARACTER 00973 M01S00972.class +++| CCP2 RJ FNB FIND NON-BLANK CHARACTER 00974 M01S00973.class +++| SB4 B5-B2 00975 M01S00974.class +++| LX4 X2,B5 00976 M01S00975.class +++| PL B4,CCP3 IF SEPARATOR CHARACTER 00977 M01S00976.class +++| PL X4,CCP2 IF NOT SEPARATOR CHARACTER 00978 M01S00977.class +++| CCP3 SB3 TARG FWA ARGUMENT EQUIVALENCE TABLE 00979 M01S00978.class +++| SB2 TARGL LENGTH ARGUMENT TABLE 00980 M01S00979.class +++| SB4 CCPA ADDRESS TO PLACE DATA 00981 M01S00980.class +++| RJ CPA CONVERT POSITIONAL ARGUMENTS 00982 M01S00981.class +++| NG B5,CCP4 IF ARGUMENT ERROR 00983 M01S00982.class +++| PL X1,CCPX IF NO ARGUMENTS PROCESSED 00984 M01S00983.class +++| SX6 B5 SET LWA OF ARGUMENTS 00985 M01S00984.class +++| SA6 USBC 00986 M01S00985.class +++| SB6 CCPA FWA OF ARGUMENTS 00987 M01S00986.class +++| RJ ARM PROCESS ARGUMENTS 00988 M01S00987.class +++| NZ X1,CCP4 IF ERROR 00989 M01S00988.class +++| RJ VCP VALIDATE *CLASS* PARAMETER(S) 00990 M01S00989.class +++| EQ CCPX RETURN 00991 M01S00990.class +++| 00992 M01S00991.class +++|* FLAG ARGUMENT ERROR CONDITION. 00993 M01S00992.class +++| 00994 M01S00993.class +++| CCP4 SX6 B1+ 00995 M01S00994.class +++| SA6 ARGE SET ARGUMENT ERROR FLAG 00996 M01S00995.class +++| SX3 MSGB SET * CLASS ARGUMENT ERROR.* 00997 M01S00996.class +++| EQ CCPX RETURN 00998 M01S00997.class +++| 00999 M01S00998.class +++| CCPA BSS 100 01000 M01S00999.class +++| 01001 M01S01000.class +++| CCPB CON 40000000000033127777B SEPARATOR MASK 01002 M01S01001.class +++| 01003 M01S01002.class +++| TARG SPACE 4,10 01004 M01S01003.class +++|* TARG - ARGUMENT TABLE. 01005 M01S01004.class +++| 01006 M01S01005.class +++| TARG BSS 0 01007 M01S01006.class +++| SC ARG SERV,SERV,0,0 DESIRED JOB SERVICE CLASS 01008 M01S01007.class +++| OT ARG ORGN,ORGN,0,0 ORIGIN OF INQUIRY 01009 M01S01008.class +++| L ARG POUT,POUT,0,0 PROPOSED OUTPUT FILENAME 01010 M01S01009.class +++| OP ARG ABTF,ABTF,0,0 ABORT OPTION 01011 M01S01010.class +++| JSN ARG JSNA,JSNA,0,0 DESIRED JSN 01012 M01S01011.class +++| ARG 01013 M01S01012.class +++| TARGL EQU *-TARG-1 LENGTH OF ARGUMENT TABLE 01014 M01S01013.class +++| FNB SPACE 4,15 01015 M01S01014.class +++|** FNB - FIND NON-BLANK CHARACTER. 01016 M01S01015.class +++|* 01017 M01S01016.class +++|* ENTRY (B6) = NEXT CHARACTER ADDRESS. 01018 M01S01017.class +++|* (B7) = EXIT ADDRESS, IF TERMINATOR ENCOUNTERED. 01019 M01S01018.class +++|* 01020 M01S01019.class +++|* EXIT (X1) = (B5) = NEXT NON-BLANK CHARACTER. 01021 M01S01020.class +++|* (B6) = NEXT CHARACTER ADDRESS (UPDATED). 01022 M01S01021.class +++|* EXIT IS MADE TO (B7), IF TERMINATOR ENCOUNTERED. 01023 M01S01022.class +++|* 01024 M01S01023.class +++|* USES X - 1, 4. 01025 M01S01024.class +++|* A - 1. 01026 M01S01025.class +++|* B - 5, 6. 01027 M01S01026.class +++| 01028 M01S01027.class +++| 01029 M01S01028.class +++| FNB SUBR ENTRY/EXIT 01030 M01S01029.class +++| FNB1 SA1 B6 GET NEXT CHARACTER 01031 M01S01030.class +++| SB6 B6+B1 01032 M01S01031.class +++| SX4 X1-1R 01033 M01S01032.class +++| ZR X4,FNB1 IF BLANK CHARACTER 01034 M01S01033.class +++| SB5 X1+ 01035 M01S01034.class +++| SX4 X1-1R. 01036 M01S01035.class +++| ZR X4,FNB2 IF TERMINATOR CHARACTER 01037 M01S01036.class +++| SX4 X1-1R) 01038 M01S01037.class +++| NZ X4,FNBX IF NOT TERMINATOR CHARACTER, RETURN 01039 M01S01038.class +++| FNB2 JP B7 PROCESS TERMINATOR CHARACTER 01040 M01S01039.class +++| VCP SPACE 4,15 01041 M01S01040.class +++|** VCP - VALIDATE *CLASS* PARAMETERS. 01042 M01S01041.class +++|* 01043 M01S01042.class +++|* ENTRY (X3) = ADDRESS OF ERROR MESSAGE TO BE DISPLAYED. 01044 M01S01043.class +++|* (ORGN) = ORIGIN OF INQUIRY. 01045 M01S01044.class +++|* (POUT) = PROPOSED OUTPUT FILENAME. 01046 M01S01045.class +++|* (SERV) = SET TO DESIRED SERVICE CLASS. 01047 M01S01046.class +++|* 01048 M01S01047.class +++|* EXIT (X3) = ADDRESS OF ERROR MESSAGE TO BE DISPLAYED. 01049 M01S01048.class +++|* (ARGE) = SET TO ONE IF ARGUMENT ERROR OCCURS. 01050 M01S01049.class +++|* (SERV) = SET TO DESIRED SERVICE CLASS. 01051 M01S01050.class +++|* 01052 M01S01051.class +++|* USES X - 0, 1, 2, 3, 6, 7. 01053 M01S01052.class +++|* A - 1, 2, 6, 7. 01054 M01S01053.class +++|* B - 2, 5, 7. 01055 M01S01054.class +++| 01056 M01S01055.class +++| 01057 M01S01056.class +++| VCP14 SX6 B1+ SET ARGUMENT ERROR FLAG 01058 M01S01057.class +++| SA6 ARGE 01059 M01S01058.class +++| 01060 M01S01059.class +++| VCP SUBR ENTRY/EXIT 01061 M01S01060.class +++| SA1 TSCT-1 01062 M01S01061.class +++| SB7 TSCTL NUMBER OF SERVICE CLASSES 01063 M01S01062.class +++| MX0 12 01064 M01S01063.class +++| SA2 SERV GET STORED SERVICE CLASS ARGUMENT 01065 M01S01064.class +++| BX7 X2 01066 M01S01065.class +++| SA7 SERC 01067 M01S01066.class +++| ZR X2,VCP1 IF NO SERVICE CLASS PARAMETER PRESENT 01068 M01S01067.class +++| 01069 M01S01068.class +++|* CHECK FOR VALID SERVICE CLASS PARAMETER. 01070 M01S01069.class +++| 01071 M01S01070.class +++| VCP0 SA1 A1+B1 01072 M01S01071.class +++| ZR B7,VCP8 IF END OF TABLE 01073 M01S01072.class +++| SB7 B7-B1 DECREMENT NUMBER OF SERVICE CLASSES 01074 M01S01073.class +++| BX7 X0*X1 01075 M01S01074.class +++| BX7 X7-X2 COMPARE CODES 01076 M01S01075.class +++| NZ X7,VCP0 IF NO MATCH WITH TABLE ENTRY 01077 M01S01076.class +++| MX0 -12 01078 M01S01077.class +++| BX7 -X0*X1 01079 M01S01078.class +++| SA7 A2+ SAVE SERVICE CLASS ARGUMENT AS VALUE 01080 M01S01079.class +++| 01081 M01S01080.class +++|* CHECK FOR VALID ORIGIN PARAMETER. 01082 M01S01081.class +++| 01083 M01S01082.class +++| VCP1 SA1 TORT-1 01084 M01S01083.class +++| SB7 TORTL NUMBER OF ORIGINS 01085 M01S01084.class +++| MX0 12 01086 M01S01085.class +++| SA2 ORGN GET STORED ORIGIN TYPE ARGUMENT 01087 M01S01086.class +++| ZR X2,VCP3 IF NO ORIGIN PARAMETER PRESENT 01088 M01S01087.class +++| VCP2 SA1 A1+B1 01089 M01S01088.class +++| ZR B7,VCP9 IF END OF TABLE 01090 M01S01089.class +++| SB7 B7-B1 DECREMENT NUMBER OF ORIGINS 01091 M01S01090.class +++| BX7 X0*X1 01092 M01S01091.class +++| BX7 X7-X2 COMPARE CODES 01093 M01S01092.class +++| NZ X7,VCP2 IF NO MATCH WITH TABLE ENTRY 01094 M01S01093.class +++| MX0 -12 01095 M01S01094.class +++| BX7 -X0*X1 01096 M01S01095.class +++| SA7 A2+ SAVE ORIGIN ARGUMENT AS VALUE 01097 M01S01096.class +++| 01098 M01S01097.class +++|* CHECK FOR VALID OUTPUT FILE PARAMETER. 01099 M01S01098.class +++| 01100 M01S01099.class +++| VCP3 SA1 POUT GET PROPOSED OUTPUT FILENAME 01101 M01S01100.class +++| ZR X1,VCP5 IF NO FILE NAME SPECIFIED 01102 M01S01101.class +++| MX0 -6 01103 M01S01102.class +++| LX0 12 01104 M01S01103.class +++| BX2 -X0*X1 01105 M01S01104.class +++| NZ X2,VCP10 IF EIGHT CHARACTERS 01106 M01S01105.class +++| SB5 7 SET NUMBER OF ALLOWABLE CHARACTERS 01107 M01S01106.class +++| MX0 -6 01108 M01S01107.class +++| VCP4 LX1 6 01109 M01S01108.class +++| SB5 B5-1 DECREMENT CHARACTER COUNT 01110 M01S01109.class +++| BX2 -X0*X1 01111 M01S01110.class +++| SB2 X2-45B SUBTRACT MAXIMUN LEGAL CHARACTER 01112 M01S01111.class +++| PL B2,VCP10 IF INCORRECT CHARACTER 01113 M01S01112.class +++| NZ B5,VCP4 IF NOT LAST CHARACTER OF FILENAME 01114 M01S01113.class +++| SA1 POUT 01115 M01S01114.class +++| SX2 B1 SET COMPLETE BIT 01116 M01S01115.class +++| BX6 X1+X2 01117 M01S01116.class +++| SA6 O 01118 M01S01117.class +++| 01119 M01S01118.class +++|* CHECK FOR VALID OPTION ARGUMENT. 01120 M01S01119.class +++| 01121 M01S01120.class +++| VCP5 SA1 ABTF 01122 M01S01121.class +++| ZR X1,VCP6 IF NO ABORT OPTION PRESENT 01123 M01S01122.class +++| SX6 1RA 01124 M01S01123.class +++| LX6 -6 01125 M01S01124.class +++| IX1 X1-X6 COMPARE OPTION ARGUMENT TO *A* 01126 M01S01125.class +++| NZ X1,VCP11 IF INCORRECT OPTION ARGUMENT 01127 M01S01126.class +++| SX6 B1 01128 M01S01127.class +++| SA6 ABTF SET ABORT OPTION FLAG 01129 M01S01128.class +++| 01130 M01S01129.class +++|* CHECK FOR VALID JSN ARGUMENT. 01131 M01S01130.class +++| 01132 M01S01131.class +++| VCP6 SA1 JSNA 01133 M01S01132.class +++| ZR X1,VCPX IF NO JSN ARGUMENT 01134 M01S01133.class +++| MX0 -6 01135 M01S01134.class +++| LX0 30 01136 M01S01135.class +++| BX2 -X0*X1 01137 M01S01136.class +++| NZ X2,VCP12 IF MORE THAN FOUR CHARACTERS 01138 M01S01137.class +++| LX0 6 01139 M01S01138.class +++| BX2 -X0*X1 01140 M01S01139.class +++| ZR X2,VCP12 IF LESS THAN FOUR CHARACTERS 01141 M01S01140.class +++| MX0 -6 01142 M01S01141.class +++| SB5 4 SET NUMBER OF AVAILABLE CHARACTERS 01143 M01S01142.class +++| VCP7 LX1 6 01144 M01S01143.class +++| SB5 B5-1 DECREMENT CHARACTER COUNT 01145 M01S01144.class +++| BX2 -X0*X1 01146 M01S01145.class +++| SB2 X2-1R+ CHECK CHARACTER FOR ALPHANUMERIC 01147 M01S01146.class +++| PL B2,VCP12 IF NOT VALID CHARACTER 01148 M01S01147.class +++| NZ B5,VCP7 IF NOT LAST CHARACTER 01149 M01S01148.class +++| SA1 POUT 01150 M01S01149.class +++| NZ X1,VCP13 IF OUTPUT FILENAME NOT OUTPUT 01151 M01S01150.class +++| SA2 ORGN 01152 M01S01151.class +++| NZ X2,VCP13 IF ORIGIN SPECIFIED 01153 M01S01152.class +++| SA1 ABTF 01154 M01S01153.class +++| NZ X1,VCP13 IF ABORT OPTION SPECIFIED 01155 M01S01154.class +++| SA2 SERV 01156 M01S01155.class +++| NZ X2,VCPX IF SERVICE CLASS ARGUMENT EXISTS 01157 M01S01156.class +++| 01158 M01S01157.class +++|* FLAG ARGUMENT ERROR CONDITION. 01159 M01S01158.class +++| 01160 M01S01159.class +++| SX3 MSGK * SERVICE CLASS REQUIRED WITH JSN.* 01161 M01S01160.class +++| EQ VCP14 SET ARGUMENT ERROR FLAG 01162 M01S01161.class +++| 01163 M01S01162.class +++| VCP8 SX6 3 01164 M01S01163.class +++| SA6 ARGE SET ARGUMENT ERROR FLAG 01165 M01S01164.class +++| SX3 MSGD SET * UNDEFINED SERVICE CLASS.* 01166 M01S01165.class +++| EQ VCP1 CONTINUE TO VALIDATE NEXT PARAMETER 01167 M01S01166.class +++| 01168 M01S01167.class +++| VCP9 SX3 MSGH * UNIDENTIFIED ORIGIN TYPE.* 01169 M01S01168.class +++| EQ VCP14 SET ARGUMENT ERROR FLAG 01170 M01S01169.class +++| 01171 M01S01170.class +++| VCP10 SX3 MSGI * INCORRECT OUTPUT FILENAME.* 01172 M01S01171.class +++| EQ VCP14 SET ARGUMENT ERROR FLAG 01173 M01S01172.class +++| 01174 M01S01173.class +++| VCP11 SX6 B0+ RESET ABORT FLAG 01175 M01S01174.class +++| SA6 ABTF 01176 M01S01175.class +++| SX3 MSGG * INCORRECT OPTION ARGUMENT.* 01177 M01S01176.class +++| EQ VCP14 SET ARGUMENT ERROR FLAG 01178 M01S01177.class +++| 01179 M01S01178.class +++| VCP12 SX3 MSGN * INCORRECT JSN ARGUMENT.* 01180 M01S01179.class +++| EQ VCP14 SET ARGUMENT ERROR FLAG 01181 M01S01180.class +++| 01182 M01S01181.class +++| VCP13 SX3 MSGJ * SC ONLY PARAMETER VALID WITH JSN.* 01183 M01S01182.class +++| EQ VCP14 SET ARGUMENT ERROR FLAG 01184 M01S01183.class +++| SPACE 4,10 01185 M01S01184.class +++|* PRESET COMMON DECKS. 01186 M01S01185.class +++| 01187 M01S01186.class +++|*CALL COMCARM 01188 M01S01187.class +++|*CALL COMCCPA 01189 M01S01188.class +++|*CALL COMCPOP 01190 M01S01189.class +++|*CALL COMCSTF 01191 M01S01190.class +++|*CALL COMCUSB 01192 M01S01191.class +++| SPACE 4,10 01193 M01S01192.class +++| RFL= EQU * 01194 M01S01193.class +++| END
cdc/nos2.source/opl.opl871/deck/class.txt · Last modified: by 127.0.0.1