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