cdc:nos2.source:opl.opl871:deck:pfiles.001
Deck PFILES Part 001
18 Modifications
Listing Sections
- Deck PFILES Start
- Deck PFILES Part 1 (Line 1181)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01181 M01S00082.v23l617 +++|* UN = USER NAME. 01182 M00S00830.pfiles +++|* PN = PACK NAME. 01183 M00S00831.pfiles +++|* R = RESIDENCE.
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01184 M02S00083.pfile6 ---|* RT = RETURN CONTROL AFTER STAGE INITIATED. DO NOT
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01185 M01S00020.pfile6 +++|* RT = RETURN CONTROL AFTER STAGE INITIATED OR IF 01186 M01S00021.pfile6 +++|* A PF UTILITY IS ACTIVE. DO NOT
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01187 M01S00084.v23l617 +++|* WAIT FOR FILE TO BE AVAILABLE. 01188 M00S00832.pfiles +++|* NA = NO ABORT IF ERROR ENCOUNTERED. 01189 M00S00833.pfiles +++|* WB = WAIT FOR PACK MOUNT. 01190 M00S00834.pfiles +++| 01191 M00S00835.pfiles +++| 01192 M00S00836.pfiles +++| GET BSS 0 ENTRY 01193 M00S00837.pfiles +++| SB7 CCGT SET FUNCTION CODE 01194 M00S00838.pfiles +++| RJ PFL PROCESS PERMANENT FILE REQUEST 01195 M00S00839.pfiles +++| RJ GPN GET PRIMARY FILE NAME
| Line S00840 Modification History | |
|---|---|
M01 (Removed by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01196 M01S00840.pfile4 ---| SB3 B0+ 01197 M01S00841.pfile4 ---| SA5 B3+TSFN SYSTEM FILE NAME 01198 M01S00842.pfile4 ---| GET1 SX6 B1
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01199 M01S00048.pfile4 +++| SA1 PFLB GET INDEX OF LAST FILE NAME 01200 M01S00049.pfile4 +++| SB4 X1+ 01201 M01S00050.pfile4 +++| GET1 SB3 B0+ GET FIRST FILE NAME 01202 M01S00051.pfile4 +++| GET2 SA5 B3+TSFN SYSTEM FILE NAME 01203 M01S00052.pfile4 +++| ZR X5,GET6 IF PREVIOUS *GET* OF THIS FILE WORKED 01204 M01S00053.pfile4 +++| SX6 B1 01205 M00S00843.pfiles +++| BX6 X6+X5 01206 M00S00844.pfiles +++| SA6 F 01207 M00S00845.pfiles +++| SA2 GETTAB+1 CHECK FOR PRIMARY FILE 01208 M00S00846.pfiles +++| BX2 X5-X2
| Line S00847 Modification History | |
|---|---|
M01 (Removed by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01209 M01S00847.pfile4 ---| NZ X2,GET2 IF NOT PRIMARY FILE
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01210 M01S00054.pfile4 +++| NZ X2,GET3 IF NOT PRIMARY FILE 01211 M00S00848.pfiles +++| OLD F,B3+TPFN,USNM,PWD,PKNM,RES
| Line S00849 Modification History | |
|---|---|
M01 (Removed by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01212 M01S00849.pfile4 ---| EQ GET3 CHECK FOR NEXT FILE
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01213 M01S00055.pfile4 +++| EQ GET4 CHECK FOR NEXT FILE 01214 M00S00850.pfiles +++|
| Line S00851 Modification History | |
|---|---|
M01 (Removed by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01215 M01S00851.pfile4 ---| GET2 GET F,B3+TPFN,USNM,PWD,PKNM,RES 01216 M01S00852.pfile4 ---| GET3 RJ CES CHECK ERROR STATUS 01217 M01S00853.pfile4 ---| SB3 B3+B1 ADVANCE TO NEXT FILE 01218 M01S00854.pfile4 ---| SA5 B3+TSFN 01219 M01S00855.pfile4 ---| NZ X5,GET1 IF ANOTHER FILE TO PROCESS
| Line S00856 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01220 M02S00856.pfile4 ---| EQ PNC PROCESS NEXT CONTROL STATEMENT
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01221 M02S00085.pfile4 ---| EQ PNC PROCESS NEXT COMMAND
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01222 M01S00056.pfile4 +++| GET3 GET F,B3+TPFN,USNM,PWD,PKNM,RES 01223 M01S00057.pfile4 +++| GET4 RJ CES CHECK ERROR STATUS
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
M02 (Removed by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01224 M02S00058.pfile6 ---| ZR X7,GET5 IF *STAGE INITIATED* STATUS
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
M02 (Removed by) | pfile4a |
Seq # *Modification Id* Act ----------------------------+ 01225 M02S00022.pfile4a ---| ZR X7,GET5 IF *STAGE INITIATED*/*PF UTILITY ACTIVE*
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | pfile4a |
Seq # *Modification Id* Act ----------------------------+ 01226 M01S00002.pfile4a +++| ZR X7,GET5 IF WAITING STAGING, UTILITY OR INTERLOCK
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01227 M01S00059.pfile4 +++| SX6 B0+ CLEAR FILE NAME 01228 M01S00060.pfile4 +++| SA6 B3+TSFN 01229 M01S00061.pfile4 +++| EQ GET6 ADVANCE TO NEXT FILE 01230 M01S00062.pfile4 +++| 01231 M01S00063.pfile4 +++| GET5 SX6 B1+ SET FLAG TO INDICATE THAT RETRY NEEDED 01232 M01S00064.pfile4 +++| SA6 GETA 01233 M01S00065.pfile4 +++| GET6 SB3 B3+1 ADVANCE TO NEXT FILE 01234 M01S00066.pfile4 +++| LE B3,B4,GET2 IF ANOTHER FILE TO PROCESS 01235 M01S00067.pfile4 +++| SA1 GETA
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
M02 (Removed by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01236 M02S00068.pfile6 ---| ZR X1,PNC IF NO FILES ARE BEING STAGED
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01237 M01S00023.pfile6 +++| ZR X1,PNC IF NO RETRY NEEDED
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01238 M01S00069.pfile4 +++| BX6 X6-X6 CLEAR FLAG 01239 M01S00070.pfile4 +++| SA6 A1 01240 M01S00071.pfile4 +++| SA1 RTIME 01241 M01S00072.pfile4 +++| NZ X1,PNC IF *RT* PARAMETER SPECIFIED 01242 M01S00073.pfile4 +++| SA1 F+1 CLEAR REAL-TIME PROCESSING BIT 01243 M01S00074.pfile4 +++| MX6 1 01244 M01S00075.pfile4 +++| LX6 43-59 01245 M01S00076.pfile4 +++| BX6 X1-X6 01246 M01S00077.pfile4 +++| SA6 A1
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
M02 (Removed by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01247 M02S00078.pfile6 ---| EQ GET1 RETRY FOR FILES WHICH ARE BEING STAGED
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01248 M01S00024.pfile6 +++| EQ GET1 RETRY WITH *RT* CLEARED
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01249 M01S00079.pfile4 +++| 01250 M01S00080.pfile4 +++|
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
M02 (Removed by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01251 M02S00081.pfile6 ---| GETA CON 0 NONZERO IF ANY FILES ARE BEING STAGED
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01252 M01S00025.pfile6 +++| GETA CON 0 NONZERO IF RETRY WITHOUT *RT* REQUIRED 01253 M00S00857.pfiles +++| NEW SPACE 4,10 01254 M00S00858.pfiles +++|*** NEW (F/ND) 01255 M00S00859.pfiles +++|* 01256 M00S00860.pfiles +++|* CREATE A NEW PRIMARY FILE. ANY CURRENT WORKING FILE 01257 M00S00861.pfiles +++|* NAMED F IS RETURNED, AND A NEW (EMPTY) FILE F CREATED 01258 M00S00862.pfiles +++|* AND MADE USER S NEW PRIMARY FILE. 01259 M00S00863.pfiles +++|* 01260 M00S00864.pfiles +++|* F = NEW PRIMARY FILE NAME. 01261 M00S00865.pfiles +++|* ND = IF NOT SPECIFIED, ALL WORKING FILES WILL BE 01262 M00S00866.pfiles +++|* RETURNED (EXCEPT PRIMARY). 01263 M00S00867.pfiles +++| 01264 M00S00868.pfiles +++| 01265 M00S00869.pfiles +++| NEW BSS 0 ENTRY 01266 M00S00870.pfiles +++| SB7 CCNW SET FUNCTION CODE 01267 M00S00871.pfiles +++| RJ PFL PROCESS PERMANENT FILE REQUEST 01268 M00S00872.pfiles +++| SX1 B1 INDICATE FILE NOT BUSY 01269 M00S00873.pfiles +++| SA2 TSFN 01270 M00S00874.pfiles +++| SA3 A2+B1 01271 M00S00875.pfiles +++| NZ X3,ERR IF MORE THAN 1 WORKING FILE SPECIFIED 01272 M00S00876.pfiles +++| SA3 TPFN 01273 M00S00877.pfiles +++| NZ X3,ERR IF PERMANENT FILE NAME SPECIFIED 01274 M00S00878.pfiles +++| BX6 X1+X2 01275 M00S00879.pfiles +++| SA6 F 01276 M00S00880.pfiles +++| RETURN A6 RETURN EXISTING PRIMARY FILE 01277 M00S00881.pfiles +++| PRIMARY X2 CREATE NEW PRIMARY FILE 01278 M00S00882.pfiles +++| RJ RNF RETURN NON-PRIMARY FILES
| Line S00883 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01279 M01S00883.v23l617 ---| EQ PNC PROCESS NEXT CONTROL STATEMENT
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01280 M01S00086.v23l617 +++| EQ PNC PROCESS NEXT COMMAND 01281 M00S00884.pfiles +++| OLD SPACE 4,15
| Line S00885 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01282 M01S00885.v23l617 ---|*** OLD (F=P/PW,UN,PN,R,NA,WB,ND)
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01283 M01S00087.v23l617 +++|*** OLD (F=P/PW,UN,PN,R,RT,NA,WB,ND) 01284 M00S00886.pfiles +++|* 01285 M00S00887.pfiles +++|* RETRIEVE COPY OF PERMANENT FILE FOR SYSTEM USAGE. 01286 M00S00888.pfiles +++|* INDIRECT ACCESS FILES ONLY. 01287 M00S00889.pfiles +++|* FILE F WILL BE MADE USER S NEW PRIMARY FILE. 01288 M00S00890.pfiles +++|* 01289 M00S00891.pfiles +++|* F = WORKING FILE NAME. 01290 M00S00892.pfiles +++|* P = PERMANENT FILE NAME. 01291 M00S00893.pfiles +++|* PW = FILE PASSWORD.
| Line S00894 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01292 M01S00894.v23l617 ---|* UN = OPTIONAL USER NUMBER.
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01293 M01S00088.v23l617 +++|* UN = USER NAME. 01294 M00S00895.pfiles +++|* PN = PACK NAME. 01295 M00S00896.pfiles +++|* R = RESIDENCE.
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01296 M02S00089.pfile6 ---|* RT = RETURN CONTROL AFTER STAGE INITIATED. DO NOT
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01297 M01S00026.pfile6 +++|* RT = RETURN CONTROL AFTER STAGE INITIATED OR IF 01298 M01S00027.pfile6 +++|* A PF UTILITY IS ACTIVE. DO NOT
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01299 M01S00090.v23l617 +++|* WAIT FOR FILE TO BE AVAILABLE. 01300 M00S00897.pfiles +++|* NA = NO ABORT IF ERROR ENCOUNTERED. 01301 M00S00898.pfiles +++|* WB = WAIT FOR PACK MOUNT. 01302 M00S00899.pfiles +++|* ND = IF NOT SPECIFIED, ALL WORKING FILES WILL BE 01303 M00S00900.pfiles +++|* RETURNED (EXCEPT PRIMARY). 01304 M00S00901.pfiles +++| 01305 M00S00902.pfiles +++| 01306 M00S00903.pfiles +++| OLD BSS 0 ENTRY 01307 M00S00904.pfiles +++| SB7 CCOL SET FUNCTION CODE 01308 M00S00905.pfiles +++| RJ PFL PROCESS PERMANENT FILE REQUEST 01309 M00S00906.pfiles +++| SX1 B1 INDICATE FILE NOT BUSY 01310 M00S00907.pfiles +++| SA2 TSFN 01311 M00S00908.pfiles +++| SA3 A2+B1 01312 M00S00909.pfiles +++| NZ X3,ERR IF MORE THAN 1 WORKING FILE SPECIFIED 01313 M00S00910.pfiles +++| BX6 X1+X2 01314 M00S00911.pfiles +++| SA6 F 01315 M00S00912.pfiles +++| OLD F,TPFN,USNM,PWD,PKNM,RES 01316 M00S00913.pfiles +++| RJ CES CHECK ERROR STATUS 01317 M00S00914.pfiles +++| RJ RNF RETURN NON-PRIMARY FILES
| Line S00915 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01318 M01S00915.v23l617 ---| EQ PNC PROCESS NEXT CONTROL STATEMENT
| Line S00091 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01319 M01S00091.v23l617 +++| EQ PNC PROCESS NEXT COMMAND 01320 M00S00916.pfiles +++| PACKNAM SPACE 4,10 01321 M00S00917.pfiles +++|*** PACKNAM(NAME)
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01322 M01S00002.pfile2 +++|* PACKNAM(NAME,TYPE) 01323 M00S00918.pfiles +++|* PACKNAM(NAME,R=TYPE) 01324 M00S00919.pfiles +++|* PACKNAM(PN=NAME) 01325 M00S00920.pfiles +++|* PACKNAM(PN=NAME,R=TYPE) 01326 M00S00921.pfiles +++|* 01327 M00S00922.pfiles +++|* SET DEFAULT PACKNAME AND DEVICE TYPE. 01328 M00S00923.pfiles +++|* 01329 M00S00924.pfiles +++|* NAME = PACK NAME. 01330 M00S00925.pfiles +++|* TYPE = DEVICE TYPE. 01331 M00S00926.pfiles +++| 01332 M00S00927.pfiles +++| 01333 M00S00928.pfiles +++| PACKNAM BSS 0 ENTRY 01334 M00S00929.pfiles +++| SB1 1
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 01335 M01S00002.pfile2a +++| RJ IDF ISSUE DAYFILE MESSAGE
| Line S00930 Modification History | |
|---|---|
M01 (Removed by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01336 M01S00930.pfile2 ---| RJ IDF ISSUE DAYFILE MESSAGE 01337 M01S00931.pfile2 ---| SA1 ACTR 01338 M01S00932.pfile2 ---| SB4 X1 01339 M01S00933.pfile2 ---| R= A4,ARGR 01340 M01S00934.pfile2 ---| ZR B4,PAC3 IF NO PARAMETERS (*PACKNAM.*) 01341 M01S00935.pfile2 ---| SX7 X4-1R= 01342 M01S00936.pfile2 ---| SB5 TARGP 01343 M01S00937.pfile2 ---| ZR X7,PAC1 IF FIRST PARAMETER IS EQUIVALENCED 01344 M01S00938.pfile2 ---| MX0 42 01345 M01S00939.pfile2 ---| BX6 X0*X4 SET FIRST PARAMETER AS PACKNAME 01346 M01S00940.pfile2 ---| SA6 PKNM 01347 M01S00941.pfile2 ---| SA4 A4+B1 01348 M01S00942.pfile2 ---| SB4 B4-B1 01349 M01S00943.pfile2 ---| ZR X4,PAC3 IF NO MORE PARAMETERS SPECIFIED 01350 M01S00944.pfile2 ---| SB5 B5+B1 DO NOT ALLOW *PN* SPECIFICATION 01351 M01S00945.pfile2 ---| PAC1 RJ ARG PROCESS EQUIVALENCED PARAMETERS
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01352 M01S00003.pfile2 +++| SB2 CCDR UNPACK COMMAND TO STRING BUFFER 01353 M01S00004.pfile2 +++| RJ USB 01354 M01S00005.pfile2 +++| RJ POP SKIP OVER PROGRAM NAME 01355 M01S00006.pfile2 +++| ZR B6,PAC2 IF NO ARGUMENTS 01356 M01S00007.pfile2 +++| SB2 TARGPL CONVERT POSITIONAL ARGUMENTS 01357 M01S00008.pfile2 +++| SB3 TARGP
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
M02 (Removed by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 01358 M02S00009.pfile2a ---| SB4 PACA
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 01359 M01S00003.pfile2a +++| SB4 PBUF
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01360 M01S00010.pfile2 +++| RJ CPA 01361 M01S00011.pfile2 +++| NG B5,ERR IF ERRORS IN CONVERSION 01362 M01S00012.pfile2 +++| PL X1,PAC2 IF NO ARGUMENTS PROCESSED 01363 M01S00013.pfile2 +++| SX6 B5+ PROCESS ARGUMENTS
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
M02 (Removed by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 01364 M02S00014.pfile2a ---| SB6 PACA
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 01365 M01S00004.pfile2a +++| SB6 PBUF
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01366 M01S00015.pfile2 +++| SA6 USBC 01367 M01S00016.pfile2 +++| RJ ARM 01368 M00S00946.pfiles +++| NZ X1,ERR IF ARGUMENT ERROR
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | pfile1 |
Seq # *Modification Id* Act ----------------------------+ 01369 M01S00006.pfile1 +++| RJ PRD PROCESS RESIDENCE DEFINITION 01370 M00S00947.pfiles +++| SA4 RES VALIDATE DEVICE TYPE
| Line S00948 Modification History | |
|---|---|
M01 (Removed by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01371 M01S00948.pfile2 ---| ZR X4,PAC3 IF DEVICE TYPE NOT SPECIFIED
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01372 M01S00017.pfile2 +++| ZR X4,PAC2 IF DEVICE TYPE NOT SPECIFIED
| Line S00949 Modification History | |
|---|---|
M01 (Removed by) | pfile1 |
Seq # *Modification Id* Act ----------------------------+ 01373 M01S00949.pfile1 ---| MX0 6 01374 M01S00950.pfile1 ---| LX4 6 01375 M01S00951.pfile1 ---| BX6 X0*X4 01376 M01S00952.pfile1 ---| ZR X6,ERR IF DEVICE TYPE TOO SHORT 01377 M01S00953.pfile1 ---| LX4 12 01378 M01S00954.pfile1 ---| BX6 X0*X4 01379 M01S00955.pfile1 ---| NZ X6,ERR IF DEVICE TYPE TOO LONG 01380 M01S00956.pfile1 ---| LX0 6 01381 M01S00957.pfile1 ---| BX6 X0*X4
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | pfile1 |
Seq # *Modification Id* Act ----------------------------+ 01382 M01S00007.pfile1 +++| MX0 -6 01383 M01S00008.pfile1 +++| LX4 18 01384 M01S00009.pfile1 +++| BX6 -X0*X4
| Line S00958 Modification History | |
|---|---|
M01 (Removed by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01385 M01S00958.pfile2 ---| NZ X6,PAC2 IF THREE CHARACTER DEVICE TYPE SPECIFIED
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01386 M01S00018.pfile2 +++| NZ X6,PAC1 IF THREE CHARACTER DEVICE TYPE SPECIFIED 01387 M00S00959.pfiles +++| SX6 1R1 ADD *1* TO TWO CHARACTER DEVICE TYPE 01388 M00S00960.pfiles +++| BX4 X4+X6
| Line S00961 Modification History | |
|---|---|
M01 (Removed by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01389 M01S00961.pfile2 ---| PAC2 SA1 PKNM 01390 M01S00962.pfile2 ---| ZR X1,PAC3 IF *PN* NOT SPECIFIED
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01391 M01S00019.pfile2 +++| PAC1 SA1 PKNM 01392 M01S00020.pfile2 +++| ZR X1,PAC2 IF *PN* NOT SPECIFIED 01393 M00S00963.pfiles +++| BX6 X1+X4 COMBINE *PN* WITH *R* 01394 M00S00964.pfiles +++| SA6 A1
| Line S00965 Modification History | |
|---|---|
M01 (Removed by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01395 M01S00965.pfile2 ---| PAC3 PACKNAM PKNM ENTER PACK NAME AND PACK TYPE
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01396 M01S00021.pfile2 +++| PAC2 PACKNAM PKNM ENTER PACK NAME AND PACK TYPE
| Line S00966 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01397 M01S00966.v23l617 ---| EQ PNC PROCESS NEXT CONTROL STATEMENT
| Line S00092 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01398 M01S00092.v23l617 +++| EQ PNC PROCESS NEXT COMMAND
| Line S00967 Modification History | |
|---|---|
M01 (Removed by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01399 M01S00967.pfile2 ---| PERMIT SPACE 4,20
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
M02 (Removed by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 01400 M02S00022.pfile2a ---| 01401 M02S00023.pfile2a ---| PACA BSS 100 POSITIONAL PARAMETER BUFFER
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01402 M01S00024.pfile2 +++| PERMIT SPACE 4,20
| Line S00968 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01403 M01S00968.ns22000 ---|*** PERMIT (F,UN1=M1,UN2=M2,...,UNN=MN/PN,R,NA,WB)
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01404 M01S00104.ns22000 +++|*** PERMIT (P,UN1=M1,UN2=M2,...,UNN=MN/PN,R,NA,WB,XT) 01405 M00S00969.pfiles +++|* 01406 M00S00970.pfiles +++|* PERMIT USER TO ACCESS PERMANENT FILE WITH SPECIFIED MODE. 01407 M00S00971.pfiles +++|* 01408 M00S00972.pfiles +++|* P = PERMANENT FILE NAME.
| Line S00973 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01409 M01S00973.v23l617 ---|* UN = USER NUMBER TO BE PERMITTED.
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01410 M01S00093.v23l617 +++|* UN = USER NAME TO BE PERMITTED. 01411 M00S00974.pfiles +++|* M = MODE OF ACCESS PERMITTED. 01412 M00S00975.pfiles +++|* W - WRITE, READ, EXECUTE APPEND 01413 M00S00976.pfiles +++|* R - READ, EXECUTE. 01414 M00S00977.pfiles +++|* E - EXECUTE. 01415 M00S00978.pfiles +++|* A - APPEND. 01416 M00S00979.pfiles +++|* N - NULL. 01417 M00S00980.pfiles +++|* PN = PACK NAME. 01418 M00S00981.pfiles +++|* R = RESIDENCE. 01419 M00S00982.pfiles +++|* NA = NO ABORT IF ERROR ENCOUNTERED. 01420 M00S00983.pfiles +++|* WB = WAIT FOR PACK MOUNT.
| Line S00105 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01421 M01S00105.ns22000 +++|* XT = PERMIT EXPIRATION DATE OR TERM. 01422 M00S00984.pfiles +++|* 01423 M00S00985.pfiles +++|* DEFAULT VALUES. 01424 M00S00986.pfiles +++|* M = READ. 01425 M00S00987.pfiles +++| 01426 M00S00988.pfiles +++| 01427 M00S00989.pfiles +++| PERMIT BSS 0 ENTRY 01428 M00S00990.pfiles +++| SB7 CCPM SET FUNCTION CODE 01429 M00S00991.pfiles +++| RJ PFL PROCESS PERMANENT FILE REQUEST 01430 M00S00992.pfiles +++| SA1 TSFN SET FILE NAME
| Line S00106 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01431 M01S00106.ns22000 +++| SA2 TPFN CHECK FOR LOCAL FILE NAME 01432 M01S00107.ns22000 +++| NZ X2,ERR IF LOCAL FILE SPECIFIED 01433 M00S00993.pfiles +++| SB7 CCPM SET PERMIT FUNCTION 01434 M00S00994.pfiles +++| SX6 B1 01435 M00S00995.pfiles +++| BX6 X6+X1 01436 M00S00996.pfiles +++| SA6 F 01437 M00S00997.pfiles +++| SB3 B1
| Line S00998 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01438 M01S00998.v23l617 ---| SA1 B3+TSFN READ FIRST USER NUMBER
| Line S00094 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01439 M01S00094.v23l617 +++| SA1 B3+TSFN READ FIRST USER NAME 01440 M00S00999.pfiles +++| ZR X1,ERR IF NO USER SPECIFIED 01441 M00S01000.pfiles +++| PER1 SA5 B3+TPFN MODE 01442 M00S01001.pfiles +++| RJ PMD CONVERT MODE
| Line S01002 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01443 M01S01002.ns22000 ---| PERMIT F,,B3+TSFN,MODE,PKNM,RES
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01444 M01S00108.ns22000 +++| PERMIT F,,B3+TSFN,MODE,PKNM,RES,,,PXT 01445 M00S01003.pfiles +++| RJ CES CHECK ERROR STATUS 01446 M00S01004.pfiles +++| SB3 B3+B1 ADVANCE TO NEXT USER 01447 M00S01005.pfiles +++| SA1 B3+TSFN 01448 M00S01006.pfiles +++| NZ X1,PER1 IF ANOTHER USER TO PROCESS
| Line S01007 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01449 M01S01007.v23l617 ---| EQ PNC PROCESS NEXT CONTROL STATEMENT
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01450 M01S00095.v23l617 +++| EQ PNC PROCESS NEXT COMMAND 01451 M00S01008.pfiles +++| PURGE SPACE 4,15 01452 M00S01009.pfiles +++|*** PURGE (P/UN,PW,PN,R,NA,WB) 01453 M00S01010.pfiles +++|* 01454 M00S01011.pfiles +++|* PURGE PERMANENT FILE. 01455 M00S01012.pfiles +++|* 01456 M00S01013.pfiles +++|* P = PERMANENT FILE NAME
| Line S01014 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01457 M01S01014.v23l617 ---|* UN = OPTIONAL USER NUMBER
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01458 M01S00096.v23l617 +++|* UN = USER NAME. 01459 M00S01015.pfiles +++|* (USER MUST HAVE WRITE PERMISSION) 01460 M00S01016.pfiles +++|* PW = FILE PASSWORD 01461 M00S01017.pfiles +++|* PN = PACK NAME. 01462 M00S01018.pfiles +++|* R = RESIDENCE. 01463 M00S01019.pfiles +++|* NA = NO ABORT IF ERROR ENCOUNTERED. 01464 M00S01020.pfiles +++|* WB = WAIT FOR PACK MOUNT. 01465 M00S01021.pfiles +++| 01466 M00S01022.pfiles +++| 01467 M00S01023.pfiles +++| PURGE BSS 0 ENTRY 01468 M00S01024.pfiles +++| SB7 CCPG SET FUNCTION CODE 01469 M00S01025.pfiles +++| RJ PFL PROCESS PERMANENT FILE REQUEST 01470 M00S01026.pfiles +++| SB3 B0 PROCESS FILE NAME LIST 01471 M00S01027.pfiles +++| SA5 B3+TSFN 01472 M00S01028.pfiles +++| PUR1 SX6 B1 01473 M00S01029.pfiles +++| BX6 X6+X5 01474 M00S01030.pfiles +++| SA6 F 01475 M00S01031.pfiles +++| PURGE F,USNM,PWD,PKNM,RES 01476 M00S01032.pfiles +++| RJ CES CHECK ERROR STATUS 01477 M00S01033.pfiles +++| SB3 B3+B1 ADVANCE TO NEXT FILE 01478 M00S01034.pfiles +++| SA5 B3+TSFN 01479 M00S01035.pfiles +++| NZ X5,PUR1 IF ANOTHER FILE TO PROCESS
| Line S01036 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01480 M01S01036.v23l617 ---| EQ PNC PROCESS NEXT CONTROL STATEMENT
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01481 M01S00097.v23l617 +++| EQ PNC PROCESS NEXT COMMAND 01482 M00S01037.pfiles +++| REPLACE SPACE 4,15
| Line S01038 Modification History | |
|---|---|
M01 (Removed by) | ns2267 |
Seq # *Modification Id* Act ----------------------------+ 01483 M01S01038.ns2267 ---|*** REPLACE (F=P/PW,UN,PN,R,NA,WB)
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2267 |
Seq # *Modification Id* Act ----------------------------+ 01484 M01S00002.ns2267 +++|*** REPLACE (F=P/PW,M,UN,PN,R,NA,WB) 01485 M00S01039.pfiles +++|* 01486 M00S01040.pfiles +++|* REPLACE PERMANENT FILE WITH COPY OF WORKING FILE. 01487 M00S01041.pfiles +++|* INDIRECT ACCESS FILES ONLY. 01488 M00S01042.pfiles +++|* 01489 M00S01043.pfiles +++|* F = WORKING FILE NAME. 01490 M00S01044.pfiles +++|* P = PERMANENT FILE NAME 01491 M00S01045.pfiles +++|* PW = FILE PASSWORD
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2267 |
Seq # *Modification Id* Act ----------------------------+ 01492 M01S00003.ns2267 +++|* M = MODE OF ACCESS (IF FILE DOES NOT ALREADY EXIST).
| Line S01046 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01493 M01S01046.v23l617 ---|* UN = OPTIONAL USER NUMBER
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01494 M01S00098.v23l617 +++|* UN = USER NAME. 01495 M00S01047.pfiles +++|* (USER MUST HAVE WRITE PERMISSION). 01496 M00S01048.pfiles +++|* PN = PACK NAME. 01497 M00S01049.pfiles +++|* R = RESIDENCE. 01498 M00S01050.pfiles +++|* NA = NO ABORT IF ERROR ENCOUNTERED. 01499 M00S01051.pfiles +++|* WB = WAIT FOR PACK MOUNT. 01500 M00S01052.pfiles +++| 01501 M00S01053.pfiles +++| 01502 M00S01054.pfiles +++| REPLACE BSS 0 ENTRY 01503 M00S01055.pfiles +++| SB7 CCRP SET FUNCTION CODE 01504 M00S01056.pfiles +++| RJ PFL PROCESS PERMANENT FILE REQUEST 01505 M00S01057.pfiles +++| SB3 B0 01506 M00S01058.pfiles +++| SA5 B3+TSFN SYSTEM FILE NAME 01507 M00S01059.pfiles +++| REP1 SX6 B1 01508 M00S01060.pfiles +++| BX6 X5+X6 01509 M00S01061.pfiles +++| SA6 F
| Line S01062 Modification History | |
|---|---|
M01 (Removed by) | ns2267 |
Seq # *Modification Id* Act ----------------------------+ 01510 M01S01062.ns2267 ---| REPLACE F,B3+TPFN,USNM,PWD,,PKNM,RES
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2267 |
Seq # *Modification Id* Act ----------------------------+ 01511 M01S00004.ns2267 +++| REPLACE F,B3+TPFN,USNM,PWD,,PKNM,RES,,,MODE 01512 M00S01063.pfiles +++| RJ CES CHECK ERROR STATUS 01513 M00S01064.pfiles +++| SB3 B3+B1 ADVANCE TO NEXT FILE 01514 M00S01065.pfiles +++| SA5 B3+TSFN 01515 M00S01066.pfiles +++| NZ X5,REP1 IF ANOTHER FILE TO PROCESS
| Line S01067 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01516 M01S01067.v23l617 ---| EQ PNC PROCESS NEXT CONTROL STATEMENT
| Line S00099 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01517 M01S00099.v23l617 +++| EQ PNC PROCESS NEXT COMMAND 01518 M00S01068.pfiles +++| SAVE SPACE 4,25
| Line S01069 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01519 M01S01069.ns22000 ---|*** SAVE (F=P/PW,CT,M,BR,SS,PN,R,NA,WB)
| Line S00109 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01520 M02S00109.v23l617 ---|*** SAVE (F=P/PW,CT,M,BR,SS,PN,R,NA,WB,XT,AL)
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01521 M01S00100.v23l617 +++|*** SAVE (F=P/PW,CT,M,BR,SS,PR,PN,R,NA,WB,XT,AL,AC) 01522 M00S01070.pfiles +++|* 01523 M00S01071.pfiles +++|* SAVE COPY OF WORKING FILE ON PERMANENT FILES. 01524 M00S01072.pfiles +++|* IF PRIMARY FILE IS SAVED, ASSOCIATED SUBSYSTEM IS 01525 M00S01073.pfiles +++|* SET INTO CATALOG. 01526 M00S01074.pfiles +++|* INDIRECT ACCESS FILES ONLY. 01527 M00S01075.pfiles +++|* 01528 M00S01076.pfiles +++|* F = WORKING FILE NAME. 01529 M00S01077.pfiles +++|* P = PERMANENT FILE NAME 01530 M00S01078.pfiles +++|* PW = FILE PASSWORD 01531 M00S01079.pfiles +++|* CT = FILE CATEGORY 01532 M00S01080.pfiles +++|* M = MODE OF ACCESS 01533 M00S01081.pfiles +++|* BR = BACKUP REQUIREMENT. 01534 M00S01082.pfiles +++|* SS = SUBSYSTEM. 01535 M00S01083.pfiles +++|* PN = PACK NAME. 01536 M00S01084.pfiles +++|* R = RESIDENCE.
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01537 M01S00101.v23l617 +++|* PR = PREFERRED RESIDENCE. 01538 M00S01085.pfiles +++|* NA = NO ABORT IF ERROR ENCOUNTERED. 01539 M00S01086.pfiles +++|* WB = WAIT FOR PACK MOUNT.
| Line S00110 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01540 M01S00110.ns22000 +++|* XT = PASSWORD EXPIRATION DATE OR TERM. 01541 M01S00111.ns22000 +++|* AL = FILE ACCESS LEVEL.
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01542 M01S00102.v23l617 +++|* AC = ALTERNATE CATLIST PERMISSION. 01543 M00S01087.pfiles +++|* 01544 M00S01088.pfiles +++|* DEFAULT VALUES. 01545 M00S01089.pfiles +++|* PW = 0. 01546 M00S01090.pfiles +++|* CT = PRIVATE. 01547 M00S01091.pfiles +++|* M = WRITE. 01548 M00S01092.pfiles +++|* NA = 0.
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01549 M01S00103.v23l617 +++|* AC = NO. 01550 M00S01093.pfiles +++| 01551 M00S01094.pfiles +++| 01552 M00S01095.pfiles +++| SAVE BSS 0 ENTRY 01553 M00S01096.pfiles +++| SB7 CCSV SET FUNCTION CODE 01554 M00S01097.pfiles +++| RJ PFL PROCESS PERMANENT FILE REQUEST 01555 M00S01098.pfiles +++| RJ GPN GET PRIMARY FILE NAME 01556 M00S01099.pfiles +++| SB3 B0 01557 M00S01100.pfiles +++| SA5 B3+TSFN SYSTEM FILE NAME 01558 M00S01101.pfiles +++| SAV1 SX6 B1 01559 M00S01102.pfiles +++| BX6 X6+X5 01560 M00S01103.pfiles +++| SA6 F 01561 M00S01104.pfiles +++| SA1 SUBSYS 01562 M00S01105.pfiles +++| NZ X1,SAV2 IF *SS* SPECIFIED 01563 M00S01106.pfiles +++| SA1 GETTAB+1 CHECK FOR PRIMARY FILE 01564 M00S01107.pfiles +++| BX1 X1-X5 01565 M00S01108.pfiles +++| NZ X1,SAV2 IF NOT MATCH 01566 M00S01109.pfiles +++| SA2 PSSA GET CURRENT SUBSYSTEM 01567 M00S01110.pfiles +++| BX6 X2 01568 M00S01111.pfiles +++| SA6 SUBSYS
| Line S01112 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01569 M01S01112.ns22000 ---| SAV2 SAVE F,B3+TPFN,PWD,,CTG,MODE,PKNM,RES,,SUBSYS,BREQ
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01570 M02S00112.v23l617 ---| SAV2 SAVE F,B3+TPFN,PWD,,CTG,MODE,PKNM,RES,,SUBSYS,BREQ,,,PXT,FAL
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01571 M01S00104.v23l617 +++| SAV2 SAVE F,B3+TPFN,PWD,,CTG,MODE,PKNM,RES,,SUBSYS,BREQ,PRES,,PXT 01572 M01S00105.v23l617 +++|,,FAL,ALCT 01573 M00S01113.pfiles +++| RJ CES CHECK ERROR STATUS 01574 M00S01114.pfiles +++| SB3 B3+B1 ADVANCE TO NEXT FILE 01575 M00S01115.pfiles +++| SA5 B3+TSFN 01576 M00S01116.pfiles +++| NZ X5,SAV1 IF ANOTHER FILE TO PROCESS
| Line S01117 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01577 M01S01117.v23l617 ---| EQ PNC PROCESS NEXT CONTROL STATEMENT
| Line S00106 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01578 M01S00106.v23l617 +++| EQ PNC PROCESS NEXT COMMAND 01579 M00S01118.pfiles +++| TITLE SUBROUTINES.
| Line S01119 Modification History | |
|---|---|
M01 (Removed by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01580 M01S01119.pfile6 ---| CES SPACE 4,15
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01581 M01S00028.pfile6 +++| CES SPACE 4,20 01582 M00S01120.pfiles +++|** CES - CHECK ERROR STATUS. 01583 M00S01121.pfiles +++|*
| Line S01122 Modification History | |
|---|---|
M01 (Removed by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01584 M01S01122.pfile6 ---|* ABORT IF *WAIT BUSY* WAS SPECIFIED, AND AN ERROR
| Line S01123 Modification History | |
|---|---|
M01 (Removed by) | pfile4 |
M02 (Removed by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01585 M02S01123.pfile6 ---|* OTHER THAN *FILE BUSY* IS DETECTED.
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
M02 (Removed by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01586 M02S00082.pfile6 ---|* OTHER THAN *FILE BUSY* OR *STAGE INITIATED* IS DETECTED.
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01587 M01S00029.pfile6 +++|* ABORT IF *NA* WAS NOT SPECIFIED, AND AN ERROR OTHER THAN
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
M02 (Removed by) | pfile4a |
Seq # *Modification Id* Act ----------------------------+ 01588 M02S00030.pfile4a ---|* *FILE BUSY*, *STAGE INITIATED* OR *PF UTILITY ACTIVE* 01589 M02S00031.pfile4a ---|* IS DETECTED.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | pfile4a |
Seq # *Modification Id* Act ----------------------------+ 01590 M01S00003.pfile4a +++|* *FILE BUSY*, *FILE INTERLOCKED*, *STAGE INITIATED* OR 01591 M01S00004.pfile4a +++|* *PF UTILITY ACTIVE* IS DETECTED. 01592 M00S01124.pfiles +++|* 01593 M00S01125.pfiles +++|* ENTRY (X2) = FET ADDRESS. 01594 M00S01126.pfiles +++|* 01595 M00S01127.pfiles +++|* EXIT (X6) = 0 IF *FILE BUSY* ERROR.
| Line S01128 Modification History | |
|---|---|
M01 (Removed by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01596 M01S01128.pfile4 ---|* (ERRFLG) .NE. 0 IF ERROR OTHER THAN *FILE BUSY*.
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
M02 (Removed by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01597 M02S00083.pfile6 ---|* (X7) = 0 IF *STAGE INITIATED* STATUS. 01598 M02S00084.pfile6 ---|* (ERRFLG) .NE. 0 IF ERROR OTHER THAN *FILE BUSY* 01599 M02S00085.pfile6 ---|* OR *STAGE INITIATED*.
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
M02 (Removed by) | pfile4a |
Seq # *Modification Id* Act ----------------------------+ 01600 M02S00032.pfile4a ---|* (X7) = 0 IF *STAGE INITIATED* OR *PF UTILITY ACTIVE*.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | pfile4a |
Seq # *Modification Id* Act ----------------------------+ 01601 M01S00005.pfile4a +++|* (X7) = 0 IF *STAGE INITIATED*, *PF UTILITY ACTIVE* 01602 M01S00006.pfile4a +++|* OR *FILE INTERLOCKED*.
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01603 M01S00033.pfile6 +++|* (ERRFLG) .NE. 0 IF ERROR OTHER THAN *FILE BUSY*,
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
M02 (Removed by) | pfile4a |
Seq # *Modification Id* Act ----------------------------+ 01604 M02S00034.pfile4a ---|* *STAGE INITIATED* OR *PF UTILITY ACTIVE*.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | pfile4a |
Seq # *Modification Id* Act ----------------------------+ 01605 M01S00007.pfile4a +++|* *STAGE INITIATED*, *PF UTILITY ACTIVE* OR 01606 M01S00008.pfile4a +++|* *FILE INTERLOCKED*. 01607 M00S01129.pfiles +++|*
| Line S01130 Modification History | |
|---|---|
M01 (Removed by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01608 M01S01130.pfile4 ---|* USES X - 1, 6.
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01609 M01S00086.pfile4 +++|* USES X - 1, 6, 7. 01610 M00S01131.pfiles +++|* A - 1, 6. 01611 M00S01132.pfiles +++|* 01612 M00S01133.pfiles +++|* MACROS ABORT. 01613 M00S01134.pfiles +++| 01614 M00S01135.pfiles +++| 01615 M00S01136.pfiles +++| CES SUBR ENTRY/EXIT 01616 M00S01137.pfiles +++| MX6 -8 CHECK ERROR STATUS FIELD 01617 M00S01138.pfiles +++| SA1 X2 01618 M00S01139.pfiles +++| AX1 10 01619 M00S01140.pfiles +++| BX1 -X6*X1
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01620 M01S00087.pfile4 +++| SX6 X1-/ERRMSG/FBS 01621 M01S00088.pfile4 +++| SX7 X1-/ERRMSG/PSI 01622 M00S01141.pfiles +++| ZR X1,CESX IF NO ERROR
| Line S01142 Modification History | |
|---|---|
M01 (Removed by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01623 M01S01142.pfile4 ---| SX6 X1-/ERRMSG/FBS 01624 M00S01143.pfiles +++| ZR X6,CESX IF *FILE BUSY* STATUS
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01625 M01S00089.pfile4 +++| ZR X7,CESX IF *STAGE INITIATED* STATUS
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01626 M01S00035.pfile6 +++| SX7 X1-/ERRMSG/PFA 01627 M01S00036.pfile6 +++| ZR X7,CESX IF *PF UTILITY ACTIVE* STATUS
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | pfile4a |
Seq # *Modification Id* Act ----------------------------+ 01628 M01S00009.pfile4a +++| SX7 X1-/ERRMSG/FIN 01629 M01S00010.pfile4a +++| ZR X7,CESX IF *FILE INTERLOCKED* STATUS 01630 M00S01144.pfiles +++| SA6 ERRFLG SAVE ERROR FLAG
| Line S01145 Modification History | |
|---|---|
M01 (Removed by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01631 M01S01145.pfile6 ---| SA1 WBUSY 01632 M01S01146.pfile6 ---| ZR X1,CESX IF *NA* OR *RT* SPECIFIED RATHER THAN *WB*
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01633 M01S00037.pfile6 +++| SA1 NABT 01634 M01S00038.pfile6 +++| NZ X1,CESX IF *NA* SPECIFIED RATHER THAN *WB* OR *RT* 01635 M00S01147.pfiles +++| ABORT ABORT (ERROR MESSAGE ISSUED BY *PFM*) 01636 M00S01148.pfiles +++| CTJ SPACE 4,9 01637 M00S01149.pfiles +++|** CTJ - CHECK FOR *TXOT* JOB. 01638 M00S01150.pfiles +++|* 01639 M00S01151.pfiles +++|* EXIT (X2) = 0, IF *TXOT* JOB. 01640 M00S01152.pfiles +++|* 01641 M00S01153.pfiles +++|* USES X - 0, 1. 01642 M00S01154.pfiles +++|* A - 1. 01643 M00S01155.pfiles +++| 01644 M00S01156.pfiles +++| 01645 M00S01157.pfiles +++| CTJ SUBR ENTRY/EXIT 01646 M00S01158.pfiles +++| SA1 JOPR FETCH ORIGIN TYPE FROM COMMUNICATION AREA 01647 M00S01159.pfiles +++| LX1 -24 01648 M00S01160.pfiles +++| MX0 -12 01649 M00S01161.pfiles +++| BX1 -X0*X1 01650 M00S01162.pfiles +++| SX2 X1-TXOT 01651 M00S01163.pfiles +++| EQ CTJX EXIT 01652 M00S01164.pfiles +++| CVT SPACE 4,15 01653 M00S01165.pfiles +++|** CVT - CONVERT ARGUMENT 01654 M00S01166.pfiles +++|* 01655 M00S01167.pfiles +++|* ENTRY (B5) = ADDRESS OF TABLE
| Line S01168 Modification History | |
|---|---|
M01 (Removed by) | pfile3 |
Seq # *Modification Id* Act ----------------------------+ 01656 M01S01168.pfile3 ---|* (X0) = 42 BIT MASK. 01657 M00S01169.pfiles +++|* (X5) = ARGUMENT 01658 M00S01170.pfiles +++|* TABLE OF ARGUMENTS IN FOLLOWING FORMAT. 01659 M00S01171.pfiles +++|*T, 42/ARGUMENT,18/VALUE
Figure
01660 M00S01172.pfiles +++|* 01661 M00S01173.pfiles +++|* EXIT (X6) = 0 IF LEGAL ARGUMENT 01662 M00S01174.pfiles +++|* (X7) = EQUIVALENT VALUE (RIGHT JUSTIFIED) 01663 M00S01175.pfiles +++|* 01664 M00S01176.pfiles +++|* CALLS *NONE* 01665 M00S01177.pfiles +++|*
| Line S01178 Modification History | |
|---|---|
M01 (Removed by) | pfile3 |
Seq # *Modification Id* Act ----------------------------+ 01666 M01S01178.pfile3 ---|* USES X - 0, 2, 4.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | pfile3 |
Seq # *Modification Id* Act ----------------------------+ 01667 M01S00001.pfile3 +++|* USES X - 0, 2, 4, 5, 6, 7. 01668 M00S01179.pfiles +++|* A - 4. 01669 M00S01180.pfiles +++|* B - 5. 01670 M00S01181.pfiles +++| 01671 M00S01182.pfiles +++| 01672 M00S01183.pfiles +++| CVT SUBR ENTRY/EXIT
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | pfile3 |
Seq # *Modification Id* Act ----------------------------+ 01673 M01S00002.pfile3 +++| MX0 42 01674 M00S01184.pfiles +++| MX6 1 01675 M00S01185.pfiles +++| BX5 X0*X5 01676 M00S01186.pfiles +++| CVT1 SA4 B5 READ NEXT TABLE ENTRY 01677 M00S01187.pfiles +++| ZR X4,CVTX IF END OF TABLE 01678 M00S01188.pfiles +++| SB5 B5+B1 ADVANCE TABLE POINTER 01679 M00S01189.pfiles +++| BX2 X0*X4 PICK ARGUMENT 01680 M00S01190.pfiles +++| BX7 -X0*X4 PICK EQUIVALENCE 01681 M00S01191.pfiles +++| IX6 X2-X5 01682 M00S01192.pfiles +++| ZR X6,CVTX IF ARGUMENT FOUND 01683 M00S01193.pfiles +++| EQ CVT1 LOOP FOR NEXT TABLE VALUE
| Line S01194 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01684 M01S01194.ns22000 ---| ESP SPACE 4,20
| Line S00113 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01685 M01S00113.ns22000 +++| ESP SPACE 4,25 01686 M00S01195.pfiles +++|** ESP - ENTER SECURE PASSWORD. 01687 M00S01196.pfiles +++|* 01688 M00S01197.pfiles +++|* THIS SUBROUTINE PROCESSES SECURELY ENTERED PASSWORDS. 01689 M00S01198.pfiles +++|* IF OUTPUT FILE IS ASSIGNED TO A TERMINAL THE MESSAGE 01690 M00S01199.pfiles +++|* *PASSWORD:* ALONG WITH BLANK OUT CHARACTERS FOR SECURE 01691 M00S01200.pfiles +++|* ENTRY OF PASSWORD WILL BE SENT TO THE TERMINAL. 01692 M00S01201.pfiles +++|* FILE *INPUT* WILL THEN BE READ FOR THE PASSWORD. 01693 M00S01202.pfiles +++|* FOR BATCH JOBS FILE *INPUT* IS READ FOR THE PASSWORD. 01694 M00S01203.pfiles +++|*
| Line S01204 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01695 M01S01204.ns22000 ---|* ENTRY NONE.
| Line S00114 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01696 M01S00114.ns22000 +++|* ENTRY (PFLA) = COMMAND CODE. 01697 M00S01205.pfiles +++|* 01698 M00S01206.pfiles +++|* EXIT (X6) = PASSWORD.
| Line S00115 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01699 M01S00115.ns22000 +++|* (B7) = COMMAND CODE.
| Line S01207 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01700 M01S01207.v23l617 ---|* TO *ABT* IF ILLEGAL PASSWORD ENCOUNTERED.
| Line S00107 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01701 M01S00107.v23l617 +++|* TO *ABT* IF INCORRECT PASSWORD ENCOUNTERED. 01702 M00S01208.pfiles +++|* 01703 M00S01209.pfiles +++|* USES X - ALL. 01704 M00S01210.pfiles +++|* A - 1, 2, 6, 7. 01705 M00S01211.pfiles +++|* B - 2, 3, 4, 5, 6, 7. 01706 M00S01212.pfiles +++|* 01707 M00S01213.pfiles +++|* CALLS STF. 01708 M00S01214.pfiles +++|* 01709 M00S01215.pfiles +++|* MACROS CSET, MESSAGE, READSKP, WRITE. 01710 M00S01216.pfiles +++| 01711 M00S01217.pfiles +++| 01712 M00S01218.pfiles +++| ESP SUBR ENTRY/EXIT 01713 M00S01219.pfiles +++| SX2 O SET ADDRESS OF FET 01714 M00S01220.pfiles +++| RJ STF CHECK IF OUTPUT ASSIGNED TO TERMINAL 01715 M00S01221.pfiles +++| NZ X6,ESP1 IF OUTPUT NOT ASSIGNED TO TERMINAL 01716 M00S01222.pfiles +++| SA1 X2+B1 SET BUFFER FULL 01717 M00S01223.pfiles +++| SX7 X1 01718 M00S01224.pfiles +++| SX6 X1+PMSGL 01719 M00S01225.pfiles +++| SA6 A1+B1 SET IN BELOW DATA FOR MESSAGE 01720 M00S01226.pfiles +++| SA7 A6+B1 SET OUT = FIRST 01721 M00S01227.pfiles +++| WRITE X2,* FORCE WRITE BIT SET 01722 M00S01228.pfiles +++| SA1 O 01723 M00S01229.pfiles +++| MX0 42 01724 M00S01230.pfiles +++| BX2 X0*X1 FILE NAME FOR OUTPUT POINTER 01725 M00S01231.pfiles +++| SX1 A1 SET ADDRESS OF FET FOR POINTER 01726 M00S01232.pfiles +++| BX6 X1+X2 01727 M00S01233.pfiles +++| SA6 ARGR FORCE WRITE BEFORE READ ON ROLLOUT 01728 M00S01234.pfiles +++| ESP1 SX2 I SET ADDRESS OF FET 01729 M00S01235.pfiles +++| RJ STF CHECK IF INPUT ASSIGNED TO TERMINAL 01730 M00S01236.pfiles +++| NZ X6,ESP2 IF INPUT NOT ASSIGNED TO TERMINAL 01731 M00S01237.pfiles +++| CSET NORMAL ENSURE TERMINAL IN NORMAL MODE 01732 M00S01238.pfiles +++| ESP2 READSKP I,,R READ INPUT FOR PASSWORD 01733 M00S01239.pfiles +++| SA1 I+2 DETERMINE NUMBER OF WORDS READ 01734 M00S01240.pfiles +++| SA2 A1+B1 01735 M00S01241.pfiles +++| IX6 X1-X2 01736 M00S01242.pfiles +++| ZR X6,ESP10 IF NO DATA ENTERED (NULL PASSWORD) 01737 M00S01243.pfiles +++| SB5 X6 01738 M00S01244.pfiles +++| SB3 B0 01739 M00S01245.pfiles +++| BX5 X5-X5 01740 M00S01246.pfiles +++| BX6 X6-X6 01741 M00S01247.pfiles +++| SB4 60 01742 M00S01248.pfiles +++| SB7 B0 01743 M00S01249.pfiles +++| MX0 -6 01744 M00S01250.pfiles +++| ESP3 SA2 IBUF+B3 PICK UP NEXT DATA WORD 01745 M00S01251.pfiles +++| SB2 B0+ 01746 M00S01252.pfiles +++| ESP4 LX2 6 01747 M00S01253.pfiles +++| BX1 -X0*X2 PICK UP CHARACTER TO CHECK 01748 M00S01254.pfiles +++| NZ X1,ESP5 IF CHARACTER NOT ZERO 01749 M00S01255.pfiles +++| NZ X5,ESP10 IF 00 ENCOUNTERED 01750 M00S01256.pfiles +++| SX5 B1+ SET FLAG TO INDICATE 0 ENCOUNTERED
| Line S01257 Modification History | |
|---|---|
M01 (Removed by) | pfile5 |
Seq # *Modification Id* Act ----------------------------+ 01751 M01S01257.pfile5 ---| EQ ESP9
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | pfile5 |
Seq # *Modification Id* Act ----------------------------+ 01752 M01S00001.pfile5 +++| EQ ESP9 CHECK FOR MORE CHARACTERS 01753 M00S01258.pfiles +++| 01754 M00S01259.pfiles +++| ESP5 NZ X5,ESP11 IF PREVIOUS CHARACTER = COLON 01755 M00S01260.pfiles +++| ESP6 SB6 X1-1R9 01756 M00S01261.pfiles +++| GT B6,ESP8 IF NOT ALPHANUMERIC CHARACTER 01757 M00S01262.pfiles +++| ESP7 SB4 B4-6 01758 M00S01263.pfiles +++| LX7 X1,B4 01759 M00S01264.pfiles +++| BX6 X7+X6 01760 M00S01265.pfiles +++| SB7 B7+1 01761 M00S01266.pfiles +++| SB6 B7-7 01762 M00S01267.pfiles +++| GT B6,ESP11 IF PASSWORD .GT. SEVEN CHARACTERS
| Line S01268 Modification History | |
|---|---|
M01 (Removed by) | pfile5 |
Seq # *Modification Id* Act ----------------------------+ 01763 M01S01268.pfile5 ---| EQ ESP9
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | pfile5 |
Seq # *Modification Id* Act ----------------------------+ 01764 M01S00002.pfile5 +++| EQ ESP9 CHECK FOR MORE CHARACTERS 01765 M00S01269.pfiles +++| 01766 M00S01270.pfiles +++| ESP8 SX4 X1-1R* 01767 M00S01271.pfiles +++| ZR X4,ESP7 IF CHARACTER = * 01768 M00S01272.pfiles +++| SX3 X1-1R 01769 M00S01273.pfiles +++| NZ X3,ESP11 IF CHARACTER NOT BLANK 01770 M00S01274.pfiles +++| ESP9 SB2 B2+B1 01771 M00S01275.pfiles +++| SB6 B2-10 01772 M00S01276.pfiles +++| LT B6,ESP4 IF NOT END OF WORD 01773 M00S01277.pfiles +++| SB3 B3+B1 01774 M00S01278.pfiles +++| SB6 B5-B3 01775 M00S01279.pfiles +++| EQ B6,ESP11 IF TOO MUCH DATA ENTERED
| Line S01280 Modification History | |
|---|---|
M01 (Removed by) | pfile5 |
Seq # *Modification Id* Act ----------------------------+ 01776 M01S01280.pfile5 ---| EQ ESP3
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | pfile5 |
Seq # *Modification Id* Act ----------------------------+ 01777 M01S00003.pfile5 +++| EQ ESP3 GET NEXT WORD 01778 M00S01281.pfiles +++| 01779 M00S01282.pfiles +++| ESP10 SA1 I+1 01780 M00S01283.pfiles +++| BX7 X1 01781 M00S01284.pfiles +++| SA7 A1+B1 SET IN = FIRST FOR INPUT BUFFER
| Line S00116 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01782 M01S00116.ns22000 +++| SA1 PFLA RESET (B7) = COMMAND CODE 01783 M01S00117.ns22000 +++| SB7 X1
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | pfile5 |
Seq # *Modification Id* Act ----------------------------+ 01784 M01S00004.pfile5 +++| SA1 =1L0 CHECK FOR *0* 01785 M01S00005.pfile5 +++| BX7 X6-X1 01786 M01S00006.pfile5 +++| NZ X7,ESPX IF *0* NOT SPECIFIED 01787 M01S00007.pfile5 +++| BX6 X7 SET NULL PASSWORD 01788 M00S01285.pfiles +++| EQ ESPX RETURN 01789 M00S01286.pfiles +++|
| Line S01287 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01790 M01S01287.v23l617 ---| ESP11 MESSAGE (=C* ILLEGAL PASSWORD.*)
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01791 M01S00108.v23l617 +++| ESP11 MESSAGE (=C* INCORRECT PASSWORD.*) 01792 M00S01288.pfiles +++| ABORT 01793 M00S01289.pfiles +++| GPN SPACE 4,21 01794 M00S01290.pfiles +++|** GPN - GET PRIMARY FILE NAME. 01795 M00S01291.pfiles +++|* THIS SUBROUTINE IS USED FOR DETERMINING THE NAME OF 01796 M00S01292.pfiles +++|* THE USER S PRIMARY FILE- IF ONE EXISTS. 01797 M00S01293.pfiles +++|* 01798 M00S01294.pfiles +++|* A LFM GETFNT CALL IS MADE, WITH SELECTIVITY OF PRIMARY 01799 M00S01295.pfiles +++|* TYPE ONLY, AND CONTROL BITS SET FOR NORMAL TREATMENT 01800 M00S01296.pfiles +++|* OF CHECKPOINT FILES AND NO MODIFICATION OF FST ENTRIES. 01801 M00S01297.pfiles +++|* 01802 M00S01298.pfiles +++|* ENTRY (GPNB) .NE. 0 IMPLIES PRIMARY HAS ALREADY BEEN 01803 M00S01299.pfiles +++|* FETCHED BY A DEFAULT CALL. 01804 M00S01300.pfiles +++|* 01805 M00S01301.pfiles +++|* EXIT IF (GPNB) = 0, 01806 M00S01302.pfiles +++|* (GETTAB+1) AND (X6) .NE. 0 IMPLIES PRIMARY EXISTS AND 01807 M00S01303.pfiles +++|* CONTAINS NAME (LEFT 01808 M00S01304.pfiles +++|* JUSTIFIED WITH ZERO FILL). 01809 M00S01305.pfiles +++|* (GETTAB+1) AND (X6) = 0 IMPLIES NO PRIMARY EXISTS. 01810 M00S01306.pfiles +++|* 01811 M00S01307.pfiles +++|* USES X - 2, 3, 6, 7. 01812 M00S01308.pfiles +++|* A - 2, 6, 7. 01813 M00S01309.pfiles +++|* 01814 M00S01310.pfiles +++|* MACROS GETFNT. 01815 M00S01311.pfiles +++| 01816 M00S01312.pfiles +++| 01817 M00S01313.pfiles +++| GPN SUBR ENTRY/EXIT 01818 M00S01314.pfiles +++| SA2 GPNB 01819 M00S01315.pfiles +++| NZ X2,GPNX IF HAVE ALREADY FETCHED PRIMARY, EXIT 01820 M00S01316.pfiles +++| BX7 X7-X7 CLEAR BUFFER CONTROL WORD 01821 M00S01317.pfiles +++| SA7 GETTAB 01822 M00S01318.pfiles +++| SA2 GPNA 01823 M00S01319.pfiles +++| BX6 X2 01824 M00S01320.pfiles +++| SA6 F+CFPN 01825 M00S01321.pfiles +++| GETFNT F 01826 M00S01322.pfiles +++| BX6 X6-X6 CLEAR PFM LOCATION FET+CFPN 01827 M00S01323.pfiles +++| SA6 F+CFPN 01828 M00S01324.pfiles +++| SA2 GETTAB+1 01829 M00S01325.pfiles +++| MX3 42 MASK OUT ALL BUT NAME OF PRIMARY 01830 M00S01326.pfiles +++| BX6 X2*X3 01831 M00S01327.pfiles +++| SA6 A2 01832 M00S01328.pfiles +++| EQ GPNX EXIT 01833 M00S01329.pfiles +++| 01834 M00S01330.pfiles +++|* GETFNT CONTROL WORD. 01835 M00S01331.pfiles +++| 01836 M00S01332.pfiles +++| PRIM DECMIC PTFT 01837 M00S01333.pfiles +++| PMSK EQU 1S"PRIM" 01838 M00S01334.pfiles +++| GPNA VFD 12/1,24/PMSK,6/15B,18/GETTAB 01839 M00S01335.pfiles +++| GPNB DATA 0 PRIMARY FETCHED FLAG 01840 M00S01336.pfiles +++| IDF SPACE 4,10 01841 M00S01337.pfiles +++|** IDF - ISSUE DAYFILE MESSAGE. 01842 M00S01338.pfiles +++|*
| Line S01339 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01843 M01S01339.v23l617 ---|* ENTRY (CCDR) = CONTROL STATEMENT.
| Line S00109 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01844 M01S00109.v23l617 +++|* ENTRY (CCDR) = COMMAND. 01845 M00S01340.pfiles +++|* 01846 M00S01341.pfiles +++|* USES X - 4, 5. 01847 M00S01342.pfiles +++|* A - 4, 5. 01848 M00S01343.pfiles +++|* B - 2, 6. 01849 M00S01344.pfiles +++|* 01850 M00S01345.pfiles +++|* CALLS CTJ, RSP. 01851 M00S01346.pfiles +++| 01852 M00S01347.pfiles +++| 01853 M00S01348.pfiles +++| IDF SUBR ENTRY/EXIT 01854 M00S01349.pfiles +++| SA4 TARG+1 FWA ARGUMENT TABLE 01855 M00S01350.pfiles +++| SB6 TKPR FWA KEYWORD/POSITION TABLE
| Line S01351 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01856 M01S01351.v23l617 ---| SA5 CCDR FWA CONTROL STATEMENT BUFFER
| Line S00110 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01857 M01S00110.v23l617 +++| SA5 CCDR FWA COMMAND BUFFER 01858 M00S01352.pfiles +++| SB2 1R/ SKIP TO */*
| Line S01353 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01859 M01S01353.v23l617 ---| RJ RSP REMOVE SECURE PARAMETERS FROM CONTROL CARD 01860 M01S01354.v23l617 ---| MESSAGE CCDR,0,R ISSUE CONTROL STATEMENT TO DAYFILE
| Line S00111 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01861 M01S00111.v23l617 +++| RJ RSP REMOVE SECURE PARAMETERS FROM COMMAND 01862 M01S00112.v23l617 +++| MESSAGE CCDR,0,R ISSUE COMMAND TO DAYFILE 01863 M00S01355.pfiles +++| EQ IDFX RETURN 01864 M00S01356.pfiles +++| 01865 M00S01357.pfiles +++| 01866 M00S01358.pfiles +++| TKPR BSS 0 TABLE OF KEYWORDS/POSITIONS TO REMOVE
| Line S00118 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01867 M01S00118.ns22000 +++| CON 2LAL ACCESS LEVEL 01868 M00S01359.pfiles +++| CON 2LPW PASSWORD 01869 M00S01360.pfiles +++| CON 0 END OF TABLE
| Line S00113 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01870 M01S00113.v23l617 +++| PAC SPACE 4,15 01871 M01S00114.v23l617 +++|** PAC - PROCESS ALTERNATE CATLIST PERMISSION. 01872 M01S00115.v23l617 +++|* 01873 M01S00116.v23l617 +++|* ENTRY (ALCT) = ALTERNATE CATLIST PERMISSION (DISPLAY CODE). 01874 M01S00117.v23l617 +++|* 01875 M01S00118.v23l617 +++|* EXIT (ALCT) = ALTERNATE CATLIST PERMISSION 01876 M01S00119.v23l617 +++|* (NUMERIC EQUIVALENT). 01877 M01S00120.v23l617 +++|* 01878 M01S00121.v23l617 +++|* USES X - 5, 7. 01879 M01S00122.v23l617 +++|* A - 5, 7. 01880 M01S00123.v23l617 +++|* B - 5. 01881 M01S00124.v23l617 +++|* 01882 M01S00125.v23l617 +++|* CALLS CVT. 01883 M01S00126.v23l617 +++|* 01884 M01S00127.v23l617 +++|* MACROS ABORT, MESSAGE. 01885 M01S00128.v23l617 +++| 01886 M01S00129.v23l617 +++| 01887 M01S00130.v23l617 +++| PAC SUBR ENTRY/EXIT 01888 M01S00131.v23l617 +++| SA5 ALCT 01889 M01S00132.v23l617 +++| ZR X5,PACX IF NOT SPECIFIED 01890 M01S00133.v23l617 +++| SB5 TACP 01891 M01S00134.v23l617 +++| RJ CVT CONVERT ARGUMENT 01892 M01S00135.v23l617 +++| SA7 A5 01893 M01S00136.v23l617 +++| ZR X6,PACX IF LEGAL ARGUMENT 01894 M01S00137.v23l617 +++| MESSAGE (=C* ERROR IN ALTERNATE CATLIST PERMISSION.*) 01895 M01S00138.v23l617 +++| ABORT 01896 M01S00139.v23l617 +++| 01897 M01S00140.v23l617 +++| 01898 M01S00141.v23l617 +++|**** 01899 M01S00142.v23l617 +++|* TABLE OF ALTERNATE CATLIST PERMISSIONS. 01900 M01S00143.v23l617 +++| 01901 M01S00144.v23l617 +++| 01902 M01S00145.v23l617 +++| TACP BSS 0 01903 M01S00146.v23l617 +++| VFD 42/0LN,18/ACNO 01904 M01S00147.v23l617 +++| VFD 42/0LY,18/ACYS 01905 M01S00148.v23l617 +++| CON 0 01906 M01S00149.v23l617 +++|****
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01907 M01S00119.ns22000 +++| PAL SPACE 4,10 01908 M01S00120.ns22000 +++|** PAL - PROCESS ACCESS LEVEL. 01909 M01S00121.ns22000 +++|* 01910 M01S00122.ns22000 +++|* EVALUATE IF AN ACCESS LEVEL HAS BEEN SPECIFIED. IF SO, 01911 M01S00123.ns22000 +++|* SET ACCESS LEVEL VALUE AND *SP* BIT IN THE FET. 01912 M01S00124.ns22000 +++|* 01913 M01S00125.ns22000 +++|* ENTRY (FAL) = FILE ACCESS LEVEL. 01914 M01S00126.ns22000 +++|* 01915 M01S00127.ns22000 +++|* USES X - 1, 2, 6. 01916 M01S00128.ns22000 +++|* A - 1, 6. 01917 M01S00129.ns22000 +++|* B - 2. 01918 M01S00130.ns22000 +++|* 01919 M01S00131.ns22000 +++|* CALLS VLC. 01920 M01S00132.ns22000 +++|* 01921 M01S00133.ns22000 +++|* MACROS ABORT. 01922 M01S00134.ns22000 +++| 01923 M01S00135.ns22000 +++| 01924 M01S00136.ns22000 +++| PAL SUBR ENTRY/EXIT 01925 M01S00137.ns22000 +++| SA1 FAL 01926 M01S00138.ns22000 +++| ZR X1,PALX IF *AL* NOT SPECIFIED 01927 M01S00139.ns22000 +++| SB2 B0 SET ACCESS LEVEL FLAG 01928 M01S00140.ns22000 +++| RJ VLC VALIDATE ACCESS LEVEL MNEMONIC 01929 M01S00141.ns22000 +++| NG X2,PAL1 IF INCORRECT ACCESS LEVEL 01930 M01S00142.ns22000 +++| BX6 X2 SET *AL* IN FET 01931 M01S00143.ns22000 +++| SA6 FAL 01932 M01S00144.ns22000 +++| SA1 F+B1 SET *SP* BIT IN FET 01933 M01S00145.ns22000 +++| SX2 B1 01934 M01S00146.ns22000 +++| LX2 39-0 01935 M01S00147.ns22000 +++| BX6 X1+X2 01936 M01S00148.ns22000 +++| SA6 A1 01937 M01S00149.ns22000 +++| EQ PALX RETURN 01938 M01S00150.ns22000 +++| 01939 M01S00151.ns22000 +++| PAL1 MESSAGE (=C* UNKNOWN ACCESS LEVEL NAME.*) 01940 M01S00152.ns22000 +++| ABORT 01941 M00S01361.pfiles +++| PBR SPACE 4,20 01942 M00S01362.pfiles +++|** PBR - PROCESS BACKUP REQUIREMENT. 01943 M00S01363.pfiles +++|* 01944 M00S01364.pfiles +++|* ENTRY (BREQ) = BACKUP REQUIREMENT (DISPLAY CODE). 01945 M00S01365.pfiles +++|* 01946 M00S01366.pfiles +++|* EXIT (BREQ) = BACKUP REQUIREMENT (NUMERIC EQUIVALENT). 01947 M00S01367.pfiles +++|* 01948 M00S01368.pfiles +++|* USES X - 5. 01949 M00S01369.pfiles +++|* A - 5, 7. 01950 M00S01370.pfiles +++|* B - 5. 01951 M00S01371.pfiles +++|* 01952 M00S01372.pfiles +++|* CALLS CVT. 01953 M00S01373.pfiles +++|* 01954 M00S01374.pfiles +++|* MACROS ABORT, MESSAGE. 01955 M00S01375.pfiles +++| 01956 M00S01376.pfiles +++| 01957 M00S01377.pfiles +++| PBR SUBR ENTRY/EXIT 01958 M00S01378.pfiles +++| SA5 BREQ 01959 M00S01379.pfiles +++| ZR X5,PBRX IF NO ARGUMENT SPECIFIED 01960 M00S01380.pfiles +++| SB5 TBREQ 01961 M00S01381.pfiles +++| RJ CVT CONVERT ARGUMENT TO EQUIVALENT 01962 M00S01382.pfiles +++| SA7 A5 SAVE CONVERSION 01963 M00S01383.pfiles +++| ZR X6,PBRX IF LEGAL ARGUMENT 01964 M00S01384.pfiles +++| 01965 M00S01385.pfiles +++| MESSAGE (=C* ERROR IN BACKUP REQUIREMENT.*) 01966 M00S01386.pfiles +++| ABORT 01967 M00S01387.pfiles +++| 01968 M00S01388.pfiles +++| 01969 M00S01389.pfiles +++|**** 01970 M00S01390.pfiles +++|* TABLE OF BACKUP REQUIREMENTS. 01971 M00S01391.pfiles +++| 01972 M00S01392.pfiles +++| 01973 M00S01393.pfiles +++| TBREQ BSS 0 01974 M00S01394.pfiles +++| VFD 42/0LN,18/BRNO BACKUP NOT REQUIRED 01975 M00S01395.pfiles +++| VFD 42/0LY,18/BRAL BACKUP ALWAYS REQUIRED 01976 M00S01396.pfiles +++| VFD 42/0LMD,18/BRMD BACKUP REQUIRED UNLESS FILE ON MSF 01977 M00S01397.pfiles +++| CON 0 01978 M00S01398.pfiles +++|**** 01979 M00S01399.pfiles +++| PCT SPACE 4,15 01980 M00S01400.pfiles +++|** PCT - PROCESS FILE CATEGORY. 01981 M00S01401.pfiles +++|* 01982 M00S01402.pfiles +++|* ENTRY (CTG) = LEFT JUSTIFIED DISPLAY CODED ARGUMENT. 01983 M00S01403.pfiles +++|* 01984 M00S01404.pfiles +++|* EXIT (CTG) = RIGHT JUSTIFIED EQUIVALENT ARGUMENT. 01985 M00S01405.pfiles +++|* 01986 M00S01406.pfiles +++|* USES X - 5, 7. 01987 M00S01407.pfiles +++|* A - 5, 7. 01988 M00S01408.pfiles +++|* B - 5. 01989 M00S01409.pfiles +++|* 01990 M00S01410.pfiles +++|* CALLS CVT. 01991 M00S01411.pfiles +++|* 01992 M00S01412.pfiles +++|* MACROS ABORT, MESSAGE. 01993 M00S01413.pfiles +++| 01994 M00S01414.pfiles +++| 01995 M00S01415.pfiles +++| PCT SUBR ENTRY/EXIT 01996 M00S01416.pfiles +++| SA5 CTG 01997 M00S01417.pfiles +++| ZR X5,PCTX IF NO ARGUMENT 01998 M00S01418.pfiles +++| SB5 TCAT 01999 M00S01419.pfiles +++| RJ CVT CONVERT ARGUMENT TO EQUIVALENT 02000 M00S01420.pfiles +++| SX7 X7+40B 02001 M00S01421.pfiles +++| SA7 A5 SAVE CONVERSION 02002 M00S01422.pfiles +++| ZR X6,PCTX IF LEGAL ARGUMENT 02003 M00S01423.pfiles +++| 02004 M00S01424.pfiles +++| MESSAGE (=C* ERROR IN FILE CATEGORY.*) 02005 M00S01425.pfiles +++| ABORT 02006 M00S01426.pfiles +++| 02007 M00S01427.pfiles +++| 02008 M00S01428.pfiles +++|**** 02009 M00S01429.pfiles +++|* TABLE OF FILE CATEGORIES. 02010 M00S01430.pfiles +++| 02011 M00S01431.pfiles +++| 02012 M00S01432.pfiles +++| TCAT BSS 0 02013 M00S01433.pfiles +++| VFD 42/0LPRIVATE,18/FCPR 02014 M00S01434.pfiles +++| VFD 42/0LP,18/FCPR 02015 M00S01435.pfiles +++| VFD 42/0LPR,18/FCPR 02016 M00S01436.pfiles +++| VFD 42/0LSPRIV,18/FCSP 02017 M00S01437.pfiles +++| VFD 42/0LS,18/FCSP 02018 M00S01438.pfiles +++| VFD 42/0LLIBRARY,18/FCLI 02019 M00S01439.pfiles +++| VFD 42/0LL,18/FCLI 02020 M00S01440.pfiles +++| VFD 42/0LPUBLIC,18/FCLI 02021 M00S01441.pfiles +++| VFD 42/0LPU,18/FCLI 02022 M00S01442.pfiles +++| CON 0 02023 M00S01443.pfiles +++|**** 02024 M00S01444.pfiles +++| PDC SPACE 4,25 02025 M00S01445.pfiles +++|** PDC - PROCESS DEFAULT CALL. 02026 M00S01446.pfiles +++|* 02027 M00S01447.pfiles +++|* DETERMINE IF THE COMMAND IS A DEFAULT CALL. 02028 M00S01448.pfiles +++|* THIS IS A *GET*, *PURGE*, *REPLACE*, OR *SAVE* 02029 M00S01449.pfiles +++|* WITH NO ARGUMENTS OR ONE BLANK ARGUMENT. 02030 M00S01450.pfiles +++|* 02031 M00S01451.pfiles +++|* ENTRY (B4) = ARGUMENT COUNT.
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02032 M01S00153.ns22000 +++|* (B6) = SHIFT COUNT FOR COMMAND. 02033 M00S01452.pfiles +++|* (B7) = COMMAND CODE. 02034 M00S01453.pfiles +++|* 02035 M00S01454.pfiles +++|* EXIT (B2) .NE. 0 IF NOT DEFAULT CALL. 02036 M00S01455.pfiles +++|* ABORT IF DEFAULT AND NO PRIMARY FILE. 02037 M00S01456.pfiles +++|* IF DEFAULT AND PRIMARY FILE FOUND- 02038 M00S01457.pfiles +++|* (B2) = 0 02039 M00S01458.pfiles +++|* (TSFN) = PRIMARY FILE NAME. 02040 M00S01459.pfiles +++|* (GPNB) .NE. 0. 02041 M00S01460.pfiles +++|* 02042 M00S01461.pfiles +++|* USES X - 1, 2, 6. 02043 M00S01462.pfiles +++|* A - 2, 6.
| Line S01463 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02044 M01S01463.ns22000 ---|* B - 2, 3.
| Line S00154 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02045 M01S00154.ns22000 +++|* B - 2. 02046 M00S01464.pfiles +++|* 02047 M00S01465.pfiles +++|* CALLS GPN. 02048 M00S01466.pfiles +++|* 02049 M00S01467.pfiles +++|* MACROS ABORT, MESSAGE. 02050 M00S01468.pfiles +++| 02051 M00S01469.pfiles +++| 02052 M00S01470.pfiles +++| PDC SUBR ENTRY/EXIT 02053 M00S01471.pfiles +++| SB2 B1+ SET NO DEFAULT EXIT 02054 M00S01472.pfiles +++| GT B4,B1,PDCX IF TOO MANY ARGUMENTS 02055 M00S01473.pfiles +++| SX1 PRM9
| Line S01474 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02056 M01S01474.ns22000 ---| SB3 60 02057 M01S01475.ns22000 ---| SB3 B3-B7 02058 M01S01476.ns22000 ---| LX1 X1,B3
| Line S00155 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02059 M01S00155.ns22000 +++| LX1 X1,B6 02060 M00S01477.pfiles +++| PL X1,PDCX IF DEFAULT NOT LEGAL FOR COMMAND 02061 M00S01478.pfiles +++| SA2 ARGR 02062 M00S01479.pfiles +++| NZ X2,PDCX IF ARGUMENT NOT BLANK 02063 M00S01480.pfiles +++| RJ GPN GET PRIMARY FILE NAME 02064 M00S01481.pfiles +++| ZR X6,PDC1 IF NO PRIMARY FILE 02065 M00S01482.pfiles +++| SA6 GPNB SET PRIMARY FETCHED FLAG 02066 M00S01483.pfiles +++| SA6 TSFN SET DEFAULT FILE NAME 02067 M00S01484.pfiles +++| SB2 B0 SET DEFAULT EXIT 02068 M00S01485.pfiles +++| BX6 X6-X6 02069 M00S01486.pfiles +++| SA6 TSFN+1 TERMINATE *TSFN* TABLE 02070 M00S01487.pfiles +++| SA6 TPFN 02071 M00S01488.pfiles +++| EQ PDCX RETURN 02072 M00S01489.pfiles +++| 02073 M00S01490.pfiles +++| PDC1 MESSAGE (=C* NO PRIMARY FILE.*) 02074 M00S01491.pfiles +++| ABORT 02075 M00S01492.pfiles +++| PMD SPACE 4,15 02076 M00S01493.pfiles +++|** PMD - PROCESS MODE OF FILE. 02077 M00S01494.pfiles +++|* 02078 M00S01495.pfiles +++|* ENTRY (X5) = ACCESS MODE (DISPLAY CODE).
| Line S01496 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02079 M01S01496.ns22000 ---|* (B7) = COMMAND CODE. 02080 M00S01497.pfiles +++|* 02081 M00S01498.pfiles +++|* EXIT (MODE) = ACCESS MODE (NUMERIC EQUIVALENT). 02082 M00S01499.pfiles +++|* 02083 M00S01500.pfiles +++|* USES X - 5, 7. 02084 M00S01501.pfiles +++|* A - 5, 7. 02085 M00S01502.pfiles +++|* B - 5. 02086 M00S01503.pfiles +++|* 02087 M00S01504.pfiles +++|* CALLS CVT. 02088 M00S01505.pfiles +++|* 02089 M00S01506.pfiles +++|* MACROS ABORT, MESSAGE. 02090 M00S01507.pfiles +++| 02091 M00S01508.pfiles +++| 02092 M00S01509.pfiles +++| PMD SUBR ENTRY/EXIT 02093 M00S01510.pfiles +++| NZ X5,PMD2 IF MODE ENTERED
| Line S01511 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02094 M01S01511.ns22000 ---| SA5 B7+TMOD-1 SET DEFAULT FOR COMMAND 02095 M01S01512.ns22000 ---| BX7 X5
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02096 M01S00156.ns22000 +++| SX7 PTRD SET DEFAULT MODE (READ MODE) 02097 M00S01513.pfiles +++| PMD1 SA7 MODE 02098 M00S01514.pfiles +++| EQ PMDX 02099 M00S01515.pfiles +++| 02100 M00S01516.pfiles +++| PMD2 SB5 TMDE 02101 M00S01517.pfiles +++| RJ CVT CONVERT ARGUMENT 02102 M00S01518.pfiles +++| SX7 X7+40B 02103 M00S01519.pfiles +++| ZR X6,PMD1 IF LEGAL ARGUMENT 02104 M00S01520.pfiles +++| 02105 M00S01521.pfiles +++| MESSAGE (=C* ERROR IN MODE.*) 02106 M00S01522.pfiles +++| ABORT 02107 M00S01523.pfiles +++|
| Line S01524 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02108 M01S01524.ns22000 ---|* TABLE OF DEFAULT MODES. 02109 M01S01525.ns22000 ---| 02110 M01S01526.ns22000 ---| TMOD BSS 0 FILE MODES 02111 M01S01527.ns22000 ---| CON PTRD SAVE 02112 M01S01528.ns22000 ---| CON 0 GET 02113 M01S01529.ns22000 ---| CON 0 PURGE 02114 M01S01530.ns22000 ---| CON 0 CATLIST 02115 M01S01531.ns22000 ---| CON PTRD PERMIT 02116 M01S01532.ns22000 ---| CON 0 REPLACE 02117 M01S01533.ns22000 ---| CON 0 APPEND 02118 M01S01534.ns22000 ---| CON PTRD DEFINE 02119 M01S01535.ns22000 ---| CON PTRD ATTACH 02120 M01S01536.ns22000 ---| CON 0 CHANGE 02121 M01S01537.ns22000 ---| CON 0 PACKNAM - (NOT REFERENCED) 02122 M01S01538.ns22000 ---| CON 0 NEW 02123 M01S01539.ns22000 ---| CON 0 OLD 02124 M01S01540.ns22000 ---| 02125 M00S01541.pfiles +++| 02126 M00S01542.pfiles +++|**** 02127 M00S01543.pfiles +++|* TABLE OF FILE MODE EQUIVALENCES. 02128 M00S01544.pfiles +++| 02129 M00S01545.pfiles +++| 02130 M00S01546.pfiles +++| TMDE BSS 0 02131 M00S01547.pfiles +++| VFD 42/0LWRITE,18/PTWR 02132 M00S01548.pfiles +++| VFD 42/0LW,18/PTWR 02133 M00S01549.pfiles +++| VFD 42/0LREAD,18/PTRD 02134 M00S01550.pfiles +++| VFD 42/0LR,18/PTRD 02135 M00S01551.pfiles +++| VFD 42/0LEXECUTE,18/PTEX 02136 M00S01552.pfiles +++| VFD 42/0LE,18/PTEX 02137 M00S01553.pfiles +++| VFD 42/0LAPPEND,18/PTAP 02138 M00S01554.pfiles +++| VFD 42/0LA,18/PTAP 02139 M00S01555.pfiles +++| VFD 42/0LNULL,18/PTNU 02140 M00S01556.pfiles +++| VFD 42/0LN,18/PTNU 02141 M00S01557.pfiles +++| VFD 42/0LMODIFY,18/PTMD 02142 M00S01558.pfiles +++| VFD 42/0LM,18/PTMD 02143 M00S01559.pfiles +++| VFD 42/0LREADMD,18/PTRM 02144 M00S01560.pfiles +++| VFD 42/0LRM,18/PTRM 02145 M00S01561.pfiles +++| VFD 42/0LREADAP,18/PTRA 02146 M00S01562.pfiles +++| VFD 42/0LRA,18/PTRA
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02147 M01S00013.ns21000 +++| VFD 42/0LUPDATE,18/PTUP 02148 M01S00014.ns21000 +++| VFD 42/0LU,18/PTUP 02149 M01S00015.ns21000 +++| VFD 42/0LREADUP,18/PTRU 02150 M01S00016.ns21000 +++| VFD 42/0LRU,18/PTRU 02151 M00S01563.pfiles +++| CON 0 02152 M00S01564.pfiles +++|**** 02153 M00S01565.pfiles +++| PNA SPACE 4,10 02154 M00S01566.pfiles +++|** PNA - PROCESS *NO ABORT* AND *WAIT BUSY* OPTIONS. 02155 M00S01567.pfiles +++|* 02156 M00S01568.pfiles +++|* ENTRY (NABT) .NE. 0 IF *NO ABORT* SPECIFIED. 02157 M00S01569.pfiles +++|* (WBUSY) .NE. 0 IF *WAIT BUSY* REQUESTED. 02158 M00S01570.pfiles +++|* 02159 M00S01571.pfiles +++|* EXIT ERROR PROCESSING BIT SET IF REQUIRED. 02160 M00S01572.pfiles +++|* TO *ERR* IF BOTH *NA* AND *WB* SPECIFIED. 02161 M00S01573.pfiles +++|* 02162 M00S01574.pfiles +++|* USES X - 1, 2, 6. 02163 M00S01575.pfiles +++|* A - 1, 2, 6. 02164 M00S01576.pfiles +++| 02165 M00S01577.pfiles +++| 02166 M00S01578.pfiles +++| PNA SUBR ENTRY/EXIT 02167 M00S01579.pfiles +++| SA1 NABT 02168 M00S01580.pfiles +++| SA2 WBUSY 02169 M00S01581.pfiles +++| IX1 X1+X2 02170 M00S01582.pfiles +++| ZR X1,PNAX IF NEITHER *NA* OR *WB* SPECIFIED 02171 M00S01583.pfiles +++| SX1 X1-2 02172 M00S01584.pfiles +++| ZR X1,ERR IF BOTH *NA* AND *WB* SPECIFIED 02173 M00S01585.pfiles +++| SA1 F+1 SET ERROR PROCESSING BIT 02174 M00S01586.pfiles +++| SX6 B1 02175 M00S01587.pfiles +++| LX6 44 02176 M00S01588.pfiles +++| BX6 X1+X6 02177 M00S01589.pfiles +++| SA6 A1 02178 M00S01590.pfiles +++| EQ PNAX RETURN
| Line S00157 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02179 M01S00157.ns22000 +++| PPX SPACE 4,20 02180 M01S00158.ns22000 +++|** PPX - PROCESS PASSWORD/PERMIT EXPIRATION DATE/TERM. 02181 M01S00159.ns22000 +++|* 02182 M01S00160.ns22000 +++|* ENTRY (B7) = (PFLA) = COMMAND CODE. 02183 M01S00161.ns22000 +++|* (PXD) = EXPIRATION DATE (DISPLAY CODE). 02184 M01S00162.ns22000 +++|* (PXT) = EXPIRATION TERM (DISPLAY CODE). 02185 M01S00163.ns22000 +++|* 02186 M01S00164.ns22000 +++|* EXIT (B7) = COMMAND CODE. 02187 M01S00165.ns22000 +++|* (PXT) = NUMERIC EXPIRATION DATE/TERM. 02188 M01S00166.ns22000 +++|* TO *ERR* IF BOTH *XD* AND *XT* SPECIFIED, 02189 M01S00167.ns22000 +++|* OR IF ONE IS SPECIFIED ON A *SAVE OR *DEFINE* 02190 M01S00168.ns22000 +++|* WITHOUT *PW*. 02191 M01S00169.ns22000 +++|* 02192 M01S00170.ns22000 +++|* USES X - 0, 1, 2, 3, 5, 6. 02193 M01S00171.ns22000 +++|* A - 1, 2, 3, 6. 02194 M01S00172.ns22000 +++|* B - 2, 7. 02195 M01S00173.ns22000 +++|* 02196 M01S00174.ns22000 +++|* CALLS DXB, VDT. 02197 M01S00175.ns22000 +++|* 02198 M01S00176.ns22000 +++|* MACROS ABORT, MESSAGE, PDATE. 02199 M01S00177.ns22000 +++| 02200 M01S00178.ns22000 +++| 02201 M01S00179.ns22000 +++| PPX6 SA6 PXT SAVE *XT* 02202 M01S00180.ns22000 +++| SA1 PFLA RESTORE COMMAND CODE 02203 M01S00181.ns22000 +++| SB7 X1 02204 M01S00182.ns22000 +++| 02205 M01S00183.ns22000 +++| PPX SUBR ENTRY/EXIT 02206 M01S00184.ns22000 +++| SA1 PXT 02207 M01S00185.ns22000 +++| SA2 PXD 02208 M01S00186.ns22000 +++| SB2 X1 02209 M01S00187.ns22000 +++| SB2 X2+B2 02210 M01S00188.ns22000 +++| ZR B2,PPXX IF NEITHER *XD* OR *XT* SPECIFIED 02211 M01S00189.ns22000 +++| NE B2,B1,ERR IF BOTH *XD* AND *XT* SPECIFIED 02212 M01S00190.ns22000 +++| SB2 B7-CCCG 02213 M01S00191.ns22000 +++| ZR B2,PPX1 IF *CHANGE* COMMAND 02214 M01S00192.ns22000 +++| SB2 B7-CCPM 02215 M01S00193.ns22000 +++| ZR B2,PPX1 IF *PERMIT* COMMAND 02216 M01S00194.ns22000 +++| SA3 PWD 02217 M01S00195.ns22000 +++| ZR X3,ERR IF *PW* NOT ENTERED 02218 M01S00196.ns22000 +++| PPX1 MX0 42 02219 M01S00197.ns22000 +++| ZR X2,PPX2 IF *XT* SPECIFIED RATHER THAN *XD* 02220 M01S00198.ns22000 +++| 02221 M01S00199.ns22000 +++|* PROCESS EXPIRATION DATE. 02222 M01S00200.ns22000 +++| 02223 M01S00201.ns22000 +++| BX1 X0*X2 02224 M01S00202.ns22000 +++| SX2 B0 02225 M01S00203.ns22000 +++| BX3 X1 02226 M01S00204.ns22000 +++| LX3 -54 02227 M01S00205.ns22000 +++| SX3 X3-1R* 02228 M01S00206.ns22000 +++| ZR X3,PPX2.1 IF NON-EXPIRING PASSWORD/PERMIT REQUESTED 02229 M01S00207.ns22000 +++| RJ VDT VERIFY DATE SPECIFIED 02230 M01S00208.ns22000 +++| NG X1,PPX5 IF DATE ALREADY OCCURRED 02231 M01S00209.ns22000 +++| NG X6,PPX5 IF CONVERSION ERROR 02232 M01S00210.ns22000 +++| EQ PPX6 SAVE EXPIRATION DATE 02233 M01S00211.ns22000 +++| 02234 M01S00212.ns22000 +++|* PROCESS EXPIRATION TERM. 02235 M01S00213.ns22000 +++| 02236 M01S00214.ns22000 +++| PPX2 BX1 X0*X1 02237 M01S00215.ns22000 +++| BX5 X1 02238 M01S00216.ns22000 +++| LX1 -54 02239 M01S00217.ns22000 +++| SX2 X1-1R* CHECK FOR *XT* = ASTERISK 02240 M01S00218.ns22000 +++| NZ X2,PPX3 IF NOT NON-EXPIRING 02241 M01S00219.ns22000 +++| PPX2.1 SX6 7777B 02242 M01S00220.ns22000 +++| EQ PPX6 STORE NON-EXPIRING TERM 02243 M01S00221.ns22000 +++| 02244 M01S00222.ns22000 +++| PPX3 SX2 X1-1R0 CHECK FOR *XT* = CHARACTER ZERO 02245 M01S00223.ns22000 +++| NZ X2,PPX4 IF NOT IMMEDIATELY EXPIRING 02246 M01S00224.ns22000 +++| PDATE PPXA SET *XT* = CURRENT DATE 02247 M01S00225.ns22000 +++| SA2 PPXA 02248 M01S00226.ns22000 +++| AX2 18 02249 M01S00227.ns22000 +++| BX6 X2 02250 M01S00228.ns22000 +++| EQ PPX6 SAVE CURRENT DATE 02251 M01S00229.ns22000 +++| 02252 M01S00230.ns22000 +++| PPX4 ZR X5,PPX5 IF NULL TERM SPECIFIED 02253 M01S00231.ns22000 +++| SB7 1 CONVERT DECIMAL NUMBER 02254 M01S00232.ns22000 +++| RJ DXB CONVERT DISPLAY CODE TO BINARY NUMBERS 02255 M01S00233.ns22000 +++| NZ X4,PPX5 IF CONVERSION ERROR 02256 M01S00234.ns22000 +++| SB2 X6-7777B 02257 M01S00235.ns22000 +++| LE B2,B0,PPX6 IF TERM DOES NOT EXCEED MAXIMUM 02258 M01S00236.ns22000 +++| PPX5 MESSAGE (=C* ERROR IN EXPIRATION DATE.*) 02259 M01S00237.ns22000 +++| ABORT 02260 M01S00238.ns22000 +++| 02261 M01S00239.ns22000 +++| PPXA DATA 0
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | pfile1 |
Seq # *Modification Id* Act ----------------------------+ 02262 M01S00010.pfile1 +++| PRD SPACE 4,10 02263 M01S00011.pfile1 +++|** PRD - PROCESS RESIDENCE DEFINITION. 02264 M01S00012.pfile1 +++|* 02265 M01S00013.pfile1 +++|* ENTRY (RES) = RESIDENCE OF FILE. 02266 M01S00014.pfile1 +++|* 02267 M01S00015.pfile1 +++|* USES X - 0, 1, 2, 3. 02268 M01S00016.pfile1 +++|* A - 2, 3. 02269 M01S00017.pfile1 +++|* 02270 M01S00018.pfile1 +++|* MACROS ABORT, MESSAGE. 02271 M01S00019.pfile1 +++| 02272 M01S00020.pfile1 +++| 02273 M01S00021.pfile1 +++| PRD SUBR ENTRY/EXIT 02274 M01S00022.pfile1 +++| SA3 RES 02275 M01S00023.pfile1 +++| ZR X3,PRDX IF RESIDENCE NOT DEFINED 02276 M01S00024.pfile1 +++| MX0 12 02277 M01S00025.pfile1 +++| BX1 X0*X3 02278 M01S00026.pfile1 +++| MX2 -6 02279 M01S00027.pfile1 +++| LX3 18 02280 M01S00028.pfile1 +++| BX2 -X2*X3 02281 M01S00029.pfile1 +++| BX0 X0*X3 02282 M01S00030.pfile1 +++| NZ X0,PRD3 IF RESIDENCE ENTRY TOO LONG 02283 M01S00031.pfile1 +++| ZR X2,PRD1 IF *N* NOT DEFINED 02284 M01S00032.pfile1 +++| SX3 X2-1R1 02285 M01S00033.pfile1 +++| SX2 X2-1R9 02286 M01S00034.pfile1 +++| NG X3,PRD3 IF *N* .LT. 1 02287 M01S00035.pfile1 +++| PL X2,PRD3 IF *N* .GT. 8 02288 M01S00036.pfile1 +++| PRD1 SA2 TDVM-1 02289 M01S00037.pfile1 +++| PRD2 SA2 A2+B1 02290 M01S00038.pfile1 +++| BX3 X1-X2 02291 M01S00039.pfile1 +++| ZR X3,PRDX IF MATCH ON DEVICE 02292 M01S00040.pfile1 +++| NZ X2,PRD2 IF NOT END OF TABLE 02293 M01S00041.pfile1 +++| PRD3 MESSAGE PRDA * ERROR IN RESIDENCE.* 02294 M01S00042.pfile1 +++| ABORT 02295 M01S00043.pfile1 +++| 02296 M01S00044.pfile1 +++| 02297 M01S00045.pfile1 +++| PRDA DATA C* ERROR IN RESIDENCE.* 02298 M01S00046.pfile1 +++| TDVM SPACE 4,10 02299 M01S00047.pfile1 +++|** TDVM - TABLE OF DEVICE MNEMONICS. 02300 M01S00048.pfile1 +++|* 02301 M01S00049.pfile1 +++|*T TDVM 12/MN, 48/0
Figure TDVM
02302 M01S00050.pfile1 +++|* 02303 M01S00051.pfile1 +++|* MN = DEVICE MNEMONIC. 02304 M01S00052.pfile1 +++| 02305 M01S00053.pfile1 +++| 02306 M01S00054.pfile1 +++|** TBLM - DEFINE MACRO TO PRODUCE *TDVM* TABLE. 02307 M01S00055.pfile1 +++| 02308 M01S00056.pfile1 +++| PURGMAC TBLM 02309 M01S00057.pfile1 +++| TBLM MACRO EQ 02310 M01S00058.pfile1 +++| VFD 12/2R_EQ,48/0 02311 M01S00059.pfile1 +++| ENDM 02312 M01S00060.pfile1 +++| 02313 M01S00061.pfile1 +++| LIST G 02314 M01S00062.pfile1 +++| TDVM TBL "MSEQ" 02315 M01S00063.pfile1 +++| CON 0 END OF TABLE 02316 M01S00064.pfile1 +++| LIST -G 02317 M00S01591.pfiles +++| PRE SPACE 4,20 02318 M00S01592.pfiles +++|** PRE - PROCESS PREFERRED RESIDENCE. 02319 M00S01593.pfiles +++|* 02320 M00S01594.pfiles +++|* ENTRY (PRES) = PREFERRED RESIDENCE (DISPLAY CODE). 02321 M00S01595.pfiles +++|* 02322 M00S01596.pfiles +++|* EXIT (PRES) = PREFERRED RESIDENCE (NUMERIC EQUIVALENT). 02323 M00S01597.pfiles +++|* 02324 M00S01598.pfiles +++|* USES X - 5. 02325 M00S01599.pfiles +++|* A - 5, 7. 02326 M00S01600.pfiles +++|* B - 5. 02327 M00S01601.pfiles +++|* 02328 M00S01602.pfiles +++|* CALLS CVT. 02329 M00S01603.pfiles +++|* 02330 M00S01604.pfiles +++|* MACROS ABORT, MESSAGE. 02331 M00S01605.pfiles +++| 02332 M00S01606.pfiles +++| 02333 M00S01607.pfiles +++| PRE SUBR ENTRY/EXIT 02334 M00S01608.pfiles +++| SA5 PRES 02335 M00S01609.pfiles +++| ZR X5,PREX IF NO ARGUMENT SPECIFIED 02336 M00S01610.pfiles +++| SB5 TPRES 02337 M00S01611.pfiles +++| RJ CVT CONVERT ARGUMENT TO EQUIVALENT 02338 M00S01612.pfiles +++| SA7 A5 SAVE CONVERSION 02339 M00S01613.pfiles +++| ZR X6,PREX IF LEGAL ARGUMENT 02340 M00S01614.pfiles +++| MESSAGE (=C*ERROR IN PREFERRED RESIDENCE.*) 02341 M00S01615.pfiles +++| ABORT 02342 M00S01616.pfiles +++| 02343 M00S01617.pfiles +++| 02344 M00S01618.pfiles +++|**** 02345 M00S01619.pfiles +++|* TABLE OF PREFERRED RESIDENCES. 02346 M00S01620.pfiles +++| 02347 M00S01621.pfiles +++| 02348 M00S01622.pfiles +++| TPRES BSS 0
| Line S00150 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02349 M01S00150.v23l617 +++| VFD 42/0LL,18/RSLK 02350 M01S00151.v23l617 +++| VFD 42/0LD,18/RSDS 02351 M00S01623.pfiles +++| VFD 42/0LM,18/RSMS 02352 M00S01624.pfiles +++| VFD 42/0LN,18/RSNP
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02353 M01S00013.253l688 +++| VFD 42/0LT,18/RSTP 02354 M00S01625.pfiles +++| CON 0 02355 M00S01626.pfiles +++|**** 02356 M00S01627.pfiles +++| PRT SPACE 4,10 02357 M00S01628.pfiles +++|** PRT - PROCESS *RT* PARAMETER. 02358 M00S01629.pfiles +++|* 02359 M00S01630.pfiles +++|* ENTRY (RTIME) = 0 IF *RT* NOT SPECIFIED.
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 02360 M01S00090.pfile4 +++|* (PFLA) = COMMAND CODE. 02361 M01S00091.pfile4 +++|* (PFLB) = NUMBER OF FILES SPECIFIED - 1. 02362 M00S01631.pfiles +++|*
| Line S01632 Modification History | |
|---|---|
M01 (Removed by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 02363 M01S01632.pfile4 ---|* EXIT *RT* BIT SET IN FET IF REQUESTED.
| Line S00092 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 02364 M01S00092.pfile4 +++|* EXIT *RT* BIT SET IN FET IF REQUESTED, OR IF MORE THAN ONE 02365 M01S00093.pfile4 +++|* FILE SPECIFIED ON AN *ATTACH* OR *GET* COMMAND. 02366 M00S01633.pfiles +++|* 02367 M00S01634.pfiles +++|* USES X - 1, 6. 02368 M00S01635.pfiles +++|* A - 1, 6. 02369 M00S01636.pfiles +++| 02370 M00S01637.pfiles +++| 02371 M00S01638.pfiles +++| PRT SUBR ENTRY/EXIT 02372 M00S01639.pfiles +++| SA1 RTIME
| Line S01640 Modification History | |
|---|---|
M01 (Removed by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 02373 M01S01640.pfile4 ---| ZR X1,PRTX IF *RT* NOT SPECIFIED 02374 M01S01641.pfile4 ---| SA1 F+1 SET REAL-TIME PROCESSING BIT
| Line S00094 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 02375 M01S00094.pfile4 +++| NZ X1,PRT2 IF *RT* SPECIFIED 02376 M01S00095.pfile4 +++| SA1 PFLA 02377 M01S00096.pfile4 +++| SX6 X1-CCAT 02378 M01S00097.pfile4 +++| ZR X6,PRT1 IF *ATTACH* COMMAND 02379 M01S00098.pfile4 +++| SX6 X1-CCGT 02380 M01S00099.pfile4 +++| NZ X6,PRTX IF NOT *GET* COMMAND 02381 M01S00100.pfile4 +++| PRT1 SA1 PFLB 02382 M01S00101.pfile4 +++| ZR X1,PRTX IF ONLY ONE FILE SPECIFIED 02383 M01S00102.pfile4 +++| PRT2 SA1 F+1 SET REAL-TIME PROCESSING BIT 02384 M00S01642.pfiles +++| MX6 1 02385 M00S01643.pfiles +++| LX6 43-59 02386 M00S01644.pfiles +++| BX6 X1+X6 02387 M00S01645.pfiles +++| SA6 A1 02388 M00S01646.pfiles +++| EQ PRTX RETURN
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02389 M01S00152.v23l617 +++| PSR SPACE 4,10 02390 M01S00153.v23l617 +++|** PSR - PROCESS SPECIAL REQUEST SUBFUNCTION. 02391 M01S00154.v23l617 +++|* 02392 M01S00155.v23l617 +++|* EXIT *SREQ* SET TO *CE* OR *CP* IF EITHER IS PRESENT. 02393 M01S00156.v23l617 +++|* 02394 M01S00157.v23l617 +++|* USES A - 1, 2, 6. 02395 M01S00158.v23l617 +++|* X - 1, 2, 6. 02396 M01S00159.v23l617 +++|* 02397 M01S00160.v23l617 +++|* MACROS ABORT, MESSAGE. 02398 M01S00161.v23l617 +++| 02399 M01S00162.v23l617 +++| 02400 M01S00163.v23l617 +++| PSR SUBR ENTRY/EXIT 02401 M01S00164.v23l617 +++| SA1 CLRE ENSURE *CE* AND *CP* NOT BOTH SPECIFIED 02402 M01S00165.v23l617 +++| ZR X1,PSR1 IF *CE* PARAMETER NOT PRESENT 02403 M01S00166.v23l617 +++| SA2 CPNG GET *CP* PARAMETER 02404 M01S00167.v23l617 +++| BX6 X1 02405 M01S00168.v23l617 +++| ZR X2,PSR2 IF *CP* PARAMETER NOT PRESENT 02406 M01S00169.v23l617 +++| MESSAGE (=C* PARAMETERS CE AND CP ARE MUTUALLY EXCLUSIVE.*) 02407 M01S00170.v23l617 +++| ABORT 02408 M01S00171.v23l617 +++| 02409 M01S00172.v23l617 +++| PSR1 SA2 CPNG PLACE *CP* INTO *SREQ* (MAY BE ZERO) 02410 M01S00173.v23l617 +++| BX6 X2 02411 M01S00174.v23l617 +++| PSR2 SA6 SREQ PLACE EITHER *CE* OR *CP* INTO *SREQ* 02412 M01S00175.v23l617 +++| EQ PSRX RETURN 02413 M00S01647.pfiles +++| PSS SPACE 4,10 02414 M00S01648.pfiles +++|** PSS - PROCESS SUBSYSTEM SELECTION. 02415 M00S01649.pfiles +++|* 02416 M00S01650.pfiles +++|* ENTRY (SUBSYS) = VALUE FROM *SS* PARAMETER. 02417 M00S01651.pfiles +++|* 02418 M00S01652.pfiles +++|* EXIT (SUBSYS) = SUBSYSTEM VALUE (IF *SS* SPECIFIED). 02419 M00S01653.pfiles +++|* (PSSA) = CURRENT SUBSYSTEM. 02420 M00S01654.pfiles +++|* 02421 M00S01655.pfiles +++|* USES X - 0, 1, 5, 7. 02422 M00S01656.pfiles +++|* A - 1, 5, 7. 02423 M00S01657.pfiles +++|* 02424 M00S01658.pfiles +++|* CALLS CVT. 02425 M00S01659.pfiles +++| 02426 M00S01660.pfiles +++| 02427 M00S01661.pfiles +++| PSS SUBR ENTRY/EXIT 02428 M00S01662.pfiles +++| SA5 SUBSYS GET *SS* PARAMETER VALUE 02429 M00S01663.pfiles +++| GETSS PSSA GET CURRENT SUBSYSTEM 02430 M00S01664.pfiles +++| ZR X5,PSSX IF *SS* NOT SPECIFIED 02431 M00S01665.pfiles +++| MX0 42 02432 M00S01666.pfiles +++| SA1 PSSA 02433 M00S01667.pfiles +++| BX5 X0*X5 02434 M00S01668.pfiles +++| BX7 X1 02435 M00S01669.pfiles +++| ZR X5,PSS1 IF *SS* NOT EQUIVALENCED 02436 M00S01670.pfiles +++| SB5 TSSY 02437 M00S01671.pfiles +++| RJ CVT CONVERT ARGUMENT 02438 M00S01672.pfiles +++| ZR X6,PSS1 IF LEGAL VALUE 02439 M00S01673.pfiles +++| MESSAGE (=C* ERROR IN SUBSYSTEM.*) 02440 M00S01674.pfiles +++| ABORT 02441 M00S01675.pfiles +++| 02442 M00S01676.pfiles +++| PSS1 SX7 X7+40B SAVE SELECTED SUBSYSTEM 02443 M00S01677.pfiles +++| SA7 SUBSYS 02444 M00S01678.pfiles +++| EQ PSSX RETURN 02445 M00S01679.pfiles +++| 02446 M00S01680.pfiles +++| PSSA CON 0 CURRENT SUBSYSTEM 02447 M00S01681.pfiles +++| 02448 M00S01682.pfiles +++| 02449 M00S01683.pfiles +++|**** 02450 M00S01684.pfiles +++|* TABLE OF SUBSYSTEMS. 02451 M00S01685.pfiles +++| 02452 M00S01686.pfiles +++| 02453 M00S01687.pfiles +++| TSSY BSS 0 02454 M00S01688.pfiles +++| VFD 42/0LNULL,18/NULS 02455 M00S01689.pfiles +++| VFD 42/0LNUL,18/NULS 02456 M00S01690.pfiles +++| VFD 42/0LBASIC,18/BASS 02457 M00S01691.pfiles +++| VFD 42/0LBAS,18/BASS 02458 M00S01692.pfiles +++| VFD 42/0LFORTRAN,18/FORS 02459 M00S01693.pfiles +++| VFD 42/0LFOR,18/FORS 02460 M00S01694.pfiles +++| VFD 42/0LFTNTS,18/FTNS 02461 M00S01695.pfiles +++| VFD 42/0LFTN,18/FTNS 02462 M00S01696.pfiles +++| VFD 42/0LEXECUTE,18/EXES 02463 M00S01697.pfiles +++| VFD 42/0LEXE,18/EXES 02464 M00S01698.pfiles +++| VFD 42/0LBATCH,18/BATS 02465 M00S01699.pfiles +++| VFD 42/0LBAT,18/BATS 02466 M00S01700.pfiles +++| CON 0 02467 M00S01701.pfiles +++|**** 02468 M00S01702.pfiles +++| RNF SPACE 4,14 02469 M00S01703.pfiles +++|** RNF - RETURN NON-PRIMARY FILES. 02470 M00S01704.pfiles +++|* THIS SUBROUTINE USES THE LFM FUNCTION GETFNT TO RETURN ALL 02471 M00S01705.pfiles +++|* FILES CURRENTLY ASSIGNED TO JOB (EXCEPT THE PRIMARY FILE
| Line S01706 Modification History | |
|---|---|
M01 (Removed by) | ns2102 |
Seq # *Modification Id* Act ----------------------------+ 02472 M01S01706.ns2102 ---|* AND ANY FILE WITH *NDST* STATUS SET).
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2102 |
Seq # *Modification Id* Act ----------------------------+ 02473 M01S00001.ns2102 +++|* AND ANY FILE WITH *CBST*, *CKST* OR *NDST* STATUS SET). 02474 M00S01707.pfiles +++|* 02475 M00S01708.pfiles +++|* ENTRY NONE. 02476 M00S01709.pfiles +++|* 02477 M00S01710.pfiles +++|* EXIT NONE. 02478 M00S01711.pfiles +++|* 02479 M00S01712.pfiles +++|* USES X - 0, 1, 2, 3, 4, 7. 02480 M00S01713.pfiles +++|* A - 2, 7. 02481 M00S01714.pfiles +++|* B - 3, 4. 02482 M00S01715.pfiles +++|* 02483 M00S01716.pfiles +++|* MACROS GETFNT, RECALL, RETURN. 02484 M00S01717.pfiles +++| 02485 M00S01718.pfiles +++| 02486 M00S01719.pfiles +++| RNF SUBR ENTRY/EXIT 02487 M00S01720.pfiles +++| SA2 NODROP 02488 M00S01721.pfiles +++| NZ X2,RNFX IF ND PARAMETER SPECIFIED, EXIT 02489 M00S01722.pfiles +++| BX7 X7-X7 CLEAR BUFFER CONTROL WORD 02490 M00S01723.pfiles +++| SA7 GETTAB 02491 M00S01724.pfiles +++| SA2 RNFA MAKE GETFNT CALL 02492 M00S01725.pfiles +++| BX7 X2 02493 M00S01726.pfiles +++| MX0 42 02494 M00S01727.pfiles +++| RECALL F 02495 M00S01728.pfiles +++| SA7 F+CFPN 02496 M00S01729.pfiles +++| 02497 M00S01730.pfiles +++| RNF1 GETFNT F 02498 M00S01731.pfiles +++| SB3 B0 02499 M00S01732.pfiles +++| SB4 GLEN 02500 M00S01733.pfiles +++| MX3 -6 02501 M00S01734.pfiles +++| 02502 M00S01735.pfiles +++| RNF2 SA2 B3+GETTAB+1 02503 M00S01736.pfiles +++| ZR X2,RNFX IF END OF FILES 02504 M00S01737.pfiles +++| BX1 -X3*X2 02505 M00S01738.pfiles +++| SX7 X1-NDST 02506 M00S01739.pfiles +++| ZR X7,RNF3 IF *NDST* FILE
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2102 |
Seq # *Modification Id* Act ----------------------------+ 02507 M01S00002.ns2102 +++| SX7 X1-CBST 02508 M01S00003.ns2102 +++| SX4 X1-CKST 02509 M01S00004.ns2102 +++| ZR X7,RNF3 IF CHECKPOINT FILE 02510 M01S00005.ns2102 +++| ZR X4,RNF3 IF CHECKPOINT FILE 02511 M00S01740.pfiles +++| BX4 X0*X2 02512 M00S01741.pfiles +++| SX1 B1+ SET COMPLETE BIT 02513 M00S01742.pfiles +++| BX7 X1+X4 02514 M00S01743.pfiles +++| RECALL F 02515 M00S01744.pfiles +++| SA7 F 02516 M00S01745.pfiles +++| RETURN F 02517 M00S01746.pfiles +++| 02518 M00S01747.pfiles +++| RNF3 SB3 B3+2 02519 M00S01748.pfiles +++| NE B3,B4,RNF2 IF MORE FILES IN GETTAB 02520 M00S01749.pfiles +++| SA2 GETTAB 02521 M00S01750.pfiles +++| NZ X2,RNF1 IF MORE FILES TO PROCESS 02522 M00S01751.pfiles +++| EQ RNFX RETURN 02523 M00S01752.pfiles +++| 02524 M00S01753.pfiles +++|* GETFNT CONTROL WORD. 02525 M00S01754.pfiles +++| 02526 M00S01755.pfiles +++| RNFA VFD 12/GFILES,24/-PMSK,6/15B,18/GETTAB 02527 M00S01756.pfiles +++| SPACE 4 02528 M00S01757.pfiles +++|* COMMON DECKS. 02529 M00S01758.pfiles +++|
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 02530 M01S00025.pfile2 +++|*CALL COMCARM 02531 M00S01759.pfiles +++|*CALL COMCARG 02532 M00S01760.pfiles +++|*CALL COMCCIO
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 02533 M01S00026.pfile2 +++|*CALL COMCCPA 02534 M00S01761.pfiles +++|*CALL COMCCPM 02535 M00S01762.pfiles +++|*CALL COMCDXB 02536 M00S01763.pfiles +++|*CALL COMCLFM 02537 M00S01764.pfiles +++|*CALL COMCPFM
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 02538 M01S00027.pfile2 +++|*CALL COMCPOP 02539 M00S01765.pfiles +++|*CALL COMCRSP 02540 M00S01766.pfiles +++|*CALL COMCSTF 02541 M00S01767.pfiles +++|*CALL COMCSYS
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 02542 M01S00028.pfile2 +++|*CALL COMCUSB
| Line S00240 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02543 M01S00240.ns22000 +++|*CALL COMCVDT 02544 M01S00241.ns22000 +++|*CALL COMCVLC
| Line S01768 Modification History | |
|---|---|
M01 (Removed by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 02545 M01S01768.pfile2a ---| USE // 02546 M01S01769.pfile2a ---| 02547 M01S01770.pfile2a ---|** TABLE FOR FILE NAMES. 02548 M01S01771.pfile2a ---| 02549 M01S01772.pfile2a ---| TSFN EQU * SYSTEM FILE NAMES 02550 M01S01773.pfile2a ---| TPFN EQU TSFN+NFILES PERMANENT FILE NAMES 02551 M01S01774.pfile2a ---| 02552 M01S01775.pfile2a ---| IBUF EQU TPFN+NFILES INPUT BUFFER 02553 M01S01776.pfile2a ---| 02554 M01S01777.pfile2a ---| GETTAB EQU IBUF+BUFL GETFNT TABLE 02555 M01S01778.pfile2a ---| 02556 M01S01779.pfile2a ---| RFL= EQU GETTAB+GLEN+2
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 02557 M01S00005.pfile2a +++| SPACE 4,10 02558 M01S00006.pfile2a +++|* BUFFER DEFINITIONS. 02559 M01S00007.pfile2a +++| 02560 M01S00008.pfile2a +++| 02561 M01S00009.pfile2a +++| USE BUFFERS
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | pfile2a |
M02 (Removed by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 02562 M02S00010.ns2483 ---| FWABUF SET * 02563 M02S00011.ns2483 ---| LIST G 02564 M02S00012.ns2483 ---| 02565 M02S00013.ns2483 ---| BEGIN BSSN FWABUF
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 02566 M01S00001.ns2483 +++|
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 02567 M01S00014.pfile2a +++| TSFN BSSN NFILES SYSTEM FILE NAMES 02568 M01S00015.pfile2a +++| TPFN BSSN NFILES PERMANENT FILE NAMES 02569 M01S00016.pfile2a +++| IBUF BSSN BUFL INPUT BUFFER 02570 M01S00017.pfile2a +++| GETTAB BSSN GLEN+2 *GETFNT* TABLE 02571 M01S00018.pfile2a +++| PBUF BSSN PBUFL *PACKNAM* STRING BUFFER 02572 M01S00019.pfile2a +++| RFL= BSSN 0
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | pfile2a |
M02 (Removed by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 02573 M02S00020.ns2483 ---| END BSSN 02574 M02S00021.ns2483 ---| 02575 M02S00022.ns2483 ---| LIST * 02576 M00S01780.pfiles +++| SPACE 4 02577 M00S01781.pfiles +++| END
cdc/nos2.source/opl.opl871/deck/pfiles.001.txt · Last modified: (external edit)