Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.0vj +++| IDENT 0VJ,/REL/RVJX
00002 M00S00002.0vj +++| PERIPH J
00003 M00S00003.0vj +++| BASE MIXED
00004 M00S00004.0vj +++| SST
00005 M00S00005.0vj +++| QUAL$ EQU 1
00006 M00S00006.0vj +++|*COMMENT 0VJ - VERIFY JOB/USER COMMANDS.
| Line S00007 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1979.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00009 M00S00008.0vj +++| TITLE 0VJ - VERIFY JOB/USER COMMANDS.
00010 M00S00009.0vj +++| SPACE 4,10
00011 M00S00010.0vj +++|*** 0VJ - VERIFY JOB AND USER COMMANDS.
00012 M00S00011.0vj +++|* R. A. JAPS. 75/06/24.
00013 M00S00012.0vj +++|* P. C. SMITH. 83/02/11.
00014 M00S00013.0vj +++| SPACE 4,10
00015 M00S00014.0vj +++|*** *0VJ* PROCESSES JOB AND USER COMMANDS FOR AN INPUT PROCESSOR.
00016 M00S00015.0vj +++|*
00017 M00S00016.0vj +++|* THE JOB COMMAND MAY HAVE TWO FORMATS.
00018 M00S00017.0vj +++|*
00019 M00S00018.0vj +++|* THE FIRST FORMAT IS ORDER DEPENDENT. IT IS -
00020 M00S00019.0vj +++|* UJN,SVC,TL,CMFL,ECFL,LID,AL.
00021 M00S00020.0vj +++|* UJN = USER JOB NAME.
00022 M00S00021.0vj +++|* SVC = SERVICE CLASS.
00023 M00S00022.0vj +++|* TL = TIME LIMIT.
00024 M00S00023.0vj +++|* CMFL = CENTRAL MEMORY FIELD LENGTH.
00025 M00S00024.0vj +++|* ECFL = EXTENDED MEMORY FIELD LENGTH.
00026 M00S00025.0vj +++|* LID = LOGICAL ID OF THE MF THE JOB IS TO RUN ON.
00027 M00S00026.0vj +++|* AL = MAXIMUM ACCESS LEVEL THAT JOB MAY RUN WITH.
00028 M00S00027.0vj +++|*
00029 M00S00028.0vj +++|* THE SECOND FORMAT IS NOT ORDER DEPENDENT EXCEPT THAT THE
00030 M00S00029.0vj +++|* JOBNAME MUST APPEAR FIRST. SERVICE CLASS IS DENOTED BY
00031 M00S00030.0vj +++|* *SC* OR *P*, TIME LIMIT BY *T*, CM FIELD LENGTH BY *CM*,
| Line S00031 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00032 M01S00031.252l678 ---|* ECS FIELD LENGTH BY *EC*, LID BY *ST*, AND ACCESS LEVEL
| Line S00001 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00033 M01S00001.252l678 +++|* EM FIELD LENGTH BY *EC*, LID BY *ST*, AND ACCESS LEVEL
00034 M00S00032.0vj +++|* BY *AL*. THESE SYMBOLS MUST PRECEDE THE VALUE.
00035 M00S00033.0vj +++|* FOR CLARITY, IT IS RECOMMENDED THAT THE SYMBOL AND
00036 M00S00034.0vj +++|* THE VALUE BE SEPARATED BY AN EQUAL SIGN (ALTHOUGH
00037 M00S00035.0vj +++|* THIS IS NOT REQUIRED).
00038 M00S00036.0vj +++|*
00039 M00S00037.0vj +++|* THE FORMATS OF THE ARGUMENTS ARE AS FOLLOWS -
00040 M00S00038.0vj +++|*
00041 M00S00039.0vj +++|* JOB NAME - 1 TO 7 ALPHA-NUMERIC CHARACTERS, BEGINNING WITH
00042 M00S00040.0vj +++|* A LETTER.
00043 M00S00041.0vj +++|*
00044 M00S00042.0vj +++|* SERVICE CLASS - TWO ALPHANUMERIC CHARACTERS OR A PRIORITY
00045 M00S00043.0vj +++|* LEVEL NUMBER IN THE RANGE 0 - 7. SERVICE CLASS IS
00046 M00S00044.0vj +++|* DENOTED BY *SC* OR *P*. IF *SC* IS USED, THE
00047 M00S00045.0vj +++|* FOLLOWING VALUES ARE ALLOWED.
00048 M00S00046.0vj +++|* SY SYSTEM
00049 M00S00047.0vj +++|* BC BATCH
00050 M00S00048.0vj +++|* RB REMOTE BATCH
00051 M00S00049.0vj +++|* TS INTERACTIVE
00052 M00S00050.0vj +++|* DI DETACHED INTERACTIVE
00053 M00S00051.0vj +++|* NS NETWORK SUPERVISOR
00054 M00S00052.0vj +++|* MA MAINTENANCE
00055 M00S00053.0vj +++|* CT COMMUNICATION TASK
00056 M00S00054.0vj +++|* I0 INSTALLATION CLASS 0
00057 M00S00055.0vj +++|* I1 INSTALLATION CLASS 1
00058 M00S00056.0vj +++|* I2 INSTALLATION CLASS 2
00059 M00S00057.0vj +++|* I3 INSTALLATION CLASS 3
00060 M00S00058.0vj +++|* IF *P* IS SPECIFIED, THE SERVICE CLASS DEFINED FOR
00061 M00S00059.0vj +++|* THAT PRIORITY LEVEL BY THE SITE (VIA THE *PCLASS*
00062 M00S00060.0vj +++|* COMMAND OR IPRDECK ENTRY) WILL BE USED.
00063 M00S00061.0vj +++|*
00064 M00S00062.0vj +++|* TIME LIMIT - A NUMBER FROM 1 - 262143D (777777B).
00065 M00S00063.0vj +++|* VALUES FROM 32,767D TO 262,143D ARE FORCED
00066 M00S00064.0vj +++|* TO AN UNLIMITED AMOUNT.
00067 M00S00065.0vj +++|*
00068 M00S00066.0vj +++|* FIELD LENGTH - A NUMBER FROM 1 - MAXIMUM SIZE ALLOWED.
00069 M00S00067.0vj +++|* THIS VALUE DEPENDS ON THE ACTUAL SIZE OF CENTRAL
| Line S00068 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00070 M01S00068.252l678 ---|* MEMORY OR THE AMOUNT OF ECS AVAILABLE. THE VALUE OF
| Line S00002 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00071 M01S00002.252l678 +++|* MEMORY OR THE AMOUNT OF EM AVAILABLE. THE VALUE OF
00072 M00S00069.0vj +++|* CENTRAL MEMORY WILL BE ROUNDED TO THE NEXT HIGHER
| Line S00070 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00073 M01S00070.252l678 ---|* MULTIPLE OF 100B. THE ECS MEMORY VALUE IS 4 DIGITS
| Line S00003 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | 0vj7 |
Seq # *Modification Id* Act
----------------------------+
00074 M02S00003.0vj7 ---|* MULTIPLE OF 100B. THE EM MEMORY VALUE IS 5 DIGITS
| Line S00001 Modification History |
M01 (Added by) | 0vj7 |
Seq # *Modification Id* Act
----------------------------+
00075 M01S00001.0vj7 +++|* MULTIPLE OF 100B. THE EM MEMORY VALUE IS 5 DIGITS
00076 M00S00071.0vj +++|* OR LESS AND REPRESENTS THE NUMBER OF 1000B WORD BLOCKS.
00077 M00S00072.0vj +++|*
00078 M00S00073.0vj +++|* LID - A 3 CHARACTER LID THAT IDENTIFIES WHAT MAINFRAME
00079 M00S00074.0vj +++|* THIS JOB SHOULD RUN ON.
00080 M00S00075.0vj +++|*
00081 M00S00076.0vj +++|* ACCESS LEVEL - A 1- TO 7-CHARACTER NAME (AS DEFINED IN
00082 M00S00077.0vj +++|* *COMSMLS*) FOR THE MAXIMUM ACCESS LEVEL THE JOB
00083 M00S00078.0vj +++|* WILL BE ALLOWED TO RUN AT. THE USER MUST BE
00084 M00S00079.0vj +++|* VALIDATED TO RUN AT THE SPECIFIED ACCESS LEVEL,
00085 M00S00080.0vj +++|* AND THAT LEVEL MUST BE VALID FOR THE SYSTEM
00086 M00S00081.0vj +++|* AND FOR THE JOB ORIGIN TYPE. IF NO ACCESS LEVEL
00087 M00S00082.0vj +++|* IS SPECIFIED, THE JOB WILL ONLY BE ALLOWED TO
00088 M00S00083.0vj +++|* RUN AT ONE ACCESS LEVEL, AND THAT LEVEL WILL BE
00089 M00S00084.0vj +++|* THE USER-S LOWEST VALIDATED ACCESS LEVEL THAT
00090 M00S00085.0vj +++|* IS ALSO VALID FOR THE SYSTEM AND FOR THE JOB
00091 M00S00086.0vj +++|* ORIGIN TYPE.
00092 M00S00087.0vj +++|*
00093 M00S00088.0vj +++|* THE DEFAULT BASE FOR THE TIME ARGUMENT IS DECIMAL,
00094 M00S00089.0vj +++|* FOR THE FIELD LENGTHS IT IS OCTAL. A
00095 M00S00090.0vj +++|* POST-RADIX OF *B* OR *D* MUST BE SPECIFIED TO ENTER
00096 M00S00091.0vj +++|* A NUMBER WHICH IS NOT IN THE DEFAULT BASE. PRESENCE OF AN
00097 M00S00092.0vj +++|* 8 OR 9 WILL DEFAULT TO DECIMAL. PRESENCE OF AN 8 OR 9
00098 M00S00093.0vj +++|* ALONG WITH A POST-RADIX OF *B* WILL RESULT IN AN ERROR.
00099 M00S00094.0vj +++|* ALL FIELDS MUST BE SEPARATED BY ONE OF THE FOLLOWING
00100 M00S00095.0vj +++|* CHARACTERS:
00101 M00S00096.0vj +++|* +-*/=,($
00102 M00S00097.0vj +++|* THE JOB COMMAND TERMINATES WITH *)* OR *.*
00103 M00S00098.0vj +++|* EMBEDDED SPACES ARE ALLOWED, AND ANY CHARACTER MAY APPEAR
00104 M00S00099.0vj +++|* IN THE COMMENTS FIELD AFTER THE TERMINATOR.
00105 M00S00100.0vj +++|*
00106 M00S00101.0vj +++|* ASSEMBLY CONSTANTS ARE PROVIDED FOR DEFAULT ARGUMENTS.
00107 M00S00102.0vj +++|* THESE VALUES ARE TL=64D, CM=377700B, EC=7777000B.
00108 M00S00103.0vj +++|* THEY ARE DEFINED IN COMMON DECK *COMSJCE*.
00109 M00S00104.0vj +++|*
00110 M00S00105.0vj +++|* THE USER DEFAULT SERVICE CLASS FOR THE ORIGIN TYPE OF THE
00111 M00S00106.0vj +++|* JOB IS USED IF NO *SC* OR *P* ARGUMENT IS SELECTED.
00112 M00S00107.0vj +++| SPACE 4,10
00113 M00S00108.0vj +++|*** ENTRY CONDITIONS.
00114 M00S00109.0vj +++|*
00115 M00S00110.0vj +++|*
00116 M00S00111.0vj +++|* (CN) = FWA OF STATEMENT BUFFER.
00117 M00S00112.0vj +++|* (CN+1) = ATTRIBUTES OF DESTINATION LID.
00118 M00S00113.0vj +++|* (CN+1) = 0 IF DESTINATION LID NOT ALREADY SPECIFIED.
| Line S00114 Modification History |
M01 (Removed by) | ns2420c |
Seq # *Modification Id* Act
----------------------------+
00119 M01S00114.ns2420c ---|* (CN+2) = 1/N, 1/E, 1/S, 6/, 3/AL
| Line S00001 Modification History |
M01 (Added by) | ns2420c |
Seq # *Modification Id* Act
----------------------------+
00120 M01S00001.ns2420c +++|* (CN+2) = 1/N, 1/E, 1/S, 1/D, 5/, 3/AL
00121 M00S00115.0vj +++|* N = NO PASSWORD VALIDATION REQUIRED.
00122 M00S00116.0vj +++|* E = VALIDATE ENCRYPTED PASSWORD (FROM *EPSS*).
00123 M00S00117.0vj +++|* S = JOB WILL BE SYSTEM ORIGIN.
| Line S00002 Modification History |
M01 (Added by) | ns2420c |
Seq # *Modification Id* Act
----------------------------+
00124 M01S00002.ns2420c +++|* D = DO NOT DELETE PASSWORD FROM BUFFER.
| Line S00118 Modification History |
M01 (Removed by) | ns2202 |
Seq # *Modification Id* Act
----------------------------+
00125 M01S00118.ns2202 ---|* AL = LOWER ACCESS LEVEL LIMIT FOR NEW JOB.
| Line S00001 Modification History |
M01 (Added by) | ns2202 |
Seq # *Modification Id* Act
----------------------------+
00126 M01S00001.ns2202 +++|* AL = ACCESS LEVEL OF LOCAL FILE TO BECOME JOB.
00127 M00S00119.0vj +++|* (OT) = ORIGIN TYPE.
00128 M00S00120.0vj +++| SPACE 4,10
00129 M00S00121.0vj +++|*** EXIT CONDITIONS.
00130 M00S00122.0vj +++|*
| Line S00001 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
00131 M01S00001.242l642 +++|*
00132 M01S00002.242l642 +++|* (A) .LT. 0 IF VALIDATION FILE DEVICE INACCESSIBLE.
| Line S00001 Modification History |
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act
----------------------------+
00133 M01S00001.ns2553 +++|* (T5) = EST ORDINAL OF VALIDATION FILE DEVICE IF INACCESSIBLE.
00134 M00S00123.0vj +++|*
00135 M00S00124.0vj +++|* JOB COMMAND ARGUMENTS SET IN SYSTEM SECTOR BUFFER.
00136 M00S00125.0vj +++|* JOB COMMAND ERROR IS SET IN SYSTEM SECTOR BUFFER (JASS).
00137 M00S00126.0vj +++|* IDIE = ILLEGAL LID SPECIFIED VIA *ST*.
00138 M00S00127.0vj +++|* JCIE = JOB COMMAND ERROR.
00139 M00S00128.0vj +++|* SCIE = INVALID SERVICE CLASS.
00140 M00S00129.0vj +++|* STIE = *ST* SPECIFIED AND USER NOT VALIDATED.
00141 M00S00130.0vj +++|* UCIE = USER SECURITY COUNT EXHAUSTED.
00142 M00S00131.0vj +++|* UNIE = USER NAME/PASSWORD NOT VALID.
00143 M00S00132.0vj +++|* USIE = UNDEFINED SERVICE CLASS.
00144 M00S00133.0vj +++|* (CN) = ATTRIBUTES OF DESTINATION LID, IF SPECIFIED.
00145 M00S00134.0vj +++|* (CN+1) = USER DEFAULT SERVICE CLASS FOR ORIGIN TYPE
00146 M00S00135.0vj +++|* OF INPUT FILE.
00147 M00S00136.0vj +++|* (CN+2 - CN+4) = SERVICE CLASS VALIDATION MASK FOR USER.
00148 M00S00137.0vj +++|* USER/ACCOUNT COMMAND INFORMATION SET IN SYSTEM SECTOR.
00149 M00S00138.0vj +++|* SERVICE CLASS SET IN QFT ENTRY IN SYSTEM SECTOR.
00150 M00S00139.0vj +++|* (JF) = INITIAL JOB FIELD LENGTH.
| Line S00140 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00151 M01S00140.252l678 ---|* (JE) = INITIAL ECS JOB FIELD LENGTH.
| Line S00004 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00152 M01S00004.252l678 +++|* (JE) = INITIAL EM JOB FIELD LENGTH/*UEBS*.
00153 M00S00141.0vj +++|* (ER) = ERROR STATUS.
00154 M00S00142.0vj +++|* 0 = NO ERROR ENCOUNTERED.
00155 M00S00143.0vj +++|* 1 = JOB COMMAND ERROR.
00156 M00S00144.0vj +++|* 3 = USER COMMAND ERROR.
00157 M00S00145.0vj +++|*
00158 M00S00146.0vj +++|* NOTES *JOB COMMAND ERROR* STATUS WILL NEVER BE RETURNED
00159 M00S00147.0vj +++|* IF THE JOB IS DESTINED FOR A NON-HOST LID.
| Line S00148 Modification History |
M01 (Removed by) | ns2420c |
Seq # *Modification Id* Act
----------------------------+
00160 M01S00148.ns2420c ---|*
00161 M01S00149.ns2420c ---|* *USER COMMAND ERROR* STATUS WILL NEVER BE RETURNED IF
00162 M01S00150.ns2420c ---|* THE JOB IS DESTINED FOR A LID THAT DOES NOT
00163 M01S00151.ns2420c ---|* REQUIRE PRE-VALIDATION.
| Line S00001 Modification History |
M01 (Added by) | ns2168 |
Seq # *Modification Id* Act
----------------------------+
00164 M01S00001.ns2168 +++|*
00165 M01S00002.ns2168 +++|* IF BOTH A USER COMMAND ERROR AND A JOB COMMAND ERROR
00166 M01S00003.ns2168 +++|* ARE ENCOUNTERED, *USER COMMAND ERROR* STATUS WILL BE
00167 M01S00004.ns2168 +++|* RETURNED UNLESS THE JOB COMMAND ERROR CODE IS
00168 M01S00005.ns2168 +++|* *INVALID LID*.
| Line S00003 Modification History |
M01 (Added by) | ns2420c |
Seq # *Modification Id* Act
----------------------------+
00169 M01S00003.ns2420c +++|*
00170 M01S00004.ns2420c +++|* WHEN VALIDATING THE USER COMMAND, THE PASSWORD ON THE
00171 M01S00005.ns2420c +++|* USER COMMAND WILL BE VALIDATED EXCEPT IN THE FOLLOWING
00172 M01S00006.ns2420c +++|* CASES -
00173 M01S00007.ns2420c +++|*
00174 M01S00008.ns2420c +++|* 1) IF THE *DO NOT VALIDATE PASSWORD* BIT IS SET, THE
00175 M01S00009.ns2420c +++|* PASSWORD WILL NOT BE VALIDATED.
00176 M01S00010.ns2420c +++|*
00177 M01S00011.ns2420c +++|* 2) IF THE *VALIDATE ENCRYPTED PASSWORD* BIT IS SET,
00178 M01S00012.ns2420c +++|* THE PASSWORD ON THE USER COMMAND WILL BE VALIDATED
00179 M01S00013.ns2420c +++|* IF IT EXISTS; OTHERWISE THE ENCRYPTED PASSWORD
00180 M01S00014.ns2420c +++|* WILL BE VALIDATED.
00181 M00S00152.0vj +++| SPACE 4,10
00182 M00S00153.0vj +++|** CALLS.
00183 M00S00154.0vj +++|*
00184 M00S00155.0vj +++|* 0AV - ACCOUNT VALIDATION.
| Line S00001 Modification History |
M01 (Added by) | tl0vj1 |
Seq # *Modification Id* Act
----------------------------+
00185 M01S00001.tl0vj1 +++|* 0IJ - PROCESS *IBM* JOB CARD.
00186 M00S00156.0vj +++|* 0VU - VALIDATE USER AND JOB.
00187 M00S00157.0vj +++| TITLE MACRO DEFINITIONS.
00188 M00S00158.0vj +++| JCARG SPACE 4,15
00189 M00S00159.0vj +++|** JCARG - JOB COMMAND ARGUMENT TABLE ENTRY MACRO.
00190 M00S00160.0vj +++|*
00191 M00S00161.0vj +++|* JCARG A,B,C,D,E
00192 M00S00162.0vj +++|*
00193 M00S00163.0vj +++|* ENTRY A = JOB COMMAND ARGUMENT.
00194 M00S00164.0vj +++|* B = PROCESSOR ADDRESS.
00195 M00S00165.0vj +++|* C = MAXIMUM NUMBER OF DIGITS PLUS ONE.
00196 M00S00166.0vj +++|* D = MAXIMUM DECIMAL VALUE ALLOWED.
00197 M00S00167.0vj +++|* E = DEFAULT BASE.
00198 M00S00168.0vj +++|* *DECIMAL* = DECIMAL BASE.
00199 M00S00169.0vj +++|* OTHER = OCTAL BASE.
00200 M00S00170.0vj +++|
00201 M00S00171.0vj +++|
00202 M00S00172.0vj +++| PURGMAC JCARG
00203 M00S00173.0vj +++| JCARG MACRO A,B,C,D,E
00204 M00S00174.0vj +++| .1 MICRO 1,2,$A$
00205 M00S00175.0vj +++| .2 MICCNT .1
00206 M00S00176.0vj +++| .3 DECMIC .2,1
00207 M00S00177.0vj +++| CON ".3"_R_A
00208 M00S00178.0vj +++| CON B
00209 M00S00179.0vj +++| CON C
00210 M00S00180.0vj +++| VFD 24/D
00211 M00S00181.0vj +++| .A IFC EQ,$E$DECIMAL$
00212 M00S00182.0vj +++| CON 1
00213 M00S00183.0vj +++| .A ELSE
00214 M00S00184.0vj +++| CON 0
00215 M00S00185.0vj +++| .A ENDIF
| Line S00001 Modification History |
M01 (Added by) | 0vj5 |
Seq # *Modification Id* Act
----------------------------+
00216 M01S00001.0vj5 +++| .A IFEQ .2,2
00217 M01S00002.0vj5 +++| .1 MICRO 1,1,$A$
00218 M01S00003.0vj5 +++| .3 MICRO 2,1,$A$
00219 M01S00004.0vj5 +++| .1 MICRO 1,2,$".3"".1"$
00220 M01S00005.0vj5 +++| .2 MICCNT NMSC
00221 M01S00006.0vj5 +++| DUP .2/2
00222 M01S00007.0vj5 +++| .2 SET .2-2
00223 M01S00008.0vj5 +++| .3 MICRO .2+1,2,$"NMSC"$
00224 M01S00009.0vj5 +++| .B IFC EQ,$".1"$".3"$
00225 M01S00010.0vj5 +++| ERR JOB COMMAND KEYWORD/SERVICE CLASS CONFLICT (*".1"*).
00226 M01S00011.0vj5 +++| STOPDUP
00227 M01S00012.0vj5 +++| .B ENDIF
00228 M01S00013.0vj5 +++| ENDD
00229 M01S00014.0vj5 +++| .A ENDIF
00230 M00S00186.0vj +++| ENDM
00231 M00S00187.0vj +++| PARAM SPACE 4,10
00232 M00S00188.0vj +++|** PARAM - DEFINE *0VJ*/*0VU* INTERFACE PARAMETER.
00233 M00S00189.0vj +++|*
00234 M00S00190.0vj +++|* TAG PARAM NUM,VAL
00235 M00S00191.0vj +++|*
00236 M00S00192.0vj +++|* ENTRY TAG = SYMBOLIC NAME FOR LOCATION(S).
00237 M00S00193.0vj +++|* NUM = NUMBER OF LOCATIONS TO RESERVE.
00238 M00S00194.0vj +++|* (IF NUM = *FIRST*, INITIALIZE BLOCK;
00239 M00S00195.0vj +++|* IF NUM = *LAST*, TERMINATE BLOCK.)
00240 M00S00196.0vj +++|* VAL = VALUE TO PRESET LOCATION(S) WITH.
00241 M00S00197.0vj +++|
00242 M00S00198.0vj +++|
00243 M00S00199.0vj +++| PURGMAC PARAM
00244 M00S00200.0vj +++|
00245 M00S00201.0vj +++| MACRO PARAM,TAG,NUM,VAL
00246 M00S00202.0vj +++| .A IFC EQ,$VAL$$
00247 M00S00203.0vj +++| .B IFC EQ,$NUM$FIRST$
00248 M00S00204.0vj +++| TAG BSS 0
00249 M00S00205.0vj +++| .1 SET *
00250 M00S00206.0vj +++| .B ELSE
00251 M00S00207.0vj +++| .C IFC EQ,$NUM$LAST$
00252 M00S00208.0vj +++| TAG BSS 0
| Line S00001 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00253 M01S00001.0vj2 +++| ERRNZ OVL0-5-* PARAMETER BLOCK LOCATION ERROR
00254 M00S00209.0vj +++| ERRNZ .1+ZVPL-* PARAMETER BLOCK LENGTH ERROR
00255 M00S00210.0vj +++| .C ELSE
00256 M00S00211.0vj +++| ERR MISSING PARAMETER
00257 M00S00212.0vj +++| .C ENDIF
00258 M00S00213.0vj +++| .B ENDIF
00259 M00S00214.0vj +++| .A ELSE
00260 M00S00215.0vj +++| TAG BSS 0
00261 M00S00216.0vj +++| .D DUP NUM
00262 M00S00217.0vj +++| CON VAL
00263 M00S00218.0vj +++| .D ENDD
00264 M00S00219.0vj +++| .A ENDIF
00265 M00S00220.0vj +++| ENDM
| Line S00001 Modification History |
M01 (Added by) | ns2217 |
Seq # *Modification Id* Act
----------------------------+
00266 M01S00001.ns2217 +++| SCLASS SPACE 4,15
00267 M01S00002.ns2217 +++|** SCLASS - DEFINE SERVICE CLASS TABLE.
00268 M01S00003.ns2217 +++|*
00269 M01S00004.ns2217 +++|* SCLASS NM,MN,DF,ST,TX
00270 M01S00005.ns2217 +++|*
00271 M01S00006.ns2217 +++|* ENTRY *NM* = SERVICE CLASS NAME.
00272 M01S00007.ns2217 +++|* *MN* = TWO CHARACTER MNEMONIC.
00273 M01S00008.ns2217 +++|* *DF* = DAYFILE MESSAGE CHARACTER.
00274 M01S00009.ns2217 +++|* *ST* = SHORT TEXT FOR *QFTLIST*.
00275 M01S00010.ns2217 +++|* *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE.
00276 M01S00011.ns2217 +++|*
00277 M01S00012.ns2217 +++|* NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF
00278 M01S00013.ns2217 +++|* THIS MACRO.
00279 M01S00014.ns2217 +++|
00280 M01S00015.ns2217 +++|
00281 M01S00016.ns2217 +++| PURGMAC SCLASS
00282 M01S00017.ns2217 +++|
00283 M01S00018.ns2217 +++| SCLASS MACRO NM,MN,DF,ST,TX
00284 M01S00019.ns2217 +++| .A IFC NE,$NM$SSSC$
00285 M01S00020.ns2217 +++| .SCL RMT
00286 M01S00021.ns2217 +++| INDEX NM,2R_MN TX
00287 M01S00022.ns2217 +++| .SCL RMT
00288 M01S00023.ns2217 +++| .A ENDIF
00289 M01S00024.ns2217 +++| SCLASS ENDM
| Line S00001 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00290 M01S00001.261l700 +++| UCARG SPACE 4,10
00291 M01S00002.261l700 +++|** UCARG - USER COMMAND ARGUMENT TABLE ENTRY MACRO.
00292 M01S00003.261l700 +++|*
00293 M01S00004.261l700 +++|* UCARG A,B,C.
00294 M01S00005.261l700 +++|*
00295 M01S00006.261l700 +++|* ENTRY A = ARGUMENT KEYWORD.
00296 M01S00007.261l700 +++|* B = ADDRESS TO ASSEMBLE ARGUMENT.
00297 M01S00008.261l700 +++|* C = * IF ASTERISK ALLOWED IN ARGUMENT.
00298 M01S00009.261l700 +++|
00299 M01S00010.261l700 +++|
00300 M01S00011.261l700 +++| PURGMAC UCARG
00301 M01S00012.261l700 +++| UCARG MACRO A,B,C
00302 M01S00013.261l700 +++| LOCAL D
00303 M01S00014.261l700 +++| VFD 12/0L_A
00304 M01S00015.261l700 +++| CON B
00305 M01S00016.261l700 +++| D SET 0
00306 M01S00017.261l700 +++| IFC EQ,$C$*$,1
00307 M01S00018.261l700 +++| D SET 1R*
00308 M01S00019.261l700 +++| VFD 12/D
00309 M01S00020.261l700 +++| UCARG ENDM
00310 M00S00221.0vj +++| SPACE 4,10
00311 M00S00222.0vj +++|* COMMON DECKS.
00312 M00S00223.0vj +++|
00313 M00S00224.0vj +++|
00314 M00S00225.0vj +++|*CALL COMPMAC
00315 M00S00226.0vj +++|*CALL COMPRLI
00316 M00S00227.0vj +++|*CALL COMSACC
00317 M00S00228.0vj +++|*CALL COMSCPS
00318 M00S00229.0vj +++|*CALL COMSDSP
00319 M00S00230.0vj +++|*CALL COMSJCE
00320 M00S00231.0vj +++|*CALL COMSMLS
00321 M00S00232.0vj +++|*CALL COMSPIM
| Line S00001 Modification History |
M01 (Added by) | ns2169 |
Seq # *Modification Id* Act
----------------------------+
00322 M01S00001.ns2169 +++| QUAL REM
00323 M00S00233.0vj +++|*CALL COMSREM
| Line S00002 Modification History |
M01 (Added by) | ns2169 |
Seq # *Modification Id* Act
----------------------------+
00324 M01S00002.ns2169 +++| QUAL *
| Line S00025 Modification History |
M01 (Added by) | ns2217 |
Seq # *Modification Id* Act
----------------------------+
00325 M01S00025.ns2217 +++| SCL$ EQU 0 ONLY PROCESS CLASSES WITH JCB-S
00326 M00S00234.0vj +++|*CALL COMSSCD
00327 M00S00235.0vj +++|*CALL COMSSSD
00328 M00S00236.0vj +++|*CALL COMSSSE
00329 M00S00237.0vj +++|*CALL COMSZOL
00330 M00S00238.0vj +++| SPACE 4,20
| Line S00239 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00331 M01S00239.0vj2 ---|**** DIRECT ASSIGNMENT LOCATIONS.
| Line S00002 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00332 M01S00002.0vj2 +++|**** DIRECT LOCATION ASSIGNMENTS.
00333 M00S00240.0vj +++|
| Line S00001 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00334 M01S00001.v23l617 +++| T8 EQU 16 TEMPORARY STORAGE
| Line S00003 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00335 M01S00003.0vj2 +++| T9 EQU 17 TEMPORARY / ARGUMENT TABLE INDEX
00336 M00S00241.0vj +++| CA EQU 25 CHARACTER ADDRESS
00337 M00S00242.0vj +++| CN EQU 30 - 34 ASSEMBLE BUFFER (5 LOCATIONS)
00338 M00S00243.0vj +++| JF EQU 35 JOB FIELD LENGTH
| Line S00002 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00339 M01S00002.v23l617 +++| CB EQU 37 ADDRESS OF NEXT COMMAND IN BUFFER
00340 M00S00244.0vj +++| UN EQU 40 - 44 USER NUMBER (USED BY 0AV)
| Line S00245 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00341 M01S00245.252l678 ---| JE EQU 45 JOB ECS FIELD LENGTH
| Line S00005 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00342 M01S00005.252l678 +++| JE EQU 45 JOB EM FIELD LENGTH/*UEBS*
00343 M00S00246.0vj +++| OT EQU 46 ORIGIN TYPE
00344 M00S00247.0vj +++| ER EQU 47 ERROR STATUS
00345 M00S00248.0vj +++|
00346 M00S00249.0vj +++|****
00347 M00S00250.0vj +++| TITLE MAIN ROUTINE.
00348 M00S00251.0vj +++| RVJ SPACE 4,10
00349 M00S00252.0vj +++|** RVJ - MAIN ROUTINE.
00350 M00S00253.0vj +++|
00351 M00S00254.0vj +++| ORG 5B
00352 M00S00255.0vj +++|
00353 M00S00256.0vj +++| RVJ SUBR ENTRY/EXIT
00354 M00S00257.0vj +++| LJM PRS PRESET
| Line S00258 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00355 M01S00258.261l700 ---| VUJ SPACE 4,10
00356 M01S00259.261l700 ---|** VUJ - VALIDATE USER AND JOB.
| Line S00021 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00357 M01S00021.261l700 +++| VUN SPACE 4,15
00358 M01S00022.261l700 +++|** VUN - VALIDATE USER NAME.
00359 M00S00260.0vj +++|*
00360 M00S00261.0vj +++|* ENTRY (UN - UN+4) = USER NAME.
00361 M00S00262.0vj +++|* (CN - CN+4) = FAMILY NAME.
| Line S00263 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00362 M01S00263.261l700 ---|* (UCNV) .NE. 0 IF USER COMMAND NOT VALID.
| Line S00023 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00363 M01S00023.261l700 +++|*
00364 M01S00024.261l700 +++|* EXIT TO *EVU* IF VALIDATION FILE ACCESSIBLE.
00365 M01S00025.261l700 +++|* TO *RVJX* IF VALIDATION FILE INACCESSIBLE.
00366 M01S00026.261l700 +++|*
00367 M01S00027.261l700 +++|* USES LA, T6, UN+4.
00368 M01S00028.261l700 +++|*
00369 M01S00029.261l700 +++|* CALLS EVU.
00370 M01S00030.261l700 +++|*
00371 M01S00031.261l700 +++|* MACROS EXECUTE.
00372 M00S00264.0vj +++|
00373 M00S00265.0vj +++|
| Line S00266 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00374 M01S00266.261l700 ---| VUJ BSS 0 ENTRY
00375 M01S00267.261l700 ---| LDM UCNV
| Line S00268 Modification History |
M01 (Removed by) | ns2243 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00376 M02S00268.261l700 ---| NJP VUJ2 IF USER COMMAND NOT VALID
| Line S00001 Modification History |
M01 (Added by) | ns2243 |
M02 (Removed by) | ns2420 |
M03 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00377 M03S00001.261l700 ---| NJP VUJ2 IF NO VALIDATION REQUIRED/*USER* NOT VALID
| Line S00001 Modification History |
M01 (Added by) | ns2420 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00378 M02S00001.261l700 ---| NJP VUJ2 IF *USER* NOT VALID
| Line S00032 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00379 M01S00032.261l700 +++| VUN BSS 0 ENTRY
00380 M00S00269.0vj +++|
00381 M00S00270.0vj +++|* GET USER ACCOUNT BLOCK FOR SPECIFIED USER/FAMILY.
00382 M00S00271.0vj +++|
| Line S00272 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00383 M01S00272.261l700 ---|* LDN 0 VALIDATE USER NAME
| Line S00033 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00384 M01S00033.261l700 +++| LDN 0 VALIDATE USER NAME
00385 M00S00273.0vj +++| STD UN+4
00386 M00S00274.0vj +++| LDC OVL0 SET LOAD ADDRESS
00387 M00S00275.0vj +++| RAD LA
00388 M00S00276.0vj +++| EXECUTE 0AV,*
00389 M00S00277.0vj +++| RJM. EXR
| Line S00003 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
00390 M01S00003.242l642 +++| MJN RVJX IF VALIDATION FILE INACCESSIBLE
| Line S00278 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00391 M01S00278.261l700 ---| LDC * RESET LOAD ADDRESS
00392 M01S00279.261l700 ---| VUJA EQU *-1 (SET IN *PRS*)
00393 M01S00280.261l700 ---| STD LA
00394 M00S00281.0vj +++| LDD T1 SET *0VU* PARAMETERS
| Line S00282 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00395 M01S00282.261l700 ---| STM UIDX
| Line S00034 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00396 M01S00034.261l700 +++| STM UIDX-OVL0
00397 M00S00283.0vj +++| LDD T2
| Line S00284 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00398 M01S00284.261l700 ---| STM UIDX+1
| Line S00035 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00399 M01S00035.261l700 +++| STM UIDX+1-OVL0
00400 M00S00285.0vj +++| LDD T4
| Line S00286 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00401 M01S00286.261l700 ---| STM SPUI
| Line S00036 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00402 M01S00036.261l700 +++| STM SPUI-OVL0
00403 M00S00287.0vj +++| LDD T6
| Line S00288 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00404 M01S00288.261l700 ---| STM USCT
| Line S00037 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00405 M01S00037.261l700 +++| STM USCT-OVL0
00406 M00S00289.0vj +++| LDD T3 SET USER BLOCK ADDRESS
| Line S00290 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00407 M01S00290.261l700 ---| STM VUJB
| Line S00038 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00408 M01S00038.261l700 +++| STM VUNA-OVL0
00409 M00S00291.0vj +++| LDC 5*ARBS-1 COPY USER BLOCK TO BUFFER
00410 M00S00292.0vj +++| STD T6
| Line S00293 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00411 M01S00293.261l700 ---| VUJ1 LDM. *,T6
00412 M01S00294.261l700 ---| VUJB EQU *-1
| Line S00039 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00413 M01S00039.261l700 +++| VUN1 LDM. *,T6
00414 M01S00040.261l700 +++| VUNA EQU *-1
00415 M00S00295.0vj +++| STM UBUF,T6
00416 M00S00296.0vj +++| SOD T6
| Line S00297 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00417 M01S00297.261l700 ---| PJN VUJ1 IF MORE BYTES TO MOVE
| Line S00041 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00418 M01S00041.261l700 +++| PJN VUN1 IF MORE BYTES TO MOVE
00419 M01S00042.261l700 +++|* UJN EVU EXIT TO *0VU*
00420 M01S00043.261l700 +++| EVU SPACE 4,10
00421 M01S00044.261l700 +++|** EVU - EXECUTE *0VU*.
00422 M01S00045.261l700 +++|*
00423 M01S00046.261l700 +++|* EXIT TO *0VU*.
00424 M00S00298.0vj +++|
| Line S00299 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00425 M01S00299.261l700 ---|* VALIDATE USER AND JOB.
00426 M00S00300.0vj +++|
| Line S00301 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00427 M01S00301.261l700 ---| VUJ2 LDC OVL0 SET LOAD ADDRESS
00428 M01S00302.261l700 ---| RAD LA
| Line S00047 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00429 M01S00047.261l700 +++| EVU BSS 0 ENTRY
00430 M00S00303.0vj +++| EXECUTE 0VU,* VALIDATE USER AND JOB
00431 M00S00304.0vj +++| RJM. EXR
00432 M00S00305.0vj +++|* LJM RVJX RETURN TO CALLER DIRECTLY FROM *0VU*
00433 M00S00306.0vj +++| SPACE 4,10
00434 M00S00307.0vj +++| LIST X
00435 M00S00308.0vj +++|*CALL COMS0VU
00436 M00S00309.0vj +++| LIST *
00437 M00S00310.0vj +++| SPACE 4,10
| Line S00001 Modification History |
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00438 M01S00001.ns2601 +++|* OVERLAY/BUFFER ADDRESS ALLOCATION.
00439 M01S00002.ns2601 +++|
00440 M01S00003.ns2601 +++|
00441 M00S00311.0vj +++| OVL0 EQU *+5 *0AV*/*0VU* LOAD ADDRESS
| Line S00004 Modification History |
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00442 M01S00004.ns2601 +++| UBUF EQU ZVJL-ARBS*5 USER BLOCK BUFFER FOR *0AV*/*0VU*
00443 M00S00312.0vj +++|
| Line S00313 Modification History |
M01 (Removed by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00444 M01S00313.ns2601 ---| ERRNG ZVJL-OVL0-ZAVL *0AV* OVERFLOWS *0VJ*
00445 M01S00314.ns2601 ---|
00446 M01S00315.ns2601 ---| UBUF EQU OVL0+ZAVL USER BLOCK BUFFER
00447 M01S00316.ns2601 ---|
00448 M01S00317.ns2601 ---| ERRNG ZVJL-UBUF-ARBS*5 *UBUF* OVERFLOWS *0VJ*
| Line S00005 Modification History |
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00449 M01S00005.ns2601 +++| ERRNG UBUF-OVL0-ZAVL *0AV* OVERFLOWS INTO *UBUF*
00450 M00S00318.0vj +++| ERRNG UBUF-OVL0-ZVUL *0VU* OVERFLOWS INTO *UBUF*
| Line S00006 Modification History |
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00451 M01S00006.ns2601 +++| TITLE VALIDATE JOB COMMAND.
00452 M00S00319.0vj +++| VJC SPACE 4,10
00453 M00S00320.0vj +++|** VJC - VALIDATE JOB COMMAND.
| Line S00048 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00454 M01S00048.261l700 +++|*
00455 M01S00049.261l700 +++|* EXIT TO *VUN* IF NO ERROR IN *USER* COMMAND.
00456 M01S00050.261l700 +++|* TO *EVU* IF ERROR IN *USER* COMMAND.
00457 M01S00051.261l700 +++|*
00458 M01S00052.261l700 +++|* USES CB.
00459 M01S00053.261l700 +++|*
00460 M01S00054.261l700 +++|* CALLS DPW, EVU, ISS, JCP, UCP, UCS, VUN.
00461 M00S00321.0vj +++|
00462 M00S00322.0vj +++|
00463 M00S00323.0vj +++| VJC BSS 0 ENTRY
| Line S00002 Modification History |
M01 (Added by) | tl0vj1 |
Seq # *Modification Id* Act
----------------------------+
00464 M01S00002.tl0vj1 +++| LDI CN CHECK *IBM* JOB
00465 M01S00003.tl0vj1 +++| LMC 2R//
00466 M01S00004.tl0vj1 +++| NJN VJC0.1 IF NOT *IBM* JOB CARD
00467 M01S00005.tl0vj1 +++|
00468 M01S00006.tl0vj1 +++|* PROCESS *IBM* JOB CARD.
00469 M01S00007.tl0vj1 +++|
00470 M01S00008.tl0vj1 +++| LDC OIJ0 SET LOAD ADDRESS
00471 M01S00009.tl0vj1 +++| RAD LA
00472 M01S00010.tl0vj1 +++| EXECUTE 0IJ,* LOAD AND EXECUTE *0IJ*
00473 M01S00011.tl0vj1 +++| RJM. EXR
00474 M01S00012.tl0vj1 +++| LDC * RESTORE LOAD ADDRESS
00475 M01S00013.tl0vj1 +++| VJCA EQU *-1 (SET IN *PRS*)
00476 M01S00014.tl0vj1 +++| STD LA
00477 M01S00015.tl0vj1 +++| RJM ISS INITIALIZE SYSTEM SECTOR
00478 M01S00016.tl0vj1 +++| LJM RVJX RETURN
00479 M00S00324.0vj +++|
00480 M00S00325.0vj +++|* UNPACK JOB COMMAND.
00481 M00S00326.0vj +++|
| Line S00017 Modification History |
M01 (Added by) | tl0vj1 |
Seq # *Modification Id* Act
----------------------------+
00482 M01S00017.tl0vj1 +++| VJC0.1 BSS 0
00483 M01S00018.tl0vj1 +++|*/I,355
00484 M00S00327.0vj +++| LDD CN
| Line S00328 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00485 M01S00328.v23l617 ---| STD T6
| Line S00003 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00486 M01S00003.v23l617 +++| STD CB
00487 M00S00329.0vj +++| RJM UCS UNPACK JOB COMMAND
00488 M00S00330.0vj +++| NJN VJC1 IF NO ERROR
00489 M00S00331.0vj +++| AOM JCEF FLAG ERROR
00490 M00S00332.0vj +++|
00491 M00S00333.0vj +++|* PROCESS JOB COMMAND.
00492 M00S00334.0vj +++|
00493 M00S00335.0vj +++| VJC1 RJM JCP PROCESS JOB COMMAND ARGUMENTS
00494 M00S00336.0vj +++|
00495 M00S00337.0vj +++|* INITIALIZE SYSTEM SECTOR.
00496 M00S00338.0vj +++|
00497 M00S00339.0vj +++| RJM ISS INITIALIZE SYSTEM SECTOR
00498 M00S00340.0vj +++|
00499 M00S00341.0vj +++|* UNPACK AND CRACK USER COMMAND.
00500 M00S00342.0vj +++|
| Line S00343 Modification History |
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00501 M01S00343.ns2420 ---| LDM DLAT CHECK DLID ATTRIBUTES
00502 M01S00344.ns2420 ---| ZJN VJC2 IF NO DLID
| Line S00345 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00503 M02S00345.ns2420 ---| SHN 21-10
| Line S00004 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00504 M02S00004.ns2420 ---| SHN 21-11
| Line S00346 Modification History |
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00505 M01S00346.ns2420 ---| PJN VJC4 IF VALIDATION NOT REQUIRED
00506 M01S00347.ns2420 ---| VJC2 RJM UCS UNPACK USER COMMAND
| Line S00002 Modification History |
M01 (Added by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00507 M01S00002.ns2420 +++| RJM UCS UNPACK USER COMMAND
00508 M00S00348.0vj +++| ZJN VJC4 IF ERROR IN USER COMMAND
00509 M00S00349.0vj +++| RJM UCP PROCESS USER COMMAND
00510 M00S00350.0vj +++| ZJN VJC4 IF ERROR
00511 M00S00351.0vj +++| RJM DPW DELETE PASSWORD FROM INPUT FILE
| Line S00352 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00512 M01S00352.261l700 ---| VJC3 LJM VUJ VALIDATE USER AND JOB
| Line S00055 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00513 M01S00055.261l700 +++| VJC3 LJM VUN VALIDATE USER NAME
00514 M00S00353.0vj +++|
| Line S00354 Modification History |
M01 (Removed by) | ns2243 |
Seq # *Modification Id* Act
----------------------------+
00515 M01S00354.ns2243 ---| VJC4 AOM UCNV FLAG INVALID USER/FAMILY
| Line S00002 Modification History |
M01 (Added by) | ns2243 |
M02 (Removed by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00516 M02S00002.ns2420 ---| VJC4 AOM UCNV NO VALIDATION REQUIRED/*USER* NOT VALID
| Line S00003 Modification History |
M01 (Added by) | ns2420 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00517 M02S00003.261l700 ---| VJC4 AOM UCNV *USER* NOT VALID
| Line S00355 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00518 M01S00355.261l700 ---| UJN VJC3 VALIDATE USER AND JOB
| Line S00056 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
00519 M01S00056.261l700 +++|* PROCESS ERROR IN *USER* COMMAND.
00520 M01S00057.261l700 +++|
00521 M01S00058.261l700 +++| VJC4 AOM UCNV SET *USER* NOT VALID
00522 M01S00059.261l700 +++| LDC OVL0 SET *0VU* LOAD ADDRESS
00523 M01S00060.261l700 +++| RAD LA
00524 M01S00061.261l700 +++| LJM EVU-OVL0 EXIT TO CALL *0VU*
| Line S00019 Modification History |
M01 (Added by) | tl0vj1 |
Seq # *Modification Id* Act
----------------------------+
00525 M01S00019.tl0vj1 +++| OIJ0 SPACE 4,10
00526 M01S00020.tl0vj1 +++| OIJ0 EQU *+5 *0IJ* LOAD ADDRESS
00527 M00S00356.0vj +++| TITLE JOB COMMAND PROCESSOR.
00528 M00S00357.0vj +++| JCP SPACE 4,20
00529 M00S00358.0vj +++|** JCP - JOB COMMAND PROCESSOR.
00530 M00S00359.0vj +++|*
00531 M00S00360.0vj +++|* ENTRY (CA) = FWA OF CHARACTER STRING.
00532 M00S00361.0vj +++|* (JF) = JOB FIELD LENGTH.
| Line S00362 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00533 M01S00362.252l678 ---|* (JE) = JOB ECS FIELD LENGTH.
| Line S00006 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00534 M01S00006.252l678 +++|* (JE) = JOB EM FIELD LENGTH.
00535 M00S00363.0vj +++|*
00536 M00S00364.0vj +++|* EXIT (JF) = JOB FIELD LENGTH
| Line S00365 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00537 M01S00365.252l678 ---|* (JE) = JOB ECS FIELD LENGTH.
| Line S00007 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00538 M01S00007.252l678 +++|* (JE) = JOB EM FIELD LENGTH.
00539 M00S00366.0vj +++|*
| Line S00367 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00540 M01S00367.0vj2 ---|* USES LA, T7, CM - CM+4.
| Line S00004 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00541 M01S00004.0vj2 +++|* USES LA, T9, CM - CM+4.
00542 M00S00368.0vj +++|*
00543 M00S00369.0vj +++|* CALLS AEF, AFL, AJN, AST, ASV, ATL, CTS, CVS, ERR, GNC.
00544 M00S00370.0vj +++|
00545 M00S00371.0vj +++|
00546 M00S00372.0vj +++| JCP SUBR ENTRY/EXIT
00547 M00S00373.0vj +++| LDN ZERL CLEAR JOBNAME BUFFER
00548 M00S00374.0vj +++| CRM. JNSS,ON
00549 M00S00375.0vj +++| RJM AJN ASSEMBLE JOB NAME
00550 M00S00376.0vj +++| RJM CTS CHECK FOR TERMINATOR
00551 M00S00377.0vj +++| MJN JCPX IF TERMINATOR
00552 M00S00378.0vj +++| LDN 0 PRESET TABLE INDEX
| Line S00379 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00553 M01S00379.0vj2 ---| STD T7
| Line S00005 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00554 M01S00005.0vj2 +++| STD T9
00555 M00S00380.0vj +++| RJM GNC GET FIRST ARGUMENT CHARACTER
00556 M00S00381.0vj +++| MJN JCPX IF TERMINATOR
00557 M00S00382.0vj +++| ZJN JCP5 IF SEPARATOR
00558 M00S00383.0vj +++| SBN 1R0
00559 M00S00384.0vj +++| PJN JCP5 IF NUMBER (ORDER DEPENDENT JOB COMMAND)
00560 M00S00385.0vj +++| LDD CA SAVE ARGUMENT FWA
00561 M00S00386.0vj +++| STD CM+4
00562 M00S00387.0vj +++| LDI CA CHECK FOR POSSIBLE SERVICE CLASS
00563 M00S00388.0vj +++| SHN 6
00564 M00S00389.0vj +++| STD CM
00565 M00S00390.0vj +++| RJM GNC GET NEXT CHARACTER
00566 M00S00391.0vj +++| MJN JCP2 IF TERMINATOR (NOT SERVICE CLASS)
00567 M00S00392.0vj +++| ZJN JCP2 IF SEPARATOR (NOT SERVICE CLASS)
00568 M00S00393.0vj +++| RAD CM
00569 M00S00394.0vj +++| RJM GNC GET NEXT CHARACTER
00570 M00S00395.0vj +++| MJN JCP1 IF TERMINATOR (POSSIBLE SERVICE CLASS)
00571 M00S00396.0vj +++| NJN JCP2 IF NOT SEPARATOR (NOT SERVICE CLASS)
00572 M00S00397.0vj +++| JCP1 RJM CVS CHECK FOR VALID SERVICE CLASS
00573 M00S00398.0vj +++| ZJN JCP4 IF ORDER DEPENDENT (VALID SERVICE CLASS)
00574 M00S00399.0vj +++| JCP2 LDD CM+4 RESET ARGUMENT ADDRESS
00575 M00S00400.0vj +++| STD CA
00576 M00S00401.0vj +++| LJM JCP9 PROCESS ORDER INDEPENDENT
00577 M00S00402.0vj +++|
00578 M00S00403.0vj +++|* PROCESS ORDER DEPENDENT ARGUMENTS.
00579 M00S00404.0vj +++|
00580 M00S00405.0vj +++| JCP3 RJM ERR SET ERROR STATUS
00581 M00S00406.0vj +++| UJP JCPX RETURN
00582 M00S00407.0vj +++|
00583 M00S00408.0vj +++| JCP4 LDD CM+4 RESET ARGUMENT ADDRESS
00584 M00S00409.0vj +++| STD CA
| Line S00410 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00585 M01S00410.0vj2 ---| JCP5 LDM TJCP+1,T7
| Line S00006 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00586 M01S00006.0vj2 +++| JCP5 LDM TJCP+1,T9
00587 M00S00411.0vj +++| ZJN JCP3 IF END OF TABLE (TOO MANY ARGUMENTS)
00588 M00S00412.0vj +++| STM JCPB SET PROCESSOR ADDRESS
00589 M00S00413.0vj +++| RJM CTS CHECK FOR SEPARATOR
00590 M00S00414.0vj +++| ZJN JCP6 IF SEPARATOR (NULL ARGUMENT)
00591 M00S00415.0vj +++| LDC. TJCP+2 SET LIMITS
| Line S00416 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00592 M01S00416.0vj2 ---| ADD T7
| Line S00007 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00593 M01S00007.0vj2 +++| ADD T9
00594 M00S00417.0vj +++| STM JCPA
00595 M00S00418.0vj +++| LDD MA
00596 M00S00419.0vj +++| CWM TJCP+2,ON
00597 M00S00420.0vj +++| JCPA EQU *-1
00598 M00S00421.0vj +++| SBN 1
00599 M00S00422.0vj +++| CRD CM
00600 M00S00423.0vj +++| RJM * PROCESS ARGUMENT
00601 M00S00424.0vj +++| JCPB EQU *-1
00602 M00S00425.0vj +++| RJM CTS CHECK FOR TERMINATOR
00603 M00S00426.0vj +++| MJP JCPX IF TERMINATOR
00604 M00S00427.0vj +++| JCP6 RJM GNC SKIP SEPARATOR
00605 M00S00428.0vj +++| LDN TJCPE INCREMENT INDEX
| Line S00429 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00606 M01S00429.0vj2 ---| RAD T7
| Line S00008 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00607 M01S00008.0vj2 +++| RAD T9
00608 M00S00430.0vj +++| UJN JCP5 PROCESS NEXT ARGUMENT
00609 M00S00431.0vj +++|
00610 M00S00432.0vj +++|* PROCESS ORDER INDEPENDENT ARGUMENTS.
00611 M00S00433.0vj +++|
00612 M00S00434.0vj +++| JCP7 RJM ERR SET ERROR / SKIP TO END OF ARGUMENT
00613 M00S00435.0vj +++| JCP8 LDN 0 PROCESS NEXT ARGUMENT
| Line S00436 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00614 M01S00436.0vj2 ---| STD T7
| Line S00009 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00615 M01S00009.0vj2 +++| STD T9
00616 M00S00437.0vj +++| RJM CTS CHECK FOR TERMINATOR
00617 M00S00438.0vj +++| MJP JCPX IF TERMINATOR
00618 M00S00439.0vj +++| RJM GNC SKIP SEPARATOR
00619 M00S00440.0vj +++| JCP9 LDI CA ASSEMBLE ARGUMENT MNEMONIC
00620 M00S00441.0vj +++| STD CM
00621 M00S00442.0vj +++| RJM GNC
00622 M00S00443.0vj +++| MJN JCP7 IF TERMINATOR
00623 M00S00444.0vj +++| SHN 6
00624 M00S00445.0vj +++| RAD CM
| Line S00446 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00625 M01S00446.0vj2 ---| JCP10 LDM TJCP,T7
| Line S00010 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00626 M01S00010.0vj2 +++| JCP10 LDM TJCP,T9
00627 M00S00447.0vj +++| ZJN JCP12 IF ARGUMENT NOT FOUND IN TABLE
00628 M00S00448.0vj +++| LMD CM
00629 M00S00449.0vj +++| ZJN JCP13 IF TWO-CHARACTER ARGUMENT FOUND
00630 M00S00450.0vj +++| LDD CM
00631 M00S00451.0vj +++| LPN 77
| Line S00452 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00632 M01S00452.0vj2 ---| LMM TJCP,T7
| Line S00011 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00633 M01S00011.0vj2 +++| LMM TJCP,T9
00634 M00S00453.0vj +++| ZJN JCP14 IF ONE-CHARACTER ARGUMENT FOUND
00635 M00S00454.0vj +++| LDN TJCPE INCREMENT INDEX
| Line S00455 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00636 M01S00455.0vj2 ---| RAD T7
| Line S00012 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00637 M01S00012.0vj2 +++| RAD T9
00638 M00S00456.0vj +++| UJN JCP10 CHECK NEXT ARGUMENT IN TABLE
00639 M00S00457.0vj +++|
00640 M00S00458.0vj +++| JCP11 UJP JCP7 PROCESS ERROR
00641 M00S00459.0vj +++|
00642 M00S00460.0vj +++| JCP12 LDC 2RCS CHECK FOR *SC* IF UNKNOWN ARGUMENT FOUND
00643 M00S00461.0vj +++| LMD CM
00644 M00S00462.0vj +++| NJN JCP11 IF UNKNOWN ARGUMENT NOT *SC*
| Line S00463 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00645 M01S00463.0vj2 ---| STD T7 SET TABLE INDEX FOR *P* ARGUMENT
00646 M01S00464.0vj2 ---| LDM TJCP,T7
| Line S00013 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00647 M01S00013.0vj2 +++| STD T9 SET TABLE INDEX FOR *P* ARGUMENT
00648 M01S00014.0vj2 +++| LDM TJCP,T9
00649 M00S00465.0vj +++| LMC 7777
00650 M00S00466.0vj +++| ZJN JCP11 IF *P* OR *SC* ALREADY SPECIFIED
00651 M00S00467.0vj +++| JCP13 RJM GNC GET FIRST CHARACTER OF ARGUMENT VALUE
00652 M00S00468.0vj +++| JCP14 RJM CTS CHECK FOR EQUIVALENCED ARGUMENT
00653 M00S00469.0vj +++| MJN JCP11 IF TERMINATOR
00654 M00S00470.0vj +++| NJN JCP15 IF NOT SEPARATOR
00655 M00S00471.0vj +++| LDI CA
00656 M00S00472.0vj +++| LMN 1R=
00657 M00S00473.0vj +++| NJN JCP11 IF SEPARATOR OTHER THAN EQUAL SIGN
00658 M00S00474.0vj +++| RJM GNC SKIP EQUAL SIGN
| Line S00475 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00659 M01S00475.0vj2 ---| JCP15 LDM TJCP+1,T7
| Line S00015 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00660 M01S00015.0vj2 +++| JCP15 LDM TJCP+1,T9
00661 M00S00476.0vj +++| STM JCPD
00662 M00S00477.0vj +++| LDC. TJCP+2 SET LIMITS
| Line S00478 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00663 M01S00478.0vj2 ---| ADD T7
| Line S00016 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00664 M01S00016.0vj2 +++| ADD T9
00665 M00S00479.0vj +++| STM JCPC
00666 M00S00480.0vj +++| LDD MA
00667 M00S00481.0vj +++| CWM TJCP+2,ON
00668 M00S00482.0vj +++| JCPC EQU *-1
00669 M00S00483.0vj +++| SBN 1
00670 M00S00484.0vj +++| CRD CM
00671 M00S00485.0vj +++| LCN 0 SET ARGUMENT PROCESSED
| Line S00486 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00672 M01S00486.0vj2 ---| STM TJCP,T7
| Line S00017 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00673 M01S00017.0vj2 +++| STM TJCP,T9
00674 M00S00487.0vj +++| RJM * PROCESS ARGUMENT
00675 M00S00488.0vj +++| JCPD EQU *-1
00676 M00S00489.0vj +++| LJM JCP8 PROCESS NEXT ARGUMENT
00677 M00S00490.0vj +++| TJCP SPACE 4,30
00678 M00S00491.0vj +++|** TJCP - TABLE OF JOB COMMAND ARGUMENT PROCESSORS.
00679 M00S00492.0vj +++|*
00680 M00S00493.0vj +++|*T 12/MN
00681 M00S00494.0vj +++|*T, 12/ADDR
00682 M00S00495.0vj +++|*T, 12/DIGITS
00683 M00S00496.0vj +++|*T, 24/VALUE
00684 M00S00497.0vj +++|*T, 12/BASE
00685 M00S00498.0vj +++|*
00686 M00S00499.0vj +++|* MN = MNEMONIC.
00687 M00S00500.0vj +++|* ADDR = ADDRESS.
00688 M00S00501.0vj +++|* DIGITS = MAXIMUM NUMBER OF DIGITS PLUS ONE.
00689 M00S00502.0vj +++|* VALUE = MAXIMUM DECIMAL VALUE.
00690 M00S00503.0vj +++|* BASE = BASE FOR CONVERSION.
00691 M00S00504.0vj +++|* 0 = OCTAL.
00692 M00S00505.0vj +++|* 1 = DECIMAL.
00693 M00S00506.0vj +++|
00694 M00S00507.0vj +++|
00695 M00S00508.0vj +++| TJCP BSS 0
00696 M00S00509.0vj +++| JCARG P,ASV,3,7 SERVICE CLASS
00697 M00S00510.0vj +++| TJCPE EQU *-TJCP LENGTH OF ENTRY
00698 M00S00511.0vj +++| JCARG T,ATL,6,32760D,DECIMAL JOB TIME LIMIT PROCESSOR
00699 M00S00512.0vj +++| JCARG MC,AFL,7,131008D JOB FL PROCESSOR
| Line S00513 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00700 M01S00513.252l678 ---| JCARG CE,AEF,5,2047D JOB ECS FL PROCESSOR
| Line S00008 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00701 M01S00008.252l678 +++| JCARG CE,AEF,6,32760D JOB EM FL PROCESSOR
00702 M00S00514.0vj +++| JCARG TS,AST,4,0 LID PROCESSOR
00703 M00S00515.0vj +++| JCARG LA,AAL,10B,0 ACCESS LEVEL PROCESSOR
00704 M00S00516.0vj +++| CON 0,0 END OF TABLE
00705 M00S00517.0vj +++| TITLE JOB COMMAND ARGUMENT PROCESSORS.
00706 M00S00518.0vj +++| AAL SPACE 4,15
00707 M00S00519.0vj +++|** AAL - ASSEMBLE ACCESS LEVEL.
00708 M00S00520.0vj +++|*
00709 M00S00521.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS.
00710 M00S00522.0vj +++|*
| Line S00523 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00711 M01S00523.v23l617 ---|* EXIT (JCAL) = (UALL) = SPECIFIED ACCESS LEVEL.
| Line S00005 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00712 M01S00005.v23l617 +++|* EXIT (SCAL - SCAL+4) = ACCESS LEVEL STRING. VALIDATION
00713 M01S00006.v23l617 +++|* WILL BE DONE IN *0VU*.
00714 M00S00524.0vj +++|*
00715 M00S00525.0vj +++|* USES T1, CM - CM+4.
00716 M00S00526.0vj +++|*
| Line S00527 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00717 M01S00527.v23l617 ---|* CALLS ERR, PAC, VAL.
| Line S00007 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00718 M01S00007.v23l617 +++|* CALLS ERR, PAC.
00719 M00S00528.0vj +++|
00720 M00S00529.0vj +++|
| Line S00008 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00721 M01S00008.v23l617 +++| AAL1 RJM ERR SET ERROR STATUS
00722 M01S00009.v23l617 +++|
00723 M00S00530.0vj +++| AAL SUBR ENTRY/EXIT
00724 M00S00531.0vj +++| LDN 1R* ALLOW ASTERISK IN ACCESS LEVEL
00725 M00S00532.0vj +++| STD T1
00726 M00S00533.0vj +++| LDN ZERL CLEAR BUFFER
00727 M00S00534.0vj +++| CRD CM
00728 M00S00535.0vj +++| LDN CM GET ACCESS LEVEL STRING
00729 M00S00536.0vj +++| RJM PAC
00730 M00S00537.0vj +++| ZJN AAL1 IF INCORRECT ACCESS LEVEL STRING
| Line S00538 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00731 M01S00538.v23l617 ---| LDN CM VALIDATE ACCESS LEVEL
00732 M01S00539.v23l617 ---| RJM VAL
00733 M01S00540.v23l617 ---| MJN AAL1 IF INCORRECT ACCESS LEVEL
00734 M01S00541.v23l617 ---| STM UALL SAVE ACCESS LEVEL
00735 M01S00542.v23l617 ---| STM JCAL
| Line S00010 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00736 M01S00010.v23l617 +++| LDD MA SAVE ACCESS LEVEL
00737 M01S00011.v23l617 +++| CWD CM
00738 M01S00012.v23l617 +++| CRM SCAL,ON
00739 M00S00543.0vj +++| UJN AALX RETURN
| Line S00544 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00740 M01S00544.v23l617 ---|
00741 M01S00545.v23l617 ---| AAL1 RJM ERR SET ERROR STATUS
00742 M01S00546.v23l617 ---| UJN AALX RETURN
00743 M00S00547.0vj +++| AEF SPACE 4,20
| Line S00548 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00744 M01S00548.252l678 ---|** AEF - ASSEMBLE ECS FIELD LENGTH.
| Line S00009 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00745 M01S00009.252l678 +++|** AEF - ASSEMBLE EXTENDED MEMORY FIELD LENGTH.
00746 M00S00549.0vj +++|*
00747 M00S00550.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS.
00748 M00S00551.0vj +++|* (CM) = MAXIMUM NUMBER OF DIGITS PLUS ONE.
00749 M00S00552.0vj +++|* (CM+1 - CM+2) = MAXIMUM DECIMAL VALUE.
00750 M00S00553.0vj +++|* (CM+3) = BASE FOR CONVERSION.
| Line S00554 Modification History |
M01 (Removed by) | ns2184 |
Seq # *Modification Id* Act
----------------------------+
00751 M01S00554.ns2184 ---|* (AEFA) = MAXIMUM ECS FL / 1000B.
| Line S00001 Modification History |
M01 (Added by) | ns2184 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00752 M02S00001.252l678 ---|* (AEFA) = MAXIMUM ECS FL / *UEBS*.
| Line S00555 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00753 M01S00555.252l678 ---|*
00754 M01S00556.252l678 ---|* EXIT (JE) = ECS FIELD LENGTH IN 1000 WORD BLOCKS.
| Line S00010 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00755 M01S00010.252l678 +++|* (AEFC) = MAXIMUM EM FL/*UEBS*.
00756 M01S00011.252l678 +++|*
00757 M01S00012.252l678 +++|* EXIT (JE) = EM FIELD LENGTH/*UEBS*.
00758 M00S00557.0vj +++|*
00759 M00S00558.0vj +++|* USES JE.
00760 M00S00559.0vj +++|*
00761 M00S00560.0vj +++|* CALLS ASD, ERR.
00762 M00S00561.0vj +++|
00763 M00S00562.0vj +++|
00764 M00S00563.0vj +++| AEF SUBR ENTRY/EXIT
00765 M00S00564.0vj +++| RJM ASD ASSEMBLE DIGITS
00766 M00S00565.0vj +++| MJN AEFX IF ERROR IN ASSEMBLY
| Line S00566 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00767 M01S00566.252l678 ---| STD JE
| Line S00002 Modification History |
M01 (Added by) | ns2184 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00768 M02S00002.252l678 ---| LDN 3 ROUND BY BLOCKING FACTOR
00769 M02S00003.252l678 ---| SHN UESF-2
00770 M02S00004.252l678 ---| ADD JE
00771 M02S00005.252l678 ---| SHN -UESF
| Line S00013 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00772 M01S00013.252l678 +++| AEFA ADN 0
00773 M01S00014.252l678 +++|* ADN 17 (ROUND UP TO BLOCKING FACTOR)
00774 M01S00015.252l678 +++| AEFB SHN 0
00775 M01S00016.252l678 +++|* SHN -UESC
| Line S00006 Modification History |
M01 (Added by) | ns2184 |
Seq # *Modification Id* Act
----------------------------+
00776 M01S00006.ns2184 +++| STD JE
| Line S00567 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00777 M01S00567.252l678 ---| LDC * GET MAXIMUM ECS FIELD LENGTH
00778 M01S00568.252l678 ---| AEFA EQU *-1 (MAXIMUM ECS FL)
| Line S00017 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00779 M01S00017.252l678 +++| LDC * GET MAXIMUM EM FIELD LENGTH
00780 M01S00018.252l678 +++| AEFC EQU *-1 (MAXIMUM EM FL)
00781 M00S00569.0vj +++| SBD JE
00782 M00S00570.0vj +++| MJN AEF1 IF INSUFFICIENT ROOM
00783 M00S00571.0vj +++| LDC 3777
00784 M00S00572.0vj +++| SBD JE
| Line S00573 Modification History |
M01 (Removed by) | ns2184 |
Seq # *Modification Id* Act
----------------------------+
00785 M01S00573.ns2184 ---| PJN AEFX IF FLX .LT. 3777000
| Line S00007 Modification History |
M01 (Added by) | ns2184 |
Seq # *Modification Id* Act
----------------------------+
00786 M01S00007.ns2184 +++| PJN AEFX IF FLE .LT. 3777B *UEBS* BLOCKS
00787 M00S00574.0vj +++| AEF1 RJM ERR SET ERROR STATUS
00788 M00S00575.0vj +++| UJN AEFX RETURN
00789 M00S00576.0vj +++| AFL SPACE 4,15
00790 M00S00577.0vj +++|** AFL - ASSEMBLE CM FIELD LENGTH.
00791 M00S00578.0vj +++|*
00792 M00S00579.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS.
00793 M00S00580.0vj +++|* (CM) = MAXIMUM NUMBER OF DIGITS PLUS ONE.
00794 M00S00581.0vj +++|* (CM+1 - CM+2) = MAXIMUM DECIMAL VALUE.
00795 M00S00582.0vj +++|* (CM+3) = BASE FOR CONVERSION.
00796 M00S00583.0vj +++|* (AFLA) = MAXIMUM CM FL / 100B.
00797 M00S00584.0vj +++|*
00798 M00S00585.0vj +++|* EXIT (JF) = FIELD LENGTH ROUNDED UP TO NEXT MULTIPLE OF 100.
00799 M00S00586.0vj +++|* (CA) = CHARACTER ADDRESS.
00800 M00S00587.0vj +++|*
| Line S00588 Modification History |
M01 (Removed by) | 0vj6 |
Seq # *Modification Id* Act
----------------------------+
00801 M01S00588.0vj6 ---|* USES JF, T1.
| Line S00001 Modification History |
M01 (Added by) | 0vj6 |
Seq # *Modification Id* Act
----------------------------+
00802 M01S00001.0vj6 +++|* USES JF.
00803 M00S00589.0vj +++|*
00804 M00S00590.0vj +++|* CALLS ASD, ERR.
00805 M00S00591.0vj +++|
00806 M00S00592.0vj +++|
00807 M00S00593.0vj +++| AFL SUBR ENTRY/EXIT
00808 M00S00594.0vj +++| RJM ASD ASSEMBLE DIGITS
00809 M00S00595.0vj +++| MJN AFLX IF ERROR IN ASSEMBLY
00810 M00S00596.0vj +++| ZJN AFL1 IF ZERO
00811 M00S00597.0vj +++| ADN 77 ROUND TO NEXT 100
00812 M00S00598.0vj +++| SHN -6 SET FIELD LENGTH
| Line S00599 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00813 M01S00599.0vj2 ---| ADN DNFL
00814 M00S00600.0vj +++| STD JF
| Line S00601 Modification History |
M01 (Removed by) | 0vj6 |
Seq # *Modification Id* Act
----------------------------+
00815 M01S00601.0vj6 ---| LDD OT SET ORIGIN TYPE
00816 M01S00602.0vj6 ---| STD T1
00817 M00S00603.0vj +++| LDC * GET MAXIMUM FIELD LENGTH
00818 M00S00604.0vj +++| AFLA EQU *-1 (MAXIMUM CM FL)
| Line S00605 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00819 M01S00605.0vj2 ---| ADN DNFL
00820 M00S00606.0vj +++| SBD JF
00821 M00S00607.0vj +++| MJN AFL1 IF INSUFFICIENT ROOM
| Line S00608 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00822 M01S00608.0vj2 ---| LDC 3777+DNFL-MNFL
| Line S00018 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
00823 M01S00018.0vj2 +++| LDC 3777-MNFL
00824 M00S00609.0vj +++| SBD JF
00825 M00S00610.0vj +++| PJN AFLX IF FL .LT. 377700
00826 M00S00611.0vj +++| AFL1 RJM ERR SET ERROR STATUS
00827 M00S00612.0vj +++| UJN AFLX RETURN
00828 M00S00613.0vj +++| AJN SPACE 4,10
00829 M00S00614.0vj +++|** AJN - ASSEMBLE JOB NAME.
00830 M00S00615.0vj +++|*
00831 M00S00616.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS.
00832 M00S00617.0vj +++|*
00833 M00S00618.0vj +++|* EXIT (JNSS - JNSS+3) = JOB COMMAND NAME (USER JOB NAME).
00834 M00S00619.0vj +++|* (CA) = CHARACTER ADDRESS.
00835 M00S00620.0vj +++|*
00836 M00S00621.0vj +++|* CALLS ERR, PAC.
00837 M00S00622.0vj +++|
00838 M00S00623.0vj +++|
| Line S00013 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00839 M01S00013.v23l617 +++|* PROCESS BAD UJN.
00840 M01S00014.v23l617 +++|
00841 M01S00015.v23l617 +++| AJN3 LDN ZERL SET SPECIAL UJN
00842 M01S00016.v23l617 +++| CRM. JNSS,ON
00843 M01S00017.v23l617 +++| LDC 2RXX
00844 M01S00018.v23l617 +++| STM. JNSS
00845 M01S00019.v23l617 +++| STM. JNSS+1
00846 M01S00020.v23l617 +++| RJM ERR SET ERROR STATUS
00847 M01S00021.v23l617 +++|
00848 M00S00624.0vj +++| AJN SUBR ENTRY/EXIT
00849 M00S00625.0vj +++| LDN 0
00850 M00S00626.0vj +++| STD T1
00851 M00S00627.0vj +++| LDC JNSS ASSEMBLE JOB COMMAND NAME
00852 M00S00628.0vj +++| RJM PAC
00853 M00S00629.0vj +++| ZJN AJN3 IF TOO MANY CHARACTERS
00854 M00S00630.0vj +++| AJN2 LDM. JNSS CHECK FIRST CHARACTER
00855 M00S00631.0vj +++| SHN -6
00856 M00S00632.0vj +++| ZJN AJN3 IF NO CHARACTER
| Line S00633 Modification History |
M01 (Removed by) | 0vj3 |
Seq # *Modification Id* Act
----------------------------+
00857 M01S00633.0vj3 ---| SBN 1R0
00858 M01S00634.0vj3 ---| MJN AJNX IF ALPHA
| Line S00001 Modification History |
M01 (Added by) | 0vj3 |
Seq # *Modification Id* Act
----------------------------+
00859 M01S00001.0vj3 +++| SBN 1R+
00860 M01S00002.0vj3 +++| MJN AJNX IF ALPHANUMERIC
| Line S00022 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00861 M01S00022.v23l617 +++| UJN AJN3 PROCESS BAD UJN
| Line S00635 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00862 M01S00635.v23l617 ---|
00863 M01S00636.v23l617 ---|* PROCESS BAD UJN.
00864 M01S00637.v23l617 ---|
00865 M01S00638.v23l617 ---| AJN3 LDN ZERL SET SPECIAL UJN
00866 M01S00639.v23l617 ---| CRM. JNSS,ON
00867 M01S00640.v23l617 ---| LDC 2R**
00868 M01S00641.v23l617 ---| STM. JNSS
00869 M01S00642.v23l617 ---| STM. JNSS+1
00870 M01S00643.v23l617 ---| RJM ERR SET ERROR STATUS
00871 M01S00644.v23l617 ---| UJN AJNX RETURN
00872 M00S00645.0vj +++| AST SPACE 4,15
00873 M00S00646.0vj +++|** AST - ASSEMBLE ST (DESTINATION LID).
00874 M00S00647.0vj +++|*
00875 M00S00648.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS.
00876 M00S00649.0vj +++|*
00877 M00S00650.0vj +++|* EXIT (DLID - DLID+1) = LID.
| Line S00651 Modification History |
M01 (Removed by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00878 M01S00651.ns2601 ---|* (DLAT) = LID ATTRIBUTES.
00879 M00S00652.0vj +++|*
00880 M00S00653.0vj +++|* USES T1, CM - CM+4.
00881 M00S00654.0vj +++|*
00882 M00S00655.0vj +++|* CALLS ERR, PAC.
00883 M00S00656.0vj +++|
00884 M00S00657.0vj +++|
00885 M00S00658.0vj +++| AST2 LDN 10-3 LID MUST BE 3 CHARACTERS LONG
00886 M00S00659.0vj +++| SBD T3
00887 M00S00660.0vj +++| NJN AST1 IF ILLEGAL LENGTH
| Line S00661 Modification History |
M01 (Removed by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00888 M01S00661.ns2601 ---| LDD CM+1 VALIDATE LID
| Line S00007 Modification History |
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00889 M01S00007.ns2601 +++| LDD CM+1 STORE LID
00890 M00S00662.0vj +++| SCN 77
00891 M00S00663.0vj +++| STM DLID+1
| Line S00664 Modification History |
M01 (Removed by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00892 M01S00664.ns2601 ---| SHN 6
00893 M01S00665.ns2601 ---| LMD CM
| Line S00008 Modification History |
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00894 M01S00008.ns2601 +++| LDD CM
00895 M00S00666.0vj +++| STM DLID
| Line S00667 Modification History |
M01 (Removed by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00896 M01S00667.ns2601 ---| SHN 6
00897 M01S00668.ns2601 ---| RJM VID VALIDATE LID
00898 M01S00669.ns2601 ---| ZJN AST1 IF NOT VALID LID
00899 M01S00670.ns2601 ---| ASTA STM DLAT SAVE DLID ATTRIBUTES
00900 M01S00671.ns2601 ---|* PSN (IF DLID SPECIFIED ON ENTRY)
00901 M00S00672.0vj +++|
00902 M00S00673.0vj +++| AST SUBR
00903 M00S00674.0vj +++| LDN 0 DO NOT ALLOW ASTERISK IN LID
00904 M00S00675.0vj +++| STD T1
00905 M00S00676.0vj +++| LDN ZERL CLEAR BUFFER
00906 M00S00677.0vj +++| CRD CM
00907 M00S00678.0vj +++| LDN CM
00908 M00S00679.0vj +++| RJM PAC PACK LOGICAL ID
00909 M00S00680.0vj +++| NJN AST2 IF OK
| Line S00681 Modification History |
M01 (Removed by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00910 M01S00681.ns2601 ---| AST1 LDN 0 CLEAR DLID
00911 M01S00682.ns2601 ---| STM DLID
00912 M01S00683.ns2601 ---| STM DLID+1
00913 M01S00684.ns2601 ---| LDN IDIE SET *ILLEGAL LID* ERROR CODE
| Line S00009 Modification History |
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00914 M01S00009.ns2601 +++| AST1 LDN IDIE SET *ILLEGAL LID* ERROR CODE
00915 M00S00685.0vj +++| STM JCEC
00916 M00S00686.0vj +++| RJM ERR SET ERROR STATUS
00917 M00S00687.0vj +++| UJN ASTX RETURN
00918 M00S00688.0vj +++| ASV SPACE 4,15
00919 M00S00689.0vj +++|** ASV - ASSEMBLE SERVICE CLASS.
00920 M00S00690.0vj +++|*
00921 M00S00691.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS.
00922 M00S00692.0vj +++|*
00923 M00S00693.0vj +++|* EXIT (JCSC) = SERVICE CLASS SELECTED ON JOB COMMAND.
00924 M00S00694.0vj +++|* (JCSC) = 0, IF NO SERVICE CLASS SPECIFIED.
00925 M00S00695.0vj +++|*
00926 M00S00696.0vj +++|* USES T1, T2, CM - CM+4.
00927 M00S00697.0vj +++|*
00928 M00S00698.0vj +++|* CALLS CVS, ERR, PAC.
00929 M00S00699.0vj +++|
00930 M00S00700.0vj +++|
00931 M00S00701.0vj +++| ASV4 RJM ERR SET ERROR STATUS
00932 M00S00702.0vj +++| LDK USIE SET UNDEFINED SERVICE CLASS ERROR CODE
00933 M00S00703.0vj +++| STM JCEC
00934 M00S00704.0vj +++|
00935 M00S00705.0vj +++| ASV SUBR ENTRY/EXIT
00936 M00S00706.0vj +++| LDN ZERL CLEAR BUFFER
00937 M00S00707.0vj +++| CRD CM
00938 M00S00708.0vj +++| LDN 0 DO NOT ALLOW ASTERISK IN SERVICE CLASS
00939 M00S00709.0vj +++| STD T1
00940 M00S00710.0vj +++| LDN CM
00941 M00S00711.0vj +++| RJM PAC PACK CHARACTER STRING
00942 M00S00712.0vj +++| ZJN ASV4 IF ERROR
00943 M00S00713.0vj +++| LDN 10-2
00944 M00S00714.0vj +++| SBD T3
00945 M00S00715.0vj +++| ZJN ASV3 IF SERVICE CLASS SPECIFIED
00946 M00S00716.0vj +++| ADN 1
00947 M00S00717.0vj +++| NJN ASV4 IF NOT PRIORITY LEVEL SERVICE CLASS
00948 M00S00718.0vj +++| LDD CM
00949 M00S00719.0vj +++| SHN -6
00950 M00S00720.0vj +++| SBN 1R0
00951 M00S00721.0vj +++| ASV1 MJN ASV4 IF ALPHABETIC CHARACTER
00952 M00S00722.0vj +++| STD T1
00953 M00S00723.0vj +++| SBN 10
00954 M00S00724.0vj +++| PJN ASV4 IF INVALID PRIORITY LEVEL
00955 M00S00725.0vj +++| LDN 2
00956 M00S00726.0vj +++| STD T2
00957 M00S00727.0vj +++| LDK JBCP GET ADDRESS OF *SCT*
00958 M00S00728.0vj +++| CRD CM
00959 M00S00729.0vj +++| LDD CM GET PRIORITY LEVEL SERVICE CLASS
00960 M00S00730.0vj +++| SHN 14
00961 M00S00731.0vj +++| ADD CM+1
00962 M00S00732.0vj +++| ADN PLSC
00963 M00S00733.0vj +++| CRM SBUF,T2
00964 M00S00734.0vj +++| LDM SBUF,T1
00965 M00S00735.0vj +++| STD CM
00966 M00S00736.0vj +++| NJN ASV3 IF SERVICE CLASS SPECIFIED
00967 M00S00737.0vj +++| ASV2 STM JCSC SELECT USER DEFAULT
00968 M00S00738.0vj +++| UJP ASVX RETURN
00969 M00S00739.0vj +++|
00970 M00S00740.0vj +++| ASV3 RJM CVS CHECK FOR VALID SERVICE CLASS
00971 M00S00741.0vj +++| MJN ASV1 IF NOT VALID
00972 M00S00742.0vj +++| LDD T2 SET SERVICE CLASS
00973 M00S00743.0vj +++| UJN ASV2 SET SERVICE CLASS
00974 M00S00744.0vj +++| ATL SPACE 4,10
00975 M00S00745.0vj +++|** ATL - ASSEMBLE TIME LIMIT.
00976 M00S00746.0vj +++|*
00977 M00S00747.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS.
00978 M00S00748.0vj +++|* (CM) = MAXIMUM NUMBER OF DIGITS PLUS ONE.
00979 M00S00749.0vj +++|* (CM+1 - CM+2) = MAXIMUM DECIMAL VALUE.
00980 M00S00750.0vj +++|* (CM+3) = BASE FOR CONVERSION.
00981 M00S00751.0vj +++|*
00982 M00S00752.0vj +++|* EXIT (JTSS - JTSS+1) = JOB STEP TIME LIMIT.
00983 M00S00753.0vj +++|*
00984 M00S00754.0vj +++|* CALLS ASD, ERR.
00985 M00S00755.0vj +++|
00986 M00S00756.0vj +++|
00987 M00S00757.0vj +++| ATL1 RJM ERR SET ERROR STATUS
00988 M00S00758.0vj +++|
00989 M00S00759.0vj +++| ATL SUBR ENTRY/EXIT
00990 M00S00760.0vj +++| RJM ASD ASSEMBLE DIGITS
00991 M00S00761.0vj +++| MJN ATLX IF ERROR IN ASSEMBLY
00992 M00S00762.0vj +++| ZJN ATL1 IF ZERO TIME LIMIT SPECIFIED
00993 M00S00763.0vj +++| STM. JTSS+1 SET JOB STEP TIME LIMIT
00994 M00S00764.0vj +++| SHN -14
00995 M00S00765.0vj +++| STM. JTSS
00996 M00S00766.0vj +++| UJN ATLX RETURN
00997 M00S00767.0vj +++| TITLE USER COMMAND PROCESSOR.
00998 M00S00768.0vj +++| UCP SPACE 4,20
00999 M00S00769.0vj +++|** UCP - USER COMMAND PROCESSOR.
01000 M00S00770.0vj +++|*
01001 M00S00771.0vj +++|* ENTRY USER COMMAND IN STRING BUFFER.
01002 M00S00772.0vj +++|* (CA) = FWA OF STRING BUFFER.
01003 M00S00773.0vj +++|*
01004 M00S00774.0vj +++|* EXIT (A) = 0, IF ERROR IN USER COMMAND.
01005 M00S00775.0vj +++|* (CN - CN+4) = FAMILY NAME.
01006 M00S00776.0vj +++|* (UN - UN+4) = USER NAME.
01007 M00S00777.0vj +++|* (PSWD - PSWD+3) = PASSWORD.
01008 M00S00778.0vj +++|* (FWPW) = FWA OF PASSWORD IN STRING BUFFER.
01009 M00S00779.0vj +++|* (LWPW) = LWA+1 OF PASSWORD IN STRING BUFFER.
01010 M00S00780.0vj +++|* FAMILY NAME AND USER NAME SET IN SYSTEM SECTOR.
01011 M00S00781.0vj +++|*
| Line S00782 Modification History |
M01 (Removed by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
01012 M01S00782.0vj2 ---|* USES CA, T1, T3, T7, CN - CN+4, UN - UN+4.
| Line S00019 Modification History |
M01 (Added by) | 0vj2 |
Seq # *Modification Id* Act
----------------------------+
01013 M01S00019.0vj2 +++|* USES CA, T1, T3, CN - CN+4, UN - UN+4.
01014 M00S00783.0vj +++|*
01015 M00S00784.0vj +++|* CALLS CCS, CTS, GNC, PAC.
01016 M00S00785.0vj +++|
01017 M00S00786.0vj +++|
| Line S00062 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01018 M01S00062.261l700 +++| UCP10 LDN 0 SET ERROR STATUS
01019 M01S00063.261l700 +++|
01020 M00S00787.0vj +++| UCP SUBR ENTRY/EXIT
01021 M00S00788.0vj +++| LDN ZERL CLEAR ASSEMBLY BUFFERS
| Line S00064 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01022 M01S00064.261l700 +++| CRD CM
01023 M00S00789.0vj +++| CRD UN
01024 M00S00790.0vj +++| CRD CN
01025 M00S00791.0vj +++| CRM PSWD,ON
01026 M00S00792.0vj +++|
01027 M00S00793.0vj +++|* VALIDATE KEYWORD.
01028 M00S00794.0vj +++|
01029 M00S00795.0vj +++| LDI CA
01030 M00S00796.0vj +++| LMN 1R$
01031 M00S00797.0vj +++| ZJN UCP1 IF $ PRESENT
01032 M00S00798.0vj +++| LMN 1R$&1R/
01033 M00S00799.0vj +++| NJN UCP2 IF / NOT PRESENT
| Line S00800 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01034 M01S00800.261l700 ---| UCP1 RJM GNC SKIP $ OR /
01035 M01S00801.261l700 ---| UCP2 LDD CA SAVE BASE ADDRESS OF COMMAND
01036 M01S00802.261l700 ---| STD T3
01037 M01S00803.261l700 ---| LDC. UCPA COMPARE FOR *ACCOUNT* COMMAND
01038 M01S00804.261l700 ---| RJM CCS
01039 M01S00805.261l700 ---| ZJN UCP5 IF VALID *ACCOUNT* COMMAND
01040 M01S00806.261l700 ---| LDD T3 RESET BASE ADDRESS OF COMMAND
01041 M01S00807.261l700 ---| STD CA
01042 M01S00808.261l700 ---| LDC. UCPB COMPARE FOR *USER* COMMAND
01043 M01S00809.261l700 ---| RJM CCS
01044 M01S00810.261l700 ---| ZJN UCP5 IF VALID *USER* COMMAND
01045 M01S00811.261l700 ---| UCP3 LDN 0 FLAG ERROR
| Line S00812 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01046 M02S00812.261l700 ---| UCP4 LJM UCPX RETURN
| Line S00023 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01047 M02S00023.261l700 ---| UCP4 UJN UCPX RETURN
| Line S00065 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01048 M01S00065.261l700 +++| UCP1 AOD CA SKIP $ OR /
01049 M01S00066.261l700 +++| UCP2 LDN 0
01050 M01S00067.261l700 +++| STD T1
01051 M01S00068.261l700 +++| LDN CM ASSEMBLE COMMAND KEYWORD
01052 M01S00069.261l700 +++| RJM PAC
01053 M01S00070.261l700 +++| UCP3 ZJN UCPX IF KEYWORD TOO LONG
01054 M01S00071.261l700 +++| MJN UCP10 IF TERMINATOR
01055 M01S00072.261l700 +++| LDD CM CHECK KEYWORD
01056 M01S00073.261l700 +++| LMC 2RUS
01057 M01S00074.261l700 +++| NJN UCP5 IF NOT *USER*
01058 M01S00075.261l700 +++| LDD CM+1
01059 M01S00076.261l700 +++| LMC 2RER
01060 M01S00077.261l700 +++| UCP4 NJN UCP10 IF NOT *USER*
01061 M01S00078.261l700 +++| LDD CM+2
01062 M01S00079.261l700 +++| ZJN UCP6 IF *USER*
01063 M01S00080.261l700 +++| UJN UCP4 PROCESS KEYWORD ERROR
01064 M00S00813.0vj +++|
| Line S00814 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01065 M01S00814.261l700 ---| UCP5 RJM CTS CHECK FOR TERMINATOR
01066 M01S00815.261l700 ---| MJN UCP3 IF TERMINATOR
01067 M01S00816.261l700 ---| RJM GNC SKIP SEPARATOR
| Line S00081 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01068 M01S00081.261l700 +++| UCP5 LMC 2RAC&2RUS
01069 M01S00082.261l700 +++| NJN UCP4 IF NOT *ACCOUNT*
01070 M01S00083.261l700 +++| LDD CM+1
01071 M01S00084.261l700 +++| LMC 2RCO
01072 M01S00085.261l700 +++| NJN UCP4 IF NOT *ACCOUNT*
01073 M01S00086.261l700 +++| LDD CM+2
01074 M01S00087.261l700 +++| LMC 2RUN
01075 M01S00088.261l700 +++| NJN UCP4 IF NOT *ACCOUNT*
01076 M01S00089.261l700 +++| LDD CM+3
01077 M01S00090.261l700 +++| LMC 1RT*100
01078 M01S00091.261l700 +++| NJN UCP4 IF NOT *ACCOUNT*
01079 M01S00092.261l700 +++| UCP6 RJM AUA ASSEMBLE USER COMMAND ARGUMENTS
01080 M01S00093.261l700 +++| UCP7 ZJN UCP3 IF ERROR IN ARGUMENTS
01081 M00S00817.0vj +++|
| Line S00818 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01082 M01S00818.261l700 ---|* SET USER NAME.
| Line S00094 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01083 M01S00094.261l700 +++|* PROCESS USER AND FAMILY NAME.
01084 M00S00819.0vj +++|
| Line S00820 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01085 M01S00820.261l700 ---| LDN 1R* ALLOW * IN USER NAME
01086 M01S00821.261l700 ---| STD T1
01087 M01S00822.261l700 ---| LDN UN PACK USER NAME
01088 M01S00823.261l700 ---| RJM PAC
01089 M01S00824.261l700 ---| ZJN UCP3 IF TOO MANY CHARACTERS
01090 M01S00825.261l700 ---| MJN UCP7 IF TERMINATOR
01091 M01S00826.261l700 ---| RJM GNC SKIP SEPARATOR
| Line S00095 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01092 M01S00095.261l700 +++| LDD UN
01093 M01S00096.261l700 +++| ZJN UCP7 IF NO USER NAME
01094 M01S00097.261l700 +++| LDD MA SET USER NAME IN SYSTEM SECTOR
01095 M01S00098.261l700 +++| CWD UN
01096 M01S00099.261l700 +++| CRM. ACSS,ON
01097 M01S00100.261l700 +++| LDD CN
01098 M01S00101.261l700 +++| ZJN UCP8 IF NO FAMILY NAME
01099 M01S00102.261l700 +++| LMC 1R0*100
01100 M01S00103.261l700 +++| ZJN UCP8 IF DEFAULT FAMILY PARAMETER
01101 M01S00104.261l700 +++| LDD MA SET FAMILY NAME IN SYSTEM SECTOR
01102 M01S00105.261l700 +++| CWD CN
01103 M01S00106.261l700 +++| CRM. FMSS,ON
01104 M01S00107.261l700 +++| UJN UCP9 EXIT
01105 M00S00827.0vj +++|
| Line S00828 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01106 M01S00828.261l700 ---|* SET PASSWORD.
01107 M01S00829.261l700 ---|
01108 M01S00830.261l700 ---| LDD CA SAVE PASSWORD FWA
01109 M01S00831.261l700 ---| STM FWPW
01110 M01S00832.261l700 ---| LDN 0
01111 M01S00833.261l700 ---| STD T1
01112 M01S00834.261l700 ---| LDC. PSWD SET PASSWORD
01113 M01S00835.261l700 ---| RJM PAC
01114 M01S00836.261l700 ---| ZJN UCP3 IF TOO MANY CHARACTERS
01115 M01S00837.261l700 ---| LDD CA SAVE PASSWORD LWA+1
01116 M01S00838.261l700 ---| STM LWPW
01117 M01S00839.261l700 ---| RJM CTS CHECK FOR TERMINATOR
01118 M01S00840.261l700 ---| MJN UCP7 IF TERMINATOR
01119 M01S00841.261l700 ---|
01120 M01S00842.261l700 ---|* SET FAMILY NAME.
01121 M01S00843.261l700 ---|
01122 M01S00844.261l700 ---| RJM GNC SKIP SEPARATOR
01123 M01S00845.261l700 ---| LDN CN PICK UP FAMILY NAME
01124 M01S00846.261l700 ---| RJM PAC
01125 M01S00847.261l700 ---| PJP UCP3 IF NO TERMINATOR
01126 M01S00848.261l700 ---| LDD CN CHECK FOR FAMILY SPECIFIED
01127 M01S00849.261l700 ---| NJN UCP8 IF FAMILY SPECIFIED
01128 M01S00850.261l700 ---| UCP7 LDD MA SET DEFAULT FAMILY NAME
| Line S00108 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01129 M01S00108.261l700 +++| UCP8 LDD MA SET DEFAULT FAMILY NAME
01130 M00S00851.0vj +++| CWM. FMSS,ON
01131 M00S00852.0vj +++| SBN 1
01132 M00S00853.0vj +++| CRD CN
| Line S00854 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01133 M01S00854.261l700 ---| UJN UCP9 SET USER NAME IN SYSTEM SECTOR
| Line S00109 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01134 M01S00109.261l700 +++| UCP9 LJM UCPX EXIT WITH NO ERROR
01135 M01S00110.261l700 +++| TUCP SPACE 4,25
01136 M01S00111.261l700 +++|** TUCP - TABLE OF USER COMMAND PARAMETERS.
01137 M01S00112.261l700 +++|*
01138 M01S00113.261l700 +++|* FORMAT BEFORE PARAMETER PROCESSING -
01139 M01S00114.261l700 +++|*
01140 M01S00115.261l700 +++|*T 12/ KW
01141 M01S00116.261l700 +++|*T, 12/ ADDR
01142 M01S00117.261l700 +++|*T, 12/ AST
01143 M01S00118.261l700 +++|*
01144 M01S00119.261l700 +++|* KW = PARAMETER KEYWORD IF EQUIVALENCED.
01145 M01S00120.261l700 +++|* ADDR = ASSEMBLY ADDRESS.
01146 M01S00121.261l700 +++|* AST = * IF ASTERISK ALLOWED IN PARAMETER.
01147 M01S00122.261l700 +++|* SECURE = *S* IF PARAMETER TO BE REMOVED FROM COMMAND.
01148 M01S00123.261l700 +++|*
01149 M01S00124.261l700 +++|* FORMAT AFTER PARAMETER PROCESSING -
01150 M01S00125.261l700 +++|*
01151 M01S00126.261l700 +++|*T 12/0
01152 M01S00127.261l700 +++|*T, 12/FWA
01153 M01S00128.261l700 +++|*T, 12/LWA+1
01154 M01S00129.261l700 +++|*
01155 M01S00130.261l700 +++|* FWA = FWA OF PARAMETER IN STRING BUFFER.
01156 M01S00131.261l700 +++|* LWA+1 = LWA+1 OF PARAMETER IN STRING BUFFER.
01157 M00S00855.0vj +++|
| Line S00856 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01158 M01S00856.261l700 ---| UCP8 SHN -6
01159 M01S00857.261l700 ---| LMN 1R0
01160 M01S00858.261l700 ---| ZJN UCP7 IF DEFAULT FAMILY SELECTED
01161 M01S00859.261l700 ---| LDD MA SET FAMILY IN SYSTEM SECTOR
01162 M01S00860.261l700 ---| CWD CN
01163 M01S00861.261l700 ---| CRM. FMSS,ON
01164 M01S00862.261l700 ---| UCP9 LDD MA SET USER NAME
01165 M01S00863.261l700 ---| CWD UN
01166 M01S00864.261l700 ---| CRM. ACSS,ON
01167 M01S00865.261l700 ---| LDN 1
01168 M01S00866.261l700 ---| LJM UCPX RETURN
01169 M00S00867.0vj +++|
| Line S00868 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01170 M01S00868.261l700 ---| UCPA CON 1RA *ACCOUNT* STRING
01171 M01S00869.261l700 ---| CON 1RC
01172 M01S00870.261l700 ---| CON 1RC
01173 M01S00871.261l700 ---| CON 1RO
01174 M01S00872.261l700 ---| CON 1RU
01175 M01S00873.261l700 ---| CON 1RN
01176 M01S00874.261l700 ---| CON 1RT
01177 M01S00875.261l700 ---| CON 0
| Line S00132 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01178 M01S00132.261l700 +++| TUCP BSS 0
01179 M01S00133.261l700 +++| UCARG UN,UN,* USER NAME
01180 M01S00134.261l700 +++| TUCPE EQU *-TUCP LENGTH OF ENTRY
01181 M01S00135.261l700 +++| TUCPA UCARG PW,PSWD PASSWORD
01182 M01S00136.261l700 +++| UCARG FM,CN FAMILY NAME
01183 M01S00137.261l700 +++| TUCPL EQU *-TUCP LENGTH OF TABLE
01184 M01S00138.261l700 +++| TITLE SUBROUTINES.
01185 M01S00139.261l700 +++| AUA SPACE 4,10
01186 M01S00140.261l700 +++|** AUA - ASSEMBLE *USER* COMMAND ARGUMENTS.
01187 M01S00141.261l700 +++|*
01188 M01S00142.261l700 +++|* EXIT (A) = 0 IF ERROR IN *USER* COMMAND.
01189 M01S00143.261l700 +++|*
01190 M01S00144.261l700 +++|* USES CA, T1, T4, T5, T6, CM - CM+4.
01191 M01S00145.261l700 +++|*
01192 M01S00146.261l700 +++|* CALLS CTS, PAC.
01193 M00S00876.0vj +++|
| Line S00877 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01194 M01S00877.261l700 ---| UCPB CON 1RU *USER* STRING
01195 M01S00878.261l700 ---| CON 1RS
01196 M01S00879.261l700 ---| CON 1RE
01197 M01S00880.261l700 ---| CON 1RR
01198 M01S00881.261l700 ---| CON 0
01199 M01S00882.261l700 ---| TITLE SUBROUTINES.
| Line S00147 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01200 M01S00147.261l700 +++|
01201 M01S00148.261l700 +++| AUA7 LDN 0 SET *USER* COMMAND ERROR
01202 M01S00149.261l700 +++|
01203 M01S00150.261l700 +++| AUA SUBR ENTRY/EXIT
01204 M01S00151.261l700 +++| LDN 0 INITIALIZE PARAMETER INDEX
01205 M01S00152.261l700 +++| STD T4
01206 M01S00153.261l700 +++| AUA1 AOD CA SKIP SEPARATOR
01207 M01S00154.261l700 +++| STD T5 SAVE PARAMETER ADDRESS
01208 M01S00155.261l700 +++| LDN 1R* ALLOW ASTERISK
01209 M01S00156.261l700 +++| STD T1
01210 M01S00157.261l700 +++| LDN ZERL CLEAR ASSEMBLY
01211 M01S00158.261l700 +++| CRD CM
01212 M01S00159.261l700 +++| LDN CM ASSEMBLE PARAMETER OR KEYWORD
01213 M01S00160.261l700 +++| RJM PAC
01214 M01S00161.261l700 +++| ZJN AUAX IF PARAMETER TOO LONG
01215 M01S00162.261l700 +++| LDI CA
01216 M01S00163.261l700 +++| LMN 1R=
01217 M01S00164.261l700 +++| ZJN AUA3 IF KEYWORD OF EQUIVALENCED PARAMETER
01218 M01S00165.261l700 +++|
01219 M01S00166.261l700 +++|* PROCESS POSITIONAL PARAMETER.
01220 M01S00167.261l700 +++|
01221 M01S00168.261l700 +++| LDD T4 SET PARAMETER INDEX
01222 M01S00169.261l700 +++| STD T6
01223 M01S00170.261l700 +++| LDD T5 RESET CHARACTER ADDRESS
01224 M01S00171.261l700 +++| STD CA
01225 M01S00172.261l700 +++| LDM TUCP,T6
01226 M01S00173.261l700 +++| AUA2 ZJN AUAX IF PARAMETER ALREADY ENTERED
01227 M01S00174.261l700 +++| LDN 0
01228 M01S00175.261l700 +++| UJN AUA5 SET PARAMETER ENTERED
01229 M01S00176.261l700 +++|
01230 M01S00177.261l700 +++|* PROCESS EQUIVALENCED PARAMETER.
01231 M01S00178.261l700 +++|
01232 M01S00179.261l700 +++| AUA3 LDD CM+1
01233 M01S00180.261l700 +++| NJP AUA7 IF NOT 2 CHARACTER KEYWORD
01234 M01S00181.261l700 +++| STD T6 INITIALIZE PARAMETER INDEX
01235 M01S00182.261l700 +++| AOD CA SKIP SEPARATOR
01236 M01S00183.261l700 +++| STD T5 SAVE PARAMETER ADDRESS
01237 M01S00184.261l700 +++| AUA4 LDM TUCP,T6 CHECK NEXT KEYWORD ENTRY
01238 M01S00185.261l700 +++| LMD CM
01239 M01S00186.261l700 +++| ZJN AUA5 IF MATCH
01240 M01S00187.261l700 +++| LDN TUCPE ADVANCE TABLE INDEX
01241 M01S00188.261l700 +++| RAD T6
01242 M01S00189.261l700 +++| LMN TUCPL
01243 M01S00190.261l700 +++| ZJN AUA2 IF END OF TABLE
01244 M01S00191.261l700 +++| UJN AUA4 CHECK NEXT ENTRY
01245 M01S00192.261l700 +++|
01246 M01S00193.261l700 +++|* ASSEMBLE PARAMETER.
01247 M01S00194.261l700 +++|
01248 M01S00195.261l700 +++| AUA5 STM TUCP,T6 SET PARAMETER ENTERED
01249 M01S00196.261l700 +++| LDM TUCP+2,T6 SET ASTERISK ALLOWED STATUS
01250 M01S00197.261l700 +++| LPN 77
01251 M01S00198.261l700 +++| STD T1
01252 M01S00199.261l700 +++| LDM TUCP+1,T6 SET ASSEMBLY ADDRESS
01253 M01S00200.261l700 +++| RJM PAC ASSEMBLE PARAMETER
01254 M01S00201.261l700 +++| ZJN AUA2 IF PARAMETER TOO LONG
01255 M01S00202.261l700 +++| LDI CA
01256 M01S00203.261l700 +++| LMN 1R=
01257 M01S00204.261l700 +++| AUA6 ZJN AUA2 IF SEPARATOR IS *=*
01258 M01S00205.261l700 +++| LDD T5 SET PARAMETER FWA
01259 M01S00206.261l700 +++| STM TUCP+1,T6
01260 M01S00207.261l700 +++| LDD CA SET PARAMETER LWA+1
01261 M01S00208.261l700 +++| STM TUCP+2,T6
01262 M01S00209.261l700 +++| RJM CTS
01263 M01S00210.261l700 +++| MJP AUAX IF TERMINATOR
01264 M01S00211.261l700 +++| LDN TUCPE ADVANCE PARAMETER INDEX
01265 M01S00212.261l700 +++| RAD T4
01266 M01S00213.261l700 +++| LMN TUCPL
01267 M01S00214.261l700 +++| ZJN AUA6 IF MAXIMUM PARAMETERS ALREADY ENTERED
01268 M01S00215.261l700 +++| LJM AUA1 PROCESS NEXT PARAMETER
01269 M00S00883.0vj +++| ASD SPACE 4,25
01270 M00S00884.0vj +++|** ASD - ASSEMBLE DIGITS.
01271 M00S00885.0vj +++|*
01272 M00S00886.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS.
01273 M00S00887.0vj +++|* (CM) = MAXIMUM NUMBER OF DIGITS PLUS ONE.
01274 M00S00888.0vj +++|* (CM+1 - CM+2) = MAXIMUM DECIMAL VALUE.
01275 M00S00889.0vj +++|* (CM+3) = 0, IF DEFAULT BASE IS OCTAL.
01276 M00S00890.0vj +++|* = 1, IF DEFAULT BASE IS DECIMAL.
01277 M00S00891.0vj +++|*
01278 M00S00892.0vj +++|* EXIT (A) = ASSEMBLED DIGITS.
01279 M00S00893.0vj +++|* (A) .LT. 0 IF ERROR IN ASSEMBLY.
01280 M00S00894.0vj +++|* (CA) = UPDATED CHARACTER ADDRESS.
01281 M00S00895.0vj +++|*
01282 M00S00896.0vj +++|* USES CM, T1 - T5.
01283 M00S00897.0vj +++|*
01284 M00S00898.0vj +++|* CALLS CTS, ERR, GNC.
01285 M00S00899.0vj +++|*
01286 M00S00900.0vj +++|* NOTE *ASD* CONVERTS DISPLAY CODE DIGITS TO OCTAL
01287 M00S00901.0vj +++|* AND DECIMAL VALUES.
01288 M00S00902.0vj +++|* THE BASE IS DETERMINED AS FOLLOWS -
01289 M00S00903.0vj +++|* 1) POST RADIX SPECIFICATION (B=OCTAL, D=DECIMAL).
01290 M00S00904.0vj +++|* 2) IF AN 8 OR 9 IS DETECTED THEN DECIMAL IS ASSUMED.
01291 M00S00905.0vj +++|* 3) DEFAULT AS SPECIFIED BY CALLING ROUTINE.
01292 M00S00906.0vj +++|
01293 M00S00907.0vj +++|
01294 M00S00908.0vj +++| ASD SUBR ENTRY/EXIT
01295 M00S00909.0vj +++| LDN 0 PRESET TO NO 8/9 ENCOUNTERED
01296 M00S00910.0vj +++| STM ASDA
01297 M00S00911.0vj +++| LDN ZERL CLEAR ASSEMBLY REGISTERS
01298 M00S00912.0vj +++| CRD T1
01299 M00S00913.0vj +++| ASD1 RJM CTS CHECK FOR TERMINATOR/SEPARATOR
01300 M00S00914.0vj +++| MJN ASD2 IF TERMINATOR
01301 M00S00915.0vj +++| NJN ASD8 IF NOT TERMINATOR OR SEPARATOR
01302 M00S00916.0vj +++|
01303 M00S00917.0vj +++|* PROCESS END OF ARGUMENT.
01304 M00S00918.0vj +++|
01305 M00S00919.0vj +++| ASD2 LDD CM+3
01306 M00S00920.0vj +++| NJN ASD4 IF BASE IS DECIMAL
01307 M00S00921.0vj +++| ASD3 LDD T2 RETURN OCTAL DIGITS
01308 M00S00922.0vj +++| SHN 14
01309 M00S00923.0vj +++| LMD T3
01310 M00S00924.0vj +++| UJN ASD6 EXIT
01311 M00S00925.0vj +++|
01312 M00S00926.0vj +++| ASD4 LDD CM+1 CHECK FOR DECIMAL MAXIMUM
01313 M00S00927.0vj +++| SBD T4
01314 M00S00928.0vj +++| MJN ASD7 IF OVER MAXIMUM
01315 M00S00929.0vj +++| NJN ASD5 IF UNDER MAXIMUM
01316 M00S00930.0vj +++| LDD CM+2
01317 M00S00931.0vj +++| SBD T5
01318 M00S00932.0vj +++| MJN ASD7 IF OVER MAXIMUM
01319 M00S00933.0vj +++| ASD5 LDD T4 RETURN DECIMAL DIGITS
01320 M00S00934.0vj +++| SHN 14
01321 M00S00935.0vj +++| LMD T5
01322 M00S00936.0vj +++| ASD6 MJN ASD9 IF NEGATIVE VALUE
01323 M00S00937.0vj +++| UJN ASDX RETURN
01324 M00S00938.0vj +++|
01325 M00S00939.0vj +++| ASD7 LDD CM+1 SET MAXIMUM VALUE
01326 M00S00940.0vj +++| SHN 14
01327 M00S00941.0vj +++| LMD CM+2
01328 M00S00942.0vj +++| UJN ASD6 EXIT
01329 M00S00943.0vj +++|
01330 M00S00944.0vj +++|* PROCESS NEXT CHARACTER.
01331 M00S00945.0vj +++|
01332 M00S00946.0vj +++| ASD8 LDI CA CHECK FOR POST RADIX
01333 M00S00947.0vj +++| SBN 1R0
01334 M00S00948.0vj +++| PJN ASD12 IF NOT ALPHA
01335 M00S00949.0vj +++| ADN 1R0-1RD CHECK FOR *D*
01336 M00S00950.0vj +++| NJN ASD10 IF NOT *D*
01337 M00S00951.0vj +++| RJM GNC ADVANCE CHARACTER
01338 M00S00952.0vj +++| MJN ASD4 IF TERMINATOR
01339 M00S00953.0vj +++| ZJN ASD4 IF SEPARATOR
01340 M00S00954.0vj +++| ASD9 LJM ASD14 PROCESS ERROR
01341 M00S00955.0vj +++|
01342 M00S00956.0vj +++| ASD10 ADN 1RD-1RB CHECK FOR *B*
01343 M00S00957.0vj +++| NJN ASD9 IF ALPHA OTHER THAN *B* OR *D*
01344 M00S00958.0vj +++| LDC ** (DECIMAL/OCTAL CONVERSION FLAG)
01345 M00S00959.0vj +++| ASDA EQU *-1
01346 M00S00960.0vj +++|* LDC 1 (8 OR 9 HAS BEEN ENCOUNTERED)
01347 M00S00961.0vj +++|* LDC 0 (NO 8 OR 9 ENCOUNTERED)
01348 M00S00962.0vj +++| NJN ASD9 IF 8 OR 9 AND *B* PRESENT
01349 M00S00963.0vj +++| RJM GNC ADVANCE CHARACTER
01350 M00S00964.0vj +++| MJN ASD11 IF TERMINATOR
01351 M00S00965.0vj +++| NJN ASD9 IF NOT TERMINATOR OR SEPARATOR
01352 M00S00966.0vj +++| ASD11 LJM ASD3 RETURN OCTAL DIGITS
01353 M00S00967.0vj +++|
01354 M00S00968.0vj +++|* SET FLAG IF 8 0R 9 FOUND
01355 M00S00969.0vj +++|
01356 M00S00970.0vj +++| ASD12 STD T1 SAVE DIGIT
01357 M00S00971.0vj +++| SBN 1R8-1R0
01358 M00S00972.0vj +++| MJN ASD13 IF NOT 8 OR 9
01359 M00S00973.0vj +++| LDN 1 SET FLAG FOR DECIMAL
01360 M00S00974.0vj +++| STM ASDA
01361 M00S00975.0vj +++| STD CM+3
01362 M00S00976.0vj +++|
01363 M00S00977.0vj +++|* ASSEMBLE OCTAL DIGITS.
01364 M00S00978.0vj +++|
01365 M00S00979.0vj +++| ASD13 LDD T2
01366 M00S00980.0vj +++| SHN 14
01367 M00S00981.0vj +++| ADD T3
01368 M00S00982.0vj +++| SHN 3
01369 M00S00983.0vj +++| ADD T1 ADD NEW DIGIT
01370 M00S00984.0vj +++| STD T3
01371 M00S00985.0vj +++| SHN -14
01372 M00S00986.0vj +++| STD T2
01373 M00S00987.0vj +++|
01374 M00S00988.0vj +++|* ASSEMBLE DECIMAL DIGITS.
01375 M00S00989.0vj +++|
01376 M00S00990.0vj +++| LDD T4
01377 M00S00991.0vj +++| SHN 14
01378 M00S00992.0vj +++| ADD T5
01379 M00S00993.0vj +++| SHN 2+6 (*4)
01380 M00S00994.0vj +++| ADD T4
01381 M00S00995.0vj +++| SHN 14
01382 M00S00996.0vj +++| ADD T5 (*4+1)
01383 M00S00997.0vj +++| SHN 1 (*4+1)*2
01384 M00S00998.0vj +++| STD T5 ADD NEW DIGIT
01385 M00S00999.0vj +++| SHN -14
01386 M00S01000.0vj +++| STD T4
01387 M00S01001.0vj +++| LDD T1
01388 M00S01002.0vj +++| RAD T5
01389 M00S01003.0vj +++| SHN -14
01390 M00S01004.0vj +++| RAD T4 ADD CARRY
01391 M00S01005.0vj +++| RJM GNC GET NEXT CHARACTER
01392 M00S01006.0vj +++| SOD CM
01393 M00S01007.0vj +++| ZJN ASD14 IF TOO MANY DIGITS
01394 M00S01008.0vj +++| LJM ASD1 LOOP
01395 M00S01009.0vj +++|
01396 M00S01010.0vj +++|* PROCESS ERROR IN ASSEMBLY.
01397 M00S01011.0vj +++|
01398 M00S01012.0vj +++| ASD14 RJM ERR SET ERROR STATUS
01399 M00S01013.0vj +++| LCN 1
01400 M00S01014.0vj +++| LJM ASDX RETURN
| Line S01015 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
01401 M01S01015.261l700 ---| CCS SPACE 4,15
01402 M01S01016.261l700 ---|** CCS - COMPARE CHARACTER STRINGS.
01403 M01S01017.261l700 ---|*
01404 M01S01018.261l700 ---|* ENTRY (A) = FWA OF OBJECT STRING.
01405 M01S01019.261l700 ---|* (CA) = FWA OF SUBJECT STRING.
01406 M01S01020.261l700 ---|*
01407 M01S01021.261l700 ---|* EXIT (A) = 0 IF STRINGS ARE EQUAL.
01408 M01S01022.261l700 ---|* (A) .NE. 0 IF STRING ARE NOT EQUAL.
01409 M01S01023.261l700 ---|* (CA) = CHARACTER ADDRESS.
01410 M01S01024.261l700 ---|*
01411 M01S01025.261l700 ---|* USES CA, T2.
01412 M01S01026.261l700 ---|*
01413 M01S01027.261l700 ---|* CALLS CTS, GNC.
01414 M01S01028.261l700 ---|
01415 M01S01029.261l700 ---|
01416 M01S01030.261l700 ---| CCS2 RJM CTS CHECK FOR TERMINATOR/SEPARATOR
01417 M01S01031.261l700 ---| PJN CCSX IF SEPARATOR OR NORMAL CHARACTER
01418 M01S01032.261l700 ---| LDN 0 SET RETURN STATUS FOR TERMINATOR
01419 M01S01033.261l700 ---|
01420 M01S01034.261l700 ---| CCS SUBR
01421 M01S01035.261l700 ---| SBN 1 SET INDEX ADDRESS
01422 M01S01036.261l700 ---| STD T2
01423 M01S01037.261l700 ---| SOD CA
01424 M01S01038.261l700 ---| CCS1 RJM GNC GET NEXT CHARACTER
01425 M01S01039.261l700 ---| AOD T2
01426 M01S01040.261l700 ---| LDI T2 CHECK FOR END OF OBJECT STRING
01427 M01S01041.261l700 ---| ZJN CCS2 IF END OF OBJECT STRING
01428 M01S01042.261l700 ---| LMI CA CHECK AGAINST SUBJECT STRING
01429 M01S01043.261l700 ---| ZJN CCS1 IF CHARACTERS MATCH
01430 M01S01044.261l700 ---| UJN CCSX IF CHARACTERS DO NOT MATCH
01431 M00S01045.0vj +++| CTS SPACE 4,15
01432 M00S01046.0vj +++|** CTS - CHECK FOR TERMINATOR OR SEPARATOR.
01433 M00S01047.0vj +++|*
01434 M00S01048.0vj +++|* ENTRY (CA) = CHARACTER ADDRESS.
01435 M00S01049.0vj +++|* (LWUC) = LWA+1 OF UNPACKED COMMAND.
01436 M00S01050.0vj +++|*
01437 M00S01051.0vj +++|* EXIT (A) = 0 IF SEPARATOR (INCLUDES COLON).
01438 M00S01052.0vj +++|* (A) .LT. 0 IF TERMINATOR OR END OF LINE.
01439 M00S01053.0vj +++|* (A) = CHARACTER (FOR ALL OTHER CHARACTERS).
01440 M00S01054.0vj +++|
01441 M00S01055.0vj +++|
01442 M00S01056.0vj +++| CTS2 LDI CA SET NORMAL CHARACTER STATUS
01443 M00S01057.0vj +++|
01444 M00S01058.0vj +++| CTS SUBR ENTRY/EXIT
01445 M00S01059.0vj +++| LDD CA
01446 M00S01060.0vj +++| SBM LWUC