Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.valex +++| IDENT VALEX,ORIG
00002 M01S00002.valex +++| ABS
00003 M01S00003.valex +++| SST
00004 M01S00004.valex +++| SYSCOM B1
00005 M01S00005.valex +++| ENTRY ACCOUNT
00006 M01S00006.valex +++| ENTRY BYE
00007 M01S00007.valex +++| ENTRY CHARGE
00008 M01S00008.valex +++| ENTRY GOODBYE
00009 M01S00009.valex +++| ENTRY HELLO
00010 M01S00010.valex +++| ENTRY LOGIN
00011 M01S00011.valex +++| ENTRY LOGOUT
00012 M01S00012.valex +++| ENTRY USER
00013 M01S00013.valex +++| ENTRY XPR
00014 M01S00014.valex +++| ENTRY ARG=
00015 M01S00015.valex +++| ENTRY VAL=
00016 M01S00016.valex +++| ENTRY RFL=
00017 M01S00017.valex +++| ENTRY SDM=
00018 M01S00018.valex +++| ENTRY SSJ=
00019 M01S00019.valex +++| TITLE VALEX - VALIDATION EXECUTIVE.
00020 M01S00020.valex +++| SPACE 4,10
00021 M01S00021.valex +++|*COMMENT VALEX - VALIDATION EXECUTIVE.
| Line S00022 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00022 M02S00022.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1987.
00023 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00024 M01S00023.valex +++| SPACE 4,10
00025 M01S00024.valex +++|*** VALEX - VALIDATION EXECUTIVE.
00026 M01S00025.valex +++|* R. P. ROHRBOUGH 72/09/08.
00027 M01S00026.valex +++|* G. R. GREENFIELD 75/11/25.
00028 M01S00027.valex +++|* P. C. SMITH 81/06/10.
00029 M01S00028.valex +++|* G. S. YODER 87/03/13.
00030 M01S00029.valex +++| SPACE 4,10
00031 M01S00030.valex +++|*** USER AND ACCOUNT COMMANDS.
00032 M01S00031.valex +++|*
00033 M01S00032.valex +++|* USER,USERNAM,PASSWOR,FAMILY.
00034 M01S00033.valex +++|*
00035 M01S00034.valex +++|* USER,UN=USERNAM,PW=PASSWOR,FM=FAMILY.
00036 M01S00035.valex +++|*
00037 M01S00036.valex +++|* ACCOUNT,USERNAM,PASSWOR,FAMILY.
00038 M01S00037.valex +++|*
00039 M01S00038.valex +++|* ACCOUNT,UN=USERNAM,PW=PASSWOR,FM=FAMILY.
00040 M01S00039.valex +++|*
00041 M01S00040.valex +++|* USERNAM = USER NAME (1-7 ALPHNUMERIC CHARACTERS
00042 M01S00041.valex +++|* INCLUDING ASTERISK).
00043 M01S00042.valex +++|*
00044 M01S00043.valex +++|* PASSWOR = PASSWORD (1-7 ALPHNUMERIC CHARACTERS).
00045 M01S00044.valex +++|*
00046 M01S00045.valex +++|* FAMILY = FAMILY NAME (1-7 ALPHANUMERIC CHARACTERS).
00047 M01S00046.valex +++|*
00048 M01S00047.valex +++|* IF THE FAMILY NAME IS OMITTED, THE DEFAULT FAMILY WILL BE
00049 M01S00048.valex +++|* ASSUMED. DEFAULT CHARGE VALIDATION WILL BE PERFOMED IF THE
00050 M01S00049.valex +++|* USER NAME REQUIRES CHARGE VALIDATION AND NO *CHARGE* COMMAND
00051 M01S00050.valex +++|* FOLLOWS THE *USER* COMMAND. IF DEFAULT CHARGE VALIDATION
00052 M01S00051.valex +++|* FAILS AND FILE *INPUT* IS ASSIGNED TO A TERMINAL, THE USER
00053 M01S00052.valex +++|* WILL BE PROMPTED FOR ENTRY OF A VALID CHARGE AND PROJECT
00054 M01S00053.valex +++|* NUMBER.
00055 M01S00054.valex +++| SPACE 4,10
00056 M01S00055.valex +++|*** CHARGE COMMAND.
00057 M01S00056.valex +++|*
00058 M01S00057.valex +++|* CHARGE,CHARGE,PROJECT.
00059 M01S00058.valex +++|*
00060 M01S00059.valex +++|* CHARGE,CN=CHARGE,PN=PROJECT.
00061 M01S00060.valex +++|*
00062 M01S00061.valex +++|* CHARGE.
00063 M01S00062.valex +++|*
00064 M01S00063.valex +++|* CHARGE = EITHER OF THE FOLLOWING -
00065 M01S00064.valex +++|*
00066 M01S00065.valex +++|* - CHARGE NUMBER (1-10 ALPHANUMERIC
00067 M01S00066.valex +++|* CHARACTERS INCLUDING ASTERISK).
00068 M01S00067.valex +++|*
00069 M01S00068.valex +++|* - DEFAULT CHARGE PARAMETER (*). IF
00070 M01S00069.valex +++|* SPECIFIED, AND THE PROJECT NUMBER IS
00071 M01S00070.valex +++|* NULL, THE DEFAULT CHARGE AND PROJECT
00072 M01S00071.valex +++|* NUMBERS CONTAINED IN THE USER-S
00073 M01S00072.valex +++|* VALIDATION FILE ENTRY ARE USED.
00074 M01S00073.valex +++|*
00075 M01S00074.valex +++|* PROJECT = PROJECT NUMBER (1-20 ALPHANUMERIC CHARACTERS
00076 M01S00075.valex +++|* INCLUDING ASTERISK).
00077 M01S00076.valex +++|*
00078 M01S00077.valex +++|* IF BOTH CHARGE AND PROJECT NUMBERS ARE SPECIFIED THEY WILL BE
00079 M01S00078.valex +++|* VALIDATED FROM THE PROJECT PROFILE FILE (PROFILX) AND IF
00080 M01S00079.valex +++|* VALID, A NEW ACCOUNT BLOCK WILL BE BEGUN. OTHERWISE, THE JOB
00081 M01S00080.valex +++|* WILL BE ABORTED. IF THE DEFAULT CHARGE PARAMETER (*) IS
00082 M01S00081.valex +++|* SPECIFIED AS THE CHARGE PARAMETER AND THE PROJECT PARAMETER
00083 M01S00082.valex +++|* IS NULL, THE DEFAULT CHARGE AND PROJECT NUMBERS IN THE USER-S
00084 M01S00083.valex +++|* VALIDATION FILE (VALIDUX) ENTRY WILL BE USED AND PROCESSED AS
00085 M01S00084.valex +++|* IF THEY HAD BEEN ENTERED ON THE *CHARGE* COMMAND WITH THE
00086 M01S00085.valex +++|* EXCEPTION THAT IF BOTH THE DEFAULT CHARGE AND PROJECT FIELDS
00087 M01S00086.valex +++|* ARE NULL AND THE USER NAME DOES NOT REQUIRE A *CHARGE*
00088 M01S00087.valex +++|* COMMAND (*CCNR* PRIVILEGE) THE COMMAND WILL BE PROCESSED AS A
00089 M01S00088.valex +++|* NO-OP. THIS IS FOR COMPATIBILITY WITH PREVIOUS SYSTEM LEVELS
00090 M01S00089.valex +++|* AND WILL BE REMOVED IN A FUTURE RELEASE. IF THE *CHARGE.*
00091 M01S00090.valex +++|* FORM OF THE COMMAND IS USED THE CHARGE AND PROJECT NUMBERS
00092 M01S00091.valex +++|* WILL BE READ FROM THE FILE *INPUT*. IF *INPUT* IS NOT
00093 M01S00092.valex +++|* ASSIGNED TO A TERMINAL DEVICE, THE CHARGE AND PROJECT NUMBERS
00094 M01S00093.valex +++|* MUST APPEAR ON ONE LINE IN THE FORM -
00095 M01S00094.valex +++|*
00096 M01S00095.valex +++|* CHARGE,PROJECT
00097 M01S00096.valex +++|*
00098 M01S00097.valex +++|* IF *INPUT* IS A TERMINAL FILE, THE USER WILL BE PROMPTED
00099 M01S00098.valex +++|* FOR CHARGE AND PROJECT NUMBERS. THEY MAY BE ENTERED
00100 M01S00099.valex +++|* SEPARATELY OR IN THE ABOVE FORMAT IN RESPONSE TO THE CHARGE
00101 M01S00100.valex +++|* NUMBER PROMPT. IF AN ASTERISK IS ENTERED IN RESPONSE TO
00102 M01S00101.valex +++|* THE CHARGE NUMBER PROMPT, THE DEFAULT CHARGE WILL BE USED
00103 M01S00102.valex +++|* AND NO PROJECT NUMBER PROMPT WILL BE ISSUED. IN THE CASE
00104 M01S00103.valex +++|* OF AN ERROR IN INPUT OR CHARGE VALIDATION, THE USER WILL BE
00105 M01S00104.valex +++|* REPROMPTED FOR CHARGE AND PROJECT NUMBERS UP TO A DEFINED
00106 M01S00105.valex +++|* ERROR LIMIT.
00107 M01S00106.valex +++|*
00108 M01S00107.valex +++|*
00109 M01S00108.valex +++|* *CHARGE* COMMAND PROCESSING -
00110 M01S00109.valex +++|*
00111 M01S00110.valex +++|* - IF THE COMMAND IS A SECONDARY *CHARGE* COMMAND AND A
00112 M01S00111.valex +++|* PROJECT EPILOGUE EXISTS FOR THE CURRENT PROJECT NUMBER
00113 M01S00112.valex +++|* THE EPILOGUE IS EXECUTED BEFORE ANY PROCESSING IS PERFORMED
00114 M01S00113.valex +++|* ON THE *CHARGE* COMMAND. THE SECONDARY *CHARGE* COMMAND IS
00115 M01S00114.valex +++|* REEXECUTED WHEN THE EPILOGUE TERMINATES.
00116 M01S00115.valex +++|*
00117 M01S00116.valex +++|* - FOR A SECONDARY *CHARGE* COMMAND THE ACCOUNTING INFORMATION
00118 M01S00117.valex +++|* FOR THE CURRENT ACCOUNT BLOCK IS DISPLAYED IN THE ACCOUNT
00119 M01S00118.valex +++|* DAYFILE AND THE SRU-S ACCUMULATED DURING THE ACCOUNT BLOCK
00120 M01S00119.valex +++|* ARE ADDED TO THE ACCUMULATOR IN THE PROFILE FILE LEVEL 3
00121 M01S00120.valex +++|* BLOCK.
00122 M01S00121.valex +++|*
00123 M01S00122.valex +++|* - THE NEW CHARGE AND PROJECT NUMBERS ARE SET IN THE JOB-S
00124 M01S00123.valex +++|* NFL, THE SRU ACCUMULATOR IS CLEARED, AND THE SRU
00125 M01S00124.valex +++|* MULTIPLIERS AND SRU LIMITS ARE RESET IF NECESSARY.
00126 M01S00125.valex +++|*
00127 M01S00126.valex +++|* - IF A PROJECT PROLOGUE IS DEFINED FOR THE NEW PROJECT NUMBER
00128 M01S00127.valex +++|* IT IS EXECUTED. CHARGE REQUIRED STATUS MAY BE SET ON
00129 M01S00128.valex +++|* TERMINATION DEPENDING ON THE OPTION SET IN THE PROFILE FILE
00130 M01S00129.valex +++|* ENTRY. SEE PROLOGUE SEQUENCING DOCUMENTATION.
00131 M01S00130.valex +++|*
00132 M01S00131.valex +++|* CHARGE VALIDATION MAY BE INVOKED IMPLICITLY BY *USER* COMMAND
00133 M01S00132.valex +++|* PROCESSING. SEE *USER* COMMAND DOCUMENTATION.
00134 M01S00133.valex +++| SPACE 4,15
00135 M01S00134.valex +++|*** LOGOUT COMMANDS.
00136 M01S00135.valex +++|*
00137 M01S00136.valex +++|* BYE,ANAME.
00138 M01S00137.valex +++|*
00139 M01S00138.valex +++|* BYE,AP=ANAME.
00140 M01S00139.valex +++|*
00141 M01S00140.valex +++|* GOODBYE,ANAME.
00142 M01S00141.valex +++|*
00143 M01S00142.valex +++|* GOODBYE,AP=ANAME.
00144 M01S00143.valex +++|*
00145 M01S00144.valex +++|* HELLO,ANAME.
00146 M01S00145.valex +++|*
00147 M01S00146.valex +++|* HELLO,AP=ANAME.
00148 M01S00147.valex +++|*
00149 M01S00148.valex +++|* LOGIN,ANAME.
00150 M01S00149.valex +++|*
00151 M01S00150.valex +++|* LOGIN,AP=ANAME.
00152 M01S00151.valex +++|*
00153 M01S00152.valex +++|* LOGOUT,ANAME.
00154 M01S00153.valex +++|*
00155 M01S00154.valex +++|* LOGOUT,AP=ANAME.
00156 M01S00155.valex +++|*
00157 M01S00156.valex +++|* ANAME = NETWORK APPLICATION NAME (1-7 ALPHANUMERIC
00158 M01S00157.valex +++|* CHARACTERS). THE DEFAULT IS *LOGOUT* FOR THE
00159 M01S00158.valex +++|* *BYE*, *GOODBYE*, AND *LOGOUT* COMMANDS AND
00160 M01S00159.valex +++|* *LOGIN* FOR THE *HELLO* AND *LOGIN* COMMANDS.
00161 M01S00160.valex +++|*
00162 M01S00161.valex +++|*
00163 M01S00162.valex +++|* LOGOUT COMMANDS ARE PROCESSED AS FOLLOWS -
00164 M01S00163.valex +++|*
00165 M01S00164.valex +++|* - AN EPILOGUE PROGRAM IS EXECUTED IF ONE IS DEFINED.
00166 M01S00165.valex +++|*
00167 M01S00166.valex +++|* - AN ONLINE INTERACTIVE JOB IS DISCONNECTED FROM THE
00168 M01S00167.valex +++|* TERMINAL AND THE TERMINAL IS OPTIONALLY SWITCHED TO
00169 M01S00168.valex +++|* ANOTHER NETWORK APPLICATION.
00170 M01S00169.valex +++|*
00171 M01S00170.valex +++|* - THE JOB IS TERMINATED.
00172 M01S00171.valex +++| SPACE 4,10
00173 M01S00172.valex +++|*** *XPR* COMMAND - EXECUTE SEQUENCED PROLOGUE.
00174 M01S00173.valex +++|*
00175 M01S00174.valex +++|* $XPR.IT NNNNNNN
00176 M01S00175.valex +++|*
00177 M01S00176.valex +++|* I = PROLOGUE INDEX.
00178 M01S00177.valex +++|* = 0 IF SYSTEM PROLOGUE.
00179 M01S00178.valex +++|* = 1 IF PROJECT PROLOGUE.
00180 M01S00179.valex +++|* = 2 IF USER PROLOGUE.
00181 M01S00180.valex +++|*
00182 M01S00181.valex +++|* T = PROLOGUE TERMINATION OPTION + 1 TO SET IF .NE. 0.
00183 M01S00182.valex +++|* = 0 IF NO CHANGE IN TERMINATION OPTION.
00184 M01S00183.valex +++|*
00185 M01S00184.valex +++|* NNNNNNN = PROLOGUE FILE NAME.
00186 M01S00185.valex +++|* = NULL (LINE TERMINATION) IF PROLOGUE FILE
00187 M01S00186.valex +++|* ACCESS ERROR.
00188 M01S00187.valex +++|*
00189 M01S00188.valex +++|*
00190 M01S00189.valex +++|* THE *XPR* COMMAND IS USED IN PROLOGUE SEQUENCING TO CLEAR
00191 M01S00190.valex +++|* NO-DROP STATUS AND TO RESET THE LOCAL FILE NAME OF A PROLOGUE
00192 M01S00191.valex +++|* FILE AFTER TERMINATION OF A PREVIOUS PROLOGUE. THE PROLOGUE
00193 M01S00192.valex +++|* TERMINATION OPTION MAY ALSO BE CHANGED OR CLEARED IF
00194 M01S00193.valex +++|* NECESSARY.
00195 M01S00194.valex +++| SPACE 4,10
00196 M01S00195.valex +++|*** PROLOGUE AND EPILOGUE EXECUTION.
00197 M01S00196.valex +++|*
00198 M01S00197.valex +++|* SYSTEM AND USER PROLOGUE EXECUTION IS INITIATED ONLY BY A
00199 M01S00198.valex +++|* VALID PRIMARY *USER* COMMAND. PROJECT PROLOGUE EXECUTION IS
00200 M01S00199.valex +++|* INITIATED BY A VALID *CHARGE* COMMAND OR BY A *USER* COMMAND
00201 M01S00200.valex +++|* IF A CHARGE IS VALIDATED IMPLICITLY. FOR A PRIMARY *USER*
00202 M01S00201.valex +++|* COMMAND THE EXECUTION ORDER IS SYSTEM, PROJECT, AND USER
00203 M01S00202.valex +++|* PROLOGUE. FOR THE SYSTEM AND PROJECT PROLOGUES, OPTIONS CAN
00204 M01S00203.valex +++|* BE SELECTED UNDER *MODVAL* OR *PROFILE* TO SPECIFY SECURITY
00205 M01S00204.valex +++|* PROCESSING TO BE PERFORMED ON PROLOGUE TERMINATION. THIS
00206 M01S00205.valex +++|* MAKES IT POSSIBLE TO RESTRICT THE USAGE OF USER NAMES AND
00207 M01S00206.valex +++|* PROJECT NUMBERS TO SPECIFIC APPLICATIONS OR TO PERFORM
00208 M01S00207.valex +++|* VALIDATION CHECKS BEFORE ALLOWING UNRESTRICTED USAGE. IF A
00209 M01S00208.valex +++|* SHELL PROGRAM IS DEFINED, IT IS POSSIBLE TO PREVENT NORMAL
00210 M01S00209.valex +++|* PROCESSING OF COMMANDS IN A PROCEDURE. THEREFORE, EITHER
00211 M01S00210.valex +++|* SHELL CONTROL WILL BE CLEARED OR THE JOB WILL BE ABORTED
00212 M01S00211.valex +++|* DEPENDING ON THE SHELL PROGRAM ABORT OPTION UPON INITIATION
00213 M01S00212.valex +++|* OF A SYSTEM OR PROJECT PROLOGUE. THE PROLOGUE FILES ARE
00214 M01S00213.valex +++|* ACCESSED INTERNALLY BY *CHARGE* TO AVOID PASSING PERMANENT
00215 M01S00214.valex +++|* FILE PASSWORDS TO THE SEQUENCING PROCEDURE. IF ANY OF THE
00216 M01S00215.valex +++|* PROLOGUES ABORT, THE SEQUENCING PROCEDURE WILL ABORT AT THAT
00217 M01S00216.valex +++|* POINT. IF A PROLOGUE FILE WAS DEFINED BUT COULD NOT BE
00218 M01S00217.valex +++|* ACCESSED, THE SEQUENCING PROCEDURE WILL ABORT AT THE POINT AT
00219 M01S00218.valex +++|* WHICH THAT PROLOGUE IS INVOKED.
00220 M01S00219.valex +++|*
00221 M01S00220.valex +++|* PROJECT EPILOGUE EXECUTION IS INITIATED BY A SECONDARY
00222 M01S00221.valex +++|* *CHARGE* COMMAND OR BY A LOGOUT COMMAND IF AN EPILOGUE IS
00223 M01S00222.valex +++|* DEFINED FOR THE CURRENT ACCOUNT BLOCK. SHELL CONTROL IS
00224 M01S00223.valex +++|* CLEARED BEFORE EPILOGUE EXECUTION BEGINS AND CHARGE REQUIRED
00225 M01S00224.valex +++|* IS SET ON EPILOGUE TERMINATION TO ENSURE TERMINATION OF THE
00226 M01S00225.valex +++|* ACCOUNT BLOCK. AN ATTEMPT TO SET SHELL CONTROL WITHOUT THE
00227 M01S00226.valex +++|* CLEAR CONTROL ON SHELL ABORT OPTION IN AN ACCOUNT BLOCK WHICH
00228 M01S00227.valex +++|* HAS AN EPILOGUE DEFINED WILL ABORT THE JOB.
00229 M01S00228.valex +++|*
00230 M01S00229.valex +++|* *CHARGE* COMMANDS ARE NOT PERMITTED IN A SYSTEM OR PROJECT
00231 M01S00230.valex +++|* PROLOGUE OR IN A PROJECT EPILOGUE TO AVOID AMBIGUITY WITH
00232 M01S00231.valex +++|* RESPECT TO SETTING CHARGE REQUIRED WHICH WOULD RESULT FROM
00233 M01S00232.valex +++|* PROLOGUE OR EPILOGUE NESTING. FOR THE SAME REASON, LOGOUT
00234 M01S00233.valex +++|* COMMANDS ARE NOT PERMITTED IN A PROJECT PROLOGUE IF AN
00235 M01S00234.valex +++|* EPILOGUE IS DEFINED FOR THE CURRENT ACCOUNT BLOCK.
00236 M01S00235.valex +++| SPACE 4,10
00237 M01S00236.valex +++|*** DAYFILE MESSAGES.
00238 M01S00237.valex +++|*
00239 M01S00001.ns2734 +++|* * ALTERNATE FAMILY NOT ALLOWED.*
00240 M01S00002.ns2734 +++|* THE USER IS NOT VALIDATED TO SPECIFY AN ALTERNATE
00241 M01S00003.ns2734 +++|* FAMILY ON A SECONDARY *USER* COMMAND.
00242 M01S00004.ns2734 +++|*
00243 M01S00005.ns2734 +++|* * ALTERNATE USER NAME NOT ALLOWED.*
00244 M01S00006.ns2734 +++|* THE USER IS NOT VALIDATED TO SPECIFY AN ALTERNATE USER
00245 M01S00007.ns2734 +++|* NAME ON A SECONDARY *USER* COMMAND.
00246 M01S00008.ns2734 +++|*
00247 M01S00238.valex +++|* * CHARGE = CHARGENUMBER, PROJECT = PROJECTNUMBER.
00248 M01S00239.valex +++|* AN ACCOUNT BLOCK HAS BEEN INITIATED UNDER THE
00249 M01S00240.valex +++|* INDICATED CHARGE AND PROJECT NUMBERS.
00250 M01S00241.valex +++|*
00251 M01S00242.valex +++|* * CHARGE ABNORMAL.*
00252 M01S00243.valex +++|* INTERNAL SYSTEM ERROR OCCURRED.
00253 M01S00244.valex +++|*
00254 M01S00245.valex +++|* * CHARGE ABORTED.*
00255 M01S00246.valex +++|* EXTERNAL JOB ABORT.
00256 M01S00247.valex +++|*
00257 M01S00248.valex +++|* * CHARGE COMMAND REQUIRED.*
00258 M01S00249.valex +++|* THE COMMAND CANNOT BE EXECUTED UNTIL A VALID *CHARGE*
00259 M01S00250.valex +++|* COMMAND IS EXECUTED.
00260 M01S00251.valex +++|*
00261 M01S00252.valex +++|* * CHARGE FILE BUSY.*
00262 M01S00253.valex +++|* FILE IS NOT AVAILABLE FOR CHARGE PURPOSES. WAIT AND
00263 M01S00254.valex +++|* TRY AGAIN.
00264 M01S00255.valex +++|*
00265 M01S00256.valex +++|* * CHARGE NOT VALID.*
00266 M01S00257.valex +++|* 1) CHARGE OR PROJECT NUMBER DOES NOT EXIST.
00267 M01S00258.valex +++|* 2) PROJECT NUMBER IS NOT AVAILABLE TO A USER WITH THIS
00268 M01S00259.valex +++|* USER NAME.
00269 M01S00260.valex +++|* 3) CHARGE OR PROJECT NUMBER EXISTS BUT IS INACTIVE.
00270 M01S00261.valex +++|*
00271 M01S00262.valex +++|* * CHARGE NOT VALID AT THIS HOUR.*
00272 M01S00263.valex +++|* THIS PROJECT NUMBER CANNOT BE USED AT THIS TIME OF
00273 M01S00264.valex +++|* DAY.
00274 M01S00265.valex +++|*
00275 M01S00266.valex +++|* * CHARGE NUMBER EXPIRED.*
00276 M01S00267.valex +++|* CHARGE NUMBER EXPIRATION DATE HAS OCCURRED.
00277 M01S00268.valex +++|*
00278 M01S00269.valex +++|* * CHARGE RESTRICTED TO DEFAULT.*
00279 M01S00270.valex +++|* THE USER MAY ONLY USE THE DEFAULT CHARGE AND PROJECT
00280 M01S00271.valex +++|* NUMBER.
00281 M01S00272.valex +++|*
00282 M01S00273.valex +++|* * COMMAND NOT ALLOWED IN PROLOGUE/EPILOGUE.*
00283 M01S00274.valex +++|* A *CHARGE* COMMAND WAS EXECUTED IN A SYSTEM PROLOGUE,
00284 M01S00275.valex +++|* PROJECT PROLOGUE OR PROJECT EPILOGUE OR A LOGOUT
00285 M01S00276.valex +++|* COMMAND WAS EXECUTED IN A PROJECT PROLOGUE WHEN AN
00286 M01S00277.valex +++|* EPILOGUE WAS DEFINED (ISSUED BY *CPM*).
00287 M01S00278.valex +++|*
00288 M01S00279.valex +++|* * CUMULATIVE LIMIT EXCEEDED.*
00289 M01S00280.valex +++|* ONE OF THE INSTALLATION DEFINED RESOURCE USAGE
00290 M01S00281.valex +++|* ACCUMULATORS FOR THIS PROJECT EXCEEDS THE MAXIMUM
00291 M01S00282.valex +++|* ALLOWABLE VALUE.
00292 M01S00283.valex +++|*
00293 M01S00284.valex +++|* * CUMULATIVE SRU LIMIT EXCEEDED.*
00294 M01S00285.valex +++|* SRU ACCUMULATOR FOR THIS PROJECT EXCEEDS THE MAXIMUM
00295 M01S00286.valex +++|* ALLOWABLE VALUE.
00296 M01S00287.valex +++|*
00297 M01S00288.valex +++|* * DATA BASE ERROR.*
00298 M01S00289.valex +++|* ERROR IN VALIDATION FILE STRUCTURE DETECTED.
00299 M01S00290.valex +++|*
00300 M01S00291.valex +++|* * DEFAULT CHARGE NOT VALID.*
00301 M01S00292.valex +++|* SAME AS "CHARGE NOT VALID" EXCEPT THAT THE DEFAULT
00302 M01S00293.valex +++|* CHARGE INFORMATION WAS USED FOR PROCESSING.
00303 M01S00294.valex +++|*
00304 M01S00295.valex +++|* * DEFAULT CHARGE NULL.*
00305 M01S00296.valex +++|* THE DEFAULT CHARGE NUMBER AND THE DEFAULT PROJECT
00306 M01S00297.valex +++|* NUMBER WERE NULL.
00307 M01S00298.valex +++|*
00308 M01S00299.valex +++|* * EPILOGUE AND SHELL CONFLICT.*
00309 M01S00300.valex +++|* A SHELL PROGRAM WITH THE NO-ABORT OPTION WAS ACTIVE AT
00310 M01S00301.valex +++|* THE TIME A CHARGE AND PROJECT NUMBER WITH AN EPILOGUE
00311 M01S00302.valex +++|* WAS VALIDATED.
00312 M01S00303.valex +++|*
00313 M01S00304.valex +++|* * ERROR IN ARGUMENTS.*
00314 M01S00305.valex +++|* ARGUMENT ERROR WAS DETECTED ON COMMAND.
00315 M01S00306.valex +++|*
00316 M01S00307.valex +++|* * ERROR IN DEFAULT CHARGE. *
00317 M01S00308.valex +++|* DEFAULT CHARGE PROCESSING WAS NOT ATTEMPTED BECAUSE
00318 M01S00309.valex +++|* THE DEFAULT CHARGE INFORMATION IN THE USER-S
00319 M01S00310.valex +++|* VALIDATION FILE ENTRY WAS INCORRECT.
00320 M01S00311.valex +++|*
00321 M01S00312.valex +++|* * EXTENDED MEMORY MINIMUM CM NOT VALIDATED.*
00322 M01S00313.valex +++|* MINIMUM CM REQUIRED FOR EXTENDED MEMORY USAGE EXCEEDS
00323 M01S00314.valex +++|* VALIDATION LIMIT.
00324 M01S00315.valex +++|*
00325 M01S00316.valex +++|* * FORMAT ERROR IN INPUT.*
00326 M01S00317.valex +++|* THE CHARGE OR PROJECT NUMBER READ FROM THE INPUT FILE
00327 M01S00318.valex +++|* WAS NOT IN THE CORRECT FORMAT.
00328 M01S00319.valex +++|*
00329 M01S00320.valex +++|* * INCORRECT COMMAND.*
00330 M01S00321.valex +++|* THE *XPR* COMMAND WAS EXECUTED IN OTHER THAN THE
00331 M01S00322.valex +++|* PROLOGUE SEQUENCING PROCEDURE.
00332 M01S00323.valex +++|*
00333 M01S00324.valex +++|* * INPUT ERROR LIMIT.*
00334 M01S00325.valex +++|* THE MAXIMUM ALLOWED NUMBER OF CONSECUTIVE INPUT ERRORS
00335 M01S00326.valex +++|* WAS EXCEEDED.
00336 M01S00327.valex +++|*
00337 M01S00328.valex +++|* * NO USER COMMAND EXECUTED.*
00338 M01S00329.valex +++|* *CHARGE* COMMAND WAS NOT PRECEDED BY A *USER* COMMAND.
00339 M01S00330.valex +++|*
00340 M01S00331.valex +++|* * PROJECT EPILOGUE NOT FOUND.*
00341 M01S00332.valex +++|* THE PROJECT EPILOGUE FILE COULD NOT BE ACCESSED.
00342 M01S00333.valex +++|*
00343 M01S00334.valex +++|* * PROJECT NUMBER EXPIRED.*
00344 M01S00335.valex +++|* PROJECT NUMBER EXPIRATION DATE HAS OCCURRED.
00345 M01S00336.valex +++|*
00346 M01S00337.valex +++|* * PROJECT PROLOGUE NOT FOUND.*
00347 M01S00338.valex +++|* THE PROJECT PROLOGUE FILE COULD NOT BE ACCESSED.
00348 M01S00339.valex +++|*
00349 M01S00340.valex +++|* * PROJECT PROLOGUE FILE NOT LOCAL.*
00350 M01S00341.valex +++|* THE FILE ZZZZPR1 WAS NOT LOCAL TO THE JOB AT THE TIME
00351 M01S00342.valex +++|* THE PROJECT PROLOGUE WAS TO BE EXECUTED.
00352 M01S00343.valex +++|*
00353 M01S00344.valex +++|* * PROLOGUE AND SHELL CONFLICT.*
00354 M01S00345.valex +++|* A SHELL PROGRAM WITH THE NO-ABORT OPTION WAS ACTIVE AT
00355 M01S00346.valex +++|* THE TIME A CHARGE AND PROJECT NUMBER WITH A PROLOGUE
00356 M01S00347.valex +++|* WAS VALIDATED.
00357 M01S00348.valex +++|*
00358 M01S00349.valex +++|* * SECONDARY USER COMMANDS DISABLED.* = THE SYSTEM IS NOT
00359 M01S00350.valex +++|* OPERATING IN SECURE MODE AND SECONDARY USER COMMANDS
00360 M01S00351.valex +++|* ARE DISABLED.
00361 M01S00352.valex +++|*
00362 M01S00353.valex +++|* * SECURITY CONFLICT.*
00363 M01S00354.valex +++|* USER AND/OR FAMILY NAME SPECIFIED ON A *USER* COMMAND
00364 M01S00355.valex +++|* WERE NOT VALID OR A SECONDARY *USER* COMMAND WAS
00365 M01S00356.valex +++|* EXECUTED WHEN THE SYSTEM WAS RUNNING IN SECURED MODE
00366 M01S00357.valex +++|* (ISSUED BY *CPM*).
00367 M01S00358.valex +++|*
00368 M01S00359.valex +++|* * SYSTEM PROLOGUE NOT FOUND.*
00369 M01S00360.valex +++|* THE SYSTEM PROLOGUE FILE COULD NOT BE ACCESSED.
00370 M01S00361.valex +++|*
00371 M01S00362.valex +++|* * TL NOT VALIDATED.*
00372 M01S00363.valex +++|* JOB COMMAND *TL* PARAMETER IS GREATER THAN THE USER-S
00373 M01S00364.valex +++|* VALIDATION LIMIT.
00374 M01S00365.valex +++|*
00375 M01S00366.valex +++|* * USER PROLOGUE NOT FOUND.*
00376 M01S00367.valex +++|* THE USER PROLOGUE FILE COULD NOT BE ACCESSED.
00377 M01S00368.valex +++|*
00378 M01S00369.valex +++|* * USER PROLOGUE FILE NOT LOCAL.*
00379 M01S00370.valex +++|* THE FILE ZZZZPR2 WAS NOT LOCAL TO THE JOB AT THE TIME
00380 M01S00371.valex +++|* THE USER PROLOGUE WAS TO BE EXECUTED.
00381 M01S00372.valex +++|*
00382 M01S00373.valex +++|* * YOUR PASSWORD EXPIRES AT 00.00.00 ON YY/MM/DD.*
00383 M01S00374.valex +++|* YOUR PASSWORD EXPIRES ON THE SPECIFIED TIME AND DATE.
00384 M01S00375.valex +++| SPACE 4,10
00385 M01S00376.valex +++|*** ACCOUNT FILE MESSAGES -
00386 M01S00377.valex +++|*
00387 M01S00378.valex +++|* *ABUN, USER, FAMILY, TERMINAL.*
00388 M01S00379.valex +++|* PRIMARY *USER* COMMAND EXECUTED.
00389 M01S00380.valex +++|*
00390 M01S00381.valex +++|* *ABIC, CHARGE, PROJECT.*
00391 M01S00382.valex +++|* INITIAL DEFAULT CHARGE AND PROJECT NUMBER.
00392 M01S00383.valex +++|*
00393 M01S00384.valex +++|* *ACUN, USER, FAMILY.*
00394 M01S00385.valex +++|* SECONDARY USER COMMAND EXECUTED.
00395 M01S00386.valex +++|*
00396 M01S00387.valex +++|* *ABCN, CHARGE, PROJECT.*
00397 M01S00388.valex +++|* BEGIN ACCOUNT BLOCK FOR PRIMARY CHARGE.
00398 M01S00389.valex +++|*
00399 M01S00390.valex +++|* *ACCN, CHARGE, PROJECT.*
00400 M01S00391.valex +++|* BEGIN ACCOUNT BLOCK FOR SECONDARY CHARGE.
00401 M01S00392.valex +++| TITLE PROGRAM EQUIVALENCES.
00402 M01S00393.valex +++|** ASSEMBLY OPTIONS.
00403 M01S00394.valex +++|*
00404 M01S00395.valex +++|* LIM$ EQU 0 - FULL CHECKING- CHARGE PERFORMS ALL CHECKS
00405 M01S00396.valex +++|* CORRESPONDING TO THE ABOVE ERROR MESSAGE
00406 M01S00397.valex +++|* DOCUMENTATION.
00407 M01S00398.valex +++|* LIM$ EQU 1 - SUPPRESSES CHECKING OF SRU ACCUMULATORS AND
00408 M01S00399.valex +++|* INSTALLATION DEFINED RESOURCE USAGE
00409 M01S00400.valex +++|* ACCUMULATORS, BUT RETAINS ALL OTHER CHECKING.
00410 M01S00401.valex +++|* RPE$ DEFINED - ASSEMBLE CODE TO READ PROFILE FILE LEVEL 3
00411 M01S00402.valex +++|* BLOCK FROM RANDOM ADDRESS.
00412 M01S00403.valex +++|
00413 M01S00404.valex +++|
00414 M01S00405.valex +++| RPE$ EQU 0
00415 M01S00406.valex +++| LIM$ EQU 0
00416 M01S00407.valex +++| SPACE 4,10
00417 M01S00408.valex +++|*CALL COMCCMD
00418 M01S00409.valex +++|*CALL COMCMAC
00419 M01S00410.valex +++|*CALL COMSACC
00420 M01S00411.valex +++|*CALL COMSJCE
00421 M01S00412.valex +++|*CALL COMSLFD
00422 M01S00413.valex +++|*CALL COMSPRD
00423 M01S00414.valex +++|*CALL COMSPFM
00424 M01S00415.valex +++| LIST X
00425 M01S00416.valex +++|*CALL COMSPRO
00426 M01S00417.valex +++| LIST *
00427 M01S00418.valex +++|*CALL COMSRPV
00428 M01S00419.valex +++|*CALL COMSSCD
00429 M01S00420.valex +++|*CALL COMSSRU
00430 M01S00421.valex +++|*CALL COMSSSJ
00431 M01S00422.valex +++|*CALL COMSTCM
00432 M01S00423.valex +++|
00433 M01S00424.valex +++| SPACE 4,10
00434 M01S00425.valex +++|** PROGRAM EQUATES.
00435 M01S00426.valex +++|
00436 M01S00427.valex +++|
00437 M01S00428.valex +++| ARG= EQU 0 SUPPRESS COMMAND CRACKING
00438 M01S00429.valex +++| SDM= EQU * SUPPRESS DAYFILE MESSAGE
00439 M01S00430.valex +++| VAL= EQU * ALLOW VALIDATION
00440 M01S00431.valex +++| BUFL EQU 101B BUFFER LENGTH
00441 M01S00432.valex +++| ERLIM EQU 5 INPUT ERROR RETRY LIMIT
00442 M01S00433.valex +++| RPMS EQU /COMSRPV/OTMS+/COMSRPV/TIMS+/COMSRPV/PPMS RPV MASK
00443 M01S00434.valex +++| TITLE GLOBAL DATA AREA.
00444 M01S00435.valex +++|** FETS.
00445 M01S00436.valex +++|
00446 M01S00437.valex +++|
00447 M01S00438.valex +++| ORG 120B
00448 M01S00439.valex +++| ORIG BSS 0
00449 M01S00440.valex +++| I BSS 0
00450 M01S00441.valex +++| INPUT FILEB IBUF,BUFL,FET=10B
00451 M01S00442.valex +++| O BSS 0
00452 M01S00443.valex +++| ZZZZZG0 FILEB OBUF,BUFL,FET=10B,DTY=2RTT
00453 M01S00444.valex +++| F BSS 0
00454 M01S00445.valex +++| FILE FILEB FBUF,BUFL,EPR,(FET=17B)
00455 M01S00446.valex +++| SSJ= SPACE 4,10
00456 M01S00447.valex +++|* SPECIAL SYSTEM JOB PARAMETER AREA.
00457 M01S00448.valex +++|
00458 M01S00449.valex +++| SSJ= VFD 12/0,24/0,12/PRCS,12/0
00459 M01S00450.valex +++| BSSZ SSJL-1
00460 M01S00451.valex +++| SPACE 4,10
00461 M01S00452.valex +++|* GLOBAL STORAGE.
00462 M01S00453.valex +++|
00463 M01S00454.valex +++| ACSF CON 0 *ASCII* CHARACTER SET FLAG
00464 M01S00455.valex +++| APN CON 0 APPLICATION NAME FOR LOGOUT
00465 M01S00456.valex +++| DFCF CON 0 DEFAULT CHARGE PRESENT FLAG
00466 M01S00457.valex +++| EXER CON 0 EXTERNAL ERROR CODE
00467 M01S00458.valex +++| PRST CON 0 PROLOGUE/EPILOGUE STATUS
00468 M01S00459.valex +++| TJEF CON 0 TERMINATE JOB ON ERROR FLAG
00469 M01S00460.valex +++| TRIA CON 0 TERMINAL INTERRUPT ADDRESS
00470 M01S00461.valex +++| TRIF CON 0 TERMINAL INTERACTION FLAG
00471 M01S00462.valex +++|
00472 M01S00463.valex +++|* THE ORDER OF THE FOLLOWING NINE LOCATIONS MUST BE MAINTAINED.
00473 M01S00464.valex +++|
00474 M01S00465.valex +++| SPF CON 0 SYSTEM PROLOGUE FILE NAME
00475 M01S00466.valex +++| DATA 7LLIBRARY SYSTEM PROLOGUE USER NAME
00476 M01S00467.valex +++| CON 0 SYSTEM PROLOGUE PASSWORD
00477 M01S00468.valex +++| PPF CON 0 PROJECT PROLOGUE FILE NAME AND OPTION
00478 M01S00469.valex +++| CON 0 PROJECT PROLOGUE USER NAME
00479 M01S00470.valex +++| CON 0 PROJECT PROLOGUE PASSWORD
00480 M01S00471.valex +++| UPF CON 0 USER PROLOGUE FILE NAME
00481 M01S00472.valex +++| CON 0 USER PROLOGUE USER NAME
00482 M01S00473.valex +++| CON 0 USER PROLOGUE PASSWORD
00483 M01S00474.valex +++|
00484 M01S00475.valex +++|* USER VALIDATION PARAMETER BLOCK.
00485 M01S00476.valex +++|
00486 M01S00477.valex +++| UNAM CON 0 USER NAME
00487 M01S00478.valex +++| UPSW CON 0 USER PASSWORD / SPECIAL USER NAMES FLAG
00488 M01S00479.valex +++| UFAM CON 0 FAMILY NAME / STATUS FLAGS
00489 M01S00480.valex +++| UALMW CON 0 ALMW - ACCOUNT LIMIT WORD
00490 M01S00481.valex +++| UACLW CON 0 ACLW - ACCOUNT COUNTING LIMIT WORD
00491 M01S00482.valex +++| UAACW CON 0 AACW - ACCOUNT ACCESS CONTROL WORD
00492 M01S00483.valex +++| UPRO CON 0 PROLOGUE FILE NAMES
00493 M01S00484.valex +++| UPJ1 CON 0 DEFAULT PROJECT NUMBER (FIRST WORD)
00494 M01S00485.valex +++| UPJ2 CON 0 DEFAULT PROJECT NUMBER (SECOND WORD)
00495 M01S00486.valex +++| UCRN CON 0 DEFAULT CHARGE NUMBER
00496 M01S00487.valex +++| UTRN CON 0 TERMINAL NAME/TERMINAL NUMBER
00497 M01S00488.valex +++|
00498 M01S00489.valex +++|* CHARGE VALIDATION PARAMETER BLOCK.
00499 M01S00490.valex +++|
00500 M01S00491.valex +++| SRUM BSS 2 CONTROL POINT SRU WORDS
00501 M01S00492.valex +++| CGN BSS 1 CHARGE NUMBER
00502 M01S00493.valex +++| PRN BSS 2 PROJECT NUMBER
00503 M01S00494.valex +++| ACCM BSS 5 ACCOUNT FILE MESSAGE BUFFER
00504 M01S00495.valex +++|
00505 M01S00496.valex +++|* PROLOGUE/EPILOGUE CONTROL PARAMETER BLOCK.
00506 M01S00497.valex +++|
00507 M01S00498.valex +++| PRC CON 0
00508 M01S00499.valex +++|
00509 M01S00500.valex +++|* REPRIEVE PARAMETER BLOCK.
00510 M01S00501.valex +++|
00511 M01S00502.valex +++| RPB RPVBLK RPV
00512 M01S00503.valex +++| TITLE COMMAND PROCESSORS.
00513 M01S00504.valex +++| USER SPACE 4,20
00514 M01S00505.valex +++|** USE - *USER* AND *ACCOUNT* COMMANDS.
00515 M01S00506.valex +++|*
00516 M01S00507.valex +++|* EXIT TO *EPF* IF CHARGE NOT REQUIRED.
00517 M01S00508.valex +++|* TO *CHARGE* IF CHARGE REQUIRED AND NEXT COMMAND IS
00518 M01S00509.valex +++|* *CHARGE*.
00519 M01S00510.valex +++|* TO *RCH* IF DEFAULT CHARGE ERROR AND TERMINAL INPUT
00520 M01S00511.valex +++|* FILE.
00521 M01S00512.valex +++|* TO *ABT* IF DEFAULT CHARGE ERROR AND NOT TERMINAL
00522 M01S00513.valex +++|* INPUT FILE.
00523 M01S00514.valex +++|*
00524 M01S00515.valex +++|* USES X - 1, 2, 3, 5, 6.
00525 M01S00516.valex +++|* A - 0, 1, 2.
00526 M01S00517.valex +++|* B - 3, 6.
00527 M01S00518.valex +++|*
00528 M01S00519.valex +++|* CALLS ABT, EPF, GPR, PRS, RCH, SCA, STI, VCH, VUN.
00529 M01S00520.valex +++|*
00530 M01S00521.valex +++|* MACROS CONTROL, DISSR, MESSAGE, WRITEC, WRITER.
00531 M01S00522.valex +++|
00532 M01S00523.valex +++|
00533 M01S00524.valex +++| USER BSS 0 ENTRY
00534 M01S00525.valex +++| ACCOUNT BSS 0
00535 M01S00526.valex +++| RJ PRS PRESET
00536 M01S00527.valex +++| DISSR IAAC DISABLE SRU ACCUMULATION
00537 M01S00528.valex +++| SA0 USEA SET ARGUMENT TABLE ADDRESS
00538 M01S00529.valex +++| SB3 USEB SET SECURE ARGUMENT TABLE ADDRESS
00539 M01S00530.valex +++| RJ SCA SET COMMAND ARGUMENTS
00540 M01S00531.valex +++| USE1 SA1 A0 READ ARGUMENT TABLE
00541 M01S00532.valex +++| ZR X1,USE2 IF END OF ARGUMENTS
00542 M01S00533.valex +++| SA1 X1 READ ARGUMENT
00543 M01S00534.valex +++| SX1 X1
00544 M01S00535.valex +++| SA0 A0+B1 ADVANCE ARGUMENT POINTER
00545 M01S00536.valex +++| ZR X1,USE1 IF ARGUMENT .LE. 7 CHARACTERS
00546 M01S00537.valex +++| SB6 ERAR * ERROR IN ARGUMENTS.*
00547 M01S00538.valex +++| EQ ABT ABORT
00548 M01S00539.valex +++|
00549 M01S00540.valex +++| USE2 RJ VUN VALIDATE USER NAME
00550 M01S00541.valex +++| CONTROL CCDR,RSS READ NEXT COMMAND
00551 M01S00542.valex +++| SA1 ACTR
00552 M01S00543.valex +++| MX0 -6 CHECK FOR LEADING *$* OR */*
00553 M01S00544.valex +++| MX3 42
00554 M01S00545.valex +++| LX1 6
00555 M01S00546.valex +++| BX0 -X0*X1
00556 M01S00547.valex +++| SX2 X0-1R$
00557 M01S00548.valex +++| ZR X2,USE3 IF *$*
00558 M01S00549.valex +++| SX2 X0-1R/
00559 M01S00550.valex +++| ZR X2,USE3 IF */*
00560 M01S00551.valex +++| LX1 -6
00561 M01S00552.valex +++| USE3 SA2 =6LCHARGE
00562 M01S00553.valex +++| BX1 X3*X1
00563 M01S00554.valex +++| BX2 X1-X2
00564 M01S00555.valex +++| NZ X2,USE4 IF NOT *CHARGE*
00565 M01S00556.valex +++| CONTROL CCDR ADVANCE TO *CHARGE* COMMAND
00566 M01S00557.valex +++| EQ CHARGE PROCESS *CHARGE* COMMAND
00567 M01S00558.valex +++|
00568 M01S00559.valex +++| USE4 SA1 SSJ=+AACS GET CHARGE REQUIRED FLAG
00569 M01S00560.valex +++| LX1 59-7
00570 M01S00561.valex +++| NG X1,EPF IF CHARGE NOT REQUIRED, PROCESS PROLOGUES
00571 M01S00562.valex +++| DISSR IACH SET CHARGE VALIDATION UNIT CHARGE
00572 M01S00563.valex +++| RJ GPR GET PROLOGUE/EPILOGUE STATUS
00573 M01S00564.valex +++| SX2 B0 SET VALIDATE DEFUALT CHARGE
00574 M01S00565.valex +++| RJ VCH VALIDATE DEFAULT CHARGE
00575 M01S00566.valex +++| RJ STI SET TERMINAL INTERACTION
00576 M01S00567.valex +++| SA1 TRIF
00577 M01S00568.valex +++| ZR X1,ABT IF NOT INTERACTIVE JOB
00578 M01S00569.valex +++| MESSAGE B6,,R ISSUE ERROR MESSAGE
00579 M01S00570.valex +++| WRITEC O,B6 ISSUE MESSAGE TO TERMINAL
00580 M01S00571.valex +++| WRITER O,R
00581 M01S00572.valex +++| EQ RCH READ CHARGE FROM INPUT FILE
00582 M01S00573.valex +++|
00583 M01S00574.valex +++|
00584 M01S00575.valex +++| USEA BSS 0 ARGUMENT TABLE
00585 M01S00576.valex +++| UN ARG UNAM,UNAM,400B,1
00586 M01S00577.valex +++| PW ARG UPSW,UPSW,400B,1
00587 M01S00578.valex +++| FM ARG UFAM,UFAM,400B,1
00588 M01S00579.valex +++| ARG
00589 M01S00580.valex +++|
00590 M01S00581.valex +++| USEB BSS 0 SECURE ARGUMENTS FOR REMOVAL
00591 M01S00582.valex +++| VFD 42/2LPW,18/2 PASSWORD
00592 M01S00583.valex +++| CON 0 END OF TABLE
00593 M01S00584.valex +++| CHARGE SPACE 4,15
00594 M01S00585.valex +++|** CHA - *CHARGE* COMMAND.
00595 M01S00586.valex +++|*
00596 M01S00587.valex +++|* EXIT TO *ABT* IF INVALID CHARGE.
00597 M01S00588.valex +++|* TO *RCH* TO READ CHARGE FROM INPUT FILE.
00598 M01S00589.valex +++|*
00599 M01S00590.valex +++|* USES X - 1, 2, 6, 7.
00600 M01S00591.valex +++|* A - 0, 1, 2.
00601 M01S00592.valex +++|* B - 3, 6.
00602 M01S00593.valex +++|*
00603 M01S00594.valex +++|* CALLS ABT, EEF, GPR, ICA, PRS, RCH, SCA, STI, VCH.
00604 M01S00595.valex +++|*
00605 M01S00596.valex +++|* MACROS DISSR.
00606 M01S00597.valex +++|
00607 M01S00598.valex +++|
00608 M01S00599.valex +++| CHARGE BSS 0 ENTRY
00609 M01S00600.valex +++| RJ PRS PRESET
00610 M01S00601.valex +++| RJ GPR GET PROLOGUE/EPILOGUE STATUS
00611 M01S00602.valex +++| SA1 PRST
00612 M01S00603.valex +++| MX6 2
00613 M01S00604.valex +++| MX0 -25
00614 M01S00605.valex +++| SB6 ERCN * COMMAND NOT ALLOWED IN PROLOGUE/ ...*
00615 M01S00606.valex +++| SX7 CRPT SET CHARGE REQUIRED OPTION
00616 M01S00607.valex +++| BX2 X6*X1
00617 M01S00608.valex +++| BX1 -X0*X1
00618 M01S00609.valex +++| NZ X2,ICA IF IN SYSTEM OR PROJECT PROLOGUE/EPILOGUE
00619 M01S00610.valex +++| NZ X1,EEF IF EPILOGUE PENDING
00620 M01S00611.valex +++| DISSR IACH DISABLE SRU ACCUMULATION
00621 M01S00612.valex +++| SA0 CHAA SET ARGUMENT TABLE ADDRESS
00622 M01S00613.valex +++| SB3 B0+ SET NO SECURE ARGUMENTS
00623 M01S00614.valex +++| RJ SCA SET COMMAND ARGUMENTS
00624 M01S00615.valex +++| SB6 ERNU * NO USER COMMAND EXECUTED.*
00625 M01S00616.valex +++| SA1 SSJ=+UIDS
00626 M01S00617.valex +++| MX0 42
00627 M01S00618.valex +++| BX1 X0*X1
00628 M01S00619.valex +++| ZR X1,ABT IF NO USER COMMAND EXECUTED
00629 M01S00620.valex +++| SA1 CGN
00630 M01S00621.valex +++| SA2 PRN
00631 M01S00622.valex +++| SB6 ERAR * ERROR IN ARGUMENTS.*
00632 M01S00623.valex +++| ZR X1,CHA2 IF CHARGE PARAMETER NOT SPECIFIED
00633 M01S00624.valex +++| LX1 6
00634 M01S00625.valex +++| NZ X2,CHA1 IF PROJECT NUMBER SPECIFIED
00635 M01S00626.valex +++| SX1 X1-1R*
00636 M01S00627.valex +++| NZ X1,ABT IF NOT DEFAULT CHARGE PARAMETER
00637 M01S00628.valex +++| CHA1 RJ VCH VALIDATE CHARGE AND PROJECT NUMBERS
00638 M01S00629.valex +++| EQ ABT ABORT
00639 M01S00630.valex +++|
00640 M01S00631.valex +++| CHA2 NZ X2,ABT IF PROJECT NUMBER SPECIFIED
00641 M01S00632.valex +++| RJ STI SET TERMINAL INTERACTION
00642 M01S00633.valex +++| EQ RCH READ CHARGE FROM *INPUT* FILE
00643 M01S00634.valex +++|
00644 M01S00635.valex +++|
00645 M01S00636.valex +++| CHAA BSS 0 ARGUMENT TABLE
00646 M01S00637.valex +++| CN ARG CGN,CGN,400B,1
00647 M01S00638.valex +++| PN ARG PRN,PRN,400B,2
00648 M01S00639.valex +++| ARG
00649 M01S00640.valex +++| LOG SPACE 4,15
00650 M01S00641.valex +++|** LOG - LOGOUT COMMANDS.
00651 M01S00642.valex +++|*
00652 M01S00643.valex +++|* EXIT TO *ABT* IF ERROR.
00653 M01S00644.valex +++|* TO *EEF* TO EXECUTE EPILOGUE.
00654 M01S00645.valex +++|* TO *TRJ* TO TERMINATE JOB.
00655 M01S00646.valex +++|*
00656 M01S00647.valex +++|* USES X - 1, 6, 7.
00657 M01S00648.valex +++|* A - 0, 1.
00658 M01S00649.valex +++|* B - 3, 6.
00659 M01S00650.valex +++|*
00660 M01S00651.valex +++|* CALLS ABT, EEF, GPR, ICA, PRS, SCA, TRJ.
00661 M01S00652.valex +++|
00662 M01S00653.valex +++|
00663 M01S00654.valex +++| HELLO BSS 0 ENTRY
00664 M01S00655.valex +++| LOGIN BSS 0 ENTRY
00665 M01S00656.valex +++| SA1 =5LLOGIN SET DEFAULT APPLICATION
00666 M01S00657.valex +++| BX6 X1
00667 M01S00658.valex +++| SA6 APN
00668 M01S00659.valex +++| BYE BSS 0 ENTRY
00669 M01S00660.valex +++| GOODBYE BSS 0 ENTRY
00670 M01S00661.valex +++| LOGOUT BSS 0 ENTRY
00671 M01S00662.valex +++| RJ PRS PRESET
00672 M01S00663.valex +++| RJ GPR GET PROLOGUE/EPILOGUE STATUS
00673 M01S00664.valex +++| SA2 PRST
00674 M01S00665.valex +++| MX0 -25
00675 M01S00666.valex +++| BX1 -X0*X2
00676 M01S00667.valex +++| ZR X1,LOG1 IF NO EPILOGUE PENDING
00677 M01S00668.valex +++| SB6 ERCN * COMMAND NOT ALLOWED IN PROLOGUE/ ...*
00678 M01S00669.valex +++| NG X2,ICA IF IN PROLOGUE
00679 M01S00670.valex +++| SX7 LOPT SET LOGOUT OPTION
00680 M01S00671.valex +++| EQ EEF EXECUTE EPILOGUE
00681 M01S00672.valex +++|
00682 M01S00673.valex +++| LOG1 SA0 LOGA SET ARGUMENT TABLE ADDRESS
00683 M01S00674.valex +++| SB3 0 SET NO SECURE ARGUMENTS
00684 M01S00675.valex +++| RJ SCA SET COMMAND ARGUMENTS
00685 M01S00676.valex +++| SA1 APN
00686 M01S00677.valex +++| SX1 X1
00687 M01S00678.valex +++| NZ X1,LOG2 IF ERROR IN APPLICATION NAME
00688 M01S00679.valex +++| EQ TRJ TERMINATE JOB
00689 M01S00680.valex +++|
00690 M01S00681.valex +++| LOG2 SB6 ERAR * ERROR IN ARGUMENTS.*
00691 M01S00682.valex +++| EQ ABT ABORT
00692 M01S00683.valex +++|
00693 M01S00684.valex +++|
00694 M01S00685.valex +++| LOGA BSS 0 ARGUMENT TABLE
00695 M01S00686.valex +++| AP ARG APN,APN,400B,1
00696 M01S00687.valex +++| ARG
00697 M01S00688.valex +++| XPR SPACE 4,10
00698 M01S00689.valex +++|** XPR - EXECUTE SEQUENCED PROLOGUE.
00699 M01S00690.valex +++|*
00700 M01S00691.valex +++|* EXIT TO *END* IF NO ERROR.
00701 M01S00692.valex +++|* TO *ABT* IF PROLOGUE FILE ERROR.
00702 M01S00693.valex +++|* TO *ICA* IF ERROR IN *XPR* CALL.
00703 M01S00694.valex +++|*
00704 M01S00695.valex +++|* CALLS ABT, END, GPR, ICA, PRS, SNM.
00705 M01S00696.valex +++|*
00706 M01S00697.valex +++|* MACROS RENAME, SETFS.
00707 M01S00698.valex +++|
00708 M01S00699.valex +++| XPR BSS 0 ENTRY
00709 M01S00700.valex +++| RJ PRS PRESET
00710 M01S00701.valex +++| RJ GPR GET PROLOGUE/EPILOGUE STATUS
00711 M01S00702.valex +++| SA1 PRST
00712 M01S00703.valex +++| SA5 CCDR
00713 M01S00704.valex +++| SB6 ERIC * INCORRECT COMMAND.*
00714 M01S00705.valex +++| LX1 59-58
00715 M01S00706.valex +++| LX5 -18
00716 M01S00707.valex +++| PL X1,ICA IF NOT CALLED FROM SEQUENCING PROCEDURE
00717 M01S00708.valex +++| MX0 -6
00718 M01S00709.valex +++| BX6 -X0*X5
00719 M01S00710.valex +++| SB6 ERAR * ERROR IN ARGUMENTS.*
00720 M01S00711.valex +++| SX1 X6-1R0
00721 M01S00712.valex +++| SX6 X6-1R1
00722 M01S00713.valex +++| SX2 X1-CAPT-2
00723 M01S00714.valex +++| NG X1,ICA IF NOT VALID TERMINATION OPTION
00724 M01S00715.valex +++| PL X2,ICA IF NOT VALID TERMINATION OPTION
00725 M01S00716.valex +++| NG X6,XPR1 IF NOT TO CHANGE TERMINATION OPTION
00726 M01S00717.valex +++| SX1 B1 SET TERMINATION OPTION
00727 M01S00718.valex +++| LX6 18
00728 M01S00719.valex +++| BX6 X6+X1
00729 M01S00720.valex +++| SA6 PRC
00730 M01S00721.valex +++| XPR1 SA3 =6LZZZZPR
00731 M01S00722.valex +++| SA4 CCDR+1
00732 M01S00723.valex +++| LX5 -6
00733 M01S00724.valex +++| BX6 -X0*X5
00734 M01S00725.valex +++| SX1 X6-1R0
00735 M01S00726.valex +++| SX2 X6-1R3
00736 M01S00727.valex +++| SX7 B1
00737 M01S00728.valex +++| LX6 18
00738 M01S00729.valex +++| NG X1,ICA IF NOT VALID PROLOGUE INDEX
00739 M01S00730.valex +++| PL X2,ICA IF NOT VALID PROLOGUE INDEX
00740 M01S00731.valex +++| SB6 ERPF * XXXXXXX PROLOGUE NOT FOUND.*
00741 M01S00732.valex +++| ZR X4,XPR2 IF PROLOGUE FILE ACESSS ERROR
00742 M01S00733.valex +++| BX6 X6+X7
00743 M01S00734.valex +++| BX6 X6+X3
00744 M01S00735.valex +++| BX7 X4
00745 M01S00736.valex +++| SA6 F
00746 M01S00737.valex +++| SA7 F+6
00747 M01S00738.valex +++| RENAME F RESET FILE NAME
00748 M01S00739.valex +++| SA1 F
00749 M01S00740.valex +++| MX7 -8
00750 M01S00741.valex +++| LX1 -10
00751 M01S00742.valex +++| BX1 -X7*X1
00752 M01S00743.valex +++| SB6 ERPL * XXXXXXX PROLOGUE FILE NOT LOCAL.*
00753 M01S00744.valex +++| NZ X1,XPR2 IF PROLOGUE FILE NOT LOCAL
00754 M01S00745.valex +++| SX7 B1 SET FILE NAME IN FET
00755 M01S00746.valex +++| BX7 X4+X7
00756 M01S00747.valex +++| SA7 F
00757 M01S00748.valex +++| SETFS F,AD CLEAR NO-DROP STATUS
00758 M01S00749.valex +++| EQ END TERMINATE
00759 M01S00750.valex +++|
00760 M01S00751.valex +++|* PROCESS PROLOGUE FILE ERROR.
00761 M01S00752.valex +++|
00762 M01S00753.valex +++| XPR2 BX6 -X0*X5 SET PROLOGUE TYPE
00763 M01S00754.valex +++| SX6 X6-1R0
00764 M01S00755.valex +++| SA1 XPRA+X6 SET PROLOGUE/EPILOGUE TYPE IN MESSAGE
00765 M01S00756.valex +++| SB5 B6+ SET MESSAGE ADDRESS
00766 M01S00757.valex +++| SB2 1R?
00767 M01S00758.valex +++| RJ SNM
00768 M01S00759.valex +++| EQ ABT ABORT
00769 M01S00760.valex +++|
00770 M01S00761.valex +++|
00771 M01S00762.valex +++| XPRA DATA 6LSYSTEM
00772 M01S00763.valex +++| DATA 7LPROJECT
00773 M01S00764.valex +++| DATA 4LUSER
00774 M01S00765.valex +++| TITLE PROLOGUE AND EPILOGUE SEQUENCING ROUTINES.
00775 M01S00766.valex +++| ACF SPACE 4,15
00776 M01S00767.valex +++|** ACF - ACCESS PROLOGUE OR EPILOGUE FILE.
00777 M01S00768.valex +++|*
00778 M01S00769.valex +++|* ENTRY (X1) = 42/PERMANENT FILE NAME, 18/0.
00779 M01S00770.valex +++|* (X2) = 42/PASSWORD, 18/0.
00780 M01S00771.valex +++|* (X3) = 42/USERNAME, 18/0.
00781 M01S00772.valex +++|* (X4) = 42/LOCAL FILE NAME, 18/0.
00782 M01S00773.valex +++|* (B6) = 0 IF TO CLEAR SSJ= FILE STATUS.
00783 M01S00774.valex +++|* (B6) .NE. 0 IF TO SET NO-DROP FILE STATUS.
00784 M01S00775.valex +++|*
00785 M01S00776.valex +++|* EXIT (X5) = 0 IF FILE FOUND.
00786 M01S00777.valex +++|*
00787 M01S00778.valex +++|* USES X - 0, 5, 6, 7.
00788 M01S00779.valex +++|* A - 5, 6, 7.
00789 M01S00780.valex +++|*
00790 M01S00781.valex +++|* MACROS ATTACH, GET, SETFS.
00791 M01S00782.valex +++|
00792 M01S00783.valex +++|
00793 M01S00784.valex +++| ACF SUBR ENTRY/EXIT
00794 M01S00785.valex +++| SX6 3 SET FILE STATUS
00795 M01S00786.valex +++| SX7 SRNF*10000B+PTRD SET NO FAST ATTACH AND READ MODE
00796 M01S00787.valex +++| BX6 X4+X6
00797 M01S00788.valex +++| BX7 X1+X7
00798 M01S00789.valex +++| SA6 F+CFSN SET LOCAL FILE NAME
00799 M01S00790.valex +++| SA7 F+CFPN SET PERMANENT FILE NAME AND MODE
00800 M01S00791.valex +++| SX5 ACFA SET ERROR MESSAGE ADDRESS
00801 M01S00792.valex +++| BX6 X3
00802 M01S00793.valex +++| BX7 X2+X5
00803 M01S00794.valex +++| SA6 F+CFOU SET USERNAME
00804 M01S00795.valex +++| SA7 F+CFPW SET PASSWORD
00805 M01S00796.valex +++| GET F,,,,,,IP
00806 M01S00797.valex +++| SA5 X2 CHECK ERROR
00807 M01S00798.valex +++| MX0 -8
00808 M01S00799.valex +++| AX5 10
00809 M01S00800.valex +++| BX5 -X0*X5
00810 M01S00801.valex +++| SX6 X5-/ERRMSG/FNF
00811 M01S00802.valex +++| NZ X6,ACF1 IF NOT *FILE NOT FOUND*
00812 M01S00803.valex +++| ATTACH F,,,,,,,IP
00813 M01S00804.valex +++| SA5 X2+ SET ERROR STATUS
00814 M01S00805.valex +++| AX5 10
00815 M01S00806.valex +++| BX5 -X0*X5
00816 M01S00807.valex +++| ACF1 NZ X5,ACFX IF ERROR IN ACCESS
00817 M01S00808.valex +++| NZ B6,ACF2 IF SET NO-DROP STATUS
00818 M01S00809.valex +++| SETFS F,AD CLEAR SSJ= STATUS
00819 M01S00810.valex +++| EQ ACFX EXIT
00820 M01S00811.valex +++|
00821 M01S00812.valex +++| ACF2 SETFS F,NAD SET NO-DROP STATUS
00822 M01S00813.valex +++| EQ ACFX EXIT
00823 M01S00814.valex +++|
00824 M01S00815.valex +++|
00825 M01S00816.valex +++| ACFA BSS 3 ERROR MESSAGE
00826 M01S00817.valex +++| EEF SPACE 4,20
00827 M01S00818.valex +++|** EEF - EXECUTE EPILOGUE FILE.
00828 M01S00819.valex +++|*
00829 M01S00820.valex +++|* ENTRY (X1) = PROFILE FILE LEVEL 3 BLOCK POINTERS.
00830 M01S00821.valex +++|* (X7) = EPILOGUE TERMINATION OPTION.
00831 M01S00822.valex +++|*
00832 M01S00823.valex +++|* EXIT TO *EXP* TO EXECUTE EPILOGUE.
00833 M01S00824.valex +++|* TO *ABT* IF ERROR.
00834 M01S00825.valex +++|*
00835 M01S00826.valex +++|* USES X - 0, 1, 2, 3, 7.
00836 M01S00827.valex +++|* A - 0, 1, 2, 3, 7.
00837 M01S00828.valex +++|* B - 2, 5, 6.
00838 M01S00829.valex +++|*
00839 M01S00830.valex +++|* CALLS ACF, EXP, IPS, RPE, RPF, SNM.
00840 M01S00831.valex +++|*
00841 M01S00832.valex +++|* MACROS MESSAGE, MOVE, WRITEC.
00842 M01S00833.valex +++|
00843 M01S00834.valex +++|
00844 M01S00835.valex +++| EEF BSS 0 ENTRY
00845 M01S00836.valex +++| SX6 X7-LOPT
00846 M01S00837.valex +++| LX7 18
00847 M01S00838.valex +++| NZ X6,EEF1 IF NOT LOGOUT ON TERMINATION OPTION
00848 M01S00839.valex +++| SA6 EEFB SET NO *REVERT,EX* PROCESSING
00849 M01S00840.valex +++| EEF1 SX2 3 SET EPILOGUE PENDING AND OPTION FLAGS
00850 M01S00841.valex +++| BX7 X7+X2 SET EPILOGUE CONTROLS
00851 M01S00842.valex +++| SA7 PRC
00852 M01S00843.valex +++| RJ RPE READ PROFILE ENTRY
00853 M01S00844.valex +++| NZ B6,ABT IF ERROR IN PROFILE ENTRY
00854 M01S00845.valex +++| RJ RPF RESTORE USER-S PERMANENT FILE PARAMETERS
00855 M01S00846.valex +++| SA1 B5+PENW READ EPILOGUE FILE NAME
00856 M01S00847.valex +++| SA3 B5+PEUW READ USERNAME
00857 M01S00848.valex +++| SA2 B5+PEPW READ PASSWORD
00858 M01S00849.valex +++| MX0 42
00859 M01S00850.valex +++| BX1 X0*X1
00860 M01S00851.valex +++| BX3 X0*X3
00861 M01S00852.valex +++| BX2 X0*X2
00862 M01S00853.valex +++| BX4 X1 EPILOGUE LOCAL FILE NAME
00863 M01S00854.valex +++| SA0 A1 SAVE EPILOGUE NAME ADDRESS
00864 M01S00855.valex +++| SB6 B0 CLEAR SSJ= FILE STATUS
00865 M01S00856.valex +++| RJ ACF ACCESS FILE
00866 M01S00857.valex +++| SA1 EEFB
00867 M01S00858.valex +++| NZ X1,EEF2 IF *CHARGE* COMMAND
00868 M01S00859.valex +++| MOVE 8,CCDR,EEFB MOVE LOGOUT COMMAND
00869 M01S00860.valex +++| EQ EEF3 SET EPILOGUE CALL
00870 M01S00861.valex +++|
00871 M01S00862.valex +++| EEF2 MOVE 7,CCDR,EEFB+2 MOVE *CHARGE* COMMAND
00872 M01S00863.valex +++| SX1 0 PACK *CHARGE* COMMAND CALL
00873 M01S00864.valex +++| SB5 EEFB
00874 M01S00865.valex +++| SB2 1R? SET SEARCH CHARACTER
00875 M01S00866.valex +++| RJ SNM
00876 M01S00867.valex +++| EEF3 ZR X5,EEF4 IF NO FILE ACCESS ERROR
00877 M01S00868.valex +++| MESSAGE EREF * PROJECT EPILOGUE NOT FOUND.*
00878 M01S00869.valex +++| EQ EEF5 INITIALIZE SEQUENCING
00879 M01S00870.valex +++|
00880 M01S00871.valex +++| EEF4 SA1 A0+ SET FILE NAME
00881 M01S00872.valex +++| MX0 42
00882 M01S00873.valex +++| BX1 X0*X1
00883 M01S00874.valex +++| SB5 EEFA SET CALL ADDRESS
00884 M01S00875.valex +++| SB2 1R? SET SEARCH CHARACTER
00885 M01S00876.valex +++| RJ SNM SET EPILOGUE CALL
00886 M01S00877.valex +++| EEF5 RJ IPS INITIALIZE EPILOGUE SEQUENCING
00887 M01S00878.valex +++| NZ X5,EEF6 IF EPILOGUE FILE ACCESS ERROR
00888 M01S00879.valex +++| WRITEC F,EEFA WRITE EPILOGUE CALL
00889 M01S00880.valex +++| EEF6 WRITEC F,EEFB WRITE CHARGE OR LOGOUT COMMAND
00890 M01S00881.valex +++| WRITEC F,(=C*$REVERT,NOLIST.*)
00891 M01S00882.valex +++| WRITEC F,(=C*EXIT.*) WRITE EXIT PROCESSING
00892 M01S00883.valex +++| WRITEC F,EEFB
00893 M01S00884.valex +++| WRITEC F,(=C*$REVERT,NOLIST.*)
00894 M01S00885.valex +++| EQ EXP EXECUTE EPILOGUE
00895 M01S00886.valex +++|
00896 M01S00887.valex +++|
00897 M01S00888.valex +++| EEFA DATA C*???????. PROJECT EPILOGUE*
00898 M01S00889.valex +++| EEFB DATA 20L$REVERT,EX.?????????
00899 M01S00890.valex +++| BSSZ 8
00900 M01S00891.valex +++| EPF SPACE 4,15
00901 M01S00892.valex +++|** EPF - EXECUTE PROLOGUE FILES.
00902 M01S00893.valex +++|*
00903 M01S00894.valex +++|* ENTRY (SPF - SPF+8) = PROLOGUE PARAMETERS.
00904 M01S00895.valex +++|*
00905 M01S00896.valex +++|* EXIT PROLOGUE AND EPILOGUE CONTROLS SET IF REQUIRED.
00906 M01S00897.valex +++|* TO *EXP* TO EXECUTE PROLOGUES.
00907 M01S00898.valex +++|*
00908 M01S00899.valex +++|* USES X - 1, 2, 3, 4, 5.
00909 M01S00900.valex +++|* A - 0, 1, 2, 3, 4.
00910 M01S00901.valex +++|* B - 2, 5, 6, 7.
00911 M01S00902.valex +++|*
00912 M01S00903.valex +++|* CALLS ACF, END, EXP, SNM.
00913 M01S00904.valex +++|
00914 M01S00905.valex +++|
00915 M01S00906.valex +++| EPF BSS 0 ENTRY
00916 M01S00907.valex +++|
00917 M01S00908.valex +++|* PROCESS SYSTEM AND PROJECT PROLOGUE TERMINATION OPTIONS.
00918 M01S00909.valex +++|
00919 M01S00910.valex +++| SA1 SPF
00920 M01S00911.valex +++| SA2 PPF
00921 M01S00912.valex +++| SA3 UPF
00922 M01S00913.valex +++| SA4 PRC
00923 M01S00914.valex +++| SX7 X1+
00924 M01S00915.valex +++| SX0 X2+
00925 M01S00916.valex +++| BX6 X1+X2
00926 M01S00917.valex +++| ZR X6,EPF3 IF NO SYSTEM OR PROJECT PROLOGUE DEFINED
00927 M01S00918.valex +++| IX0 X7-X0 CHECK SYSTEM AND PROJECT PROLOGUE OPTIONS
00928 M01S00919.valex +++| PL X0,EPF1 IF PROJECT PROLOGUE OPTION NOT GREATER
00929 M01S00920.valex +++| SX7 X2+ USE PROJECT PROLOGUE OPTION
00930 M01S00921.valex +++| EPF1 SX6 B1 SET INITIAL TERMINATION OPTION FLAGS
00931 M01S00922.valex +++| LX7 18
00932 M01S00923.valex +++| BX7 X4+X7
00933 M01S00924.valex +++| BX7 X7+X6
00934 M01S00925.valex +++| SA7 A4
00935 M01S00926.valex +++| LX6 18
00936 M01S00927.valex +++| ZR X2,EPF2 IF NO PROJECT PROLOGUE DEFINED
00937 M01S00928.valex +++| NG X0,EPF2 IF PROJECT PROLOGUE OPTION SET AS INITIAL
00938 M01S00929.valex +++| SA4 EPFA+2
00939 M01S00930.valex +++| SX7 X2+B1 SET TO CHANGE TERMINATION OPTION
00940 M01S00931.valex +++| LX7 18
00941 M01S00932.valex +++| IX7 X4+X7
00942 M01S00933.valex +++| SA7 A4
00943 M01S00934.valex +++| EPF2 ZR X3,EPF3 IF NO USER PROLOGUE DEFINED
00944 M01S00935.valex +++| SA4 EPFA+4
00945 M01S00936.valex +++| IX6 X4+X6 SET TO CLEAR TERMINATION OPTION
00946 M01S00937.valex +++| SA6 A4
00947 M01S00938.valex +++| SX6 X2-CRPT CHECK PROJECT PROLOGUE OPTION
00948 M01S00939.valex +++| NZ X6,EPF3 IF NOT UNCONDITIONAL CHARGE REQUIRED
00949 M01S00940.valex +++| SA6 UPF CLEAR USER PROLOGUE PROCESSING
00950 M01S00941.valex +++|
00951 M01S00942.valex +++|* ACCESS PROLOGUE FILES.
00952 M01S00943.valex +++|
00953 M01S00944.valex +++| EPF3 SB7 B0 INITIALIZE PROLOGUE INDEX
00954 M01S00945.valex +++| SB6 B0 INITIALIZE EXECUTE PROLOGUE FLAG
00955 M01S00946.valex +++| SB5 EPFB INITIALIZE PROLOGUE CALL ADDRESS
00956 M01S00947.valex +++| SA0 SPF SET PROLOGUE PARAMETERS ADDRESS
00957 M01S00948.valex +++| EPF4 SA1 A0 READ FILE NAME
00958 M01S00949.valex +++| SA3 A0+B1 READ USER NAME
00959 M01S00950.valex +++| SA2 A0+2 READ PASSWORD
00960 M01S00951.valex +++| MX0 42
00961 M01S00952.valex +++| ZR X1,EPF6 IF PROLOGUE NOT DEFINED
00962 M01S00953.valex +++| BX1 X0*X1
00963 M01S00954.valex +++| BX4 X1 PRESET LOCAL FILE NAME
00964 M01S00955.valex +++| ZR B6,EPF5 IF NO PREVIOUS PROLOGUE
00965 M01S00956.valex +++| SX5 B7
00966 M01S00957.valex +++| SA4 =7LZZZZPR0 SET LOCAL FILE NAME
00967 M01S00958.valex +++| LX5 18
00968 M01S00959.valex +++| IX4 X4+X5
00969 M01S00960.valex +++| EPF5 RJ ACF ACCESS PROLOGUE FILE
00970 M01S00961.valex +++| SB6 B1 SET EXECUTE PROLOGUE FLAG
00971 M01S00962.valex +++| NZ X5,EPF8 IF FILE NOT FOUND
00972 M01S00963.valex +++| SA1 A0 SET PROLOGUE NAME IN CALL
00973 M01S00964.valex +++| MX0 42
00974 M01S00965.valex +++| SB2 B7+B7 INDEX*2
00975 M01S00966.valex +++| BX1 X0*X1
00976 M01S00967.valex +++| BX6 X1
00977 M01S00968.valex +++| SA6 EPFA+1+B2
00978 M01S00969.valex +++| SB2 1R?
00979 M01S00970.valex +++| RJ SNM
00980 M01S00971.valex +++| EPF6 NZ B7,EPF7 IF SYSTEM PROLOGUE NOT JUST PROCESSED
00981 M01S00972.valex +++| RJ RPF RESTORE USER-S PERMANENT FILE PARAMETERS
00982 M01S00973.valex +++| EPF7 SB7 B7+1 ADVANCE PROLOGUE INDEX
00983 M01S00974.valex +++| SB5 B5+4 ADVANCE PROLOGUE CALL ADDRESS
00984 M01S00975.valex +++| SB2 B7-3
00985 M01S00976.valex +++| SA0 A0+3 ADVANCE PARAMETER ADDRESS
00986 M01S00977.valex +++| NZ B2,EPF4 IF ALL PROLOGUES NOT PROCESSED
00987 M01S00978.valex +++| ZR B6,END IF NO PROLOGUES DEFINED
00988 M01S00979.valex +++|
00989 M01S00980.valex +++|* BUILD SEQUENCING PROCEDURE.
00990 M01S00981.valex +++|
00991 M01S00982.valex +++| EPF8 RJ IPS INITIALIZE PROLOGUE SEQUENCING
00992 M01S00983.valex +++| SA0 SPF SET PARAMETERS ADDRESS
00993 M01S00984.valex +++| MX0 42 SET FIRST PROLOGUE MASK
00994 M01S00985.valex +++| SB7 B0 SET CALL PARAMETERS INDEX
00995 M01S00986.valex +++| EPF9 SA1 A0+
00996 M01S00987.valex +++| SA5 EPFA+1+B7
00997 M01S00988.valex +++| ZR X1,EPF11 IF PROLOGUE NOT DEFINED
00998 M01S00989.valex +++| BX2 X0*X5
00999 M01S00990.valex +++| NZ X2,EPF10 IF FIRST PROLOGUE AND NO ACCESS ERROR
01000 M01S00991.valex +++| WRITEC F,EPFA+B7 WRITE REENTRY PROCESSING
01001 M01S00992.valex +++| EPF10 ZR X5,EPF12 IF FILE ACCESS ERROR
01002 M01S00993.valex +++| SB2 B7+B7 WRITE PROLOGUE CALL
01003 M01S00994.valex +++| WRITEC F,EPFB+B2
01004 M01S00995.valex +++| SX0 B0+ CLEAR FIRST PROLOGUE MASK
01005 M01S00996.valex +++| EPF11 SB7 B7+2 ADVANCE CALL PARAMETERS INDEX
01006 M01S00997.valex +++| SA0 A0+3 ADVANCE PARAMETER ADDRESS
01007 M01S00998.valex +++| SB2 B7-6
01008 M01S00999.valex +++| NZ B2,EPF9 IF ALL PROLOGUES NOT PROCESSED
01009 M01S01000.valex +++| EPF12 WRITEC F,(=C*$REVERT,NOLIST.*)
01010 M01S01001.valex +++| WRITEC F,(=C*EXIT.*)
01011 M01S01002.valex +++| WRITEC F,(=C*$REVERT,ABORT. PROLOGUE EXECUTION ABORTED*)
01012 M01S01003.valex +++|
01013 M01S01004.valex +++|* INSURE TERMINATION OPTION SET FOR *XPR* PROCESSING IF USER
01014 M01S01005.valex +++|* PROLOGUE NOT FOUND AND NO SYSTEM OR PROJECT PROLOGUE DEFINED.
01015 M01S01006.valex +++|
01016 M01S01007.valex +++| SX1 A0-UPF
01017 M01S01008.valex +++| NZ X1,EXP IF NOT EXIT ON USER PROLOGUE NOT FOUND
01018 M01S01009.valex +++| SA1 SPF
01019 M01S01010.valex +++| SA2 PPF
01020 M01S01011.valex +++| BX1 X1+X2
01021 M01S01012.valex +++| SX6 B1
01022 M01S01013.valex +++| NZ X1,EXP IF SYSTEM OR PROJECT PROLOGUE DEFINED
01023 M01S01014.valex +++| SX1 CCPT SET *CLEAR CONTROLS* TERMINATION OPTION
01024 M01S01015.valex +++| LX1 18
01025 M01S01016.valex +++| BX6 X1+X6
01026 M01S01017.valex +++| SA1 PRC ADD TO OTHER OPTIONS, IF ANY
01027 M01S01018.valex +++| BX6 X1+X6
01028 M01S01019.valex +++| SA6 A1
01029 M01S01020.valex +++| EQ EXP EXECUTE PROLOGUES
01030 M01S01021.valex +++|
01031 M01S01022.valex +++|
01032 M01S01023.valex +++| EPFA VFD 30/0L$XPR.,6/1L0,6/1L0,18/3H
01033 M01S01024.valex +++| CON 0
01034 M01S01025.valex +++| VFD 30/0L$XPR.,6/1L1,6/1L0,18/3H
01035 M01S01026.valex +++| CON 0
01036 M01S01027.valex +++| VFD 30/0L$XPR.,6/1L2,6/1L0,18/3H
01037 M01S01028.valex +++| CON 0
01038 M01S01029.valex +++|
01039 M01S01030.valex +++| EPFB DATA 24L???????. SYSTEM PROLOGUE
01040 M01S01031.valex +++| DATA 0
01041 M01S01032.valex +++| DATA 25L???????. PROJECT PROLOGUE
01042 M01S01033.valex +++| DATA 0
01043 M01S01034.valex +++| DATA 30L$BEGIN,,???????. USER PROLOGUE
01044 M01S01035.valex +++| DATA 0
01045 M01S01036.valex +++| IPS SPACE 4,10
01046 M01S01037.valex +++|** IPS - INITIALIZE PROLOGUE OR EPILOGUE SEQUENCING.
01047 M01S01038.valex +++|*
01048 M01S01039.valex +++|* EXIT PROCEDURE HEADER WRITTEN TO SEQUENCING PROCEDURE FILE.
01049 M01S01040.valex +++|*
01050 M01S01041.valex +++|* USES X - 1, 6.
01051 M01S01042.valex +++|* A - 1, 6.
01052 M01S01043.valex +++|*
01053 M01S01044.valex +++|* MACROS RETURN, WRITEC.
01054 M01S01045.valex +++|
01055 M01S01046.valex +++|
01056 M01S01047.valex +++| IPS SUBR ENTRY/EXIT
01057 M01S01048.valex +++| SA1 =7LZZZZZG1 SET FILE NAME IN FET
01058 M01S01049.valex +++| SX6 B1
01059 M01S01050.valex +++| BX6 X6+X1
01060 M01S01051.valex +++| SA6 F
01061 M01S01052.valex +++| RETURN F,R
01062 M01S01053.valex +++| WRITEC F,(=14L.PROC,ZZZZZG1.) WRITE PROCEDURE HEADER
01063 M01S01054.valex +++| EQ IPSX RETURN
01064 M01S01055.valex +++| RPF SPACE 4,10
01065 M01S01056.valex +++|** RPF - RESTORE USER-S PERMANENT FILE PARAMETERS.
01066 M01S01057.valex +++|*
01067 M01S01058.valex +++|* EXIT USER-S PERMANENT FILE PARAMETERS RESTORED.
01068 M01S01059.valex +++|*
01069 M01S01060.valex +++|* USES X - 1, 6, 7.
01070 M01S01061.valex +++|* A - 1, 6, 7.
01071 M01S01062.valex +++|*
01072 M01S01063.valex +++|* MACROS SETPFP.
01073 M01S01064.valex +++|
01074 M01S01065.valex +++|
01075 M01S01066.valex +++| RPF SUBR ENTRY/EXIT
01076 M01S01067.valex +++| SA1 SSJ=+UIDS RESTORE USER-S PERMANENT FILE PARAMETERS
01077 M01S01068.valex +++| SX7 3 SET USER NAME AND INDEX
01078 M01S01069.valex +++| BX6 X1
01079 M01S01070.valex +++| SA7 RPFA
01080 M01S01071.valex +++| SA6 RPFA+2
01081 M01S01072.valex +++| SETPFP RPFA SET PERMANENT FILE PARAMETERS
01082 M01S01073.valex +++| EQ RPFX RETURN
01083 M01S01074.valex +++|
01084 M01S01075.valex +++|
01085 M01S01076.valex +++| RPFA BSS 3 PERMANENT FILE PARAMETERS
01086 M01S01077.valex +++| TITLE CHARGE VALIDATION ROUTINES.
01087 M01S01078.valex +++| GDC SPACE 4,20
01088 M01S01079.valex +++|** GDC - GET DEFAULT CHARGE AND PROJECT NUMBERS.
01089 M01S01080.valex +++|*
01090 M01S01081.valex +++|* CALLS *CPM* TO GET DEFAULT CHARGE AND PROJECT NUMBERS IF NOT
01091 M01S01082.valex +++|* ALREADY PRESENT.
01092 M01S01083.valex +++|*
01093 M01S01084.valex +++|* ENTRY (DFCF) .NE. 0 IF DEFAULT CHARGE PRESENT.
01094 M01S01085.valex +++|*
01095 M01S01086.valex +++|* EXIT (UCRN) = DEFAULT CHARGE NUMBER.
01096 M01S01087.valex +++|* (UPJ1 - UPJ2) = DEFAULT PROJECT NUMBER.
01097 M01S01088.valex +++|* (DFCF) .NE. 0.
01098 M01S01089.valex +++|*
01099 M01S01090.valex +++|* USES X - 1, 6.
01100 M01S01091.valex +++|* A - 1, 6.
01101 M01S01092.valex +++|*
01102 M01S01093.valex +++|* CALLS CPM=.
01103 M01S01094.valex +++|*
01104 M01S01095.valex +++|* MACROS MOVE.
01105 M01S01096.valex +++|
01106 M01S01097.valex +++|
01107 M01S01098.valex +++| GDC SUBR ENTRY/EXIT
01108 M01S01099.valex +++| SA1 DFCF
01109 M01S01100.valex +++| NZ X1,GDCX IF DEFAULT CHARGE INFORMATION PRESENT
01110 M01S01101.valex +++| SX6 B1 SET INFORMATION PRESENT
01111 M01S01102.valex +++| SA6 A1
01112 M01S01103.valex +++| SX1 SBUF SET PARAMETER BLOCK ADDRESS
01113 M01S01104.valex +++| SX2 126B SET RETURN USER BLOCK FUNCTION
01114 M01S01105.valex +++| RJ CPM=
01115 M01S01106.valex +++| MOVE 3,(SBUF+APJN),UPJ1 SET DEFAULT CHARGE INFORMATION
01116 M01S01107.valex +++| EQ GDCX RETURN
01117 M01S01108.valex +++| RCH SPACE 4,15
01118 M01S01109.valex +++|** RCH - READ CHARGE FROM *INPUT* FILE.
01119 M01S01110.valex +++|*
01120 M01S01111.valex +++|* ENTRY (TRIF) = TERMINAL INTERACTION FLAG.
01121 M01S01112.valex +++|*
01122 M01S01113.valex +++|* EXIT TO *VCH* TO VALIDATE CHARGE AND PROJECT.
01123 M01S01114.valex +++|* TO *ABT* IF RETRY LIMIT EXCEEDED.
01124 M01S01115.valex +++|* TO *RSE* IF EXTERNAL ERROR.
01125 M01S01116.valex +++|*
01126 M01S01117.valex +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
01127 M01S01118.valex +++|* A - 1, 2, 3, 4, 6, 7.
01128 M01S01119.valex +++|* B - 2, 6.
01129 M01S01120.valex +++|*
01130 M01S01121.valex +++|* CALLS ABT, POP, USB, VCH.
01131 M01S01122.valex +++|*
01132 M01S01123.valex +++|* MACROS READ, READC, WRITEC, WRITER.
01133 M01S01124.valex +++|
01134 M01S01125.valex +++|
01135 M01S01126.valex +++| RCH BSS 0 ENTRY
01136 M01S01127.valex +++| SA1 TRIF
01137 M01S01128.valex +++| SA2 EXER
01138 M01S01129.valex +++| SX0 X1+
01139 M01S01130.valex +++| ZR X1,RCH1 IF NO TERMINAL INTERACTION
01140 M01S01131.valex +++| NZ X2,RSE IF EXTERNAL ERROR
01141 M01S01132.valex +++| SX6 RCH SET INTERRUPT ADDRESS
01142 M01S01133.valex +++| SA6 TRIA
01143 M01S01134.valex +++| WRITEC O,RCHA ISSUE CHARGE NUMBER PROMPT
01144 M01S01135.valex +++| WRITER O,R FORCE WRITE
01145 M01S01136.valex +++| RCH1 READ I,R READ CHARGE NUMBER
01146 M01S01137.valex +++| READC I,SBUF,4
01147 M01S01138.valex +++| NG X1,RCH5 IF NULL INPUT
01148 M01S01139.valex +++| SB2 SBUF UNPACK INPUT
01149 M01S01140.valex +++| RJ USB
01150 M01S01141.valex +++| SA1 USBC FORCE TERMINATION
01151 M01S01142.valex +++| SX6 1R.
01152 M01S01143.valex +++| SX7 X1+B1
01153 M01S01144.valex +++| SA6 X7
01154 M01S01145.valex +++| SA7 USBC
01155 M01S01146.valex +++| RJ POP ASSEMBLE CHARGE NUMBER
01156 M01S01147.valex +++| SA3 POPA
01157 M01S01148.valex +++| NG B5,RCH5 IF ERROR IN ASSEMBLY
01158 M01S01149.valex +++| GE B5,B1,RCH5 IF CHARGE NUMBER TOO LONG
01159 M01S01150.valex +++| ZR X3,RCH5 IF NO CHARGE NUMBER
01160 M01S01151.valex +++| BX6 X3 SET CHARGE NUMBER
01161 M01S01152.valex +++| LX3 6
01162 M01S01153.valex +++| SX2 X3-1R*
01163 M01S01154.valex +++| SA6 CGN
01164 M01S01155.valex +++| NZ B6,RCH2 IF NOT TERMINATOR
01165 M01S01156.valex +++| ZR X2,RCH4 IF DEFAULT CHARGE PARAMETER
01166 M01S01157.valex +++| ZR X0,RCH5 IF NOT TERMINAL INPUT
01167 M01S01158.valex +++| WRITEC O,RCHB ISSUE PROJECT NUMBER PROMPT
01168 M01S01159.valex +++| WRITER O,R FORCE WRITE
01169 M01S01160.valex +++| READ I,R READ PROJECT NUMBER
01170 M01S01161.valex +++| READC I,SBUF,3
01171 M01S01162.valex +++| NG X1,RCH5 IF NULL INPUT
01172 M01S01163.valex +++| SB2 SBUF UNPACK PROJECT NUMBER
01173 M01S01164.valex +++| RJ USB
01174 M01S01165.valex +++| SA1 USBC FORCE TERMINATION
01175 M01S01166.valex +++| SX6 1R.
01176 M01S01167.valex +++| SX7 X1+B1
01177 M01S01168.valex +++| SA6 X7
01178 M01S01169.valex +++| SA7 USBC
01179 M01S01170.valex +++| RCH2 RJ POP ASSEMBLE PROJECT NUMBER
01180 M01S01171.valex +++| SA2 POPA
01181 M01S01172.valex +++| SA4 POPA+1
01182 M01S01173.valex +++| NG B5,RCH5 IF ERROR IN ASSEMBLY
01183 M01S01174.valex +++| GT B5,B1,RCH5 IF PROJECT NUMBER TOO LONG
01184 M01S01175.valex +++| NZ B6,RCH5 IF NOT TERMINATOR
01185 M01S01176.valex +++| ZR X2,RCH5 IF NO PROJECT NUMBER
01186 M01S01177.valex +++| BX7 X7-X7
01187 M01S01178.valex +++| ZR B5,RCH3 IF ONE WORD PROJECT NUMBER
01188 M01S01179.valex +++| BX7 X4
01189 M01S01180.valex +++| RCH3 BX6 X2
01190 M01S01181.valex +++| SA6 PRN SET PROJECT NUMBER
01191 M01S01182.valex +++| SA7 A6+B1
01192 M01S01183.valex +++| RCH4 SX6 B0+ CLEAR INTERRUPT ADDRESS
01193 M01S01184.valex +++| SA6 TRIA
01194 M01S01185.valex +++| RJ VCH VALIDATE CHARGE AND PROJECT
01195 M01S01186.valex +++| EQ RCH6 PROCESS VALIDATION ERROR
01196 M01S01187.valex +++|
01197 M01S01188.valex +++|* PROCESS ERROR IN INPUT.
01198 M01S01189.valex +++|
01199 M01S01190.valex +++| RCH5 SB6 ERFI * FORMAT ERROR IN INPUT.*
01200 M01S01191.valex +++| RCH6 SA1 TRIF
01201 M01S01192.valex +++| ZR X1,ABT IF NOT TERMINAL INTERACTION
01202 M01S01193.valex +++| WRITEC O,B6 ISSUE ERROR MESSAGE TO TERMINAL
01203 M01S01194.valex +++| WRITER O,R FORCE WRITE
01204 M01S01195.valex +++| SA2 RCHC
01205 M01S01196.valex +++| SX3 X2-ERLIM+1
01206 M01S01197.valex +++| SX6 X2+B1
01207 M01S01198.valex +++| PL X3,RCH7 IF INPUT ERROR LIMIT EXCEEDED
01208 M01S01199.valex +++| SA6 A2 SET RETRY COUNT
01209 M01S01200.valex +++| EQ RCH REPROMPT FOR CHARGE NUMBER
01210 M01S01201.valex +++|
01211 M01S01202.valex +++| RCH7 SX0 ERIL * INPUT ERROR LIMIT.*
01212 M01S01203.valex +++| WRITEC O,X0
01213 M01S01204.valex +++| WRITER O,R FORCE WRITE
01214 M01S01205.valex +++| SB6 X0
01215 M01S01206.valex +++| EQ ABT ABORT
01216 M01S01207.valex +++|
01217 M01S01208.valex +++|
01218 M01S01209.valex +++| RCHA DATA C*CHARGE NUMBER: "CB"*
01219 M01S01210.valex +++| RCHB DATA C*PROJECT NUMBER: "CB"*
01220 M01S01211.valex +++| RCHC CON 0 ERROR RETRY COUNT
01221 M01S01212.valex +++| VCH SPACE 4,20
01222 M01S01213.valex +++|** VCH - VALIDATE CHARGE AND PROJECT NUMBERS.
01223 M01S01214.valex +++|*
01224 M01S01215.valex +++|* ENTRY (X2) = 0 IF TO VALIDATE DEFAULT CHARGE.
01225 M01S01216.valex +++|* (CGN) = CHARGE NUMBER IF NOT DEFAULT CHARGE.
01226 M01S01217.valex +++|* (PRN- PRN+1) = PROJECT NUMBER IF NOT DEFAULT CHARGE.
01227 M01S01218.valex +++|*
01228 M01S01219.valex +++|* EXIT TO *EPF* IF NO ERROR.
01229 M01S01220.valex +++|* (B6) = MESSAGE ADDRESS IF ERROR.
01230 M01S01221.valex +++|* CHARGE AND PROJECT NUMBERS DISPLAYED IN DAYFILE IF NO
01231 M01S01222.valex +++|* ERROR.
01232 M01S01223.valex +++|*
01233 M01S01224.valex +++|* USES X - ALL.
01234 M01S01225.valex +++|* A - 1, 2, 3, 4, 5, 6, 7.
01235 M01S01226.valex +++|* B - 2, 6.
01236 M01S01227.valex +++|*
01237 M01S01228.valex +++|* CALLS BAB, CHG, EPF, GDC, SNM.
01238 M01S01229.valex +++|*
01239 M01S01230.valex +++|* MACROS MESSAGE.
01240 M01S01231.valex +++|
01241 M01S01232.valex +++|
01242 M01S01233.valex +++| VCH SUBR ENTRY/EXIT
01243 M01S01234.valex +++| NZ X2,VCH2 IF NOT TO VALIDATE DEFAULT CHARGE
01244 M01S01235.valex +++| RJ GDC GET DEFAULT CHARGE AND PROJECT
01245 M01S01236.valex +++| SA3 UCRN
01246 M01S01237.valex +++| SA5 UPJ1
01247 M01S01238.valex +++| SA4 UPJ2
01248 M01S01239.valex +++| NZ X3,VCH1 IF DEFAULT CHARGE NUMBER PRESENT
01249 M01S01240.valex +++| SB6 ERDN * DEFAULT CHARGE NULL.*
01250 M01S01241.valex +++| SA1 SSJ=+AACS CHECK *CCNR* PRIVILEGE
01251 M01S01242.valex +++| LX1 59-7
01252 M01S01243.valex +++| PL X1,VCHX IF USER NAME REQUIRES CHARGE COMMAND
01253 M01S01244.valex +++| MESSAGE B6,,R ISSUE DEFAULT CHARGE MESSAGE
01254 M01S01245.valex +++| EQ EPF EXIT TO PROCESS PROLOGUES
01255 M01S01246.valex +++|
01256 M01S01247.valex +++| VCH1 SB6 ERDC * ERROR IN DEFAULT CHARGE.*
01257 M01S01248.valex +++| ZR X5,VCHX IF DEFAULT PROJECT NOT PRESENT
01258 M01S01249.valex +++| BX6 X3 SET CHARGE NUMBER
01259 M01S01250.valex +++| BX7 X5 SET PROJECT NUMBER WORD 1
01260 M01S01251.valex +++| SA6 CGN
01261 M01S01252.valex +++| SA7 PRN
01262 M01S01253.valex +++| BX6 X4 SET PROJECT NUMBER WORD 2
01263 M01S01254.valex +++| SA6 A7+B1
01264 M01S01255.valex +++| SX2 B1 SET DEFAULT CHARGE
01265 M01S01256.valex +++| EQ VCH4 VALIDATE CHARGE
01266 M01S01257.valex +++|
01267 M01S01258.valex +++| VCH2 SA1 SSJ=+AACS CHECK RESTRICTION TO DEFAULT CHARGE
01268 M01S01259.valex +++| LX1 59-22
01269 M01S01260.valex +++| NG X1,VCH3 IF NOT RESTRICTED TO DEFAULT CHARGE
01270 M01S01261.valex +++| RJ GDC GET DEFAULT CHARGE AND PROJECT
01271 M01S01262.valex +++| SB6 ERRD * CHARGE RESTRICTED TO DEFAULT.*
01272 M01S01263.valex +++| SA1 CGN
01273 M01S01264.valex +++| SA2 UCRN
01274 M01S01265.valex +++| BX1 X1-X2
01275 M01S01266.valex +++| NZ X1,VCHX IF NOT DEFAULT CHARGE NUMBER
01276 M01S01267.valex +++| SA1 PRN
01277 M01S01268.valex +++| SA3 UPJ1
01278 M01S01269.valex +++| SA2 A1+B1
01279 M01S01270.valex +++| SA4 A3+B1
01280 M01S01271.valex +++| BX1 X1-X3
01281 M01S01272.valex +++| BX2 X2-X4
01282 M01S01273.valex +++| NZ X1,VCHX IF NOT DEFAULT PROJECT NUMBER
01283 M01S01274.valex +++| NZ X2,VCHX IF NOT DEFAULT PROJECT NUMBER
01284 M01S01275.valex +++| VCH3 SX2 0 SET NOT DEFAULT CHARGE
01285 M01S01276.valex +++| VCH4 SA3 SSJ=+UIDS VALIDATE CHARGE AND PROJECT NUMBERS
01286 M01S01277.valex +++| RJ VCN
01287 M01S01278.valex +++| NZ B6,VCHX IF ERROR
01288 M01S01279.valex +++| SA2 B5+PPNW READ PROJECT PROLOGUE FILE NAME
01289 M01S01280.valex +++| SA5 PRST READ PROLOGUE/EPILOGUE STATUS
01290 M01S01281.valex +++| SB6 ERPC * PROLOGUE AND SHELL CONFLICT.*
01291 M01S01282.valex +++| MX0 42
01292 M01S01283.valex +++| MX7 -2
01293 M01S01284.valex +++| BX6 X0*X2
01294 M01S01285.valex +++| LX5 59-57
01295 M01S01286.valex +++| ZR X6,VCH5 IF NO PROJECT PROLOGUE DEFINED
01296 M01S01287.valex +++| NG X5,VCHX IF PROLOGUE AND SHELL CONFLICT
01297 M01S01288.valex +++| SA3 B5+PPUW READ PROJECT PROLOGUE USER NAME
01298 M01S01289.valex +++| SA4 B5+PPPW READ PROJECT PROLOGUE PASSWORD
01299 M01S01290.valex +++| BX7 -X7*X2
01300 M01S01291.valex +++| ERRNZ CRPT-CCPT-1 CODE DEPENDS ON VALUE
01301 M01S01292.valex +++| ERRNZ CAPT-CRPT-1 CODE DEPENDS ON VALUE
01302 M01S01293.valex +++| SX7 X7+CCPT SET TERMINATION OPTION
01303 M01S01294.valex +++| BX6 X6+X7
01304 M01S01295.valex +++| SA6 PPF SET PROJECT PROLOGUE FILE NAME
01305 M01S01296.valex +++| BX6 X0*X3
01306 M01S01297.valex +++| BX7 X0*X4
01307 M01S01298.valex +++| SA6 PPF+1 SET PROJECT PROLOGUE USER NAME
01308 M01S01299.valex +++| SA7 PPF+2 SET PROJECT PROLOGUE PASSWORD
01309 M01S01300.valex +++| VCH5 SA2 B5+PENW
01310 M01S01301.valex +++| BX2 X0*X2
01311 M01S01302.valex +++| ZR X2,VCH6 IF NO PROJECT EPILOGUE DEFINED
01312 M01S01303.valex +++| SB6 EREC * EPILOGUE AND SHELL CONFLICT.*
01313 M01S01304.valex +++| NG X5,VCHX IF EPILOGUE AND SHELL CONFLICT
01314 M01S01305.valex +++| SX1 B1 SET EPILOGUE PENDING FLAG
01315 M01S01306.valex +++| SX6 B1+B1
01316 M01S01307.valex +++| LX1 21
01317 M01S01308.valex +++| BX6 X6+X1
01318 M01S01309.valex +++| SA6 PRC
01319 M01S01310.valex +++| VCH6 SA1 CGN SET CHARGE NUMBER
01320 M01S01311.valex +++| SB5 VCHA SET MESSAGE ADDRESS
01321 M01S01312.valex +++| SB2 1R?
01322 M01S01313.valex +++| RJ SNM
01323 M01S01314.valex +++| SA1 PRN SET PROJECT NUMBER WORD 1
01324 M01S01315.valex +++| SB2 1R!
01325 M01S01316.valex +++| RJ SNM
01326 M01S01317.valex +++| SA1 PRN+1 SET PROJECT NUMBER WORD 2
01327 M01S01318.valex +++| SB2 1R+
01328 M01S01319.valex +++| RJ SNM
01329 M01S01320.valex +++| MESSAGE VCHA,,R ISSUE CHARGE MESSAGE
01330 M01S01321.valex +++| VCH7 RJ BAB BEGIN ACCOUNT BLOCK
01331 M01S01322.valex +++| EQ EPF PROCESS PROLOGUES
01332 M01S01323.valex +++|
01333 M01S01324.valex +++|
01334 M01S01325.valex +++| VCHA DATA 50H CHARGE = ??????????, PROJECT = !!!!!!!!!!++++++++
01335 M01S01326.valex +++| DATA 3L++.
01336 M01S01327.valex +++| TITLE SUBROUTINES.
01337 M01S01328.valex +++| ABT SPACE 4,15
01338 M01S01329.valex +++|** ABT - ISSUE ERROR MESSAGE AND ABORT.
01339 M01S01330.valex +++|*
01340 M01S01331.valex +++|* ENTRY (B6) = ERROR MESSAGE ADDRESS.
01341 M01S01332.valex +++|* (TJEF) = TERMINATE JOB FLAG.
01342 M01S01333.valex +++|*
01343 M01S01334.valex +++|* EXIT TO *TRJ* IF TO TERMINATE ON ERROR.
01344 M01S01335.valex +++|*
01345 M01S01336.valex +++|* USES X - 1, 2.
01346 M01S01337.valex +++|* A - 1, 2.
01347 M01S01338.valex +++|*
01348 M01S01339.valex +++|* CALLS TER, TRJ.
01349 M01S01340.valex +++|*
01350 M01S01341.valex +++|* MACROS ABORT, MESSAGE.
01351 M01S01342.valex +++|
01352 M01S01343.valex +++|
01353 M01S01344.valex +++| ABT BSS 0 ENTRY
01354 M01S01345.valex +++| MESSAGE B6,,R ISSUE ERROR MESSAGE
01355 M01S01346.valex +++| SA1 TJEF
01356 M01S01347.valex +++| SA2 TRIF
01357 M01S01348.valex +++| NZ X1,TRJ IF TERMINATE ON ERROR
01358 M01S01349.valex +++| ZR X2,ABT1 IF NO TERMINAL INTERACTION
01359 M01S01350.valex +++| MESSAGE =0,1,R CLEAR *MS1W* ERROR MESSAGE
01360 M01S01351.valex +++| ABT1 RJ TER PERFORM TERMINATION
01361 M01S01352.valex +++| ABORT
01362 M01S01353.valex +++| END SPACE 4,15
01363 M01S01354.valex +++|** END - NORMAL END.
01364 M01S01355.valex +++|*
01365 M01S01356.valex +++|* ENTRY (EXER) = EXTERNAL ERROR CODE.
01366 M01S01357.valex +++|*
01367 M01S01358.valex +++|* EXIT TO *RSE* IF EXTERNAL ERROR.
01368 M01S01359.valex +++|*
01369 M01S01360.valex +++|* USES X - 1.
01370 M01S01361.valex +++|* A - 1.
01371 M01S01362.valex +++|*
01372 M01S01363.valex +++|* CALLS RSE, TER.
01373 M01S01364.valex +++|*
01374 M01S01365.valex +++|* MACROS ENDRUN.
01375 M01S01366.valex +++|
01376 M01S01367.valex +++|
01377 M01S01368.valex +++| END BSS 0 ENTRY
01378 M01S01369.valex +++| SA1 EXER
01379 M01S01370.valex +++| NZ X1,RSE IF EXTERNAL ERROR
01380 M01S01371.valex +++| RJ TER PERFORM TERMINATION
01381 M01S01372.valex +++| ENDRUN
01382 M01S01373.valex +++| EXP SPACE 4,15
01383 M01S01374.valex +++|** EXP - EXECUTE PROLOGUE OR EPILOGUE.
01384 M01S01375.valex +++|*
01385 M01S01376.valex +++|* ENTRY (B2) = ADDRESS OF PROLOGUE OR EPILOGUE CALL.
01386 M01S01377.valex +++|* (EXER) = EXTERNAL ERROR CODE.
01387 M01S01378.valex +++|*
01388 M01S01379.valex +++|* EXIT TO *RSE* IF EXTERNAL ERROR.
01389 M01S01380.valex +++|*
01390 M01S01381.valex +++|* USES X - 1.
01391 M01S01382.valex +++|* A - 1.
01392 M01S01383.valex +++|*
01393 M01S01384.valex +++|* CALLS RSE, TER.
01394 M01S01385.valex +++|*
01395 M01S01386.valex +++|* MACROS MEMORY, SYSTEM, WRITER.
01396 M01S01387.valex +++|
01397 M01S01388.valex +++|
01398 M01S01389.valex +++| EXP BSS 0 ENTRY
01399 M01S01390.valex +++| WRITER F,R
01400 M01S01391.valex +++| SA1 EXER
01401 M01S01392.valex +++| NZ X1,RSE IF EXTERNAL ERROR
01402 M01S01393.valex +++| RJ TER PERFORM TERMINATION
01403 M01S01394.valex +++| MEMORY CM,,R,CCFL*100B REQUEST STORAGE FOR *CCL* LOAD
01404 M01S01395.valex +++| SA1 =C*ZZZZZG1.* SET PROCEDURE CALL
01405 M01S01396.valex +++| BX6 X1
01406 M01S01397.valex +++| SA6 CCDR
01407 M01S01398.valex +++| REPRIEVE RPB,SETUP,0 CLEAR REPRIEVE PROCESSING
01408 M01S01399.valex +++| SYSTEM LDR,R,EXPA LOAD *CCL* *BEGIN* PROCESSOR
01409 M01S01400.valex +++|
01410 M01S01401.valex +++|
01411 M01S01402.valex +++| EXPA VFD 42/5LBEGIN,18/0 *LDR* CALL BLOCK
01412 M01S01403.valex +++| VFD 6/0,6/0,2/0,3/0,1/1,1/1,4/0,1/0,18/0,18/0
01413 M01S01404.valex +++| ICA SPACE 4,10
01414 M01S01405.valex +++|** ICA - ISSUE COMMAND TO DAYFILE AND ABORT.
01415 M01S01406.valex +++|*
01416 M01S01407.valex +++|* ENTRY (B6) = ERROR MESSAGE ADDRESS.
01417 M01S01408.valex +++|*
01418 M01S01409.valex +++|* EXIT TO *ABT*.
01419 M01S01410.valex +++|*
01420 M01S01411.valex +++|* MACROS MESSAGE.
01421 M01S01412.valex +++|
01422 M01S01413.valex +++|
01423 M01S01414.valex +++| ICA BSS 0 ENTRY
01424 M01S01415.valex +++| MESSAGE CCDR ISSUE COMMAND TO DAYFILE
01425 M01S01416.valex +++| EQ ABT ABORT
01426 M01S01417.valex +++| RPV SPACE 4,20
01427 M01S01418.valex +++|** RPV - PROCESS REPRIEVE.
01428 M01S01419.valex +++|*
01429 M01S01420.valex +++|* ENTRY (TRIA) = TERMINAL INTERRUPT ADDRESS IF .NE. 0.
01430 M01S01421.valex +++|*
01431 M01S01422.valex +++|* EXIT TO POINT OF INTERRUPT IN INTERRUPT HANDLER MODE IF NO
01432 M01S01423.valex +++|* TERMINAL INTERRUPT ADDRESS AND NOT USER BREAK.
01433 M01S01424.valex +++|* TO POINT OF INTERRUPT WITH INTERRUPT ENABLED IF NO
01434 M01S01425.valex +++|* TERMINAL INTERRUPT ADDRESS AND USER BREAK.
01435 M01S01426.valex +++|* TO *RSE* IN INTERRUPT HANDLER MODE IF TERMINAL
01436 M01S01427.valex +++|* INTERRUPT ADDRESS SPECIFIED AND NOT USER BREAK.
01437 M01S01428.valex +++|* TO INTERRUPT ADDRESS WITH INTERRUPT ENABLED IF ADDRESS
01438 M01S01429.valex +++|* SPECIFIED AND USER BREAK.
01439 M01S01430.valex +++|* (EXER) = ERROR CODE IF NOT USER BREAK.
01440 M01S01431.valex +++|*
01441 M01S01432.valex +++|* USES X - 0, 1, 2, 3, 6, 7.
01442 M01S01433.valex +++|* A - 1, 2, 6, 7.
01443 M01S01434.valex +++|* B - 2.
01444 M01S01435.valex +++|*
01445 M01S01436.valex +++|* MACROS REPRIEVE.
01446 M01S01437.valex +++|
01447 M01S01438.valex +++|
01448 M01S01439.valex +++| RPV BSS 0 ENTRY
01449 M01S01440.valex +++| SA1 RPB+/COMSRPV/OSEF
01450 M01S01441.valex +++| SA2 TRIA
01451 M01S01442.valex +++| MX0 -12
01452 M01S01443.valex +++| BX6 -X0*X1 ISOLATE ERROR CODE
01453 M01S01444.valex +++| SB2 X6-TIET
01454 M01S01445.valex +++| ZR B2,RPV1 IF USER BREAK ONE
01455 M01S01446.valex +++| SB2 X6-TAET
01456 M01S01447.valex +++| RPV1 NZ X2,RPV2 IF INTERRUPT ADDRESS SPECIFIED
01457 M01S01448.valex +++| ZR B2,RPV3 IF USER BREAK
01458 M01S01449.valex +++| SA6 EXER SET ERROR CODE
01459 M01S01450.valex +++| REPRIEVE RPB,IRESUME,RPMS RESUME EXECUTION
01460 M01S01451.valex +++|
01461 M01S01452.valex +++| RPV2 NZ B2,RSE IF NOT USER BREAK
01462 M01S01453.valex +++| SA1 RPB+/COMSRPV/EXPA
01463 M01S01454.valex +++| MX0 18
01464 M01S01455.valex +++| LX0 -6
01465 M01S01456.valex +++| LX2 36
01466 M01S01457.valex +++| SX7 B0
01467 M01S01458.valex +++| BX6 -X0*X1 SET INTERRUPT ADDRESS
01468 M01S01459.valex +++| BX6 X6+X2
01469 M01S01460.valex +++| SA6 A1
01470 M01S01461.valex +++| SA7 RPB+/COMSRPV/ITIO CLEAR TERMINAL INPUT
01471 M01S01462.valex +++| SA7 RPB+/COMSRPV/PRAR CLEAR PENDING RA+1 REQUEST
01472 M01S01463.valex +++| SA1 I READ INPUT FET POINTERS
01473 M01S01464.valex +++| SA2 A1+B1
01474 M01S01465.valex +++| SX3 B1
01475 M01S01466.valex +++| LX0 -36
01476 M01S01467.valex +++| BX6 X1+X3 SET COMPLETE
01477 M01S01468.valex +++| BX7 X0*X2
01478 M01S01469.valex +++| SA6 A1 WRITE FIRST
01479 M01S01470.valex +++| SA7 A2+B1 SET IN = FIRST
01480 M01S01471.valex +++| SA7 A7+B1 SET OUT = FIRST
01481 M01S01472.valex +++| SA1 O READ OUTPUT FET POINTERS
01482 M01S01473.valex +++| SA2 A1+B1
01483 M01S01474.valex +++| BX6 X1+X3 SET COMPLETE
01484 M01S01475.valex +++| BX7 X0*X2
01485 M01S01476.valex +++| SA7 A2+B1 SET IN = FIRST
01486 M01S01477.valex +++| SA7 A7+B1 SET OUT = FIRST
01487 M01S01478.valex +++| RPV3 REPRIEVE RPB,RESUME,RPMS RESUME EXECUTION
01488 M01S01479.valex +++| RSE SPACE 4,10
01489 M01S01480.valex +++|** RSE - RESET EXTERNAL ERROR.
01490 M01S01481.valex +++|*
01491 M01S01482.valex +++|* ENTRY (TJEF) = TERMINATE JOB FLAG.
01492 M01S01483.valex +++|*
01493 M01S01484.valex +++|* EXIT ERROR FLAG RESET AND JOB ABORTED.
01494 M01S01485.valex +++|*
01495 M01S01486.valex +++|* USES X - 1.
01496 M01S01487.valex +++|* A - 1.
01497 M01S01488.valex +++|*
01498 M01S01489.valex +++|* MACROS REPRIEVE.
01499 M01S01490.valex +++|
01500 M01S01491.valex +++|
01501 M01S01492.valex +++| RSE BSS 0 ENTRY
01502 M01S01493.valex +++| SA1 TJEF
01503 M01S01494.valex +++| NZ X1,TRJ IF TERMINATE ON ERROR
01504 M01S01495.valex +++| RJ TER PERFORM TERMINATION
01505 M01S01496.valex +++| REPRIEVE RPB,RESET,0 RESET ERROR FLAG
01506 M01S01497.valex +++| STI SPACE 4,15
01507 M01S01498.valex +++|** STI - SET TERMINAL INTERACTION PARAMETERS.
01508 M01S01499.valex +++|*
01509 M01S01500.valex +++|* EXIT (TRIF) .NE. 0 IF FILE *INPUT* ASSIGNED TO TERMINAL.
01510 M01S01501.valex +++|* (ACSF) .NE. 0 IF *INPUT* ASSIGNED TO TERMINAL AND
01511 M01S01502.valex +++|* *ASCII* CHARACTER SET MODE SET.
01512 M01S01503.valex +++|* OUTPUT FILE *ZZZZZG0* ASSIGNED TO TERMINAL, NORMAL
01513 M01S01504.valex +++|* MODE SET, AND PROMPT DISABLED IF *INPUT* ASSIGNED
01514 M01S01505.valex +++|* TO TERMINAL.
01515 M01S01506.valex +++|*
01516 M01S01507.valex +++|* USES X - 1, 2, 7.
01517 M01S01508.valex +++|* A - 1, 7.
01518 M01S01509.valex +++|*
01519 M01S01510.valex +++|* CALLS STF.
01520 M01S01511.valex +++|*
01521 M01S01512.valex +++|* MACROS CSET, PROMPT, REQUEST, RETURN, SETFS, TSTATUS.
01522 M01S01513.valex +++|
01523 M01S01514.valex +++|
01524 M01S01515.valex +++| STI SUBR ENTRY/EXIT
01525 M01S01516.valex +++| SX2 I CHECK *INPUT* FILE ASSIGNMENT
01526 M01S01517.valex +++| RJ STF
01527 M01S01518.valex +++| NZ X6,STIX IF NOT ASSIGNED TO TERMINAL
01528 M01S01519.valex +++| SX7 1 SET TERMINAL INTERACTION FLAG
01529 M01S01520.valex +++| SA7 TRIF
01530 M01S01521.valex +++| RETURN O,R
01531 M01S01522.valex +++| REQUEST O,U,N ASSIGN TERMINAL OUTPUT FILE
01532 M01S01523.valex +++| SETFS O,SSST SET SSJ= FILE STATUS
01533 M01S01524.valex +++| PROMPT OFF DISABLE TERMINAL PROMPT
01534 M01S01525.valex +++| TSTATUS SBUF GET TERMINAL CHARACTER SET
01535 M01S01526.valex +++| SA1 SBUF+B1
01536 M01S01527.valex +++| SX7 B1
01537 M01S01528.valex +++| LX1 59-2
01538 M01S01529.valex +++| PL X1,STIX IF NOT *ASCII* MODE
01539 M01S01530.valex +++| SA7 ACSF SET *ASCII* MODE FLAG
01540 M01S01531.valex +++| CSET NORMAL CLEAR *ASCII* MODE
01541 M01S01532.valex +++| EQ STIX EXIT
01542 M01S01533.valex +++| TER SPACE 4,15
01543 M01S01534.valex +++|** TER - TERMINATION PROCESSING.
01544 M01S01535.valex +++|*
01545 M01S01536.valex +++|* ENTRY (ACSF) .NE. 0 IF CHARACTER SET TO BE RESET.
01546 M01S01537.valex +++|* (PRCF) = PROLOGUE/EPILOGUE REQUEST FLAGS.
01547 M01S01538.valex +++|*
01548 M01S01539.valex +++|* EXIT TERMINAL CHARACTER SET RESET IF NECESSARY.
01549 M01S01540.valex +++|* PROLOGUE/EPILOGUE CONTROLS MODIFIED IF REQUEST FLAGS
01550 M01S01541.valex +++|* SET.
01551 M01S01542.valex +++|*
01552 M01S01543.valex +++|* USES X - 1.
01553 M01S01544.valex +++|* A - 1.
01554 M01S01545.valex +++|*
01555 M01S01546.valex +++|* MACROS CSET.
01556 M01S01547.valex +++|
01557 M01S01548.valex +++|
01558 M01S01549.valex +++| TER SUBR ENTRY/EXIT
01559 M01S01550.valex +++| SA1 ACSF
01560 M01S01551.valex +++| ZR X1,TER1 IF NOT *ASCII* MODE ON ENTRY
01561 M01S01552.valex +++| CSET ASCII RESET *ASCII* MODE
01562 M01S01553.valex +++| TER1 SA1 PRC
01563 M01S01554.valex +++| SX1 X1
01564 M01S01555.valex +++| ZR X1,TERX IF NO CONTROLS TO SET
01565 M01S01556.valex +++| SX1 A1 SET STATUS WORD ADDRESS
01566 M01S01557.valex +++| SX2 104B SET PROLOGUE/EPILOGUE CONTROLS FUNCTION
01567 M01S01558.valex +++| RJ CPM=
01568 M01S01559.valex +++| EQ TERX RETURN
01569 M01S01560.valex +++| TRJ SPACE 4,10
01570 M01S01561.valex +++|** TRJ - TERMINATE JOB.
01571 M01S01562.valex +++|*
01572 M01S01563.valex +++|* USES X - 1, 2.
01573 M01S01564.valex +++|*
01574 M01S01565.valex +++|* CALLS CPM=.
01575 M01S01566.valex +++|*
01576 M01S01567.valex +++|* MACROS ENCSF, ENDRUN, RETURN, SETJOB.
01577 M01S01568.valex +++|
01578 M01S01569.valex +++|
01579 M01S01570.valex +++| TRJ BSS 0 ENTRY
01580 M01S01571.valex +++| SETJOB TRJA SET JOB TERMINATION
01581 M01S01572.valex +++| SX1 APN SET APPLICATION NAME
01582 M01S01573.valex +++| SX2 132B SET LOGOUT FUNCTION
01583 M01S01574.valex +++| RJ CPM=
01584 M01S01575.valex +++| RETURN F,R CLEAR COMMANDS
01585 M01S01576.valex +++| ENCSF F
01586 M01S01577.valex +++| ENDRUN
01587 M01S01578.valex +++|
01588 M01S01579.valex +++|
01589 M01S01580.valex +++| TRJA VFD 60/0 SETJOB PARAMETERS
01590 M01S01581.valex +++| VFD 36/0,12/2RTJ,12/0
01591 M01S01582.valex +++| SPACE 4,10
01592 M01S01583.valex +++|* COMMON DECKS.
01593 M01S01584.valex +++|
01594 M01S01585.valex +++|
01595 M01S01586.valex +++|*CALL COMCCIO
01596 M01S01587.valex +++|*CALL COMCCPM
01597 M01S01588.valex +++|*CALL COMCLFM
01598 M01S01589.valex +++|*CALL COMCPFM
01599 M01S01590.valex +++|*CALL COMCPOP
01600 M01S01591.valex +++|*CALL COMCMVE
01601 M01S01592.valex +++|*CALL COMCRDC
01602 M01S01593.valex +++|*CALL COMCRDW
01603 M01S01594.valex +++|*CALL COMCSNM
01604 M01S01595.valex +++|*CALL COMCSTF
01605 M01S01596.valex +++|*CALL COMCSYS
01606 M01S01597.valex +++|*CALL COMCUSB
01607 M01S01598.valex +++|*CALL COMCWTC
01608 M01S01599.valex +++|*CALL COMCWTW
01609 M01S01600.valex +++| SPACE 4,10
01610 M01S01601.valex +++|* ERROR MESSAGES.
01611 M01S01602.valex +++|
01612 M01S01603.valex +++|
01613 M01S01604.valex +++| ERDC DATA C* ERROR IN DEFAULT CHARGE.*
01614 M01S01605.valex +++| ERDN DATA C* DEFAULT CHARGE NULL.*
01615 M01S01606.valex +++| ERFI DATA C* FORMAT ERROR IN INPUT.*
01616 M01S01607.valex +++| ERIL DATA C* INPUT ERROR LIMIT.*
01617 M01S01608.valex +++| EREC DATA C* EPILOGUE AND SHELL CONFLICT.*
01618 M01S01609.valex +++| ERPC DATA C* PROLOGUE AND SHELL CONFLICT.*
01619 M01S01610.valex +++| ERRD DATA C* CHARGE RESTRICTED TO DEFAULT.*
01620 M01S01611.valex +++|
01621 M01S01612.valex +++|
01622 M01S01613.valex +++| USE LITERALS FLUSH OUT LITERALS
01623 M01S01614.valex +++|
01624 M01S01615.valex +++|
01625 M01S01616.valex +++| LIST X,F
01626 M01S01617.valex +++|*CALL COMCCHG
01627 M01S01618.valex +++| LIST *
01628 M01S01619.valex +++| TITLE BUFFER ALLOCATION.
01629 M01S01620.valex +++|* BUFFERS.
01630 M01S01621.valex +++|*
01631 M01S01622.valex +++|* NOTE - THESE BUFFERS OVERLAY BOTH THE BUFFERS IN *COMCCHG*
01632 M01S01623.valex +++|* AND THE REMAINING ROUTINES IN *VALEX*.
01633 M01S01624.valex +++|
01634 M01S01625.valex +++|
01635 M01S01626.valex +++| FBUF BSSN BUFL PROLOGUE/EPILOGUE FILE BUFFER
01636 M01S01627.valex +++| IBUF BSSN BUFL INPUT FILE BUFFER
01637 M01S01628.valex +++| OBUF BSSN BUFL OUTPUT FILE BUFFER
01638 M01S01629.valex +++| SBUF BSSN ARBS SCRATCH BUFFER
01639 M01S01630.valex +++| ENDBUF BSSN 0 END OF BUFFERS
01640 M01S01631.valex +++| END BSSN
01641 M01S01632.valex +++| TITLE OVERLAID SUBROUTINES.
01642 M01S01633.valex +++| GPR SPACE 4,10
01643 M01S01634.valex +++|** GPR - GET PROLOGUE/EPILOGUE STATUS.
01644 M01S01635.valex +++|*
01645 M01S01636.valex +++|* EXIT (PRST) = PROLOGUE AND EPILOGUE STATUS FLAGS.
01646 M01S01637.valex +++|*
01647 M01S01638.valex +++|* USES X - 1, 2.
01648 M01S01639.valex +++|*
01649 M01S01640.valex +++|* CALLS CPM=.
01650 M01S01641.valex +++|
01651 M01S01642.valex +++|
01652 M01S01643.valex +++| GPR SUBR ENTRY/EXIT
01653 M01S01644.valex +++| SX2 131B SET FUNCTION CODE
01654 M01S01645.valex +++| SX1 PRST SET STATUS WORD ADDRESS
01655 M01S01646.valex +++| RJ CPM= GET PROLOGUE/EPILOGUE STATUS
01656 M01S01647.valex +++| EQ GPRX RETURN
01657 M01S01648.valex +++| PRS SPACE 4,10
01658 M01S01649.valex +++|** PRS - PRESET.
01659 M01S01650.valex +++|*
01660 M01S01651.valex +++|* MACROS REPRIEVE.
01661 M01S01652.valex +++|
01662 M01S01653.valex +++|
01663 M01S01654.valex +++| PRS SUBR ENTRY/EXIT
01664 M01S01655.valex +++| NE B1,B0,PRSX IF PRESET ALREADY PERFORMED
01665 M01S01656.valex +++| SB1 1
01666 M01S01657.valex +++| REPRIEVE RPB,SETUP,RPMS SET REPRIEVE PARAMETERS
01667 M01S01658.valex +++| EQ PRSX RETURN
01668 M01S01659.valex +++| SCA SPACE 4,15
01669 M01S01660.valex +++|** SCA - SET COMMAND ARGUMENTS.
01670 M01S01661.valex +++|*
01671 M01S01662.valex +++|* ENTRY (A0) = ADDRESS OF ARGUMENT TABLE.
01672 M01S01663.valex +++|* (B3) = ADDRESS OF SECURE ARGUMENT TABLE IF .GT. 0.
01673 M01S01664.valex +++|*
01674 M01S01665.valex +++|* EXIT COMMAND ISSUED TO DAYFILE.
01675 M01S01666.valex +++|* TO *ABT* IF ARGUMENT ERROR.
01676 M01S01667.valex +++|*
01677 M01S01668.valex +++|* USES X - 1, 5, 6.
01678 M01S01669.valex +++|* A - 5, 6.
01679 M01S01670.valex +++|* B - 2, 3, 4, 6.
01680 M01S01671.valex +++|*
01681 M01S01672.valex +++|* CALLS ABT, ARM, POP, RSP, USB.
01682 M01S01673.valex +++|*
01683 M01S01674.valex +++|* MACROS MESSAGE.
01684 M01S01675.valex +++|
01685 M01S01676.valex +++|
01686 M01S01677.valex +++| SCA SUBR ENTRY/EXIT
01687 M01S01678.valex +++| SB2 CCDR UNPACK COMMAND
01688 M01S01679.valex +++| RJ USB
01689 M01S01680.valex +++| ZR B3,SCA1 IF NO SECURE ARGUMENTS
01690 M01S01681.valex +++| SA4 A0+ SET ARGUMENT TABLE ADDRESS
01691 M01S01682.valex +++| SA5 CCDR SET COMMAND ADDRESS
01692 M01S01683.valex +++| SB6 B3 SET SECURE ARGUMENT TABLE ADDRESS
01693 M01S01684.valex +++| SB2 B0 SET NO PARAMETERS TO SKIP
01694 M01S01685.valex +++| RJ RSP REMOVE SECURE PARAMETERS
01695 M01S01686.valex +++| SCA1 MESSAGE CCDR ISSUE COMMAND TO DAYFILE
01696 M01S01687.valex +++| SB6 USBB SET STRING BUFFER ADDRESS
01697 M01S01688.valex +++| RJ POP
01698 M01S01689.valex +++| NZ X6,SCA2 IF NO LEADING *$* OR */*
01699 M01S01690.valex +++| RJ POP SKIP KEYWORD
01700 M01S01691.valex +++| SCA2 SB3 A0 SET ARGUMENT TABLE ADDRESS
01701 M01S01692.valex +++| SB4 SCAA SET ASSEMBLY ADDRESS
01702 M01S01693.valex +++| SB2 B0 SET ARGUMENT TABLE LENGTH
01703 M01S01694.valex +++| SCA3 SA1 A0+B2
01704 M01S01695.valex +++| SB2 B2+B1 INCREMENT ARGUMENT COUNT
01705 M01S01696.valex +++| NZ X1,SCA3 IF NOT END OF TABLE
01706 M01S01697.valex +++| RJ CPA CONVERT POSITIONAL ARGUMENTS
01707 M01S01698.valex +++| NG B5,SCA4 IF ARGUMENT ERROR
01708 M01S01699.valex +++| PL X1,SCAX IF NO ARGUMENTS PROCESSED
01709 M01S01700.valex +++| SX6 B5 SET END OF STRING
01710 M01S01701.valex +++| SA6 USBC
01711 M01S01702.valex +++| SB3 A0 SET ARGUMENT TABLE ADDRESS
01712 M01S01703.valex +++| SB6 SCAA SET BUFFER ADDRESS
01713 M01S01704.valex +++| RJ ARM PROCESS ARGUMENTS
01714 M01S01705.valex +++| ZR X1,SCAX IF NO ARGUMENT ERROR
01715 M01S01706.valex +++| SCA4 SB6 ERAR * ERROR IN ARGUMENTS.*
01716 M01S01707.valex +++| EQ ABT ABORT
01717 M01S01708.valex +++|
01718 M01S01709.valex +++|
01719 M01S01710.valex +++| SCAA BSS 87 STRING BUFFER
01720 M01S01711.valex +++| VUN SPACE 4,15
01721 M01S01712.valex +++|** VUN - VALIDATE USER NAME.
01722 M01S01713.valex +++|*
01723 M01S01714.valex +++|* EXIT TO *ABT* IF ERROR.
01724 M01S01715.valex +++|* TO *RSE* IF ERROR IN VALIDATION.
01725 M01S01716.valex +++|*
01726 M01S01717.valex +++|* USES X - ALL.
| Line S01718 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2734 |
Seq # *Modification Id* Act
----------------------------+
01727 M02S01718.ns2734 ---|* A - 1, 3, 5, 6, 7.
01728 M01S00009.ns2734 +++|* A - 1, 2, 3, 5, 6, 7.
01729 M01S01719.valex +++|* B - 2, 5, 6.
01730 M01S01720.valex +++|*
| Line S01721 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2734 |
Seq # *Modification Id* Act
----------------------------+
01731 M02S01721.ns2734 ---|* CALLS ABT, CMI, COD, SNM, TLI.
01732 M01S00010.ns2734 +++|* CALLS CMI, COD, SNM.
01733 M01S01722.valex +++|*
| Line S01723 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2734 |
Seq # *Modification Id* Act
----------------------------+
01734 M02S01723.ns2734 ---|* MACROS EDATE, GETFLC, MESSAGE, VALID.
01735 M01S00011.ns2734 +++|* MACROS EDATE, GETFLC, MESSAGE, MOVE, VALID.
01736 M01S01724.valex +++|
01737 M01S01725.valex +++|
01738 M01S01726.valex +++| VUN SUBR ENTRY/EXIT
01739 M01S01727.valex +++|
01740 M01S01728.valex +++|* VALIDATE USER NAME, PASSWORD, FAMILY NAME.
01741 M01S01729.valex +++|
01742 M01S01730.valex +++| SA1 UPSW SET SPECIAL USER NAMES FLAG
01743 M01S01731.valex +++| SX6 10B
01744 M01S01732.valex +++| BX6 X1+X6
01745 M01S01733.valex +++| SA6 A1
01746 M01S01734.valex +++| VALID UNAM
01747 M01S01735.valex +++| SA2 EXER
01748 M01S01736.valex +++| SA1 UFAM
01749 M01S01737.valex +++| SX0 70B
01750 M01S01738.valex +++| NZ X2,RSE IF ERROR IN VALIDATION
01751 M01S01739.valex +++| BX0 X0*X1
01752 M01S00012.ns2734 +++| ZR X0,VUN1 IF NO ERROR CODE RETURNED
01753 M01S01740.valex +++| SX2 X0-10B
01754 M01S01741.valex +++| SB6 ERCR * CHARGE COMMAND REQUIRED.*
01755 M01S01742.valex +++| ZR X2,ABT IF CHARGE COMMAND REQUIRED
01756 M01S00013.ns2734 +++| SX2 X0-20B
01757 M01S01743.valex +++| SB6 ERSD * SECONDARY USER COMMANDS DISABLED.*
| Line S01744 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2734 |
Seq # *Modification Id* Act
----------------------------+
01758 M02S01744.ns2734 ---| NZ X0,ABT IF SECONDARY USER COMMANDS DISABLED
| Line S01745 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2734 |
Seq # *Modification Id* Act
----------------------------+
01759 M02S01745.ns2734 ---| SX6 1 SET DEFAULT CHARGE PRESENT
01760 M01S00014.ns2734 +++| ZR X2,ABT IF SECONDARY USER COMMANDS DISABLED
01761 M01S00015.ns2734 +++| SX2 X0-30B
01762 M01S00016.ns2734 +++| SB6 ERAF * ALTERNATE FAMILY NOT ALLOWED.*
01763 M01S00017.ns2734 +++| ZR X2,ABT IF ALTERNATE FAMILY NOT ALLOWED
01764 M01S00018.ns2734 +++| SB6 ERAU * ALTERNATE USER NAME NOT ALLOWED.*
01765 M01S00019.ns2734 +++| EQ ABT ABORT
01766 M01S00020.ns2734 +++|
01767 M01S00021.ns2734 +++| VUN1 SX6 1 SET DEFAULT CHARGE PRESENT
01768 M01S01746.valex +++| SA6 DFCF
01769 M01S01747.valex +++|
01770 M01S01748.valex +++|* VALIDATE JOB COMMAND PARAMETERS.
01771 M01S01749.valex +++|
01772 M01S01750.valex +++| LX1 59-0
01773 M01S01751.valex +++| MX6 -12
01774 M01S01752.valex +++| NG X1,VUN2 IF NOT FIRST USER COMMAND
01775 M01S01753.valex +++| SA1 JOPR
01776 M01S01754.valex +++| LX1 -24
01777 M01S01755.valex +++| BX1 -X6*X1 JOB ORIGIN TYPE
01778 M01S01756.valex +++| SX1 X1-SYOT
01779 M01S01757.valex +++| ZR X1,VUN2 IF SYSTEM ORIGIN
01780 M01S01758.valex +++| SX6 B1+ SET TERMINATE ON ERROR
01781 M01S01759.valex +++| SA6 TJEF
01782 M01S01760.valex +++|
01783 M01S01761.valex +++|* VALIDATE JOB COMMAND CM FIELD LENGTH.
01784 M01S01762.valex +++|
01785 M01S01763.valex +++| SA1 UALMW GET CM VALIDATION LIMIT
01786 M01S01764.valex +++| LX1 -18
01787 M01S01765.valex +++| RJ CMI CONVERT CM VALIDATION LIMIT
01788 M01S01766.valex +++| BX5 X1 SAVE CM VALIDATION LIMIT
01789 M01S01767.valex +++| GETFLC ,VUNE GET EM FIELD LENGTH CONTROL WORD
01790 M01S01768.valex +++| SA3 VUNE
01791 M01S01769.valex +++| MX0 -12
01792 M01S01770.valex +++| LX3 36 GET MAXFL (EXTENDED MEMORY)
01793 M01S01771.valex +++| BX3 -X0*X3
| Line S01772 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01794 M02S01772.ns2516a ---| ZR X3,VUN1 IF NO EXTENDED MEMORY FL REQUESTED
| Line S01773 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01795 M02S01773.ns2516a ---| NG X5,VUN1 IF CM VALIDATION UNLIMITED
01796 M01S00001.ns2516a +++| ZR X3,VUN2 IF NO EXTENDED MEMORY FL REQUESTED
01797 M01S00002.ns2516a +++| NG X5,VUN2 IF CM VALIDATION UNLIMITED
01798 M01S01774.valex +++| SX2 MCMX/100B
01799 M01S01775.valex +++| IX6 X5-X2
01800 M01S01776.valex +++| SB6 EREM * EXTENDED MEMORY MINIMUM CM NOT ...*
01801 M01S01777.valex +++| NG X6,ABT IF NOT VALIDATED FOR AT LEAST *MCMX*
| Line S01778 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01802 M02S01778.ns2516a ---|
| Line S01779 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01803 M02S01779.ns2516a ---|* VALIDATE JOB COMMAND TIME LIMIT.
| Line S01780 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01804 M02S01780.ns2516a ---|
| Line S01781 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01805 M02S01781.ns2516a ---| VUN1 SA1 UALMW GET TL VALIDATION LIMIT
| Line S01782 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01806 M02S01782.ns2516a ---| LX1 -30
| Line S01783 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01807 M02S01783.ns2516a ---| RJ TLI CONVERT TL VALIDATION LIMIT
| Line S01784 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01808 M02S01784.ns2516a ---| NG X1,VUN2 IF UNLIMITED
| Line S01785 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01809 M02S01785.ns2516a ---| SA3 SSJ=+SPPS SPECIAL SYSTEM PARAMETERS
| Line S01786 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01810 M02S01786.ns2516a ---| LX1 3 TIME LIMIT * 10B
| Line S01787 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01811 M02S01787.ns2516a ---| MX0 -15
| Line S01788 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01812 M02S01788.ns2516a ---| LX3 -24
| Line S01789 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01813 M02S01789.ns2516a ---| BX3 -X0*X3 TIME LIMIT
| Line S01790 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01814 M02S01790.ns2516a ---| IX6 X1-X3
| Line S01791 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01815 M02S01791.ns2516a ---| PL X6,VUN2 IF JOB COMMAND TL .LE. VALIDATION LIMIT
| Line S01792 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01816 M02S01792.ns2516a ---| SB6 ERTL * TL NOT VALIDATED.*
| Line S01793 Modification History |
M01 (Added by) | valex |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
01817 M02S01793.ns2516a ---| EQ ABT ABORT
01818 M01S01794.valex +++|
01819 M01S01795.valex +++|* MOVE ACCOUNT WORDS TO *SSJ=* AREA.
01820 M01S01796.valex +++|
01821 M01S01797.valex +++| VUN2 MOVE 3,UALMW,(SSJ=+ALMS)
01822 M01S01798.valex +++| SA1 UNAM
01823 M01S01799.valex +++| BX6 X1
01824 M01S01800.valex +++| SA6 SSJ=+UIDS
01825 M01S01801.valex +++|
01826 M01S01802.valex +++|* ISSUE ACCOUNTING MESSAGES.
01827 M01S01803.valex +++|
01828 M01S01804.valex +++| SA5 UFAM
01829 M01S01805.valex +++| SA1 =4HABUN
01830 M01S01806.valex +++| SB5 VUNA SET MESSAGE ADDRESS
01831 M01S01807.valex +++| LX5 59-0
01832 M01S01808.valex +++| PL X5,VUN3 IF FIRST *USER* COMMAND
01833 M01S01809.valex +++| SA1 =4HACUN
01834 M01S01810.valex +++| VUN3 SB2 1R?
01835 M01S01811.valex +++| RJ SNM SET MESSAGE IDENTIFIER
01836 M01S01812.valex +++| SA1 UNAM GET USER NAME
01837 M01S01813.valex +++| MX0 42
01838 M01S01814.valex +++| BX1 X0*X1
01839 M01S01815.valex +++| SB2 1R!
01840 M01S01816.valex +++| RJ SNM SET USER NAME
01841 M01S01817.valex +++| SA1 UFAM GET FAMILY NAME
01842 M01S01818.valex +++| BX1 X0*X1
01843 M01S01819.valex +++| SB2 1R+
01844 M01S01820.valex +++| RJ SNM SET FAMILY NAME
01845 M01S01821.valex +++| SA1 UTRN GET TERMINAL NAME
01846 M01S01822.valex +++| BX1 X0*X1
01847 M01S01823.valex +++| SB2 1R&
01848 M01S01824.valex +++| RJ SNM SET TERMINAL NAME
01849 M01S01825.valex +++| MESSAGE VUNA,5 ISSUE USER MESSAGE TO ACCOUNT FILE
01850 M01S01826.valex +++| NG X5,VUN4 IF NOT FIRST *USER* COMMAND
01851 M01S01827.valex +++| SA1 UFAM GET SERVICE CLASS
01852 M01S01828.valex +++| MX0 -6
01853 M01S01829.valex +++| AX1 12
01854 M01S01830.valex +++| SX3 10 SET WORD NUMBER
01855 M01S01831.valex +++| BX1 -X0*X1
01856 M01S01832.valex +++| BX4 X1
01857 M01S01833.valex +++| SX6 X3
01858 M01S01834.valex +++| IX3 X1/X3
01859 M01S01835.valex +++| SA2 VUND+X3 READ SERVICE CLASS WORD
01860 M01S01836.valex +++| IX3 X3*X6
01861 M01S01837.valex +++| IX4 X4-X3
01862 M01S01838.valex +++| SX3 6 SET SHIFT COUNT
01863 M01S01839.valex +++| IX4 X3*X4
01864 M01S01840.valex +++| SB2 X4
01865 M01S01841.valex +++| MX0 6
01866 M01S01842.valex +++| LX2 X2,B2 GET SERVICE CLASS CHARACTER
01867 M01S01843.valex +++| BX1 X0*X2
01868 M01S01844.valex +++| SB5 VUNB SET MESSAGE ADDRESS
01869 M01S01845.valex +++| SB2 1R?
01870 M01S01846.valex +++| RJ SNM SET SERVICE CLASS
01871 M01S01847.valex +++| MESSAGE VUNB,5 ISSUE SERVICE CLASS TO ACCOUNT FILE
01872 M01S01848.valex +++| MESSAGE VUNB,3 ISSUE SERVICE CLASS TO USER DAYFILE
01873 M01S01849.valex +++| SA1 UCRN
01874 M01S01850.valex +++| ZR X1,VUN4 IF NO CHARGE NUMBER
01875 M01S01851.valex +++| SB5 VUNC SET DEFAULT CHARGE MESSAGE ADDRESS
01876 M01S01852.valex +++| SB2 1R?
01877 M01S01853.valex +++| RJ SNM SET CHARGE NUMBER
01878 M01S01854.valex +++| SA1 UPJ1 READ FIRST PART OF PROJECT NUMBER
01879 M01S01855.valex +++| SB2 1R!
01880 M01S01856.valex +++| RJ SNM SET PROJECT NUMBER
01881 M01S01857.valex +++| SA1 UPJ2 READ SECOND PART OF PROJECT NUMBER
01882 M01S01858.valex +++| SB2 1R+
01883 M01S01859.valex +++| RJ SNM SET PROJECT NUMBER
01884 M01S01860.valex +++| MESSAGE VUNC,5 ISSUE DEFAULT CHARGE TO ACCOUNT FILE
01885 M01S01861.valex +++|
01886 M01S01862.valex +++|* ISSUE PASSWORD EXPIRATION MESSAGE.
01887 M01S01863.valex +++|
01888 M01S01864.valex +++| VUN4 SA1 UPSW
01889 M01S01865.valex +++| MX0 -18
01890 M01S01866.valex +++| LX1 -24
01891 M01S01867.valex +++| BX1 -X0*X1
01892 M01S01868.valex +++| ZR X1,VUN6 IF NO PASSWORD EXPIRATION DATE
01893 M01S01869.valex +++| EDATE X1 CONVERT EXPIRATION DATE
01894 M01S01870.valex +++| BX1 X6
01895 M01S01871.valex +++| SB5 VUNF
01896 M01S01872.valex +++| SB2 1R!
01897 M01S01873.valex +++| RJ SNM SET EXPIRATION DATE IN MESSAGE
01898 M01S01874.valex +++| MESSAGE B5,3 * YOUR PASSWORD EXPIRES AT ...*
01899 M01S01875.valex +++|
01900 M01S01876.valex +++|* SET SYSTEM AND USER PROLOGUE PARAMETERS.
01901 M01S01877.valex +++|
01902 M01S01878.valex +++| VUN6 NG X5,VUNX IF NOT FIRST *USER* COMMAND
01903 M01S01879.valex +++| SA1 UPRO
01904 M01S01880.valex +++| MX7 42
01905 M01S01881.valex +++| BX7 X1*X7 SET USER PROLOGUE FILE NAME
01906 M01S01882.valex +++| SA7 UPF
01907 M01S01883.valex +++| BX1 X1-X7
01908 M01S01884.valex +++| AX1 12
01909 M01S01885.valex +++| ZR X1,VUNX IF NO SYSTEM PROLOGUE DEFINED
01910 M01S01886.valex +++| SX0 X1-SSPMN
01911 M01S01887.valex +++| RJ COD CONVERT PROLOGUE INDEX
01912 M01S01888.valex +++| SB2 B2-6
01913 M01S01889.valex +++| MX6 6
01914 M01S01890.valex +++| ZR B2,VUN7 IF ONE DIGIT
01915 M01S01891.valex +++| MX6 12
01916 M01S01892.valex +++| VUN7 SA1 =4LPROC SET SYSTEM PROLOGUE NAME
01917 M01S01893.valex +++| SX2 CCPT SET CLEAR CONTROLS TERMINATION OPTION