Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:valex
Deck VALEX
Library Member Format: MODIFY
Listing Sections
- Deck VALEX Start
- Deck VALEX Part 1 (Line 1965)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.valex +++| IDENT VALEX,ORIG 00002 M00S00002.valex +++| ABS 00003 M00S00003.valex +++| SST 00004 M00S00004.valex +++| SYSCOM B1 00005 M00S00005.valex +++| ENTRY ACCOUNT 00006 M00S00006.valex +++| ENTRY BYE 00007 M00S00007.valex +++| ENTRY CHARGE 00008 M00S00008.valex +++| ENTRY GOODBYE 00009 M00S00009.valex +++| ENTRY HELLO 00010 M00S00010.valex +++| ENTRY LOGIN 00011 M00S00011.valex +++| ENTRY LOGOUT 00012 M00S00012.valex +++| ENTRY USER 00013 M00S00013.valex +++| ENTRY XPR 00014 M00S00014.valex +++| ENTRY ARG= 00015 M00S00015.valex +++| ENTRY VAL= 00016 M00S00016.valex +++| ENTRY RFL= 00017 M00S00017.valex +++| ENTRY SDM= 00018 M00S00018.valex +++| ENTRY SSJ= 00019 M00S00019.valex +++| TITLE VALEX - VALIDATION EXECUTIVE. 00020 M00S00020.valex +++| SPACE 4,10 00021 M00S00021.valex +++|*COMMENT VALEX - VALIDATION EXECUTIVE.
| Line S00022 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00022 M01S00022.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1987.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00023 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00024 M00S00023.valex +++| SPACE 4,10 00025 M00S00024.valex +++|*** VALEX - VALIDATION EXECUTIVE. 00026 M00S00025.valex +++|* R. P. ROHRBOUGH 72/09/08. 00027 M00S00026.valex +++|* G. R. GREENFIELD 75/11/25. 00028 M00S00027.valex +++|* P. C. SMITH 81/06/10. 00029 M00S00028.valex +++|* G. S. YODER 87/03/13. 00030 M00S00029.valex +++| SPACE 4,10 00031 M00S00030.valex +++|*** USER AND ACCOUNT COMMANDS. 00032 M00S00031.valex +++|* 00033 M00S00032.valex +++|* USER,USERNAM,PASSWOR,FAMILY. 00034 M00S00033.valex +++|* 00035 M00S00034.valex +++|* USER,UN=USERNAM,PW=PASSWOR,FM=FAMILY. 00036 M00S00035.valex +++|* 00037 M00S00036.valex +++|* ACCOUNT,USERNAM,PASSWOR,FAMILY. 00038 M00S00037.valex +++|* 00039 M00S00038.valex +++|* ACCOUNT,UN=USERNAM,PW=PASSWOR,FM=FAMILY. 00040 M00S00039.valex +++|* 00041 M00S00040.valex +++|* USERNAM = USER NAME (1-7 ALPHNUMERIC CHARACTERS 00042 M00S00041.valex +++|* INCLUDING ASTERISK). 00043 M00S00042.valex +++|* 00044 M00S00043.valex +++|* PASSWOR = PASSWORD (1-7 ALPHNUMERIC CHARACTERS). 00045 M00S00044.valex +++|* 00046 M00S00045.valex +++|* FAMILY = FAMILY NAME (1-7 ALPHANUMERIC CHARACTERS). 00047 M00S00046.valex +++|* 00048 M00S00047.valex +++|* IF THE FAMILY NAME IS OMITTED, THE DEFAULT FAMILY WILL BE 00049 M00S00048.valex +++|* ASSUMED. DEFAULT CHARGE VALIDATION WILL BE PERFOMED IF THE 00050 M00S00049.valex +++|* USER NAME REQUIRES CHARGE VALIDATION AND NO *CHARGE* COMMAND 00051 M00S00050.valex +++|* FOLLOWS THE *USER* COMMAND. IF DEFAULT CHARGE VALIDATION 00052 M00S00051.valex +++|* FAILS AND FILE *INPUT* IS ASSIGNED TO A TERMINAL, THE USER 00053 M00S00052.valex +++|* WILL BE PROMPTED FOR ENTRY OF A VALID CHARGE AND PROJECT 00054 M00S00053.valex +++|* NUMBER. 00055 M00S00054.valex +++| SPACE 4,10 00056 M00S00055.valex +++|*** CHARGE COMMAND. 00057 M00S00056.valex +++|* 00058 M00S00057.valex +++|* CHARGE,CHARGE,PROJECT. 00059 M00S00058.valex +++|* 00060 M00S00059.valex +++|* CHARGE,CN=CHARGE,PN=PROJECT. 00061 M00S00060.valex +++|* 00062 M00S00061.valex +++|* CHARGE. 00063 M00S00062.valex +++|* 00064 M00S00063.valex +++|* CHARGE = EITHER OF THE FOLLOWING - 00065 M00S00064.valex +++|* 00066 M00S00065.valex +++|* - CHARGE NUMBER (1-10 ALPHANUMERIC 00067 M00S00066.valex +++|* CHARACTERS INCLUDING ASTERISK). 00068 M00S00067.valex +++|* 00069 M00S00068.valex +++|* - DEFAULT CHARGE PARAMETER (*). IF 00070 M00S00069.valex +++|* SPECIFIED, AND THE PROJECT NUMBER IS 00071 M00S00070.valex +++|* NULL, THE DEFAULT CHARGE AND PROJECT 00072 M00S00071.valex +++|* NUMBERS CONTAINED IN THE USER-S 00073 M00S00072.valex +++|* VALIDATION FILE ENTRY ARE USED. 00074 M00S00073.valex +++|* 00075 M00S00074.valex +++|* PROJECT = PROJECT NUMBER (1-20 ALPHANUMERIC CHARACTERS 00076 M00S00075.valex +++|* INCLUDING ASTERISK). 00077 M00S00076.valex +++|* 00078 M00S00077.valex +++|* IF BOTH CHARGE AND PROJECT NUMBERS ARE SPECIFIED THEY WILL BE 00079 M00S00078.valex +++|* VALIDATED FROM THE PROJECT PROFILE FILE (PROFILX) AND IF 00080 M00S00079.valex +++|* VALID, A NEW ACCOUNT BLOCK WILL BE BEGUN. OTHERWISE, THE JOB 00081 M00S00080.valex +++|* WILL BE ABORTED. IF THE DEFAULT CHARGE PARAMETER (*) IS 00082 M00S00081.valex +++|* SPECIFIED AS THE CHARGE PARAMETER AND THE PROJECT PARAMETER 00083 M00S00082.valex +++|* IS NULL, THE DEFAULT CHARGE AND PROJECT NUMBERS IN THE USER-S 00084 M00S00083.valex +++|* VALIDATION FILE (VALIDUX) ENTRY WILL BE USED AND PROCESSED AS 00085 M00S00084.valex +++|* IF THEY HAD BEEN ENTERED ON THE *CHARGE* COMMAND WITH THE 00086 M00S00085.valex +++|* EXCEPTION THAT IF BOTH THE DEFAULT CHARGE AND PROJECT FIELDS 00087 M00S00086.valex +++|* ARE NULL AND THE USER NAME DOES NOT REQUIRE A *CHARGE* 00088 M00S00087.valex +++|* COMMAND (*CCNR* PRIVILEGE) THE COMMAND WILL BE PROCESSED AS A 00089 M00S00088.valex +++|* NO-OP. THIS IS FOR COMPATIBILITY WITH PREVIOUS SYSTEM LEVELS 00090 M00S00089.valex +++|* AND WILL BE REMOVED IN A FUTURE RELEASE. IF THE *CHARGE.* 00091 M00S00090.valex +++|* FORM OF THE COMMAND IS USED THE CHARGE AND PROJECT NUMBERS 00092 M00S00091.valex +++|* WILL BE READ FROM THE FILE *INPUT*. IF *INPUT* IS NOT 00093 M00S00092.valex +++|* ASSIGNED TO A TERMINAL DEVICE, THE CHARGE AND PROJECT NUMBERS 00094 M00S00093.valex +++|* MUST APPEAR ON ONE LINE IN THE FORM - 00095 M00S00094.valex +++|* 00096 M00S00095.valex +++|* CHARGE,PROJECT 00097 M00S00096.valex +++|* 00098 M00S00097.valex +++|* IF *INPUT* IS A TERMINAL FILE, THE USER WILL BE PROMPTED 00099 M00S00098.valex +++|* FOR CHARGE AND PROJECT NUMBERS. THEY MAY BE ENTERED 00100 M00S00099.valex +++|* SEPARATELY OR IN THE ABOVE FORMAT IN RESPONSE TO THE CHARGE 00101 M00S00100.valex +++|* NUMBER PROMPT. IF AN ASTERISK IS ENTERED IN RESPONSE TO 00102 M00S00101.valex +++|* THE CHARGE NUMBER PROMPT, THE DEFAULT CHARGE WILL BE USED 00103 M00S00102.valex +++|* AND NO PROJECT NUMBER PROMPT WILL BE ISSUED. IN THE CASE 00104 M00S00103.valex +++|* OF AN ERROR IN INPUT OR CHARGE VALIDATION, THE USER WILL BE 00105 M00S00104.valex +++|* REPROMPTED FOR CHARGE AND PROJECT NUMBERS UP TO A DEFINED 00106 M00S00105.valex +++|* ERROR LIMIT. 00107 M00S00106.valex +++|* 00108 M00S00107.valex +++|* 00109 M00S00108.valex +++|* *CHARGE* COMMAND PROCESSING - 00110 M00S00109.valex +++|* 00111 M00S00110.valex +++|* - IF THE COMMAND IS A SECONDARY *CHARGE* COMMAND AND A 00112 M00S00111.valex +++|* PROJECT EPILOGUE EXISTS FOR THE CURRENT PROJECT NUMBER 00113 M00S00112.valex +++|* THE EPILOGUE IS EXECUTED BEFORE ANY PROCESSING IS PERFORMED 00114 M00S00113.valex +++|* ON THE *CHARGE* COMMAND. THE SECONDARY *CHARGE* COMMAND IS 00115 M00S00114.valex +++|* REEXECUTED WHEN THE EPILOGUE TERMINATES. 00116 M00S00115.valex +++|* 00117 M00S00116.valex +++|* - FOR A SECONDARY *CHARGE* COMMAND THE ACCOUNTING INFORMATION 00118 M00S00117.valex +++|* FOR THE CURRENT ACCOUNT BLOCK IS DISPLAYED IN THE ACCOUNT 00119 M00S00118.valex +++|* DAYFILE AND THE SRU-S ACCUMULATED DURING THE ACCOUNT BLOCK 00120 M00S00119.valex +++|* ARE ADDED TO THE ACCUMULATOR IN THE PROFILE FILE LEVEL 3 00121 M00S00120.valex +++|* BLOCK. 00122 M00S00121.valex +++|* 00123 M00S00122.valex +++|* - THE NEW CHARGE AND PROJECT NUMBERS ARE SET IN THE JOB-S 00124 M00S00123.valex +++|* NFL, THE SRU ACCUMULATOR IS CLEARED, AND THE SRU 00125 M00S00124.valex +++|* MULTIPLIERS AND SRU LIMITS ARE RESET IF NECESSARY. 00126 M00S00125.valex +++|* 00127 M00S00126.valex +++|* - IF A PROJECT PROLOGUE IS DEFINED FOR THE NEW PROJECT NUMBER 00128 M00S00127.valex +++|* IT IS EXECUTED. CHARGE REQUIRED STATUS MAY BE SET ON 00129 M00S00128.valex +++|* TERMINATION DEPENDING ON THE OPTION SET IN THE PROFILE FILE 00130 M00S00129.valex +++|* ENTRY. SEE PROLOGUE SEQUENCING DOCUMENTATION. 00131 M00S00130.valex +++|* 00132 M00S00131.valex +++|* CHARGE VALIDATION MAY BE INVOKED IMPLICITLY BY *USER* COMMAND 00133 M00S00132.valex +++|* PROCESSING. SEE *USER* COMMAND DOCUMENTATION. 00134 M00S00133.valex +++| SPACE 4,15 00135 M00S00134.valex +++|*** LOGOUT COMMANDS. 00136 M00S00135.valex +++|* 00137 M00S00136.valex +++|* BYE,ANAME. 00138 M00S00137.valex +++|* 00139 M00S00138.valex +++|* BYE,AP=ANAME. 00140 M00S00139.valex +++|* 00141 M00S00140.valex +++|* GOODBYE,ANAME. 00142 M00S00141.valex +++|* 00143 M00S00142.valex +++|* GOODBYE,AP=ANAME. 00144 M00S00143.valex +++|* 00145 M00S00144.valex +++|* HELLO,ANAME. 00146 M00S00145.valex +++|* 00147 M00S00146.valex +++|* HELLO,AP=ANAME. 00148 M00S00147.valex +++|* 00149 M00S00148.valex +++|* LOGIN,ANAME. 00150 M00S00149.valex +++|* 00151 M00S00150.valex +++|* LOGIN,AP=ANAME. 00152 M00S00151.valex +++|* 00153 M00S00152.valex +++|* LOGOUT,ANAME. 00154 M00S00153.valex +++|* 00155 M00S00154.valex +++|* LOGOUT,AP=ANAME. 00156 M00S00155.valex +++|* 00157 M00S00156.valex +++|* ANAME = NETWORK APPLICATION NAME (1-7 ALPHANUMERIC 00158 M00S00157.valex +++|* CHARACTERS). THE DEFAULT IS *LOGOUT* FOR THE 00159 M00S00158.valex +++|* *BYE*, *GOODBYE*, AND *LOGOUT* COMMANDS AND 00160 M00S00159.valex +++|* *LOGIN* FOR THE *HELLO* AND *LOGIN* COMMANDS. 00161 M00S00160.valex +++|* 00162 M00S00161.valex +++|* 00163 M00S00162.valex +++|* LOGOUT COMMANDS ARE PROCESSED AS FOLLOWS - 00164 M00S00163.valex +++|* 00165 M00S00164.valex +++|* - AN EPILOGUE PROGRAM IS EXECUTED IF ONE IS DEFINED. 00166 M00S00165.valex +++|* 00167 M00S00166.valex +++|* - AN ONLINE INTERACTIVE JOB IS DISCONNECTED FROM THE 00168 M00S00167.valex +++|* TERMINAL AND THE TERMINAL IS OPTIONALLY SWITCHED TO 00169 M00S00168.valex +++|* ANOTHER NETWORK APPLICATION. 00170 M00S00169.valex +++|* 00171 M00S00170.valex +++|* - THE JOB IS TERMINATED. 00172 M00S00171.valex +++| SPACE 4,10 00173 M00S00172.valex +++|*** *XPR* COMMAND - EXECUTE SEQUENCED PROLOGUE. 00174 M00S00173.valex +++|* 00175 M00S00174.valex +++|* $XPR.IT NNNNNNN 00176 M00S00175.valex +++|* 00177 M00S00176.valex +++|* I = PROLOGUE INDEX. 00178 M00S00177.valex +++|* = 0 IF SYSTEM PROLOGUE. 00179 M00S00178.valex +++|* = 1 IF PROJECT PROLOGUE. 00180 M00S00179.valex +++|* = 2 IF USER PROLOGUE. 00181 M00S00180.valex +++|* 00182 M00S00181.valex +++|* T = PROLOGUE TERMINATION OPTION + 1 TO SET IF .NE. 0. 00183 M00S00182.valex +++|* = 0 IF NO CHANGE IN TERMINATION OPTION. 00184 M00S00183.valex +++|* 00185 M00S00184.valex +++|* NNNNNNN = PROLOGUE FILE NAME. 00186 M00S00185.valex +++|* = NULL (LINE TERMINATION) IF PROLOGUE FILE 00187 M00S00186.valex +++|* ACCESS ERROR. 00188 M00S00187.valex +++|* 00189 M00S00188.valex +++|* 00190 M00S00189.valex +++|* THE *XPR* COMMAND IS USED IN PROLOGUE SEQUENCING TO CLEAR 00191 M00S00190.valex +++|* NO-DROP STATUS AND TO RESET THE LOCAL FILE NAME OF A PROLOGUE 00192 M00S00191.valex +++|* FILE AFTER TERMINATION OF A PREVIOUS PROLOGUE. THE PROLOGUE 00193 M00S00192.valex +++|* TERMINATION OPTION MAY ALSO BE CHANGED OR CLEARED IF 00194 M00S00193.valex +++|* NECESSARY. 00195 M00S00194.valex +++| SPACE 4,10 00196 M00S00195.valex +++|*** PROLOGUE AND EPILOGUE EXECUTION. 00197 M00S00196.valex +++|* 00198 M00S00197.valex +++|* SYSTEM AND USER PROLOGUE EXECUTION IS INITIATED ONLY BY A 00199 M00S00198.valex +++|* VALID PRIMARY *USER* COMMAND. PROJECT PROLOGUE EXECUTION IS 00200 M00S00199.valex +++|* INITIATED BY A VALID *CHARGE* COMMAND OR BY A *USER* COMMAND 00201 M00S00200.valex +++|* IF A CHARGE IS VALIDATED IMPLICITLY. FOR A PRIMARY *USER* 00202 M00S00201.valex +++|* COMMAND THE EXECUTION ORDER IS SYSTEM, PROJECT, AND USER 00203 M00S00202.valex +++|* PROLOGUE. FOR THE SYSTEM AND PROJECT PROLOGUES, OPTIONS CAN 00204 M00S00203.valex +++|* BE SELECTED UNDER *MODVAL* OR *PROFILE* TO SPECIFY SECURITY 00205 M00S00204.valex +++|* PROCESSING TO BE PERFORMED ON PROLOGUE TERMINATION. THIS 00206 M00S00205.valex +++|* MAKES IT POSSIBLE TO RESTRICT THE USAGE OF USER NAMES AND 00207 M00S00206.valex +++|* PROJECT NUMBERS TO SPECIFIC APPLICATIONS OR TO PERFORM 00208 M00S00207.valex +++|* VALIDATION CHECKS BEFORE ALLOWING UNRESTRICTED USAGE. IF A 00209 M00S00208.valex +++|* SHELL PROGRAM IS DEFINED, IT IS POSSIBLE TO PREVENT NORMAL 00210 M00S00209.valex +++|* PROCESSING OF COMMANDS IN A PROCEDURE. THEREFORE, EITHER 00211 M00S00210.valex +++|* SHELL CONTROL WILL BE CLEARED OR THE JOB WILL BE ABORTED 00212 M00S00211.valex +++|* DEPENDING ON THE SHELL PROGRAM ABORT OPTION UPON INITIATION 00213 M00S00212.valex +++|* OF A SYSTEM OR PROJECT PROLOGUE. THE PROLOGUE FILES ARE 00214 M00S00213.valex +++|* ACCESSED INTERNALLY BY *CHARGE* TO AVOID PASSING PERMANENT 00215 M00S00214.valex +++|* FILE PASSWORDS TO THE SEQUENCING PROCEDURE. IF ANY OF THE 00216 M00S00215.valex +++|* PROLOGUES ABORT, THE SEQUENCING PROCEDURE WILL ABORT AT THAT 00217 M00S00216.valex +++|* POINT. IF A PROLOGUE FILE WAS DEFINED BUT COULD NOT BE 00218 M00S00217.valex +++|* ACCESSED, THE SEQUENCING PROCEDURE WILL ABORT AT THE POINT AT 00219 M00S00218.valex +++|* WHICH THAT PROLOGUE IS INVOKED. 00220 M00S00219.valex +++|* 00221 M00S00220.valex +++|* PROJECT EPILOGUE EXECUTION IS INITIATED BY A SECONDARY 00222 M00S00221.valex +++|* *CHARGE* COMMAND OR BY A LOGOUT COMMAND IF AN EPILOGUE IS 00223 M00S00222.valex +++|* DEFINED FOR THE CURRENT ACCOUNT BLOCK. SHELL CONTROL IS 00224 M00S00223.valex +++|* CLEARED BEFORE EPILOGUE EXECUTION BEGINS AND CHARGE REQUIRED 00225 M00S00224.valex +++|* IS SET ON EPILOGUE TERMINATION TO ENSURE TERMINATION OF THE 00226 M00S00225.valex +++|* ACCOUNT BLOCK. AN ATTEMPT TO SET SHELL CONTROL WITHOUT THE 00227 M00S00226.valex +++|* CLEAR CONTROL ON SHELL ABORT OPTION IN AN ACCOUNT BLOCK WHICH 00228 M00S00227.valex +++|* HAS AN EPILOGUE DEFINED WILL ABORT THE JOB. 00229 M00S00228.valex +++|* 00230 M00S00229.valex +++|* *CHARGE* COMMANDS ARE NOT PERMITTED IN A SYSTEM OR PROJECT 00231 M00S00230.valex +++|* PROLOGUE OR IN A PROJECT EPILOGUE TO AVOID AMBIGUITY WITH 00232 M00S00231.valex +++|* RESPECT TO SETTING CHARGE REQUIRED WHICH WOULD RESULT FROM 00233 M00S00232.valex +++|* PROLOGUE OR EPILOGUE NESTING. FOR THE SAME REASON, LOGOUT 00234 M00S00233.valex +++|* COMMANDS ARE NOT PERMITTED IN A PROJECT PROLOGUE IF AN 00235 M00S00234.valex +++|* EPILOGUE IS DEFINED FOR THE CURRENT ACCOUNT BLOCK. 00236 M00S00235.valex +++| SPACE 4,10 00237 M00S00236.valex +++|*** DAYFILE MESSAGES. 00238 M00S00237.valex +++|*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2734 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00238.valex +++|* * CHARGE = CHARGENUMBER, PROJECT = PROJECTNUMBER. 00248 M00S00239.valex +++|* AN ACCOUNT BLOCK HAS BEEN INITIATED UNDER THE 00249 M00S00240.valex +++|* INDICATED CHARGE AND PROJECT NUMBERS. 00250 M00S00241.valex +++|* 00251 M00S00242.valex +++|* * CHARGE ABNORMAL.* 00252 M00S00243.valex +++|* INTERNAL SYSTEM ERROR OCCURRED. 00253 M00S00244.valex +++|* 00254 M00S00245.valex +++|* * CHARGE ABORTED.* 00255 M00S00246.valex +++|* EXTERNAL JOB ABORT. 00256 M00S00247.valex +++|* 00257 M00S00248.valex +++|* * CHARGE COMMAND REQUIRED.* 00258 M00S00249.valex +++|* THE COMMAND CANNOT BE EXECUTED UNTIL A VALID *CHARGE* 00259 M00S00250.valex +++|* COMMAND IS EXECUTED. 00260 M00S00251.valex +++|* 00261 M00S00252.valex +++|* * CHARGE FILE BUSY.* 00262 M00S00253.valex +++|* FILE IS NOT AVAILABLE FOR CHARGE PURPOSES. WAIT AND 00263 M00S00254.valex +++|* TRY AGAIN. 00264 M00S00255.valex +++|* 00265 M00S00256.valex +++|* * CHARGE NOT VALID.* 00266 M00S00257.valex +++|* 1) CHARGE OR PROJECT NUMBER DOES NOT EXIST. 00267 M00S00258.valex +++|* 2) PROJECT NUMBER IS NOT AVAILABLE TO A USER WITH THIS 00268 M00S00259.valex +++|* USER NAME. 00269 M00S00260.valex +++|* 3) CHARGE OR PROJECT NUMBER EXISTS BUT IS INACTIVE. 00270 M00S00261.valex +++|* 00271 M00S00262.valex +++|* * CHARGE NOT VALID AT THIS HOUR.* 00272 M00S00263.valex +++|* THIS PROJECT NUMBER CANNOT BE USED AT THIS TIME OF 00273 M00S00264.valex +++|* DAY. 00274 M00S00265.valex +++|* 00275 M00S00266.valex +++|* * CHARGE NUMBER EXPIRED.* 00276 M00S00267.valex +++|* CHARGE NUMBER EXPIRATION DATE HAS OCCURRED. 00277 M00S00268.valex +++|* 00278 M00S00269.valex +++|* * CHARGE RESTRICTED TO DEFAULT.* 00279 M00S00270.valex +++|* THE USER MAY ONLY USE THE DEFAULT CHARGE AND PROJECT 00280 M00S00271.valex +++|* NUMBER. 00281 M00S00272.valex +++|* 00282 M00S00273.valex +++|* * COMMAND NOT ALLOWED IN PROLOGUE/EPILOGUE.* 00283 M00S00274.valex +++|* A *CHARGE* COMMAND WAS EXECUTED IN A SYSTEM PROLOGUE, 00284 M00S00275.valex +++|* PROJECT PROLOGUE OR PROJECT EPILOGUE OR A LOGOUT 00285 M00S00276.valex +++|* COMMAND WAS EXECUTED IN A PROJECT PROLOGUE WHEN AN 00286 M00S00277.valex +++|* EPILOGUE WAS DEFINED (ISSUED BY *CPM*). 00287 M00S00278.valex +++|* 00288 M00S00279.valex +++|* * CUMULATIVE LIMIT EXCEEDED.* 00289 M00S00280.valex +++|* ONE OF THE INSTALLATION DEFINED RESOURCE USAGE 00290 M00S00281.valex +++|* ACCUMULATORS FOR THIS PROJECT EXCEEDS THE MAXIMUM 00291 M00S00282.valex +++|* ALLOWABLE VALUE. 00292 M00S00283.valex +++|* 00293 M00S00284.valex +++|* * CUMULATIVE SRU LIMIT EXCEEDED.* 00294 M00S00285.valex +++|* SRU ACCUMULATOR FOR THIS PROJECT EXCEEDS THE MAXIMUM 00295 M00S00286.valex +++|* ALLOWABLE VALUE. 00296 M00S00287.valex +++|* 00297 M00S00288.valex +++|* * DATA BASE ERROR.* 00298 M00S00289.valex +++|* ERROR IN VALIDATION FILE STRUCTURE DETECTED. 00299 M00S00290.valex +++|* 00300 M00S00291.valex +++|* * DEFAULT CHARGE NOT VALID.* 00301 M00S00292.valex +++|* SAME AS "CHARGE NOT VALID" EXCEPT THAT THE DEFAULT 00302 M00S00293.valex +++|* CHARGE INFORMATION WAS USED FOR PROCESSING. 00303 M00S00294.valex +++|* 00304 M00S00295.valex +++|* * DEFAULT CHARGE NULL.* 00305 M00S00296.valex +++|* THE DEFAULT CHARGE NUMBER AND THE DEFAULT PROJECT 00306 M00S00297.valex +++|* NUMBER WERE NULL. 00307 M00S00298.valex +++|* 00308 M00S00299.valex +++|* * EPILOGUE AND SHELL CONFLICT.* 00309 M00S00300.valex +++|* A SHELL PROGRAM WITH THE NO-ABORT OPTION WAS ACTIVE AT 00310 M00S00301.valex +++|* THE TIME A CHARGE AND PROJECT NUMBER WITH AN EPILOGUE 00311 M00S00302.valex +++|* WAS VALIDATED. 00312 M00S00303.valex +++|* 00313 M00S00304.valex +++|* * ERROR IN ARGUMENTS.* 00314 M00S00305.valex +++|* ARGUMENT ERROR WAS DETECTED ON COMMAND. 00315 M00S00306.valex +++|* 00316 M00S00307.valex +++|* * ERROR IN DEFAULT CHARGE. * 00317 M00S00308.valex +++|* DEFAULT CHARGE PROCESSING WAS NOT ATTEMPTED BECAUSE 00318 M00S00309.valex +++|* THE DEFAULT CHARGE INFORMATION IN THE USER-S 00319 M00S00310.valex +++|* VALIDATION FILE ENTRY WAS INCORRECT. 00320 M00S00311.valex +++|* 00321 M00S00312.valex +++|* * EXTENDED MEMORY MINIMUM CM NOT VALIDATED.* 00322 M00S00313.valex +++|* MINIMUM CM REQUIRED FOR EXTENDED MEMORY USAGE EXCEEDS 00323 M00S00314.valex +++|* VALIDATION LIMIT. 00324 M00S00315.valex +++|* 00325 M00S00316.valex +++|* * FORMAT ERROR IN INPUT.* 00326 M00S00317.valex +++|* THE CHARGE OR PROJECT NUMBER READ FROM THE INPUT FILE 00327 M00S00318.valex +++|* WAS NOT IN THE CORRECT FORMAT. 00328 M00S00319.valex +++|* 00329 M00S00320.valex +++|* * INCORRECT COMMAND.* 00330 M00S00321.valex +++|* THE *XPR* COMMAND WAS EXECUTED IN OTHER THAN THE 00331 M00S00322.valex +++|* PROLOGUE SEQUENCING PROCEDURE. 00332 M00S00323.valex +++|* 00333 M00S00324.valex +++|* * INPUT ERROR LIMIT.* 00334 M00S00325.valex +++|* THE MAXIMUM ALLOWED NUMBER OF CONSECUTIVE INPUT ERRORS 00335 M00S00326.valex +++|* WAS EXCEEDED. 00336 M00S00327.valex +++|* 00337 M00S00328.valex +++|* * NO USER COMMAND EXECUTED.* 00338 M00S00329.valex +++|* *CHARGE* COMMAND WAS NOT PRECEDED BY A *USER* COMMAND. 00339 M00S00330.valex +++|* 00340 M00S00331.valex +++|* * PROJECT EPILOGUE NOT FOUND.* 00341 M00S00332.valex +++|* THE PROJECT EPILOGUE FILE COULD NOT BE ACCESSED. 00342 M00S00333.valex +++|* 00343 M00S00334.valex +++|* * PROJECT NUMBER EXPIRED.* 00344 M00S00335.valex +++|* PROJECT NUMBER EXPIRATION DATE HAS OCCURRED. 00345 M00S00336.valex +++|* 00346 M00S00337.valex +++|* * PROJECT PROLOGUE NOT FOUND.* 00347 M00S00338.valex +++|* THE PROJECT PROLOGUE FILE COULD NOT BE ACCESSED. 00348 M00S00339.valex +++|* 00349 M00S00340.valex +++|* * PROJECT PROLOGUE FILE NOT LOCAL.* 00350 M00S00341.valex +++|* THE FILE ZZZZPR1 WAS NOT LOCAL TO THE JOB AT THE TIME 00351 M00S00342.valex +++|* THE PROJECT PROLOGUE WAS TO BE EXECUTED. 00352 M00S00343.valex +++|* 00353 M00S00344.valex +++|* * PROLOGUE AND SHELL CONFLICT.* 00354 M00S00345.valex +++|* A SHELL PROGRAM WITH THE NO-ABORT OPTION WAS ACTIVE AT 00355 M00S00346.valex +++|* THE TIME A CHARGE AND PROJECT NUMBER WITH A PROLOGUE 00356 M00S00347.valex +++|* WAS VALIDATED. 00357 M00S00348.valex +++|* 00358 M00S00349.valex +++|* * SECONDARY USER COMMANDS DISABLED.* = THE SYSTEM IS NOT 00359 M00S00350.valex +++|* OPERATING IN SECURE MODE AND SECONDARY USER COMMANDS 00360 M00S00351.valex +++|* ARE DISABLED. 00361 M00S00352.valex +++|* 00362 M00S00353.valex +++|* * SECURITY CONFLICT.* 00363 M00S00354.valex +++|* USER AND/OR FAMILY NAME SPECIFIED ON A *USER* COMMAND 00364 M00S00355.valex +++|* WERE NOT VALID OR A SECONDARY *USER* COMMAND WAS 00365 M00S00356.valex +++|* EXECUTED WHEN THE SYSTEM WAS RUNNING IN SECURED MODE 00366 M00S00357.valex +++|* (ISSUED BY *CPM*). 00367 M00S00358.valex +++|* 00368 M00S00359.valex +++|* * SYSTEM PROLOGUE NOT FOUND.* 00369 M00S00360.valex +++|* THE SYSTEM PROLOGUE FILE COULD NOT BE ACCESSED. 00370 M00S00361.valex +++|* 00371 M00S00362.valex +++|* * TL NOT VALIDATED.* 00372 M00S00363.valex +++|* JOB COMMAND *TL* PARAMETER IS GREATER THAN THE USER-S 00373 M00S00364.valex +++|* VALIDATION LIMIT. 00374 M00S00365.valex +++|* 00375 M00S00366.valex +++|* * USER PROLOGUE NOT FOUND.* 00376 M00S00367.valex +++|* THE USER PROLOGUE FILE COULD NOT BE ACCESSED. 00377 M00S00368.valex +++|* 00378 M00S00369.valex +++|* * USER PROLOGUE FILE NOT LOCAL.* 00379 M00S00370.valex +++|* THE FILE ZZZZPR2 WAS NOT LOCAL TO THE JOB AT THE TIME 00380 M00S00371.valex +++|* THE USER PROLOGUE WAS TO BE EXECUTED. 00381 M00S00372.valex +++|* 00382 M00S00373.valex +++|* * YOUR PASSWORD EXPIRES AT 00.00.00 ON YY/MM/DD.* 00383 M00S00374.valex +++|* YOUR PASSWORD EXPIRES ON THE SPECIFIED TIME AND DATE. 00384 M00S00375.valex +++| SPACE 4,10 00385 M00S00376.valex +++|*** ACCOUNT FILE MESSAGES - 00386 M00S00377.valex +++|* 00387 M00S00378.valex +++|* *ABUN, USER, FAMILY, TERMINAL.* 00388 M00S00379.valex +++|* PRIMARY *USER* COMMAND EXECUTED. 00389 M00S00380.valex +++|* 00390 M00S00381.valex +++|* *ABIC, CHARGE, PROJECT.* 00391 M00S00382.valex +++|* INITIAL DEFAULT CHARGE AND PROJECT NUMBER. 00392 M00S00383.valex +++|* 00393 M00S00384.valex +++|* *ACUN, USER, FAMILY.* 00394 M00S00385.valex +++|* SECONDARY USER COMMAND EXECUTED. 00395 M00S00386.valex +++|* 00396 M00S00387.valex +++|* *ABCN, CHARGE, PROJECT.* 00397 M00S00388.valex +++|* BEGIN ACCOUNT BLOCK FOR PRIMARY CHARGE. 00398 M00S00389.valex +++|* 00399 M00S00390.valex +++|* *ACCN, CHARGE, PROJECT.* 00400 M00S00391.valex +++|* BEGIN ACCOUNT BLOCK FOR SECONDARY CHARGE. 00401 M00S00392.valex +++| TITLE PROGRAM EQUIVALENCES. 00402 M00S00393.valex +++|** ASSEMBLY OPTIONS. 00403 M00S00394.valex +++|* 00404 M00S00395.valex +++|* LIM$ EQU 0 - FULL CHECKING- CHARGE PERFORMS ALL CHECKS 00405 M00S00396.valex +++|* CORRESPONDING TO THE ABOVE ERROR MESSAGE 00406 M00S00397.valex +++|* DOCUMENTATION. 00407 M00S00398.valex +++|* LIM$ EQU 1 - SUPPRESSES CHECKING OF SRU ACCUMULATORS AND 00408 M00S00399.valex +++|* INSTALLATION DEFINED RESOURCE USAGE 00409 M00S00400.valex +++|* ACCUMULATORS, BUT RETAINS ALL OTHER CHECKING. 00410 M00S00401.valex +++|* RPE$ DEFINED - ASSEMBLE CODE TO READ PROFILE FILE LEVEL 3 00411 M00S00402.valex +++|* BLOCK FROM RANDOM ADDRESS. 00412 M00S00403.valex +++| 00413 M00S00404.valex +++| 00414 M00S00405.valex +++| RPE$ EQU 0 00415 M00S00406.valex +++| LIM$ EQU 0 00416 M00S00407.valex +++| SPACE 4,10 00417 M00S00408.valex +++|*CALL COMCCMD 00418 M00S00409.valex +++|*CALL COMCMAC 00419 M00S00410.valex +++|*CALL COMSACC 00420 M00S00411.valex +++|*CALL COMSJCE 00421 M00S00412.valex +++|*CALL COMSLFD 00422 M00S00413.valex +++|*CALL COMSPRD 00423 M00S00414.valex +++|*CALL COMSPFM 00424 M00S00415.valex +++| LIST X 00425 M00S00416.valex +++|*CALL COMSPRO 00426 M00S00417.valex +++| LIST * 00427 M00S00418.valex +++|*CALL COMSRPV 00428 M00S00419.valex +++|*CALL COMSSCD 00429 M00S00420.valex +++|*CALL COMSSRU 00430 M00S00421.valex +++|*CALL COMSSSJ 00431 M00S00422.valex +++|*CALL COMSTCM 00432 M00S00423.valex +++| 00433 M00S00424.valex +++| SPACE 4,10 00434 M00S00425.valex +++|** PROGRAM EQUATES. 00435 M00S00426.valex +++| 00436 M00S00427.valex +++| 00437 M00S00428.valex +++| ARG= EQU 0 SUPPRESS COMMAND CRACKING 00438 M00S00429.valex +++| SDM= EQU * SUPPRESS DAYFILE MESSAGE 00439 M00S00430.valex +++| VAL= EQU * ALLOW VALIDATION 00440 M00S00431.valex +++| BUFL EQU 101B BUFFER LENGTH 00441 M00S00432.valex +++| ERLIM EQU 5 INPUT ERROR RETRY LIMIT 00442 M00S00433.valex +++| RPMS EQU /COMSRPV/OTMS+/COMSRPV/TIMS+/COMSRPV/PPMS RPV MASK 00443 M00S00434.valex +++| TITLE GLOBAL DATA AREA. 00444 M00S00435.valex +++|** FETS. 00445 M00S00436.valex +++| 00446 M00S00437.valex +++| 00447 M00S00438.valex +++| ORG 120B 00448 M00S00439.valex +++| ORIG BSS 0 00449 M00S00440.valex +++| I BSS 0 00450 M00S00441.valex +++| INPUT FILEB IBUF,BUFL,FET=10B 00451 M00S00442.valex +++| O BSS 0 00452 M00S00443.valex +++| ZZZZZG0 FILEB OBUF,BUFL,FET=10B,DTY=2RTT 00453 M00S00444.valex +++| F BSS 0 00454 M00S00445.valex +++| FILE FILEB FBUF,BUFL,EPR,(FET=17B) 00455 M00S00446.valex +++| SSJ= SPACE 4,10 00456 M00S00447.valex +++|* SPECIAL SYSTEM JOB PARAMETER AREA. 00457 M00S00448.valex +++| 00458 M00S00449.valex +++| SSJ= VFD 12/0,24/0,12/PRCS,12/0 00459 M00S00450.valex +++| BSSZ SSJL-1 00460 M00S00451.valex +++| SPACE 4,10 00461 M00S00452.valex +++|* GLOBAL STORAGE. 00462 M00S00453.valex +++| 00463 M00S00454.valex +++| ACSF CON 0 *ASCII* CHARACTER SET FLAG 00464 M00S00455.valex +++| APN CON 0 APPLICATION NAME FOR LOGOUT 00465 M00S00456.valex +++| DFCF CON 0 DEFAULT CHARGE PRESENT FLAG 00466 M00S00457.valex +++| EXER CON 0 EXTERNAL ERROR CODE 00467 M00S00458.valex +++| PRST CON 0 PROLOGUE/EPILOGUE STATUS 00468 M00S00459.valex +++| TJEF CON 0 TERMINATE JOB ON ERROR FLAG 00469 M00S00460.valex +++| TRIA CON 0 TERMINAL INTERRUPT ADDRESS 00470 M00S00461.valex +++| TRIF CON 0 TERMINAL INTERACTION FLAG 00471 M00S00462.valex +++| 00472 M00S00463.valex +++|* THE ORDER OF THE FOLLOWING NINE LOCATIONS MUST BE MAINTAINED. 00473 M00S00464.valex +++| 00474 M00S00465.valex +++| SPF CON 0 SYSTEM PROLOGUE FILE NAME 00475 M00S00466.valex +++| DATA 7LLIBRARY SYSTEM PROLOGUE USER NAME 00476 M00S00467.valex +++| CON 0 SYSTEM PROLOGUE PASSWORD 00477 M00S00468.valex +++| PPF CON 0 PROJECT PROLOGUE FILE NAME AND OPTION 00478 M00S00469.valex +++| CON 0 PROJECT PROLOGUE USER NAME 00479 M00S00470.valex +++| CON 0 PROJECT PROLOGUE PASSWORD 00480 M00S00471.valex +++| UPF CON 0 USER PROLOGUE FILE NAME 00481 M00S00472.valex +++| CON 0 USER PROLOGUE USER NAME 00482 M00S00473.valex +++| CON 0 USER PROLOGUE PASSWORD 00483 M00S00474.valex +++| 00484 M00S00475.valex +++|* USER VALIDATION PARAMETER BLOCK. 00485 M00S00476.valex +++| 00486 M00S00477.valex +++| UNAM CON 0 USER NAME 00487 M00S00478.valex +++| UPSW CON 0 USER PASSWORD / SPECIAL USER NAMES FLAG 00488 M00S00479.valex +++| UFAM CON 0 FAMILY NAME / STATUS FLAGS 00489 M00S00480.valex +++| UALMW CON 0 ALMW - ACCOUNT LIMIT WORD 00490 M00S00481.valex +++| UACLW CON 0 ACLW - ACCOUNT COUNTING LIMIT WORD 00491 M00S00482.valex +++| UAACW CON 0 AACW - ACCOUNT ACCESS CONTROL WORD 00492 M00S00483.valex +++| UPRO CON 0 PROLOGUE FILE NAMES 00493 M00S00484.valex +++| UPJ1 CON 0 DEFAULT PROJECT NUMBER (FIRST WORD) 00494 M00S00485.valex +++| UPJ2 CON 0 DEFAULT PROJECT NUMBER (SECOND WORD) 00495 M00S00486.valex +++| UCRN CON 0 DEFAULT CHARGE NUMBER 00496 M00S00487.valex +++| UTRN CON 0 TERMINAL NAME/TERMINAL NUMBER 00497 M00S00488.valex +++| 00498 M00S00489.valex +++|* CHARGE VALIDATION PARAMETER BLOCK. 00499 M00S00490.valex +++| 00500 M00S00491.valex +++| SRUM BSS 2 CONTROL POINT SRU WORDS 00501 M00S00492.valex +++| CGN BSS 1 CHARGE NUMBER 00502 M00S00493.valex +++| PRN BSS 2 PROJECT NUMBER 00503 M00S00494.valex +++| ACCM BSS 5 ACCOUNT FILE MESSAGE BUFFER 00504 M00S00495.valex +++| 00505 M00S00496.valex +++|* PROLOGUE/EPILOGUE CONTROL PARAMETER BLOCK. 00506 M00S00497.valex +++| 00507 M00S00498.valex +++| PRC CON 0 00508 M00S00499.valex +++| 00509 M00S00500.valex +++|* REPRIEVE PARAMETER BLOCK. 00510 M00S00501.valex +++| 00511 M00S00502.valex +++| RPB RPVBLK RPV 00512 M00S00503.valex +++| TITLE COMMAND PROCESSORS. 00513 M00S00504.valex +++| USER SPACE 4,20 00514 M00S00505.valex +++|** USE - *USER* AND *ACCOUNT* COMMANDS. 00515 M00S00506.valex +++|* 00516 M00S00507.valex +++|* EXIT TO *EPF* IF CHARGE NOT REQUIRED. 00517 M00S00508.valex +++|* TO *CHARGE* IF CHARGE REQUIRED AND NEXT COMMAND IS 00518 M00S00509.valex +++|* *CHARGE*. 00519 M00S00510.valex +++|* TO *RCH* IF DEFAULT CHARGE ERROR AND TERMINAL INPUT 00520 M00S00511.valex +++|* FILE. 00521 M00S00512.valex +++|* TO *ABT* IF DEFAULT CHARGE ERROR AND NOT TERMINAL 00522 M00S00513.valex +++|* INPUT FILE. 00523 M00S00514.valex +++|* 00524 M00S00515.valex +++|* USES X - 1, 2, 3, 5, 6. 00525 M00S00516.valex +++|* A - 0, 1, 2. 00526 M00S00517.valex +++|* B - 3, 6. 00527 M00S00518.valex +++|* 00528 M00S00519.valex +++|* CALLS ABT, EPF, GPR, PRS, RCH, SCA, STI, VCH, VUN. 00529 M00S00520.valex +++|* 00530 M00S00521.valex +++|* MACROS CONTROL, DISSR, MESSAGE, WRITEC, WRITER. 00531 M00S00522.valex +++| 00532 M00S00523.valex +++| 00533 M00S00524.valex +++| USER BSS 0 ENTRY 00534 M00S00525.valex +++| ACCOUNT BSS 0 00535 M00S00526.valex +++| RJ PRS PRESET 00536 M00S00527.valex +++| DISSR IAAC DISABLE SRU ACCUMULATION 00537 M00S00528.valex +++| SA0 USEA SET ARGUMENT TABLE ADDRESS 00538 M00S00529.valex +++| SB3 USEB SET SECURE ARGUMENT TABLE ADDRESS 00539 M00S00530.valex +++| RJ SCA SET COMMAND ARGUMENTS 00540 M00S00531.valex +++| USE1 SA1 A0 READ ARGUMENT TABLE 00541 M00S00532.valex +++| ZR X1,USE2 IF END OF ARGUMENTS 00542 M00S00533.valex +++| SA1 X1 READ ARGUMENT 00543 M00S00534.valex +++| SX1 X1 00544 M00S00535.valex +++| SA0 A0+B1 ADVANCE ARGUMENT POINTER 00545 M00S00536.valex +++| ZR X1,USE1 IF ARGUMENT .LE. 7 CHARACTERS 00546 M00S00537.valex +++| SB6 ERAR * ERROR IN ARGUMENTS.* 00547 M00S00538.valex +++| EQ ABT ABORT 00548 M00S00539.valex +++| 00549 M00S00540.valex +++| USE2 RJ VUN VALIDATE USER NAME 00550 M00S00541.valex +++| CONTROL CCDR,RSS READ NEXT COMMAND 00551 M00S00542.valex +++| SA1 ACTR 00552 M00S00543.valex +++| MX0 -6 CHECK FOR LEADING *$* OR */* 00553 M00S00544.valex +++| MX3 42 00554 M00S00545.valex +++| LX1 6 00555 M00S00546.valex +++| BX0 -X0*X1 00556 M00S00547.valex +++| SX2 X0-1R$ 00557 M00S00548.valex +++| ZR X2,USE3 IF *$* 00558 M00S00549.valex +++| SX2 X0-1R/ 00559 M00S00550.valex +++| ZR X2,USE3 IF */* 00560 M00S00551.valex +++| LX1 -6 00561 M00S00552.valex +++| USE3 SA2 =6LCHARGE 00562 M00S00553.valex +++| BX1 X3*X1 00563 M00S00554.valex +++| BX2 X1-X2 00564 M00S00555.valex +++| NZ X2,USE4 IF NOT *CHARGE* 00565 M00S00556.valex +++| CONTROL CCDR ADVANCE TO *CHARGE* COMMAND 00566 M00S00557.valex +++| EQ CHARGE PROCESS *CHARGE* COMMAND 00567 M00S00558.valex +++| 00568 M00S00559.valex +++| USE4 SA1 SSJ=+AACS GET CHARGE REQUIRED FLAG 00569 M00S00560.valex +++| LX1 59-7 00570 M00S00561.valex +++| NG X1,EPF IF CHARGE NOT REQUIRED, PROCESS PROLOGUES 00571 M00S00562.valex +++| DISSR IACH SET CHARGE VALIDATION UNIT CHARGE 00572 M00S00563.valex +++| RJ GPR GET PROLOGUE/EPILOGUE STATUS 00573 M00S00564.valex +++| SX2 B0 SET VALIDATE DEFUALT CHARGE 00574 M00S00565.valex +++| RJ VCH VALIDATE DEFAULT CHARGE 00575 M00S00566.valex +++| RJ STI SET TERMINAL INTERACTION 00576 M00S00567.valex +++| SA1 TRIF 00577 M00S00568.valex +++| ZR X1,ABT IF NOT INTERACTIVE JOB 00578 M00S00569.valex +++| MESSAGE B6,,R ISSUE ERROR MESSAGE 00579 M00S00570.valex +++| WRITEC O,B6 ISSUE MESSAGE TO TERMINAL 00580 M00S00571.valex +++| WRITER O,R 00581 M00S00572.valex +++| EQ RCH READ CHARGE FROM INPUT FILE 00582 M00S00573.valex +++| 00583 M00S00574.valex +++| 00584 M00S00575.valex +++| USEA BSS 0 ARGUMENT TABLE 00585 M00S00576.valex +++| UN ARG UNAM,UNAM,400B,1 00586 M00S00577.valex +++| PW ARG UPSW,UPSW,400B,1 00587 M00S00578.valex +++| FM ARG UFAM,UFAM,400B,1 00588 M00S00579.valex +++| ARG 00589 M00S00580.valex +++| 00590 M00S00581.valex +++| USEB BSS 0 SECURE ARGUMENTS FOR REMOVAL 00591 M00S00582.valex +++| VFD 42/2LPW,18/2 PASSWORD 00592 M00S00583.valex +++| CON 0 END OF TABLE 00593 M00S00584.valex +++| CHARGE SPACE 4,15 00594 M00S00585.valex +++|** CHA - *CHARGE* COMMAND. 00595 M00S00586.valex +++|* 00596 M00S00587.valex +++|* EXIT TO *ABT* IF INVALID CHARGE. 00597 M00S00588.valex +++|* TO *RCH* TO READ CHARGE FROM INPUT FILE. 00598 M00S00589.valex +++|* 00599 M00S00590.valex +++|* USES X - 1, 2, 6, 7. 00600 M00S00591.valex +++|* A - 0, 1, 2. 00601 M00S00592.valex +++|* B - 3, 6. 00602 M00S00593.valex +++|* 00603 M00S00594.valex +++|* CALLS ABT, EEF, GPR, ICA, PRS, RCH, SCA, STI, VCH. 00604 M00S00595.valex +++|* 00605 M00S00596.valex +++|* MACROS DISSR. 00606 M00S00597.valex +++| 00607 M00S00598.valex +++| 00608 M00S00599.valex +++| CHARGE BSS 0 ENTRY 00609 M00S00600.valex +++| RJ PRS PRESET 00610 M00S00601.valex +++| RJ GPR GET PROLOGUE/EPILOGUE STATUS 00611 M00S00602.valex +++| SA1 PRST 00612 M00S00603.valex +++| MX6 2 00613 M00S00604.valex +++| MX0 -25 00614 M00S00605.valex +++| SB6 ERCN * COMMAND NOT ALLOWED IN PROLOGUE/ ...* 00615 M00S00606.valex +++| SX7 CRPT SET CHARGE REQUIRED OPTION 00616 M00S00607.valex +++| BX2 X6*X1 00617 M00S00608.valex +++| BX1 -X0*X1 00618 M00S00609.valex +++| NZ X2,ICA IF IN SYSTEM OR PROJECT PROLOGUE/EPILOGUE 00619 M00S00610.valex +++| NZ X1,EEF IF EPILOGUE PENDING 00620 M00S00611.valex +++| DISSR IACH DISABLE SRU ACCUMULATION 00621 M00S00612.valex +++| SA0 CHAA SET ARGUMENT TABLE ADDRESS 00622 M00S00613.valex +++| SB3 B0+ SET NO SECURE ARGUMENTS 00623 M00S00614.valex +++| RJ SCA SET COMMAND ARGUMENTS 00624 M00S00615.valex +++| SB6 ERNU * NO USER COMMAND EXECUTED.* 00625 M00S00616.valex +++| SA1 SSJ=+UIDS 00626 M00S00617.valex +++| MX0 42 00627 M00S00618.valex +++| BX1 X0*X1 00628 M00S00619.valex +++| ZR X1,ABT IF NO USER COMMAND EXECUTED 00629 M00S00620.valex +++| SA1 CGN 00630 M00S00621.valex +++| SA2 PRN 00631 M00S00622.valex +++| SB6 ERAR * ERROR IN ARGUMENTS.* 00632 M00S00623.valex +++| ZR X1,CHA2 IF CHARGE PARAMETER NOT SPECIFIED 00633 M00S00624.valex +++| LX1 6 00634 M00S00625.valex +++| NZ X2,CHA1 IF PROJECT NUMBER SPECIFIED 00635 M00S00626.valex +++| SX1 X1-1R* 00636 M00S00627.valex +++| NZ X1,ABT IF NOT DEFAULT CHARGE PARAMETER 00637 M00S00628.valex +++| CHA1 RJ VCH VALIDATE CHARGE AND PROJECT NUMBERS 00638 M00S00629.valex +++| EQ ABT ABORT 00639 M00S00630.valex +++| 00640 M00S00631.valex +++| CHA2 NZ X2,ABT IF PROJECT NUMBER SPECIFIED 00641 M00S00632.valex +++| RJ STI SET TERMINAL INTERACTION 00642 M00S00633.valex +++| EQ RCH READ CHARGE FROM *INPUT* FILE 00643 M00S00634.valex +++| 00644 M00S00635.valex +++| 00645 M00S00636.valex +++| CHAA BSS 0 ARGUMENT TABLE 00646 M00S00637.valex +++| CN ARG CGN,CGN,400B,1 00647 M00S00638.valex +++| PN ARG PRN,PRN,400B,2 00648 M00S00639.valex +++| ARG 00649 M00S00640.valex +++| LOG SPACE 4,15 00650 M00S00641.valex +++|** LOG - LOGOUT COMMANDS. 00651 M00S00642.valex +++|* 00652 M00S00643.valex +++|* EXIT TO *ABT* IF ERROR. 00653 M00S00644.valex +++|* TO *EEF* TO EXECUTE EPILOGUE. 00654 M00S00645.valex +++|* TO *TRJ* TO TERMINATE JOB. 00655 M00S00646.valex +++|* 00656 M00S00647.valex +++|* USES X - 1, 6, 7. 00657 M00S00648.valex +++|* A - 0, 1. 00658 M00S00649.valex +++|* B - 3, 6. 00659 M00S00650.valex +++|* 00660 M00S00651.valex +++|* CALLS ABT, EEF, GPR, ICA, PRS, SCA, TRJ. 00661 M00S00652.valex +++| 00662 M00S00653.valex +++| 00663 M00S00654.valex +++| HELLO BSS 0 ENTRY 00664 M00S00655.valex +++| LOGIN BSS 0 ENTRY 00665 M00S00656.valex +++| SA1 =5LLOGIN SET DEFAULT APPLICATION 00666 M00S00657.valex +++| BX6 X1 00667 M00S00658.valex +++| SA6 APN 00668 M00S00659.valex +++| BYE BSS 0 ENTRY 00669 M00S00660.valex +++| GOODBYE BSS 0 ENTRY 00670 M00S00661.valex +++| LOGOUT BSS 0 ENTRY 00671 M00S00662.valex +++| RJ PRS PRESET 00672 M00S00663.valex +++| RJ GPR GET PROLOGUE/EPILOGUE STATUS 00673 M00S00664.valex +++| SA2 PRST 00674 M00S00665.valex +++| MX0 -25 00675 M00S00666.valex +++| BX1 -X0*X2 00676 M00S00667.valex +++| ZR X1,LOG1 IF NO EPILOGUE PENDING 00677 M00S00668.valex +++| SB6 ERCN * COMMAND NOT ALLOWED IN PROLOGUE/ ...* 00678 M00S00669.valex +++| NG X2,ICA IF IN PROLOGUE 00679 M00S00670.valex +++| SX7 LOPT SET LOGOUT OPTION 00680 M00S00671.valex +++| EQ EEF EXECUTE EPILOGUE 00681 M00S00672.valex +++| 00682 M00S00673.valex +++| LOG1 SA0 LOGA SET ARGUMENT TABLE ADDRESS 00683 M00S00674.valex +++| SB3 0 SET NO SECURE ARGUMENTS 00684 M00S00675.valex +++| RJ SCA SET COMMAND ARGUMENTS 00685 M00S00676.valex +++| SA1 APN 00686 M00S00677.valex +++| SX1 X1 00687 M00S00678.valex +++| NZ X1,LOG2 IF ERROR IN APPLICATION NAME 00688 M00S00679.valex +++| EQ TRJ TERMINATE JOB 00689 M00S00680.valex +++| 00690 M00S00681.valex +++| LOG2 SB6 ERAR * ERROR IN ARGUMENTS.* 00691 M00S00682.valex +++| EQ ABT ABORT 00692 M00S00683.valex +++| 00693 M00S00684.valex +++| 00694 M00S00685.valex +++| LOGA BSS 0 ARGUMENT TABLE 00695 M00S00686.valex +++| AP ARG APN,APN,400B,1 00696 M00S00687.valex +++| ARG 00697 M00S00688.valex +++| XPR SPACE 4,10 00698 M00S00689.valex +++|** XPR - EXECUTE SEQUENCED PROLOGUE. 00699 M00S00690.valex +++|* 00700 M00S00691.valex +++|* EXIT TO *END* IF NO ERROR. 00701 M00S00692.valex +++|* TO *ABT* IF PROLOGUE FILE ERROR. 00702 M00S00693.valex +++|* TO *ICA* IF ERROR IN *XPR* CALL. 00703 M00S00694.valex +++|* 00704 M00S00695.valex +++|* CALLS ABT, END, GPR, ICA, PRS, SNM. 00705 M00S00696.valex +++|* 00706 M00S00697.valex +++|* MACROS RENAME, SETFS. 00707 M00S00698.valex +++| 00708 M00S00699.valex +++| XPR BSS 0 ENTRY 00709 M00S00700.valex +++| RJ PRS PRESET 00710 M00S00701.valex +++| RJ GPR GET PROLOGUE/EPILOGUE STATUS 00711 M00S00702.valex +++| SA1 PRST 00712 M00S00703.valex +++| SA5 CCDR 00713 M00S00704.valex +++| SB6 ERIC * INCORRECT COMMAND.* 00714 M00S00705.valex +++| LX1 59-58 00715 M00S00706.valex +++| LX5 -18 00716 M00S00707.valex +++| PL X1,ICA IF NOT CALLED FROM SEQUENCING PROCEDURE 00717 M00S00708.valex +++| MX0 -6 00718 M00S00709.valex +++| BX6 -X0*X5 00719 M00S00710.valex +++| SB6 ERAR * ERROR IN ARGUMENTS.* 00720 M00S00711.valex +++| SX1 X6-1R0 00721 M00S00712.valex +++| SX6 X6-1R1 00722 M00S00713.valex +++| SX2 X1-CAPT-2 00723 M00S00714.valex +++| NG X1,ICA IF NOT VALID TERMINATION OPTION 00724 M00S00715.valex +++| PL X2,ICA IF NOT VALID TERMINATION OPTION 00725 M00S00716.valex +++| NG X6,XPR1 IF NOT TO CHANGE TERMINATION OPTION 00726 M00S00717.valex +++| SX1 B1 SET TERMINATION OPTION 00727 M00S00718.valex +++| LX6 18 00728 M00S00719.valex +++| BX6 X6+X1 00729 M00S00720.valex +++| SA6 PRC 00730 M00S00721.valex +++| XPR1 SA3 =6LZZZZPR 00731 M00S00722.valex +++| SA4 CCDR+1 00732 M00S00723.valex +++| LX5 -6 00733 M00S00724.valex +++| BX6 -X0*X5 00734 M00S00725.valex +++| SX1 X6-1R0 00735 M00S00726.valex +++| SX2 X6-1R3 00736 M00S00727.valex +++| SX7 B1 00737 M00S00728.valex +++| LX6 18 00738 M00S00729.valex +++| NG X1,ICA IF NOT VALID PROLOGUE INDEX 00739 M00S00730.valex +++| PL X2,ICA IF NOT VALID PROLOGUE INDEX 00740 M00S00731.valex +++| SB6 ERPF * XXXXXXX PROLOGUE NOT FOUND.* 00741 M00S00732.valex +++| ZR X4,XPR2 IF PROLOGUE FILE ACESSS ERROR 00742 M00S00733.valex +++| BX6 X6+X7 00743 M00S00734.valex +++| BX6 X6+X3 00744 M00S00735.valex +++| BX7 X4 00745 M00S00736.valex +++| SA6 F 00746 M00S00737.valex +++| SA7 F+6 00747 M00S00738.valex +++| RENAME F RESET FILE NAME 00748 M00S00739.valex +++| SA1 F 00749 M00S00740.valex +++| MX7 -8 00750 M00S00741.valex +++| LX1 -10 00751 M00S00742.valex +++| BX1 -X7*X1 00752 M00S00743.valex +++| SB6 ERPL * XXXXXXX PROLOGUE FILE NOT LOCAL.* 00753 M00S00744.valex +++| NZ X1,XPR2 IF PROLOGUE FILE NOT LOCAL 00754 M00S00745.valex +++| SX7 B1 SET FILE NAME IN FET 00755 M00S00746.valex +++| BX7 X4+X7 00756 M00S00747.valex +++| SA7 F 00757 M00S00748.valex +++| SETFS F,AD CLEAR NO-DROP STATUS 00758 M00S00749.valex +++| EQ END TERMINATE 00759 M00S00750.valex +++| 00760 M00S00751.valex +++|* PROCESS PROLOGUE FILE ERROR. 00761 M00S00752.valex +++| 00762 M00S00753.valex +++| XPR2 BX6 -X0*X5 SET PROLOGUE TYPE 00763 M00S00754.valex +++| SX6 X6-1R0 00764 M00S00755.valex +++| SA1 XPRA+X6 SET PROLOGUE/EPILOGUE TYPE IN MESSAGE 00765 M00S00756.valex +++| SB5 B6+ SET MESSAGE ADDRESS 00766 M00S00757.valex +++| SB2 1R? 00767 M00S00758.valex +++| RJ SNM 00768 M00S00759.valex +++| EQ ABT ABORT 00769 M00S00760.valex +++| 00770 M00S00761.valex +++| 00771 M00S00762.valex +++| XPRA DATA 6LSYSTEM 00772 M00S00763.valex +++| DATA 7LPROJECT 00773 M00S00764.valex +++| DATA 4LUSER 00774 M00S00765.valex +++| TITLE PROLOGUE AND EPILOGUE SEQUENCING ROUTINES. 00775 M00S00766.valex +++| ACF SPACE 4,15 00776 M00S00767.valex +++|** ACF - ACCESS PROLOGUE OR EPILOGUE FILE. 00777 M00S00768.valex +++|* 00778 M00S00769.valex +++|* ENTRY (X1) = 42/PERMANENT FILE NAME, 18/0. 00779 M00S00770.valex +++|* (X2) = 42/PASSWORD, 18/0. 00780 M00S00771.valex +++|* (X3) = 42/USERNAME, 18/0. 00781 M00S00772.valex +++|* (X4) = 42/LOCAL FILE NAME, 18/0. 00782 M00S00773.valex +++|* (B6) = 0 IF TO CLEAR SSJ= FILE STATUS. 00783 M00S00774.valex +++|* (B6) .NE. 0 IF TO SET NO-DROP FILE STATUS. 00784 M00S00775.valex +++|* 00785 M00S00776.valex +++|* EXIT (X5) = 0 IF FILE FOUND. 00786 M00S00777.valex +++|* 00787 M00S00778.valex +++|* USES X - 0, 5, 6, 7. 00788 M00S00779.valex +++|* A - 5, 6, 7. 00789 M00S00780.valex +++|* 00790 M00S00781.valex +++|* MACROS ATTACH, GET, SETFS. 00791 M00S00782.valex +++| 00792 M00S00783.valex +++| 00793 M00S00784.valex +++| ACF SUBR ENTRY/EXIT 00794 M00S00785.valex +++| SX6 3 SET FILE STATUS 00795 M00S00786.valex +++| SX7 SRNF*10000B+PTRD SET NO FAST ATTACH AND READ MODE 00796 M00S00787.valex +++| BX6 X4+X6 00797 M00S00788.valex +++| BX7 X1+X7 00798 M00S00789.valex +++| SA6 F+CFSN SET LOCAL FILE NAME 00799 M00S00790.valex +++| SA7 F+CFPN SET PERMANENT FILE NAME AND MODE 00800 M00S00791.valex +++| SX5 ACFA SET ERROR MESSAGE ADDRESS 00801 M00S00792.valex +++| BX6 X3 00802 M00S00793.valex +++| BX7 X2+X5 00803 M00S00794.valex +++| SA6 F+CFOU SET USERNAME 00804 M00S00795.valex +++| SA7 F+CFPW SET PASSWORD 00805 M00S00796.valex +++| GET F,,,,,,IP 00806 M00S00797.valex +++| SA5 X2 CHECK ERROR 00807 M00S00798.valex +++| MX0 -8 00808 M00S00799.valex +++| AX5 10 00809 M00S00800.valex +++| BX5 -X0*X5 00810 M00S00801.valex +++| SX6 X5-/ERRMSG/FNF 00811 M00S00802.valex +++| NZ X6,ACF1 IF NOT *FILE NOT FOUND* 00812 M00S00803.valex +++| ATTACH F,,,,,,,IP 00813 M00S00804.valex +++| SA5 X2+ SET ERROR STATUS 00814 M00S00805.valex +++| AX5 10 00815 M00S00806.valex +++| BX5 -X0*X5 00816 M00S00807.valex +++| ACF1 NZ X5,ACFX IF ERROR IN ACCESS 00817 M00S00808.valex +++| NZ B6,ACF2 IF SET NO-DROP STATUS 00818 M00S00809.valex +++| SETFS F,AD CLEAR SSJ= STATUS 00819 M00S00810.valex +++| EQ ACFX EXIT 00820 M00S00811.valex +++| 00821 M00S00812.valex +++| ACF2 SETFS F,NAD SET NO-DROP STATUS 00822 M00S00813.valex +++| EQ ACFX EXIT 00823 M00S00814.valex +++| 00824 M00S00815.valex +++| 00825 M00S00816.valex +++| ACFA BSS 3 ERROR MESSAGE 00826 M00S00817.valex +++| EEF SPACE 4,20 00827 M00S00818.valex +++|** EEF - EXECUTE EPILOGUE FILE. 00828 M00S00819.valex +++|* 00829 M00S00820.valex +++|* ENTRY (X1) = PROFILE FILE LEVEL 3 BLOCK POINTERS. 00830 M00S00821.valex +++|* (X7) = EPILOGUE TERMINATION OPTION. 00831 M00S00822.valex +++|* 00832 M00S00823.valex +++|* EXIT TO *EXP* TO EXECUTE EPILOGUE. 00833 M00S00824.valex +++|* TO *ABT* IF ERROR. 00834 M00S00825.valex +++|* 00835 M00S00826.valex +++|* USES X - 0, 1, 2, 3, 7. 00836 M00S00827.valex +++|* A - 0, 1, 2, 3, 7. 00837 M00S00828.valex +++|* B - 2, 5, 6. 00838 M00S00829.valex +++|* 00839 M00S00830.valex +++|* CALLS ACF, EXP, IPS, RPE, RPF, SNM. 00840 M00S00831.valex +++|* 00841 M00S00832.valex +++|* MACROS MESSAGE, MOVE, WRITEC. 00842 M00S00833.valex +++| 00843 M00S00834.valex +++| 00844 M00S00835.valex +++| EEF BSS 0 ENTRY 00845 M00S00836.valex +++| SX6 X7-LOPT 00846 M00S00837.valex +++| LX7 18 00847 M00S00838.valex +++| NZ X6,EEF1 IF NOT LOGOUT ON TERMINATION OPTION 00848 M00S00839.valex +++| SA6 EEFB SET NO *REVERT,EX* PROCESSING 00849 M00S00840.valex +++| EEF1 SX2 3 SET EPILOGUE PENDING AND OPTION FLAGS 00850 M00S00841.valex +++| BX7 X7+X2 SET EPILOGUE CONTROLS 00851 M00S00842.valex +++| SA7 PRC 00852 M00S00843.valex +++| RJ RPE READ PROFILE ENTRY 00853 M00S00844.valex +++| NZ B6,ABT IF ERROR IN PROFILE ENTRY 00854 M00S00845.valex +++| RJ RPF RESTORE USER-S PERMANENT FILE PARAMETERS 00855 M00S00846.valex +++| SA1 B5+PENW READ EPILOGUE FILE NAME 00856 M00S00847.valex +++| SA3 B5+PEUW READ USERNAME 00857 M00S00848.valex +++| SA2 B5+PEPW READ PASSWORD 00858 M00S00849.valex +++| MX0 42 00859 M00S00850.valex +++| BX1 X0*X1 00860 M00S00851.valex +++| BX3 X0*X3 00861 M00S00852.valex +++| BX2 X0*X2 00862 M00S00853.valex +++| BX4 X1 EPILOGUE LOCAL FILE NAME 00863 M00S00854.valex +++| SA0 A1 SAVE EPILOGUE NAME ADDRESS 00864 M00S00855.valex +++| SB6 B0 CLEAR SSJ= FILE STATUS 00865 M00S00856.valex +++| RJ ACF ACCESS FILE 00866 M00S00857.valex +++| SA1 EEFB 00867 M00S00858.valex +++| NZ X1,EEF2 IF *CHARGE* COMMAND 00868 M00S00859.valex +++| MOVE 8,CCDR,EEFB MOVE LOGOUT COMMAND 00869 M00S00860.valex +++| EQ EEF3 SET EPILOGUE CALL 00870 M00S00861.valex +++| 00871 M00S00862.valex +++| EEF2 MOVE 7,CCDR,EEFB+2 MOVE *CHARGE* COMMAND 00872 M00S00863.valex +++| SX1 0 PACK *CHARGE* COMMAND CALL 00873 M00S00864.valex +++| SB5 EEFB 00874 M00S00865.valex +++| SB2 1R? SET SEARCH CHARACTER 00875 M00S00866.valex +++| RJ SNM 00876 M00S00867.valex +++| EEF3 ZR X5,EEF4 IF NO FILE ACCESS ERROR 00877 M00S00868.valex +++| MESSAGE EREF * PROJECT EPILOGUE NOT FOUND.* 00878 M00S00869.valex +++| EQ EEF5 INITIALIZE SEQUENCING 00879 M00S00870.valex +++| 00880 M00S00871.valex +++| EEF4 SA1 A0+ SET FILE NAME 00881 M00S00872.valex +++| MX0 42 00882 M00S00873.valex +++| BX1 X0*X1 00883 M00S00874.valex +++| SB5 EEFA SET CALL ADDRESS 00884 M00S00875.valex +++| SB2 1R? SET SEARCH CHARACTER 00885 M00S00876.valex +++| RJ SNM SET EPILOGUE CALL 00886 M00S00877.valex +++| EEF5 RJ IPS INITIALIZE EPILOGUE SEQUENCING 00887 M00S00878.valex +++| NZ X5,EEF6 IF EPILOGUE FILE ACCESS ERROR 00888 M00S00879.valex +++| WRITEC F,EEFA WRITE EPILOGUE CALL 00889 M00S00880.valex +++| EEF6 WRITEC F,EEFB WRITE CHARGE OR LOGOUT COMMAND 00890 M00S00881.valex +++| WRITEC F,(=C*$REVERT,NOLIST.*) 00891 M00S00882.valex +++| WRITEC F,(=C*EXIT.*) WRITE EXIT PROCESSING 00892 M00S00883.valex +++| WRITEC F,EEFB 00893 M00S00884.valex +++| WRITEC F,(=C*$REVERT,NOLIST.*) 00894 M00S00885.valex +++| EQ EXP EXECUTE EPILOGUE 00895 M00S00886.valex +++| 00896 M00S00887.valex +++| 00897 M00S00888.valex +++| EEFA DATA C*???????. PROJECT EPILOGUE* 00898 M00S00889.valex +++| EEFB DATA 20L$REVERT,EX.????????? 00899 M00S00890.valex +++| BSSZ 8 00900 M00S00891.valex +++| EPF SPACE 4,15 00901 M00S00892.valex +++|** EPF - EXECUTE PROLOGUE FILES. 00902 M00S00893.valex +++|* 00903 M00S00894.valex +++|* ENTRY (SPF - SPF+8) = PROLOGUE PARAMETERS. 00904 M00S00895.valex +++|* 00905 M00S00896.valex +++|* EXIT PROLOGUE AND EPILOGUE CONTROLS SET IF REQUIRED. 00906 M00S00897.valex +++|* TO *EXP* TO EXECUTE PROLOGUES. 00907 M00S00898.valex +++|* 00908 M00S00899.valex +++|* USES X - 1, 2, 3, 4, 5. 00909 M00S00900.valex +++|* A - 0, 1, 2, 3, 4. 00910 M00S00901.valex +++|* B - 2, 5, 6, 7. 00911 M00S00902.valex +++|* 00912 M00S00903.valex +++|* CALLS ACF, END, EXP, SNM. 00913 M00S00904.valex +++| 00914 M00S00905.valex +++| 00915 M00S00906.valex +++| EPF BSS 0 ENTRY 00916 M00S00907.valex +++| 00917 M00S00908.valex +++|* PROCESS SYSTEM AND PROJECT PROLOGUE TERMINATION OPTIONS. 00918 M00S00909.valex +++| 00919 M00S00910.valex +++| SA1 SPF 00920 M00S00911.valex +++| SA2 PPF 00921 M00S00912.valex +++| SA3 UPF 00922 M00S00913.valex +++| SA4 PRC 00923 M00S00914.valex +++| SX7 X1+ 00924 M00S00915.valex +++| SX0 X2+ 00925 M00S00916.valex +++| BX6 X1+X2 00926 M00S00917.valex +++| ZR X6,EPF3 IF NO SYSTEM OR PROJECT PROLOGUE DEFINED 00927 M00S00918.valex +++| IX0 X7-X0 CHECK SYSTEM AND PROJECT PROLOGUE OPTIONS 00928 M00S00919.valex +++| PL X0,EPF1 IF PROJECT PROLOGUE OPTION NOT GREATER 00929 M00S00920.valex +++| SX7 X2+ USE PROJECT PROLOGUE OPTION 00930 M00S00921.valex +++| EPF1 SX6 B1 SET INITIAL TERMINATION OPTION FLAGS 00931 M00S00922.valex +++| LX7 18 00932 M00S00923.valex +++| BX7 X4+X7 00933 M00S00924.valex +++| BX7 X7+X6 00934 M00S00925.valex +++| SA7 A4 00935 M00S00926.valex +++| LX6 18 00936 M00S00927.valex +++| ZR X2,EPF2 IF NO PROJECT PROLOGUE DEFINED 00937 M00S00928.valex +++| NG X0,EPF2 IF PROJECT PROLOGUE OPTION SET AS INITIAL 00938 M00S00929.valex +++| SA4 EPFA+2 00939 M00S00930.valex +++| SX7 X2+B1 SET TO CHANGE TERMINATION OPTION 00940 M00S00931.valex +++| LX7 18 00941 M00S00932.valex +++| IX7 X4+X7 00942 M00S00933.valex +++| SA7 A4 00943 M00S00934.valex +++| EPF2 ZR X3,EPF3 IF NO USER PROLOGUE DEFINED 00944 M00S00935.valex +++| SA4 EPFA+4 00945 M00S00936.valex +++| IX6 X4+X6 SET TO CLEAR TERMINATION OPTION 00946 M00S00937.valex +++| SA6 A4 00947 M00S00938.valex +++| SX6 X2-CRPT CHECK PROJECT PROLOGUE OPTION 00948 M00S00939.valex +++| NZ X6,EPF3 IF NOT UNCONDITIONAL CHARGE REQUIRED 00949 M00S00940.valex +++| SA6 UPF CLEAR USER PROLOGUE PROCESSING 00950 M00S00941.valex +++| 00951 M00S00942.valex +++|* ACCESS PROLOGUE FILES. 00952 M00S00943.valex +++| 00953 M00S00944.valex +++| EPF3 SB7 B0 INITIALIZE PROLOGUE INDEX 00954 M00S00945.valex +++| SB6 B0 INITIALIZE EXECUTE PROLOGUE FLAG 00955 M00S00946.valex +++| SB5 EPFB INITIALIZE PROLOGUE CALL ADDRESS 00956 M00S00947.valex +++| SA0 SPF SET PROLOGUE PARAMETERS ADDRESS 00957 M00S00948.valex +++| EPF4 SA1 A0 READ FILE NAME 00958 M00S00949.valex +++| SA3 A0+B1 READ USER NAME 00959 M00S00950.valex +++| SA2 A0+2 READ PASSWORD 00960 M00S00951.valex +++| MX0 42 00961 M00S00952.valex +++| ZR X1,EPF6 IF PROLOGUE NOT DEFINED 00962 M00S00953.valex +++| BX1 X0*X1 00963 M00S00954.valex +++| BX4 X1 PRESET LOCAL FILE NAME 00964 M00S00955.valex +++| ZR B6,EPF5 IF NO PREVIOUS PROLOGUE 00965 M00S00956.valex +++| SX5 B7 00966 M00S00957.valex +++| SA4 =7LZZZZPR0 SET LOCAL FILE NAME 00967 M00S00958.valex +++| LX5 18 00968 M00S00959.valex +++| IX4 X4+X5 00969 M00S00960.valex +++| EPF5 RJ ACF ACCESS PROLOGUE FILE 00970 M00S00961.valex +++| SB6 B1 SET EXECUTE PROLOGUE FLAG 00971 M00S00962.valex +++| NZ X5,EPF8 IF FILE NOT FOUND 00972 M00S00963.valex +++| SA1 A0 SET PROLOGUE NAME IN CALL 00973 M00S00964.valex +++| MX0 42 00974 M00S00965.valex +++| SB2 B7+B7 INDEX*2 00975 M00S00966.valex +++| BX1 X0*X1 00976 M00S00967.valex +++| BX6 X1 00977 M00S00968.valex +++| SA6 EPFA+1+B2 00978 M00S00969.valex +++| SB2 1R? 00979 M00S00970.valex +++| RJ SNM 00980 M00S00971.valex +++| EPF6 NZ B7,EPF7 IF SYSTEM PROLOGUE NOT JUST PROCESSED 00981 M00S00972.valex +++| RJ RPF RESTORE USER-S PERMANENT FILE PARAMETERS 00982 M00S00973.valex +++| EPF7 SB7 B7+1 ADVANCE PROLOGUE INDEX 00983 M00S00974.valex +++| SB5 B5+4 ADVANCE PROLOGUE CALL ADDRESS 00984 M00S00975.valex +++| SB2 B7-3 00985 M00S00976.valex +++| SA0 A0+3 ADVANCE PARAMETER ADDRESS 00986 M00S00977.valex +++| NZ B2,EPF4 IF ALL PROLOGUES NOT PROCESSED 00987 M00S00978.valex +++| ZR B6,END IF NO PROLOGUES DEFINED 00988 M00S00979.valex +++| 00989 M00S00980.valex +++|* BUILD SEQUENCING PROCEDURE. 00990 M00S00981.valex +++| 00991 M00S00982.valex +++| EPF8 RJ IPS INITIALIZE PROLOGUE SEQUENCING 00992 M00S00983.valex +++| SA0 SPF SET PARAMETERS ADDRESS 00993 M00S00984.valex +++| MX0 42 SET FIRST PROLOGUE MASK 00994 M00S00985.valex +++| SB7 B0 SET CALL PARAMETERS INDEX 00995 M00S00986.valex +++| EPF9 SA1 A0+ 00996 M00S00987.valex +++| SA5 EPFA+1+B7 00997 M00S00988.valex +++| ZR X1,EPF11 IF PROLOGUE NOT DEFINED 00998 M00S00989.valex +++| BX2 X0*X5 00999 M00S00990.valex +++| NZ X2,EPF10 IF FIRST PROLOGUE AND NO ACCESS ERROR 01000 M00S00991.valex +++| WRITEC F,EPFA+B7 WRITE REENTRY PROCESSING 01001 M00S00992.valex +++| EPF10 ZR X5,EPF12 IF FILE ACCESS ERROR 01002 M00S00993.valex +++| SB2 B7+B7 WRITE PROLOGUE CALL 01003 M00S00994.valex +++| WRITEC F,EPFB+B2 01004 M00S00995.valex +++| SX0 B0+ CLEAR FIRST PROLOGUE MASK 01005 M00S00996.valex +++| EPF11 SB7 B7+2 ADVANCE CALL PARAMETERS INDEX 01006 M00S00997.valex +++| SA0 A0+3 ADVANCE PARAMETER ADDRESS 01007 M00S00998.valex +++| SB2 B7-6 01008 M00S00999.valex +++| NZ B2,EPF9 IF ALL PROLOGUES NOT PROCESSED 01009 M00S01000.valex +++| EPF12 WRITEC F,(=C*$REVERT,NOLIST.*) 01010 M00S01001.valex +++| WRITEC F,(=C*EXIT.*) 01011 M00S01002.valex +++| WRITEC F,(=C*$REVERT,ABORT. PROLOGUE EXECUTION ABORTED*) 01012 M00S01003.valex +++| 01013 M00S01004.valex +++|* INSURE TERMINATION OPTION SET FOR *XPR* PROCESSING IF USER 01014 M00S01005.valex +++|* PROLOGUE NOT FOUND AND NO SYSTEM OR PROJECT PROLOGUE DEFINED. 01015 M00S01006.valex +++| 01016 M00S01007.valex +++| SX1 A0-UPF 01017 M00S01008.valex +++| NZ X1,EXP IF NOT EXIT ON USER PROLOGUE NOT FOUND 01018 M00S01009.valex +++| SA1 SPF 01019 M00S01010.valex +++| SA2 PPF 01020 M00S01011.valex +++| BX1 X1+X2 01021 M00S01012.valex +++| SX6 B1 01022 M00S01013.valex +++| NZ X1,EXP IF SYSTEM OR PROJECT PROLOGUE DEFINED 01023 M00S01014.valex +++| SX1 CCPT SET *CLEAR CONTROLS* TERMINATION OPTION 01024 M00S01015.valex +++| LX1 18 01025 M00S01016.valex +++| BX6 X1+X6 01026 M00S01017.valex +++| SA1 PRC ADD TO OTHER OPTIONS, IF ANY 01027 M00S01018.valex +++| BX6 X1+X6 01028 M00S01019.valex +++| SA6 A1 01029 M00S01020.valex +++| EQ EXP EXECUTE PROLOGUES 01030 M00S01021.valex +++| 01031 M00S01022.valex +++| 01032 M00S01023.valex +++| EPFA VFD 30/0L$XPR.,6/1L0,6/1L0,18/3H 01033 M00S01024.valex +++| CON 0 01034 M00S01025.valex +++| VFD 30/0L$XPR.,6/1L1,6/1L0,18/3H 01035 M00S01026.valex +++| CON 0 01036 M00S01027.valex +++| VFD 30/0L$XPR.,6/1L2,6/1L0,18/3H 01037 M00S01028.valex +++| CON 0 01038 M00S01029.valex +++| 01039 M00S01030.valex +++| EPFB DATA 24L???????. SYSTEM PROLOGUE 01040 M00S01031.valex +++| DATA 0 01041 M00S01032.valex +++| DATA 25L???????. PROJECT PROLOGUE 01042 M00S01033.valex +++| DATA 0 01043 M00S01034.valex +++| DATA 30L$BEGIN,,???????. USER PROLOGUE 01044 M00S01035.valex +++| DATA 0 01045 M00S01036.valex +++| IPS SPACE 4,10 01046 M00S01037.valex +++|** IPS - INITIALIZE PROLOGUE OR EPILOGUE SEQUENCING. 01047 M00S01038.valex +++|* 01048 M00S01039.valex +++|* EXIT PROCEDURE HEADER WRITTEN TO SEQUENCING PROCEDURE FILE. 01049 M00S01040.valex +++|* 01050 M00S01041.valex +++|* USES X - 1, 6. 01051 M00S01042.valex +++|* A - 1, 6. 01052 M00S01043.valex +++|* 01053 M00S01044.valex +++|* MACROS RETURN, WRITEC. 01054 M00S01045.valex +++| 01055 M00S01046.valex +++| 01056 M00S01047.valex +++| IPS SUBR ENTRY/EXIT 01057 M00S01048.valex +++| SA1 =7LZZZZZG1 SET FILE NAME IN FET 01058 M00S01049.valex +++| SX6 B1 01059 M00S01050.valex +++| BX6 X6+X1 01060 M00S01051.valex +++| SA6 F 01061 M00S01052.valex +++| RETURN F,R 01062 M00S01053.valex +++| WRITEC F,(=14L.PROC,ZZZZZG1.) WRITE PROCEDURE HEADER 01063 M00S01054.valex +++| EQ IPSX RETURN 01064 M00S01055.valex +++| RPF SPACE 4,10 01065 M00S01056.valex +++|** RPF - RESTORE USER-S PERMANENT FILE PARAMETERS. 01066 M00S01057.valex +++|* 01067 M00S01058.valex +++|* EXIT USER-S PERMANENT FILE PARAMETERS RESTORED. 01068 M00S01059.valex +++|* 01069 M00S01060.valex +++|* USES X - 1, 6, 7. 01070 M00S01061.valex +++|* A - 1, 6, 7. 01071 M00S01062.valex +++|* 01072 M00S01063.valex +++|* MACROS SETPFP. 01073 M00S01064.valex +++| 01074 M00S01065.valex +++| 01075 M00S01066.valex +++| RPF SUBR ENTRY/EXIT 01076 M00S01067.valex +++| SA1 SSJ=+UIDS RESTORE USER-S PERMANENT FILE PARAMETERS 01077 M00S01068.valex +++| SX7 3 SET USER NAME AND INDEX 01078 M00S01069.valex +++| BX6 X1 01079 M00S01070.valex +++| SA7 RPFA 01080 M00S01071.valex +++| SA6 RPFA+2 01081 M00S01072.valex +++| SETPFP RPFA SET PERMANENT FILE PARAMETERS 01082 M00S01073.valex +++| EQ RPFX RETURN 01083 M00S01074.valex +++| 01084 M00S01075.valex +++| 01085 M00S01076.valex +++| RPFA BSS 3 PERMANENT FILE PARAMETERS 01086 M00S01077.valex +++| TITLE CHARGE VALIDATION ROUTINES. 01087 M00S01078.valex +++| GDC SPACE 4,20 01088 M00S01079.valex +++|** GDC - GET DEFAULT CHARGE AND PROJECT NUMBERS. 01089 M00S01080.valex +++|* 01090 M00S01081.valex +++|* CALLS *CPM* TO GET DEFAULT CHARGE AND PROJECT NUMBERS IF NOT 01091 M00S01082.valex +++|* ALREADY PRESENT. 01092 M00S01083.valex +++|* 01093 M00S01084.valex +++|* ENTRY (DFCF) .NE. 0 IF DEFAULT CHARGE PRESENT. 01094 M00S01085.valex +++|* 01095 M00S01086.valex +++|* EXIT (UCRN) = DEFAULT CHARGE NUMBER. 01096 M00S01087.valex +++|* (UPJ1 - UPJ2) = DEFAULT PROJECT NUMBER. 01097 M00S01088.valex +++|* (DFCF) .NE. 0. 01098 M00S01089.valex +++|* 01099 M00S01090.valex +++|* USES X - 1, 6. 01100 M00S01091.valex +++|* A - 1, 6. 01101 M00S01092.valex +++|* 01102 M00S01093.valex +++|* CALLS CPM=. 01103 M00S01094.valex +++|* 01104 M00S01095.valex +++|* MACROS MOVE. 01105 M00S01096.valex +++| 01106 M00S01097.valex +++| 01107 M00S01098.valex +++| GDC SUBR ENTRY/EXIT 01108 M00S01099.valex +++| SA1 DFCF 01109 M00S01100.valex +++| NZ X1,GDCX IF DEFAULT CHARGE INFORMATION PRESENT 01110 M00S01101.valex +++| SX6 B1 SET INFORMATION PRESENT 01111 M00S01102.valex +++| SA6 A1 01112 M00S01103.valex +++| SX1 SBUF SET PARAMETER BLOCK ADDRESS 01113 M00S01104.valex +++| SX2 126B SET RETURN USER BLOCK FUNCTION 01114 M00S01105.valex +++| RJ CPM= 01115 M00S01106.valex +++| MOVE 3,(SBUF+APJN),UPJ1 SET DEFAULT CHARGE INFORMATION 01116 M00S01107.valex +++| EQ GDCX RETURN 01117 M00S01108.valex +++| RCH SPACE 4,15 01118 M00S01109.valex +++|** RCH - READ CHARGE FROM *INPUT* FILE. 01119 M00S01110.valex +++|* 01120 M00S01111.valex +++|* ENTRY (TRIF) = TERMINAL INTERACTION FLAG. 01121 M00S01112.valex +++|* 01122 M00S01113.valex +++|* EXIT TO *VCH* TO VALIDATE CHARGE AND PROJECT. 01123 M00S01114.valex +++|* TO *ABT* IF RETRY LIMIT EXCEEDED. 01124 M00S01115.valex +++|* TO *RSE* IF EXTERNAL ERROR. 01125 M00S01116.valex +++|* 01126 M00S01117.valex +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 01127 M00S01118.valex +++|* A - 1, 2, 3, 4, 6, 7. 01128 M00S01119.valex +++|* B - 2, 6. 01129 M00S01120.valex +++|* 01130 M00S01121.valex +++|* CALLS ABT, POP, USB, VCH. 01131 M00S01122.valex +++|* 01132 M00S01123.valex +++|* MACROS READ, READC, WRITEC, WRITER. 01133 M00S01124.valex +++| 01134 M00S01125.valex +++| 01135 M00S01126.valex +++| RCH BSS 0 ENTRY 01136 M00S01127.valex +++| SA1 TRIF 01137 M00S01128.valex +++| SA2 EXER 01138 M00S01129.valex +++| SX0 X1+ 01139 M00S01130.valex +++| ZR X1,RCH1 IF NO TERMINAL INTERACTION 01140 M00S01131.valex +++| NZ X2,RSE IF EXTERNAL ERROR 01141 M00S01132.valex +++| SX6 RCH SET INTERRUPT ADDRESS 01142 M00S01133.valex +++| SA6 TRIA 01143 M00S01134.valex +++| WRITEC O,RCHA ISSUE CHARGE NUMBER PROMPT 01144 M00S01135.valex +++| WRITER O,R FORCE WRITE 01145 M00S01136.valex +++| RCH1 READ I,R READ CHARGE NUMBER 01146 M00S01137.valex +++| READC I,SBUF,4 01147 M00S01138.valex +++| NG X1,RCH5 IF NULL INPUT 01148 M00S01139.valex +++| SB2 SBUF UNPACK INPUT 01149 M00S01140.valex +++| RJ USB 01150 M00S01141.valex +++| SA1 USBC FORCE TERMINATION 01151 M00S01142.valex +++| SX6 1R. 01152 M00S01143.valex +++| SX7 X1+B1 01153 M00S01144.valex +++| SA6 X7 01154 M00S01145.valex +++| SA7 USBC 01155 M00S01146.valex +++| RJ POP ASSEMBLE CHARGE NUMBER 01156 M00S01147.valex +++| SA3 POPA 01157 M00S01148.valex +++| NG B5,RCH5 IF ERROR IN ASSEMBLY 01158 M00S01149.valex +++| GE B5,B1,RCH5 IF CHARGE NUMBER TOO LONG 01159 M00S01150.valex +++| ZR X3,RCH5 IF NO CHARGE NUMBER 01160 M00S01151.valex +++| BX6 X3 SET CHARGE NUMBER 01161 M00S01152.valex +++| LX3 6 01162 M00S01153.valex +++| SX2 X3-1R* 01163 M00S01154.valex +++| SA6 CGN 01164 M00S01155.valex +++| NZ B6,RCH2 IF NOT TERMINATOR 01165 M00S01156.valex +++| ZR X2,RCH4 IF DEFAULT CHARGE PARAMETER 01166 M00S01157.valex +++| ZR X0,RCH5 IF NOT TERMINAL INPUT 01167 M00S01158.valex +++| WRITEC O,RCHB ISSUE PROJECT NUMBER PROMPT 01168 M00S01159.valex +++| WRITER O,R FORCE WRITE 01169 M00S01160.valex +++| READ I,R READ PROJECT NUMBER 01170 M00S01161.valex +++| READC I,SBUF,3 01171 M00S01162.valex +++| NG X1,RCH5 IF NULL INPUT 01172 M00S01163.valex +++| SB2 SBUF UNPACK PROJECT NUMBER 01173 M00S01164.valex +++| RJ USB 01174 M00S01165.valex +++| SA1 USBC FORCE TERMINATION 01175 M00S01166.valex +++| SX6 1R. 01176 M00S01167.valex +++| SX7 X1+B1 01177 M00S01168.valex +++| SA6 X7 01178 M00S01169.valex +++| SA7 USBC 01179 M00S01170.valex +++| RCH2 RJ POP ASSEMBLE PROJECT NUMBER 01180 M00S01171.valex +++| SA2 POPA 01181 M00S01172.valex +++| SA4 POPA+1 01182 M00S01173.valex +++| NG B5,RCH5 IF ERROR IN ASSEMBLY 01183 M00S01174.valex +++| GT B5,B1,RCH5 IF PROJECT NUMBER TOO LONG 01184 M00S01175.valex +++| NZ B6,RCH5 IF NOT TERMINATOR 01185 M00S01176.valex +++| ZR X2,RCH5 IF NO PROJECT NUMBER 01186 M00S01177.valex +++| BX7 X7-X7 01187 M00S01178.valex +++| ZR B5,RCH3 IF ONE WORD PROJECT NUMBER 01188 M00S01179.valex +++| BX7 X4 01189 M00S01180.valex +++| RCH3 BX6 X2 01190 M00S01181.valex +++| SA6 PRN SET PROJECT NUMBER 01191 M00S01182.valex +++| SA7 A6+B1 01192 M00S01183.valex +++| RCH4 SX6 B0+ CLEAR INTERRUPT ADDRESS 01193 M00S01184.valex +++| SA6 TRIA 01194 M00S01185.valex +++| RJ VCH VALIDATE CHARGE AND PROJECT 01195 M00S01186.valex +++| EQ RCH6 PROCESS VALIDATION ERROR 01196 M00S01187.valex +++| 01197 M00S01188.valex +++|* PROCESS ERROR IN INPUT. 01198 M00S01189.valex +++| 01199 M00S01190.valex +++| RCH5 SB6 ERFI * FORMAT ERROR IN INPUT.* 01200 M00S01191.valex +++| RCH6 SA1 TRIF 01201 M00S01192.valex +++| ZR X1,ABT IF NOT TERMINAL INTERACTION 01202 M00S01193.valex +++| WRITEC O,B6 ISSUE ERROR MESSAGE TO TERMINAL 01203 M00S01194.valex +++| WRITER O,R FORCE WRITE 01204 M00S01195.valex +++| SA2 RCHC 01205 M00S01196.valex +++| SX3 X2-ERLIM+1 01206 M00S01197.valex +++| SX6 X2+B1 01207 M00S01198.valex +++| PL X3,RCH7 IF INPUT ERROR LIMIT EXCEEDED 01208 M00S01199.valex +++| SA6 A2 SET RETRY COUNT 01209 M00S01200.valex +++| EQ RCH REPROMPT FOR CHARGE NUMBER 01210 M00S01201.valex +++| 01211 M00S01202.valex +++| RCH7 SX0 ERIL * INPUT ERROR LIMIT.* 01212 M00S01203.valex +++| WRITEC O,X0 01213 M00S01204.valex +++| WRITER O,R FORCE WRITE 01214 M00S01205.valex +++| SB6 X0 01215 M00S01206.valex +++| EQ ABT ABORT 01216 M00S01207.valex +++| 01217 M00S01208.valex +++| 01218 M00S01209.valex +++| RCHA DATA C*CHARGE NUMBER: "CB"* 01219 M00S01210.valex +++| RCHB DATA C*PROJECT NUMBER: "CB"* 01220 M00S01211.valex +++| RCHC CON 0 ERROR RETRY COUNT 01221 M00S01212.valex +++| VCH SPACE 4,20 01222 M00S01213.valex +++|** VCH - VALIDATE CHARGE AND PROJECT NUMBERS. 01223 M00S01214.valex +++|* 01224 M00S01215.valex +++|* ENTRY (X2) = 0 IF TO VALIDATE DEFAULT CHARGE. 01225 M00S01216.valex +++|* (CGN) = CHARGE NUMBER IF NOT DEFAULT CHARGE. 01226 M00S01217.valex +++|* (PRN- PRN+1) = PROJECT NUMBER IF NOT DEFAULT CHARGE. 01227 M00S01218.valex +++|* 01228 M00S01219.valex +++|* EXIT TO *EPF* IF NO ERROR. 01229 M00S01220.valex +++|* (B6) = MESSAGE ADDRESS IF ERROR. 01230 M00S01221.valex +++|* CHARGE AND PROJECT NUMBERS DISPLAYED IN DAYFILE IF NO 01231 M00S01222.valex +++|* ERROR. 01232 M00S01223.valex +++|* 01233 M00S01224.valex +++|* USES X - ALL. 01234 M00S01225.valex +++|* A - 1, 2, 3, 4, 5, 6, 7. 01235 M00S01226.valex +++|* B - 2, 6. 01236 M00S01227.valex +++|* 01237 M00S01228.valex +++|* CALLS BAB, CHG, EPF, GDC, SNM. 01238 M00S01229.valex +++|* 01239 M00S01230.valex +++|* MACROS MESSAGE. 01240 M00S01231.valex +++| 01241 M00S01232.valex +++| 01242 M00S01233.valex +++| VCH SUBR ENTRY/EXIT 01243 M00S01234.valex +++| NZ X2,VCH2 IF NOT TO VALIDATE DEFAULT CHARGE 01244 M00S01235.valex +++| RJ GDC GET DEFAULT CHARGE AND PROJECT 01245 M00S01236.valex +++| SA3 UCRN 01246 M00S01237.valex +++| SA5 UPJ1 01247 M00S01238.valex +++| SA4 UPJ2 01248 M00S01239.valex +++| NZ X3,VCH1 IF DEFAULT CHARGE NUMBER PRESENT 01249 M00S01240.valex +++| SB6 ERDN * DEFAULT CHARGE NULL.* 01250 M00S01241.valex +++| SA1 SSJ=+AACS CHECK *CCNR* PRIVILEGE 01251 M00S01242.valex +++| LX1 59-7 01252 M00S01243.valex +++| PL X1,VCHX IF USER NAME REQUIRES CHARGE COMMAND 01253 M00S01244.valex +++| MESSAGE B6,,R ISSUE DEFAULT CHARGE MESSAGE 01254 M00S01245.valex +++| EQ EPF EXIT TO PROCESS PROLOGUES 01255 M00S01246.valex +++| 01256 M00S01247.valex +++| VCH1 SB6 ERDC * ERROR IN DEFAULT CHARGE.* 01257 M00S01248.valex +++| ZR X5,VCHX IF DEFAULT PROJECT NOT PRESENT 01258 M00S01249.valex +++| BX6 X3 SET CHARGE NUMBER 01259 M00S01250.valex +++| BX7 X5 SET PROJECT NUMBER WORD 1 01260 M00S01251.valex +++| SA6 CGN 01261 M00S01252.valex +++| SA7 PRN 01262 M00S01253.valex +++| BX6 X4 SET PROJECT NUMBER WORD 2 01263 M00S01254.valex +++| SA6 A7+B1 01264 M00S01255.valex +++| SX2 B1 SET DEFAULT CHARGE 01265 M00S01256.valex +++| EQ VCH4 VALIDATE CHARGE 01266 M00S01257.valex +++| 01267 M00S01258.valex +++| VCH2 SA1 SSJ=+AACS CHECK RESTRICTION TO DEFAULT CHARGE 01268 M00S01259.valex +++| LX1 59-22 01269 M00S01260.valex +++| NG X1,VCH3 IF NOT RESTRICTED TO DEFAULT CHARGE 01270 M00S01261.valex +++| RJ GDC GET DEFAULT CHARGE AND PROJECT 01271 M00S01262.valex +++| SB6 ERRD * CHARGE RESTRICTED TO DEFAULT.* 01272 M00S01263.valex +++| SA1 CGN 01273 M00S01264.valex +++| SA2 UCRN 01274 M00S01265.valex +++| BX1 X1-X2 01275 M00S01266.valex +++| NZ X1,VCHX IF NOT DEFAULT CHARGE NUMBER 01276 M00S01267.valex +++| SA1 PRN 01277 M00S01268.valex +++| SA3 UPJ1 01278 M00S01269.valex +++| SA2 A1+B1 01279 M00S01270.valex +++| SA4 A3+B1 01280 M00S01271.valex +++| BX1 X1-X3 01281 M00S01272.valex +++| BX2 X2-X4 01282 M00S01273.valex +++| NZ X1,VCHX IF NOT DEFAULT PROJECT NUMBER 01283 M00S01274.valex +++| NZ X2,VCHX IF NOT DEFAULT PROJECT NUMBER 01284 M00S01275.valex +++| VCH3 SX2 0 SET NOT DEFAULT CHARGE 01285 M00S01276.valex +++| VCH4 SA3 SSJ=+UIDS VALIDATE CHARGE AND PROJECT NUMBERS 01286 M00S01277.valex +++| RJ VCN 01287 M00S01278.valex +++| NZ B6,VCHX IF ERROR 01288 M00S01279.valex +++| SA2 B5+PPNW READ PROJECT PROLOGUE FILE NAME 01289 M00S01280.valex +++| SA5 PRST READ PROLOGUE/EPILOGUE STATUS 01290 M00S01281.valex +++| SB6 ERPC * PROLOGUE AND SHELL CONFLICT.* 01291 M00S01282.valex +++| MX0 42 01292 M00S01283.valex +++| MX7 -2 01293 M00S01284.valex +++| BX6 X0*X2 01294 M00S01285.valex +++| LX5 59-57 01295 M00S01286.valex +++| ZR X6,VCH5 IF NO PROJECT PROLOGUE DEFINED 01296 M00S01287.valex +++| NG X5,VCHX IF PROLOGUE AND SHELL CONFLICT 01297 M00S01288.valex +++| SA3 B5+PPUW READ PROJECT PROLOGUE USER NAME 01298 M00S01289.valex +++| SA4 B5+PPPW READ PROJECT PROLOGUE PASSWORD 01299 M00S01290.valex +++| BX7 -X7*X2 01300 M00S01291.valex +++| ERRNZ CRPT-CCPT-1 CODE DEPENDS ON VALUE 01301 M00S01292.valex +++| ERRNZ CAPT-CRPT-1 CODE DEPENDS ON VALUE 01302 M00S01293.valex +++| SX7 X7+CCPT SET TERMINATION OPTION 01303 M00S01294.valex +++| BX6 X6+X7 01304 M00S01295.valex +++| SA6 PPF SET PROJECT PROLOGUE FILE NAME 01305 M00S01296.valex +++| BX6 X0*X3 01306 M00S01297.valex +++| BX7 X0*X4 01307 M00S01298.valex +++| SA6 PPF+1 SET PROJECT PROLOGUE USER NAME 01308 M00S01299.valex +++| SA7 PPF+2 SET PROJECT PROLOGUE PASSWORD 01309 M00S01300.valex +++| VCH5 SA2 B5+PENW 01310 M00S01301.valex +++| BX2 X0*X2 01311 M00S01302.valex +++| ZR X2,VCH6 IF NO PROJECT EPILOGUE DEFINED 01312 M00S01303.valex +++| SB6 EREC * EPILOGUE AND SHELL CONFLICT.* 01313 M00S01304.valex +++| NG X5,VCHX IF EPILOGUE AND SHELL CONFLICT 01314 M00S01305.valex +++| SX1 B1 SET EPILOGUE PENDING FLAG 01315 M00S01306.valex +++| SX6 B1+B1 01316 M00S01307.valex +++| LX1 21 01317 M00S01308.valex +++| BX6 X6+X1 01318 M00S01309.valex +++| SA6 PRC 01319 M00S01310.valex +++| VCH6 SA1 CGN SET CHARGE NUMBER 01320 M00S01311.valex +++| SB5 VCHA SET MESSAGE ADDRESS 01321 M00S01312.valex +++| SB2 1R? 01322 M00S01313.valex +++| RJ SNM 01323 M00S01314.valex +++| SA1 PRN SET PROJECT NUMBER WORD 1 01324 M00S01315.valex +++| SB2 1R! 01325 M00S01316.valex +++| RJ SNM 01326 M00S01317.valex +++| SA1 PRN+1 SET PROJECT NUMBER WORD 2 01327 M00S01318.valex +++| SB2 1R+ 01328 M00S01319.valex +++| RJ SNM 01329 M00S01320.valex +++| MESSAGE VCHA,,R ISSUE CHARGE MESSAGE 01330 M00S01321.valex +++| VCH7 RJ BAB BEGIN ACCOUNT BLOCK 01331 M00S01322.valex +++| EQ EPF PROCESS PROLOGUES 01332 M00S01323.valex +++| 01333 M00S01324.valex +++| 01334 M00S01325.valex +++| VCHA DATA 50H CHARGE = ??????????, PROJECT = !!!!!!!!!!++++++++ 01335 M00S01326.valex +++| DATA 3L++. 01336 M00S01327.valex +++| TITLE SUBROUTINES. 01337 M00S01328.valex +++| ABT SPACE 4,15 01338 M00S01329.valex +++|** ABT - ISSUE ERROR MESSAGE AND ABORT. 01339 M00S01330.valex +++|* 01340 M00S01331.valex +++|* ENTRY (B6) = ERROR MESSAGE ADDRESS. 01341 M00S01332.valex +++|* (TJEF) = TERMINATE JOB FLAG. 01342 M00S01333.valex +++|* 01343 M00S01334.valex +++|* EXIT TO *TRJ* IF TO TERMINATE ON ERROR. 01344 M00S01335.valex +++|* 01345 M00S01336.valex +++|* USES X - 1, 2. 01346 M00S01337.valex +++|* A - 1, 2. 01347 M00S01338.valex +++|* 01348 M00S01339.valex +++|* CALLS TER, TRJ. 01349 M00S01340.valex +++|* 01350 M00S01341.valex +++|* MACROS ABORT, MESSAGE. 01351 M00S01342.valex +++| 01352 M00S01343.valex +++| 01353 M00S01344.valex +++| ABT BSS 0 ENTRY 01354 M00S01345.valex +++| MESSAGE B6,,R ISSUE ERROR MESSAGE 01355 M00S01346.valex +++| SA1 TJEF 01356 M00S01347.valex +++| SA2 TRIF 01357 M00S01348.valex +++| NZ X1,TRJ IF TERMINATE ON ERROR 01358 M00S01349.valex +++| ZR X2,ABT1 IF NO TERMINAL INTERACTION 01359 M00S01350.valex +++| MESSAGE =0,1,R CLEAR *MS1W* ERROR MESSAGE 01360 M00S01351.valex +++| ABT1 RJ TER PERFORM TERMINATION 01361 M00S01352.valex +++| ABORT 01362 M00S01353.valex +++| END SPACE 4,15 01363 M00S01354.valex +++|** END - NORMAL END. 01364 M00S01355.valex +++|* 01365 M00S01356.valex +++|* ENTRY (EXER) = EXTERNAL ERROR CODE. 01366 M00S01357.valex +++|* 01367 M00S01358.valex +++|* EXIT TO *RSE* IF EXTERNAL ERROR. 01368 M00S01359.valex +++|* 01369 M00S01360.valex +++|* USES X - 1. 01370 M00S01361.valex +++|* A - 1. 01371 M00S01362.valex +++|* 01372 M00S01363.valex +++|* CALLS RSE, TER. 01373 M00S01364.valex +++|* 01374 M00S01365.valex +++|* MACROS ENDRUN. 01375 M00S01366.valex +++| 01376 M00S01367.valex +++| 01377 M00S01368.valex +++| END BSS 0 ENTRY 01378 M00S01369.valex +++| SA1 EXER 01379 M00S01370.valex +++| NZ X1,RSE IF EXTERNAL ERROR 01380 M00S01371.valex +++| RJ TER PERFORM TERMINATION 01381 M00S01372.valex +++| ENDRUN 01382 M00S01373.valex +++| EXP SPACE 4,15 01383 M00S01374.valex +++|** EXP - EXECUTE PROLOGUE OR EPILOGUE. 01384 M00S01375.valex +++|* 01385 M00S01376.valex +++|* ENTRY (B2) = ADDRESS OF PROLOGUE OR EPILOGUE CALL. 01386 M00S01377.valex +++|* (EXER) = EXTERNAL ERROR CODE. 01387 M00S01378.valex +++|* 01388 M00S01379.valex +++|* EXIT TO *RSE* IF EXTERNAL ERROR. 01389 M00S01380.valex +++|* 01390 M00S01381.valex +++|* USES X - 1. 01391 M00S01382.valex +++|* A - 1. 01392 M00S01383.valex +++|* 01393 M00S01384.valex +++|* CALLS RSE, TER. 01394 M00S01385.valex +++|* 01395 M00S01386.valex +++|* MACROS MEMORY, SYSTEM, WRITER. 01396 M00S01387.valex +++| 01397 M00S01388.valex +++| 01398 M00S01389.valex +++| EXP BSS 0 ENTRY 01399 M00S01390.valex +++| WRITER F,R 01400 M00S01391.valex +++| SA1 EXER 01401 M00S01392.valex +++| NZ X1,RSE IF EXTERNAL ERROR 01402 M00S01393.valex +++| RJ TER PERFORM TERMINATION 01403 M00S01394.valex +++| MEMORY CM,,R,CCFL*100B REQUEST STORAGE FOR *CCL* LOAD 01404 M00S01395.valex +++| SA1 =C*ZZZZZG1.* SET PROCEDURE CALL 01405 M00S01396.valex +++| BX6 X1 01406 M00S01397.valex +++| SA6 CCDR 01407 M00S01398.valex +++| REPRIEVE RPB,SETUP,0 CLEAR REPRIEVE PROCESSING 01408 M00S01399.valex +++| SYSTEM LDR,R,EXPA LOAD *CCL* *BEGIN* PROCESSOR 01409 M00S01400.valex +++| 01410 M00S01401.valex +++| 01411 M00S01402.valex +++| EXPA VFD 42/5LBEGIN,18/0 *LDR* CALL BLOCK 01412 M00S01403.valex +++| VFD 6/0,6/0,2/0,3/0,1/1,1/1,4/0,1/0,18/0,18/0 01413 M00S01404.valex +++| ICA SPACE 4,10 01414 M00S01405.valex +++|** ICA - ISSUE COMMAND TO DAYFILE AND ABORT. 01415 M00S01406.valex +++|* 01416 M00S01407.valex +++|* ENTRY (B6) = ERROR MESSAGE ADDRESS. 01417 M00S01408.valex +++|* 01418 M00S01409.valex +++|* EXIT TO *ABT*. 01419 M00S01410.valex +++|* 01420 M00S01411.valex +++|* MACROS MESSAGE. 01421 M00S01412.valex +++| 01422 M00S01413.valex +++| 01423 M00S01414.valex +++| ICA BSS 0 ENTRY 01424 M00S01415.valex +++| MESSAGE CCDR ISSUE COMMAND TO DAYFILE 01425 M00S01416.valex +++| EQ ABT ABORT 01426 M00S01417.valex +++| RPV SPACE 4,20 01427 M00S01418.valex +++|** RPV - PROCESS REPRIEVE. 01428 M00S01419.valex +++|* 01429 M00S01420.valex +++|* ENTRY (TRIA) = TERMINAL INTERRUPT ADDRESS IF .NE. 0. 01430 M00S01421.valex +++|* 01431 M00S01422.valex +++|* EXIT TO POINT OF INTERRUPT IN INTERRUPT HANDLER MODE IF NO 01432 M00S01423.valex +++|* TERMINAL INTERRUPT ADDRESS AND NOT USER BREAK. 01433 M00S01424.valex +++|* TO POINT OF INTERRUPT WITH INTERRUPT ENABLED IF NO 01434 M00S01425.valex +++|* TERMINAL INTERRUPT ADDRESS AND USER BREAK. 01435 M00S01426.valex +++|* TO *RSE* IN INTERRUPT HANDLER MODE IF TERMINAL 01436 M00S01427.valex +++|* INTERRUPT ADDRESS SPECIFIED AND NOT USER BREAK. 01437 M00S01428.valex +++|* TO INTERRUPT ADDRESS WITH INTERRUPT ENABLED IF ADDRESS 01438 M00S01429.valex +++|* SPECIFIED AND USER BREAK. 01439 M00S01430.valex +++|* (EXER) = ERROR CODE IF NOT USER BREAK. 01440 M00S01431.valex +++|* 01441 M00S01432.valex +++|* USES X - 0, 1, 2, 3, 6, 7. 01442 M00S01433.valex +++|* A - 1, 2, 6, 7. 01443 M00S01434.valex +++|* B - 2. 01444 M00S01435.valex +++|* 01445 M00S01436.valex +++|* MACROS REPRIEVE. 01446 M00S01437.valex +++| 01447 M00S01438.valex +++| 01448 M00S01439.valex +++| RPV BSS 0 ENTRY 01449 M00S01440.valex +++| SA1 RPB+/COMSRPV/OSEF 01450 M00S01441.valex +++| SA2 TRIA 01451 M00S01442.valex +++| MX0 -12 01452 M00S01443.valex +++| BX6 -X0*X1 ISOLATE ERROR CODE 01453 M00S01444.valex +++| SB2 X6-TIET 01454 M00S01445.valex +++| ZR B2,RPV1 IF USER BREAK ONE 01455 M00S01446.valex +++| SB2 X6-TAET 01456 M00S01447.valex +++| RPV1 NZ X2,RPV2 IF INTERRUPT ADDRESS SPECIFIED 01457 M00S01448.valex +++| ZR B2,RPV3 IF USER BREAK 01458 M00S01449.valex +++| SA6 EXER SET ERROR CODE 01459 M00S01450.valex +++| REPRIEVE RPB,IRESUME,RPMS RESUME EXECUTION 01460 M00S01451.valex +++| 01461 M00S01452.valex +++| RPV2 NZ B2,RSE IF NOT USER BREAK 01462 M00S01453.valex +++| SA1 RPB+/COMSRPV/EXPA 01463 M00S01454.valex +++| MX0 18 01464 M00S01455.valex +++| LX0 -6 01465 M00S01456.valex +++| LX2 36 01466 M00S01457.valex +++| SX7 B0 01467 M00S01458.valex +++| BX6 -X0*X1 SET INTERRUPT ADDRESS 01468 M00S01459.valex +++| BX6 X6+X2 01469 M00S01460.valex +++| SA6 A1 01470 M00S01461.valex +++| SA7 RPB+/COMSRPV/ITIO CLEAR TERMINAL INPUT 01471 M00S01462.valex +++| SA7 RPB+/COMSRPV/PRAR CLEAR PENDING RA+1 REQUEST 01472 M00S01463.valex +++| SA1 I READ INPUT FET POINTERS 01473 M00S01464.valex +++| SA2 A1+B1 01474 M00S01465.valex +++| SX3 B1 01475 M00S01466.valex +++| LX0 -36 01476 M00S01467.valex +++| BX6 X1+X3 SET COMPLETE 01477 M00S01468.valex +++| BX7 X0*X2 01478 M00S01469.valex +++| SA6 A1 WRITE FIRST 01479 M00S01470.valex +++| SA7 A2+B1 SET IN = FIRST 01480 M00S01471.valex +++| SA7 A7+B1 SET OUT = FIRST 01481 M00S01472.valex +++| SA1 O READ OUTPUT FET POINTERS 01482 M00S01473.valex +++| SA2 A1+B1 01483 M00S01474.valex +++| BX6 X1+X3 SET COMPLETE 01484 M00S01475.valex +++| BX7 X0*X2 01485 M00S01476.valex +++| SA7 A2+B1 SET IN = FIRST 01486 M00S01477.valex +++| SA7 A7+B1 SET OUT = FIRST 01487 M00S01478.valex +++| RPV3 REPRIEVE RPB,RESUME,RPMS RESUME EXECUTION 01488 M00S01479.valex +++| RSE SPACE 4,10 01489 M00S01480.valex +++|** RSE - RESET EXTERNAL ERROR. 01490 M00S01481.valex +++|* 01491 M00S01482.valex +++|* ENTRY (TJEF) = TERMINATE JOB FLAG. 01492 M00S01483.valex +++|* 01493 M00S01484.valex +++|* EXIT ERROR FLAG RESET AND JOB ABORTED. 01494 M00S01485.valex +++|* 01495 M00S01486.valex +++|* USES X - 1. 01496 M00S01487.valex +++|* A - 1. 01497 M00S01488.valex +++|* 01498 M00S01489.valex +++|* MACROS REPRIEVE. 01499 M00S01490.valex +++| 01500 M00S01491.valex +++| 01501 M00S01492.valex +++| RSE BSS 0 ENTRY 01502 M00S01493.valex +++| SA1 TJEF 01503 M00S01494.valex +++| NZ X1,TRJ IF TERMINATE ON ERROR 01504 M00S01495.valex +++| RJ TER PERFORM TERMINATION 01505 M00S01496.valex +++| REPRIEVE RPB,RESET,0 RESET ERROR FLAG 01506 M00S01497.valex +++| STI SPACE 4,15 01507 M00S01498.valex +++|** STI - SET TERMINAL INTERACTION PARAMETERS. 01508 M00S01499.valex +++|* 01509 M00S01500.valex +++|* EXIT (TRIF) .NE. 0 IF FILE *INPUT* ASSIGNED TO TERMINAL. 01510 M00S01501.valex +++|* (ACSF) .NE. 0 IF *INPUT* ASSIGNED TO TERMINAL AND 01511 M00S01502.valex +++|* *ASCII* CHARACTER SET MODE SET. 01512 M00S01503.valex +++|* OUTPUT FILE *ZZZZZG0* ASSIGNED TO TERMINAL, NORMAL 01513 M00S01504.valex +++|* MODE SET, AND PROMPT DISABLED IF *INPUT* ASSIGNED 01514 M00S01505.valex +++|* TO TERMINAL. 01515 M00S01506.valex +++|* 01516 M00S01507.valex +++|* USES X - 1, 2, 7. 01517 M00S01508.valex +++|* A - 1, 7. 01518 M00S01509.valex +++|* 01519 M00S01510.valex +++|* CALLS STF. 01520 M00S01511.valex +++|* 01521 M00S01512.valex +++|* MACROS CSET, PROMPT, REQUEST, RETURN, SETFS, TSTATUS. 01522 M00S01513.valex +++| 01523 M00S01514.valex +++| 01524 M00S01515.valex +++| STI SUBR ENTRY/EXIT 01525 M00S01516.valex +++| SX2 I CHECK *INPUT* FILE ASSIGNMENT 01526 M00S01517.valex +++| RJ STF 01527 M00S01518.valex +++| NZ X6,STIX IF NOT ASSIGNED TO TERMINAL 01528 M00S01519.valex +++| SX7 1 SET TERMINAL INTERACTION FLAG 01529 M00S01520.valex +++| SA7 TRIF 01530 M00S01521.valex +++| RETURN O,R 01531 M00S01522.valex +++| REQUEST O,U,N ASSIGN TERMINAL OUTPUT FILE 01532 M00S01523.valex +++| SETFS O,SSST SET SSJ= FILE STATUS 01533 M00S01524.valex +++| PROMPT OFF DISABLE TERMINAL PROMPT 01534 M00S01525.valex +++| TSTATUS SBUF GET TERMINAL CHARACTER SET 01535 M00S01526.valex +++| SA1 SBUF+B1 01536 M00S01527.valex +++| SX7 B1 01537 M00S01528.valex +++| LX1 59-2 01538 M00S01529.valex +++| PL X1,STIX IF NOT *ASCII* MODE 01539 M00S01530.valex +++| SA7 ACSF SET *ASCII* MODE FLAG 01540 M00S01531.valex +++| CSET NORMAL CLEAR *ASCII* MODE 01541 M00S01532.valex +++| EQ STIX EXIT 01542 M00S01533.valex +++| TER SPACE 4,15 01543 M00S01534.valex +++|** TER - TERMINATION PROCESSING. 01544 M00S01535.valex +++|* 01545 M00S01536.valex +++|* ENTRY (ACSF) .NE. 0 IF CHARACTER SET TO BE RESET. 01546 M00S01537.valex +++|* (PRCF) = PROLOGUE/EPILOGUE REQUEST FLAGS. 01547 M00S01538.valex +++|* 01548 M00S01539.valex +++|* EXIT TERMINAL CHARACTER SET RESET IF NECESSARY. 01549 M00S01540.valex +++|* PROLOGUE/EPILOGUE CONTROLS MODIFIED IF REQUEST FLAGS 01550 M00S01541.valex +++|* SET. 01551 M00S01542.valex +++|* 01552 M00S01543.valex +++|* USES X - 1. 01553 M00S01544.valex +++|* A - 1. 01554 M00S01545.valex +++|* 01555 M00S01546.valex +++|* MACROS CSET. 01556 M00S01547.valex +++| 01557 M00S01548.valex +++| 01558 M00S01549.valex +++| TER SUBR ENTRY/EXIT 01559 M00S01550.valex +++| SA1 ACSF 01560 M00S01551.valex +++| ZR X1,TER1 IF NOT *ASCII* MODE ON ENTRY 01561 M00S01552.valex +++| CSET ASCII RESET *ASCII* MODE 01562 M00S01553.valex +++| TER1 SA1 PRC 01563 M00S01554.valex +++| SX1 X1 01564 M00S01555.valex +++| ZR X1,TERX IF NO CONTROLS TO SET 01565 M00S01556.valex +++| SX1 A1 SET STATUS WORD ADDRESS 01566 M00S01557.valex +++| SX2 104B SET PROLOGUE/EPILOGUE CONTROLS FUNCTION 01567 M00S01558.valex +++| RJ CPM= 01568 M00S01559.valex +++| EQ TERX RETURN 01569 M00S01560.valex +++| TRJ SPACE 4,10 01570 M00S01561.valex +++|** TRJ - TERMINATE JOB. 01571 M00S01562.valex +++|* 01572 M00S01563.valex +++|* USES X - 1, 2. 01573 M00S01564.valex +++|* 01574 M00S01565.valex +++|* CALLS CPM=. 01575 M00S01566.valex +++|* 01576 M00S01567.valex +++|* MACROS ENCSF, ENDRUN, RETURN, SETJOB. 01577 M00S01568.valex +++| 01578 M00S01569.valex +++| 01579 M00S01570.valex +++| TRJ BSS 0 ENTRY 01580 M00S01571.valex +++| SETJOB TRJA SET JOB TERMINATION 01581 M00S01572.valex +++| SX1 APN SET APPLICATION NAME 01582 M00S01573.valex +++| SX2 132B SET LOGOUT FUNCTION 01583 M00S01574.valex +++| RJ CPM= 01584 M00S01575.valex +++| RETURN F,R CLEAR COMMANDS 01585 M00S01576.valex +++| ENCSF F 01586 M00S01577.valex +++| ENDRUN 01587 M00S01578.valex +++| 01588 M00S01579.valex +++| 01589 M00S01580.valex +++| TRJA VFD 60/0 SETJOB PARAMETERS 01590 M00S01581.valex +++| VFD 36/0,12/2RTJ,12/0 01591 M00S01582.valex +++| SPACE 4,10 01592 M00S01583.valex +++|* COMMON DECKS. 01593 M00S01584.valex +++| 01594 M00S01585.valex +++| 01595 M00S01586.valex +++|*CALL COMCCIO 01596 M00S01587.valex +++|*CALL COMCCPM 01597 M00S01588.valex +++|*CALL COMCLFM 01598 M00S01589.valex +++|*CALL COMCPFM 01599 M00S01590.valex +++|*CALL COMCPOP 01600 M00S01591.valex +++|*CALL COMCMVE 01601 M00S01592.valex +++|*CALL COMCRDC 01602 M00S01593.valex +++|*CALL COMCRDW 01603 M00S01594.valex +++|*CALL COMCSNM 01604 M00S01595.valex +++|*CALL COMCSTF 01605 M00S01596.valex +++|*CALL COMCSYS 01606 M00S01597.valex +++|*CALL COMCUSB 01607 M00S01598.valex +++|*CALL COMCWTC 01608 M00S01599.valex +++|*CALL COMCWTW 01609 M00S01600.valex +++| SPACE 4,10 01610 M00S01601.valex +++|* ERROR MESSAGES. 01611 M00S01602.valex +++| 01612 M00S01603.valex +++| 01613 M00S01604.valex +++| ERDC DATA C* ERROR IN DEFAULT CHARGE.* 01614 M00S01605.valex +++| ERDN DATA C* DEFAULT CHARGE NULL.* 01615 M00S01606.valex +++| ERFI DATA C* FORMAT ERROR IN INPUT.* 01616 M00S01607.valex +++| ERIL DATA C* INPUT ERROR LIMIT.* 01617 M00S01608.valex +++| EREC DATA C* EPILOGUE AND SHELL CONFLICT.* 01618 M00S01609.valex +++| ERPC DATA C* PROLOGUE AND SHELL CONFLICT.* 01619 M00S01610.valex +++| ERRD DATA C* CHARGE RESTRICTED TO DEFAULT.* 01620 M00S01611.valex +++| 01621 M00S01612.valex +++| 01622 M00S01613.valex +++| USE LITERALS FLUSH OUT LITERALS 01623 M00S01614.valex +++| 01624 M00S01615.valex +++| 01625 M00S01616.valex +++| LIST X,F 01626 M00S01617.valex +++|*CALL COMCCHG 01627 M00S01618.valex +++| LIST * 01628 M00S01619.valex +++| TITLE BUFFER ALLOCATION. 01629 M00S01620.valex +++|* BUFFERS. 01630 M00S01621.valex +++|* 01631 M00S01622.valex +++|* NOTE - THESE BUFFERS OVERLAY BOTH THE BUFFERS IN *COMCCHG* 01632 M00S01623.valex +++|* AND THE REMAINING ROUTINES IN *VALEX*. 01633 M00S01624.valex +++| 01634 M00S01625.valex +++| 01635 M00S01626.valex +++| FBUF BSSN BUFL PROLOGUE/EPILOGUE FILE BUFFER 01636 M00S01627.valex +++| IBUF BSSN BUFL INPUT FILE BUFFER 01637 M00S01628.valex +++| OBUF BSSN BUFL OUTPUT FILE BUFFER 01638 M00S01629.valex +++| SBUF BSSN ARBS SCRATCH BUFFER 01639 M00S01630.valex +++| ENDBUF BSSN 0 END OF BUFFERS 01640 M00S01631.valex +++| END BSSN 01641 M00S01632.valex +++| TITLE OVERLAID SUBROUTINES. 01642 M00S01633.valex +++| GPR SPACE 4,10 01643 M00S01634.valex +++|** GPR - GET PROLOGUE/EPILOGUE STATUS. 01644 M00S01635.valex +++|* 01645 M00S01636.valex +++|* EXIT (PRST) = PROLOGUE AND EPILOGUE STATUS FLAGS. 01646 M00S01637.valex +++|* 01647 M00S01638.valex +++|* USES X - 1, 2. 01648 M00S01639.valex +++|* 01649 M00S01640.valex +++|* CALLS CPM=. 01650 M00S01641.valex +++| 01651 M00S01642.valex +++| 01652 M00S01643.valex +++| GPR SUBR ENTRY/EXIT 01653 M00S01644.valex +++| SX2 131B SET FUNCTION CODE 01654 M00S01645.valex +++| SX1 PRST SET STATUS WORD ADDRESS 01655 M00S01646.valex +++| RJ CPM= GET PROLOGUE/EPILOGUE STATUS 01656 M00S01647.valex +++| EQ GPRX RETURN 01657 M00S01648.valex +++| PRS SPACE 4,10 01658 M00S01649.valex +++|** PRS - PRESET. 01659 M00S01650.valex +++|* 01660 M00S01651.valex +++|* MACROS REPRIEVE. 01661 M00S01652.valex +++| 01662 M00S01653.valex +++| 01663 M00S01654.valex +++| PRS SUBR ENTRY/EXIT 01664 M00S01655.valex +++| NE B1,B0,PRSX IF PRESET ALREADY PERFORMED 01665 M00S01656.valex +++| SB1 1 01666 M00S01657.valex +++| REPRIEVE RPB,SETUP,RPMS SET REPRIEVE PARAMETERS 01667 M00S01658.valex +++| EQ PRSX RETURN 01668 M00S01659.valex +++| SCA SPACE 4,15 01669 M00S01660.valex +++|** SCA - SET COMMAND ARGUMENTS. 01670 M00S01661.valex +++|* 01671 M00S01662.valex +++|* ENTRY (A0) = ADDRESS OF ARGUMENT TABLE. 01672 M00S01663.valex +++|* (B3) = ADDRESS OF SECURE ARGUMENT TABLE IF .GT. 0. 01673 M00S01664.valex +++|* 01674 M00S01665.valex +++|* EXIT COMMAND ISSUED TO DAYFILE. 01675 M00S01666.valex +++|* TO *ABT* IF ARGUMENT ERROR. 01676 M00S01667.valex +++|* 01677 M00S01668.valex +++|* USES X - 1, 5, 6. 01678 M00S01669.valex +++|* A - 5, 6. 01679 M00S01670.valex +++|* B - 2, 3, 4, 6. 01680 M00S01671.valex +++|* 01681 M00S01672.valex +++|* CALLS ABT, ARM, POP, RSP, USB. 01682 M00S01673.valex +++|* 01683 M00S01674.valex +++|* MACROS MESSAGE. 01684 M00S01675.valex +++| 01685 M00S01676.valex +++| 01686 M00S01677.valex +++| SCA SUBR ENTRY/EXIT 01687 M00S01678.valex +++| SB2 CCDR UNPACK COMMAND 01688 M00S01679.valex +++| RJ USB 01689 M00S01680.valex +++| ZR B3,SCA1 IF NO SECURE ARGUMENTS 01690 M00S01681.valex +++| SA4 A0+ SET ARGUMENT TABLE ADDRESS 01691 M00S01682.valex +++| SA5 CCDR SET COMMAND ADDRESS 01692 M00S01683.valex +++| SB6 B3 SET SECURE ARGUMENT TABLE ADDRESS 01693 M00S01684.valex +++| SB2 B0 SET NO PARAMETERS TO SKIP 01694 M00S01685.valex +++| RJ RSP REMOVE SECURE PARAMETERS 01695 M00S01686.valex +++| SCA1 MESSAGE CCDR ISSUE COMMAND TO DAYFILE 01696 M00S01687.valex +++| SB6 USBB SET STRING BUFFER ADDRESS 01697 M00S01688.valex +++| RJ POP 01698 M00S01689.valex +++| NZ X6,SCA2 IF NO LEADING *$* OR */* 01699 M00S01690.valex +++| RJ POP SKIP KEYWORD 01700 M00S01691.valex +++| SCA2 SB3 A0 SET ARGUMENT TABLE ADDRESS 01701 M00S01692.valex +++| SB4 SCAA SET ASSEMBLY ADDRESS 01702 M00S01693.valex +++| SB2 B0 SET ARGUMENT TABLE LENGTH 01703 M00S01694.valex +++| SCA3 SA1 A0+B2 01704 M00S01695.valex +++| SB2 B2+B1 INCREMENT ARGUMENT COUNT 01705 M00S01696.valex +++| NZ X1,SCA3 IF NOT END OF TABLE 01706 M00S01697.valex +++| RJ CPA CONVERT POSITIONAL ARGUMENTS 01707 M00S01698.valex +++| NG B5,SCA4 IF ARGUMENT ERROR 01708 M00S01699.valex +++| PL X1,SCAX IF NO ARGUMENTS PROCESSED 01709 M00S01700.valex +++| SX6 B5 SET END OF STRING 01710 M00S01701.valex +++| SA6 USBC 01711 M00S01702.valex +++| SB3 A0 SET ARGUMENT TABLE ADDRESS 01712 M00S01703.valex +++| SB6 SCAA SET BUFFER ADDRESS 01713 M00S01704.valex +++| RJ ARM PROCESS ARGUMENTS 01714 M00S01705.valex +++| ZR X1,SCAX IF NO ARGUMENT ERROR 01715 M00S01706.valex +++| SCA4 SB6 ERAR * ERROR IN ARGUMENTS.* 01716 M00S01707.valex +++| EQ ABT ABORT 01717 M00S01708.valex +++| 01718 M00S01709.valex +++| 01719 M00S01710.valex +++| SCAA BSS 87 STRING BUFFER 01720 M00S01711.valex +++| VUN SPACE 4,15 01721 M00S01712.valex +++|** VUN - VALIDATE USER NAME. 01722 M00S01713.valex +++|* 01723 M00S01714.valex +++|* EXIT TO *ABT* IF ERROR. 01724 M00S01715.valex +++|* TO *RSE* IF ERROR IN VALIDATION. 01725 M00S01716.valex +++|* 01726 M00S01717.valex +++|* USES X - ALL.
| Line S01718 Modification History | |
|---|---|
M01 (Removed by) | ns2734 |
Seq # *Modification Id* Act ----------------------------+ 01727 M01S01718.ns2734 ---|* A - 1, 3, 5, 6, 7.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2734 |
Seq # *Modification Id* Act ----------------------------+ 01728 M01S00009.ns2734 +++|* A - 1, 2, 3, 5, 6, 7. 01729 M00S01719.valex +++|* B - 2, 5, 6. 01730 M00S01720.valex +++|*
| Line S01721 Modification History | |
|---|---|
M01 (Removed by) | ns2734 |
Seq # *Modification Id* Act ----------------------------+ 01731 M01S01721.ns2734 ---|* CALLS ABT, CMI, COD, SNM, TLI.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2734 |
Seq # *Modification Id* Act ----------------------------+ 01732 M01S00010.ns2734 +++|* CALLS CMI, COD, SNM. 01733 M00S01722.valex +++|*
| Line S01723 Modification History | |
|---|---|
M01 (Removed by) | ns2734 |
Seq # *Modification Id* Act ----------------------------+ 01734 M01S01723.ns2734 ---|* MACROS EDATE, GETFLC, MESSAGE, VALID.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2734 |
Seq # *Modification Id* Act ----------------------------+ 01735 M01S00011.ns2734 +++|* MACROS EDATE, GETFLC, MESSAGE, MOVE, VALID. 01736 M00S01724.valex +++| 01737 M00S01725.valex +++| 01738 M00S01726.valex +++| VUN SUBR ENTRY/EXIT 01739 M00S01727.valex +++| 01740 M00S01728.valex +++|* VALIDATE USER NAME, PASSWORD, FAMILY NAME. 01741 M00S01729.valex +++| 01742 M00S01730.valex +++| SA1 UPSW SET SPECIAL USER NAMES FLAG 01743 M00S01731.valex +++| SX6 10B 01744 M00S01732.valex +++| BX6 X1+X6 01745 M00S01733.valex +++| SA6 A1 01746 M00S01734.valex +++| VALID UNAM 01747 M00S01735.valex +++| SA2 EXER 01748 M00S01736.valex +++| SA1 UFAM 01749 M00S01737.valex +++| SX0 70B 01750 M00S01738.valex +++| NZ X2,RSE IF ERROR IN VALIDATION 01751 M00S01739.valex +++| BX0 X0*X1
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2734 |
Seq # *Modification Id* Act ----------------------------+ 01752 M01S00012.ns2734 +++| ZR X0,VUN1 IF NO ERROR CODE RETURNED 01753 M00S01740.valex +++| SX2 X0-10B 01754 M00S01741.valex +++| SB6 ERCR * CHARGE COMMAND REQUIRED.* 01755 M00S01742.valex +++| ZR X2,ABT IF CHARGE COMMAND REQUIRED
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2734 |
Seq # *Modification Id* Act ----------------------------+ 01756 M01S00013.ns2734 +++| SX2 X0-20B 01757 M00S01743.valex +++| SB6 ERSD * SECONDARY USER COMMANDS DISABLED.*
| Line S01744 Modification History | |
|---|---|
M01 (Removed by) | ns2734 |
Seq # *Modification Id* Act ----------------------------+ 01758 M01S01744.ns2734 ---| NZ X0,ABT IF SECONDARY USER COMMANDS DISABLED 01759 M01S01745.ns2734 ---| SX6 1 SET DEFAULT CHARGE PRESENT
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns2734 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01746.valex +++| SA6 DFCF 01769 M00S01747.valex +++| 01770 M00S01748.valex +++|* VALIDATE JOB COMMAND PARAMETERS. 01771 M00S01749.valex +++| 01772 M00S01750.valex +++| LX1 59-0 01773 M00S01751.valex +++| MX6 -12 01774 M00S01752.valex +++| NG X1,VUN2 IF NOT FIRST USER COMMAND 01775 M00S01753.valex +++| SA1 JOPR 01776 M00S01754.valex +++| LX1 -24 01777 M00S01755.valex +++| BX1 -X6*X1 JOB ORIGIN TYPE 01778 M00S01756.valex +++| SX1 X1-SYOT 01779 M00S01757.valex +++| ZR X1,VUN2 IF SYSTEM ORIGIN 01780 M00S01758.valex +++| SX6 B1+ SET TERMINATE ON ERROR 01781 M00S01759.valex +++| SA6 TJEF 01782 M00S01760.valex +++| 01783 M00S01761.valex +++|* VALIDATE JOB COMMAND CM FIELD LENGTH. 01784 M00S01762.valex +++| 01785 M00S01763.valex +++| SA1 UALMW GET CM VALIDATION LIMIT 01786 M00S01764.valex +++| LX1 -18 01787 M00S01765.valex +++| RJ CMI CONVERT CM VALIDATION LIMIT 01788 M00S01766.valex +++| BX5 X1 SAVE CM VALIDATION LIMIT 01789 M00S01767.valex +++| GETFLC ,VUNE GET EM FIELD LENGTH CONTROL WORD 01790 M00S01768.valex +++| SA3 VUNE 01791 M00S01769.valex +++| MX0 -12 01792 M00S01770.valex +++| LX3 36 GET MAXFL (EXTENDED MEMORY) 01793 M00S01771.valex +++| BX3 -X0*X3
| Line S01772 Modification History | |
|---|---|
M01 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 01794 M01S01772.ns2516a ---| ZR X3,VUN1 IF NO EXTENDED MEMORY FL REQUESTED 01795 M01S01773.ns2516a ---| NG X5,VUN1 IF CM VALIDATION UNLIMITED
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 01796 M01S00001.ns2516a +++| ZR X3,VUN2 IF NO EXTENDED MEMORY FL REQUESTED 01797 M01S00002.ns2516a +++| NG X5,VUN2 IF CM VALIDATION UNLIMITED 01798 M00S01774.valex +++| SX2 MCMX/100B 01799 M00S01775.valex +++| IX6 X5-X2 01800 M00S01776.valex +++| SB6 EREM * EXTENDED MEMORY MINIMUM CM NOT ...* 01801 M00S01777.valex +++| NG X6,ABT IF NOT VALIDATED FOR AT LEAST *MCMX*
| Line S01778 Modification History | |
|---|---|
M01 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 01802 M01S01778.ns2516a ---| 01803 M01S01779.ns2516a ---|* VALIDATE JOB COMMAND TIME LIMIT. 01804 M01S01780.ns2516a ---| 01805 M01S01781.ns2516a ---| VUN1 SA1 UALMW GET TL VALIDATION LIMIT 01806 M01S01782.ns2516a ---| LX1 -30 01807 M01S01783.ns2516a ---| RJ TLI CONVERT TL VALIDATION LIMIT 01808 M01S01784.ns2516a ---| NG X1,VUN2 IF UNLIMITED 01809 M01S01785.ns2516a ---| SA3 SSJ=+SPPS SPECIAL SYSTEM PARAMETERS 01810 M01S01786.ns2516a ---| LX1 3 TIME LIMIT * 10B 01811 M01S01787.ns2516a ---| MX0 -15 01812 M01S01788.ns2516a ---| LX3 -24 01813 M01S01789.ns2516a ---| BX3 -X0*X3 TIME LIMIT 01814 M01S01790.ns2516a ---| IX6 X1-X3 01815 M01S01791.ns2516a ---| PL X6,VUN2 IF JOB COMMAND TL .LE. VALIDATION LIMIT 01816 M01S01792.ns2516a ---| SB6 ERTL * TL NOT VALIDATED.* 01817 M01S01793.ns2516a ---| EQ ABT ABORT 01818 M00S01794.valex +++| 01819 M00S01795.valex +++|* MOVE ACCOUNT WORDS TO *SSJ=* AREA. 01820 M00S01796.valex +++| 01821 M00S01797.valex +++| VUN2 MOVE 3,UALMW,(SSJ=+ALMS) 01822 M00S01798.valex +++| SA1 UNAM 01823 M00S01799.valex +++| BX6 X1 01824 M00S01800.valex +++| SA6 SSJ=+UIDS 01825 M00S01801.valex +++| 01826 M00S01802.valex +++|* ISSUE ACCOUNTING MESSAGES. 01827 M00S01803.valex +++| 01828 M00S01804.valex +++| SA5 UFAM 01829 M00S01805.valex +++| SA1 =4HABUN 01830 M00S01806.valex +++| SB5 VUNA SET MESSAGE ADDRESS 01831 M00S01807.valex +++| LX5 59-0 01832 M00S01808.valex +++| PL X5,VUN3 IF FIRST *USER* COMMAND 01833 M00S01809.valex +++| SA1 =4HACUN 01834 M00S01810.valex +++| VUN3 SB2 1R? 01835 M00S01811.valex +++| RJ SNM SET MESSAGE IDENTIFIER 01836 M00S01812.valex +++| SA1 UNAM GET USER NAME 01837 M00S01813.valex +++| MX0 42 01838 M00S01814.valex +++| BX1 X0*X1 01839 M00S01815.valex +++| SB2 1R! 01840 M00S01816.valex +++| RJ SNM SET USER NAME 01841 M00S01817.valex +++| SA1 UFAM GET FAMILY NAME 01842 M00S01818.valex +++| BX1 X0*X1 01843 M00S01819.valex +++| SB2 1R+ 01844 M00S01820.valex +++| RJ SNM SET FAMILY NAME 01845 M00S01821.valex +++| SA1 UTRN GET TERMINAL NAME 01846 M00S01822.valex +++| BX1 X0*X1 01847 M00S01823.valex +++| SB2 1R& 01848 M00S01824.valex +++| RJ SNM SET TERMINAL NAME 01849 M00S01825.valex +++| MESSAGE VUNA,5 ISSUE USER MESSAGE TO ACCOUNT FILE 01850 M00S01826.valex +++| NG X5,VUN4 IF NOT FIRST *USER* COMMAND 01851 M00S01827.valex +++| SA1 UFAM GET SERVICE CLASS 01852 M00S01828.valex +++| MX0 -6 01853 M00S01829.valex +++| AX1 12 01854 M00S01830.valex +++| SX3 10 SET WORD NUMBER 01855 M00S01831.valex +++| BX1 -X0*X1 01856 M00S01832.valex +++| BX4 X1 01857 M00S01833.valex +++| SX6 X3 01858 M00S01834.valex +++| IX3 X1/X3 01859 M00S01835.valex +++| SA2 VUND+X3 READ SERVICE CLASS WORD 01860 M00S01836.valex +++| IX3 X3*X6 01861 M00S01837.valex +++| IX4 X4-X3 01862 M00S01838.valex +++| SX3 6 SET SHIFT COUNT 01863 M00S01839.valex +++| IX4 X3*X4 01864 M00S01840.valex +++| SB2 X4 01865 M00S01841.valex +++| MX0 6 01866 M00S01842.valex +++| LX2 X2,B2 GET SERVICE CLASS CHARACTER 01867 M00S01843.valex +++| BX1 X0*X2 01868 M00S01844.valex +++| SB5 VUNB SET MESSAGE ADDRESS 01869 M00S01845.valex +++| SB2 1R? 01870 M00S01846.valex +++| RJ SNM SET SERVICE CLASS 01871 M00S01847.valex +++| MESSAGE VUNB,5 ISSUE SERVICE CLASS TO ACCOUNT FILE 01872 M00S01848.valex +++| MESSAGE VUNB,3 ISSUE SERVICE CLASS TO USER DAYFILE 01873 M00S01849.valex +++| SA1 UCRN 01874 M00S01850.valex +++| ZR X1,VUN4 IF NO CHARGE NUMBER 01875 M00S01851.valex +++| SB5 VUNC SET DEFAULT CHARGE MESSAGE ADDRESS 01876 M00S01852.valex +++| SB2 1R? 01877 M00S01853.valex +++| RJ SNM SET CHARGE NUMBER 01878 M00S01854.valex +++| SA1 UPJ1 READ FIRST PART OF PROJECT NUMBER 01879 M00S01855.valex +++| SB2 1R! 01880 M00S01856.valex +++| RJ SNM SET PROJECT NUMBER 01881 M00S01857.valex +++| SA1 UPJ2 READ SECOND PART OF PROJECT NUMBER 01882 M00S01858.valex +++| SB2 1R+ 01883 M00S01859.valex +++| RJ SNM SET PROJECT NUMBER 01884 M00S01860.valex +++| MESSAGE VUNC,5 ISSUE DEFAULT CHARGE TO ACCOUNT FILE 01885 M00S01861.valex +++| 01886 M00S01862.valex +++|* ISSUE PASSWORD EXPIRATION MESSAGE. 01887 M00S01863.valex +++| 01888 M00S01864.valex +++| VUN4 SA1 UPSW 01889 M00S01865.valex +++| MX0 -18 01890 M00S01866.valex +++| LX1 -24 01891 M00S01867.valex +++| BX1 -X0*X1 01892 M00S01868.valex +++| ZR X1,VUN6 IF NO PASSWORD EXPIRATION DATE 01893 M00S01869.valex +++| EDATE X1 CONVERT EXPIRATION DATE 01894 M00S01870.valex +++| BX1 X6 01895 M00S01871.valex +++| SB5 VUNF 01896 M00S01872.valex +++| SB2 1R! 01897 M00S01873.valex +++| RJ SNM SET EXPIRATION DATE IN MESSAGE 01898 M00S01874.valex +++| MESSAGE B5,3 * YOUR PASSWORD EXPIRES AT ...* 01899 M00S01875.valex +++| 01900 M00S01876.valex +++|* SET SYSTEM AND USER PROLOGUE PARAMETERS. 01901 M00S01877.valex +++| 01902 M00S01878.valex +++| VUN6 NG X5,VUNX IF NOT FIRST *USER* COMMAND 01903 M00S01879.valex +++| SA1 UPRO 01904 M00S01880.valex +++| MX7 42 01905 M00S01881.valex +++| BX7 X1*X7 SET USER PROLOGUE FILE NAME 01906 M00S01882.valex +++| SA7 UPF 01907 M00S01883.valex +++| BX1 X1-X7 01908 M00S01884.valex +++| AX1 12 01909 M00S01885.valex +++| ZR X1,VUNX IF NO SYSTEM PROLOGUE DEFINED 01910 M00S01886.valex +++| SX0 X1-SSPMN 01911 M00S01887.valex +++| RJ COD CONVERT PROLOGUE INDEX 01912 M00S01888.valex +++| SB2 B2-6 01913 M00S01889.valex +++| MX6 6 01914 M00S01890.valex +++| ZR B2,VUN7 IF ONE DIGIT 01915 M00S01891.valex +++| MX6 12 01916 M00S01892.valex +++| VUN7 SA1 =4LPROC SET SYSTEM PROLOGUE NAME 01917 M00S01893.valex +++| SX2 CCPT SET CLEAR CONTROLS TERMINATION OPTION 01918 M00S01894.valex +++| NG X0,VUN8 IF NO LOGOUT ON SYSTEM PROLOGUE ABORT 01919 M00S01895.valex +++| SX2 LAPT SET LOGOUT ON ABORT TERMINATION OPTION 01920 M00S01896.valex +++| VUN8 BX4 X6*X4 01921 M00S01897.valex +++| LX4 -24 01922 M00S01898.valex +++| BX7 X1+X4 01923 M00S01899.valex +++| BX7 X7+X2 01924 M00S01900.valex +++| SA7 SPF 01925 M00S01901.valex +++| EQ VUNX RETURN 01926 M00S01902.valex +++| 01927 M00S01903.valex +++| 01928 M00S01904.valex +++|* ACCOUNT MESSAGE TEMPLATES. 01929 M00S01905.valex +++| 01930 M00S01906.valex +++| VUNA DATA C*????, !!!!!!!, +++++++, &&&&&&&.* 01931 M00S01907.valex +++| VUNB DATA C*ABSC, ?.* 01932 M00S01908.valex +++| VUNC DATA C*ABIC, ??????????, !!!!!!!!!!++++++++++.* 01933 M00S01909.valex +++| 01934 M00S01910.valex +++| VUND DATA 0H"NMDS" SERVICE CLASS IDENTIFIERS 01935 M00S01911.valex +++| 01936 M00S01912.valex +++| VUNE CON 0 CM FIELD LENGTH CONTROL WORD 01937 M00S01913.valex +++| 01938 M00S01914.valex +++|* PASSWORD EXPIRATION WARNING MESSAGE. 01939 M00S01915.valex +++| 01940 M00S01916.valex +++| VUNF DATA 50H YOUR PASSWORD EXPIRES AT 00.00.00 ON!!!!!!!!!! 01941 M00S01917.valex +++| CON 0 01942 M00S01918.valex +++| SPACE 4,10 01943 M00S01919.valex +++|* OVERLAID COMMON DECKS. 01944 M00S01920.valex +++| 01945 M00S01921.valex +++| 01946 M00S01922.valex +++| CMI$ SET 1 ASSEMBLE *CMI* 01947 M00S01923.valex +++| TLI$ SET 1 ASSEMBLE *TLI* 01948 M00S01924.valex +++|*CALL COMCARM 01949 M00S01925.valex +++|*CALL COMCCDD 01950 M00S01926.valex +++|*CALL COMCCOD 01951 M00S01927.valex +++|*CALL COMCCPA 01952 M00S01928.valex +++|*CALL COMCCVI 01953 M00S01929.valex +++|*CALL COMCEDT 01954 M00S01930.valex +++|*CALL COMCRSP 01955 M00S01931.valex +++| SPACE 4,10 01956 M00S01932.valex +++|* OVERLAID ERROR MESSAGES. 01957 M00S01933.valex +++| 01958 M00S01934.valex +++|
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns2734 |
Seq # *Modification Id* Act ----------------------------+ 01959 M01S00022.ns2734 +++| ERAF DATA C* ALTERNATE FAMILY NOT ALLOWED.* 01960 M00S01935.valex +++| ERAR DATA C* ERROR IN ARGUMENTS.*
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | ns2734 |
Seq # *Modification Id* Act ----------------------------+ 01961 M01S00023.ns2734 +++| ERAU DATA C* ALTERNATE USER NAME NOT ALLOWED.* 01962 M00S01936.valex +++| ERCN DATA C* COMMAND NOT ALLOWED IN PROLOGUE/EPILOGUE.* 01963 M00S01937.valex +++| ERCR DATA C* CHARGE COMMAND REQUIRED.* 01964 M00S01938.valex +++| EREF DATA C* PROJECT EPILOGUE NOT FOUND.*
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/valex.txt · Last modified: (external edit)