cdc:nos2.source:opl.opl871:deck:valex
Deck VALEX
3 Modifications
Listing Sections
- Deck VALEX Start
- Deck VALEX Part 1 (Line 1918)
Source
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
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/valex.txt · Last modified: by 127.0.0.1