cdc:nos2.source:opl.opl871:deck:pfiles.001
Deck PFILES Part 001
18 Modifications
Listing Sections
- Deck PFILES Start
- Deck PFILES Part 1 (Line 1220)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S00856 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
M03 (Updated by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01220 M03S00856.pfile4 ---| EQ PNC PROCESS NEXT CONTROL STATEMENT
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01221 M02S00085.pfile4 ---| EQ PNC PROCESS NEXT COMMAND 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 (Updated 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 (Updated by) | pfile4a |
Seq # *Modification Id* Act ----------------------------+ 01225 M02S00022.pfile4a ---| ZR X7,GET5 IF *STAGE INITIATED*/*PF UTILITY ACTIVE* 01226 M01S00002.pfile4a +++| ZR X7,GET5 IF WAITING STAGING, UTILITY OR INTERLOCK 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 (Updated by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01236 M02S00068.pfile6 ---| ZR X1,PNC IF NO FILES ARE BEING STAGED 01237 M01S00023.pfile6 +++| ZR X1,PNC IF NO RETRY NEEDED 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 (Updated by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01247 M02S00078.pfile6 ---| EQ GET1 RETRY FOR FILES WHICH ARE BEING STAGED 01248 M01S00024.pfile6 +++| EQ GET1 RETRY WITH *RT* CLEARED 01249 M01S00079.pfile4 +++| 01250 M01S00080.pfile4 +++|
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
M02 (Updated by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01251 M02S00081.pfile6 ---| GETA CON 0 NONZERO IF ANY FILES ARE BEING STAGED 01252 M01S00025.pfile6 +++| GETA CON 0 NONZERO IF RETRY WITHOUT *RT* REQUIRED 01253 M01S00857.pfiles +++| NEW SPACE 4,10 01254 M01S00858.pfiles +++|*** NEW (F/ND) 01255 M01S00859.pfiles +++|* 01256 M01S00860.pfiles +++|* CREATE A NEW PRIMARY FILE. ANY CURRENT WORKING FILE 01257 M01S00861.pfiles +++|* NAMED F IS RETURNED, AND A NEW (EMPTY) FILE F CREATED 01258 M01S00862.pfiles +++|* AND MADE USER S NEW PRIMARY FILE. 01259 M01S00863.pfiles +++|* 01260 M01S00864.pfiles +++|* F = NEW PRIMARY FILE NAME. 01261 M01S00865.pfiles +++|* ND = IF NOT SPECIFIED, ALL WORKING FILES WILL BE 01262 M01S00866.pfiles +++|* RETURNED (EXCEPT PRIMARY). 01263 M01S00867.pfiles +++| 01264 M01S00868.pfiles +++| 01265 M01S00869.pfiles +++| NEW BSS 0 ENTRY 01266 M01S00870.pfiles +++| SB7 CCNW SET FUNCTION CODE 01267 M01S00871.pfiles +++| RJ PFL PROCESS PERMANENT FILE REQUEST 01268 M01S00872.pfiles +++| SX1 B1 INDICATE FILE NOT BUSY 01269 M01S00873.pfiles +++| SA2 TSFN 01270 M01S00874.pfiles +++| SA3 A2+B1 01271 M01S00875.pfiles +++| NZ X3,ERR IF MORE THAN 1 WORKING FILE SPECIFIED 01272 M01S00876.pfiles +++| SA3 TPFN 01273 M01S00877.pfiles +++| NZ X3,ERR IF PERMANENT FILE NAME SPECIFIED 01274 M01S00878.pfiles +++| BX6 X1+X2 01275 M01S00879.pfiles +++| SA6 F 01276 M01S00880.pfiles +++| RETURN A6 RETURN EXISTING PRIMARY FILE 01277 M01S00881.pfiles +++| PRIMARY X2 CREATE NEW PRIMARY FILE 01278 M01S00882.pfiles +++| RJ RNF RETURN NON-PRIMARY FILES
| Line S00883 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01279 M02S00883.v23l617 ---| EQ PNC PROCESS NEXT CONTROL STATEMENT 01280 M01S00086.v23l617 +++| EQ PNC PROCESS NEXT COMMAND 01281 M01S00884.pfiles +++| OLD SPACE 4,15
| Line S00885 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01282 M02S00885.v23l617 ---|*** OLD (F=P/PW,UN,PN,R,NA,WB,ND) 01283 M01S00087.v23l617 +++|*** OLD (F=P/PW,UN,PN,R,RT,NA,WB,ND) 01284 M01S00886.pfiles +++|* 01285 M01S00887.pfiles +++|* RETRIEVE COPY OF PERMANENT FILE FOR SYSTEM USAGE. 01286 M01S00888.pfiles +++|* INDIRECT ACCESS FILES ONLY. 01287 M01S00889.pfiles +++|* FILE F WILL BE MADE USER S NEW PRIMARY FILE. 01288 M01S00890.pfiles +++|* 01289 M01S00891.pfiles +++|* F = WORKING FILE NAME. 01290 M01S00892.pfiles +++|* P = PERMANENT FILE NAME. 01291 M01S00893.pfiles +++|* PW = FILE PASSWORD.
| Line S00894 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01292 M02S00894.v23l617 ---|* UN = OPTIONAL USER NUMBER. 01293 M01S00088.v23l617 +++|* UN = USER NAME. 01294 M01S00895.pfiles +++|* PN = PACK NAME. 01295 M01S00896.pfiles +++|* R = RESIDENCE.
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01296 M02S00089.pfile6 ---|* RT = RETURN CONTROL AFTER STAGE INITIATED. DO NOT 01297 M01S00026.pfile6 +++|* RT = RETURN CONTROL AFTER STAGE INITIATED OR IF 01298 M01S00027.pfile6 +++|* A PF UTILITY IS ACTIVE. DO NOT 01299 M01S00090.v23l617 +++|* WAIT FOR FILE TO BE AVAILABLE. 01300 M01S00897.pfiles +++|* NA = NO ABORT IF ERROR ENCOUNTERED. 01301 M01S00898.pfiles +++|* WB = WAIT FOR PACK MOUNT. 01302 M01S00899.pfiles +++|* ND = IF NOT SPECIFIED, ALL WORKING FILES WILL BE 01303 M01S00900.pfiles +++|* RETURNED (EXCEPT PRIMARY). 01304 M01S00901.pfiles +++| 01305 M01S00902.pfiles +++| 01306 M01S00903.pfiles +++| OLD BSS 0 ENTRY 01307 M01S00904.pfiles +++| SB7 CCOL SET FUNCTION CODE 01308 M01S00905.pfiles +++| RJ PFL PROCESS PERMANENT FILE REQUEST 01309 M01S00906.pfiles +++| SX1 B1 INDICATE FILE NOT BUSY 01310 M01S00907.pfiles +++| SA2 TSFN 01311 M01S00908.pfiles +++| SA3 A2+B1 01312 M01S00909.pfiles +++| NZ X3,ERR IF MORE THAN 1 WORKING FILE SPECIFIED 01313 M01S00910.pfiles +++| BX6 X1+X2 01314 M01S00911.pfiles +++| SA6 F 01315 M01S00912.pfiles +++| OLD F,TPFN,USNM,PWD,PKNM,RES 01316 M01S00913.pfiles +++| RJ CES CHECK ERROR STATUS 01317 M01S00914.pfiles +++| RJ RNF RETURN NON-PRIMARY FILES
| Line S00915 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01318 M02S00915.v23l617 ---| EQ PNC PROCESS NEXT CONTROL STATEMENT 01319 M01S00091.v23l617 +++| EQ PNC PROCESS NEXT COMMAND 01320 M01S00916.pfiles +++| PACKNAM SPACE 4,10 01321 M01S00917.pfiles +++|*** PACKNAM(NAME) 01322 M01S00002.pfile2 +++|* PACKNAM(NAME,TYPE) 01323 M01S00918.pfiles +++|* PACKNAM(NAME,R=TYPE) 01324 M01S00919.pfiles +++|* PACKNAM(PN=NAME) 01325 M01S00920.pfiles +++|* PACKNAM(PN=NAME,R=TYPE) 01326 M01S00921.pfiles +++|* 01327 M01S00922.pfiles +++|* SET DEFAULT PACKNAME AND DEVICE TYPE. 01328 M01S00923.pfiles +++|* 01329 M01S00924.pfiles +++|* NAME = PACK NAME. 01330 M01S00925.pfiles +++|* TYPE = DEVICE TYPE. 01331 M01S00926.pfiles +++| 01332 M01S00927.pfiles +++| 01333 M01S00928.pfiles +++| PACKNAM BSS 0 ENTRY 01334 M01S00929.pfiles +++| SB1 1 01335 M01S00002.pfile2a +++| RJ IDF ISSUE DAYFILE MESSAGE
| Line S00930 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01336 M02S00930.pfile2 ---| RJ IDF ISSUE DAYFILE MESSAGE
| Line S00931 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01337 M02S00931.pfile2 ---| SA1 ACTR
| Line S00932 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01338 M02S00932.pfile2 ---| SB4 X1
| Line S00933 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01339 M02S00933.pfile2 ---| R= A4,ARGR
| Line S00934 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01340 M02S00934.pfile2 ---| ZR B4,PAC3 IF NO PARAMETERS (*PACKNAM.*)
| Line S00935 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01341 M02S00935.pfile2 ---| SX7 X4-1R=
| Line S00936 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01342 M02S00936.pfile2 ---| SB5 TARGP
| Line S00937 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01343 M02S00937.pfile2 ---| ZR X7,PAC1 IF FIRST PARAMETER IS EQUIVALENCED
| Line S00938 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01344 M02S00938.pfile2 ---| MX0 42
| Line S00939 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01345 M02S00939.pfile2 ---| BX6 X0*X4 SET FIRST PARAMETER AS PACKNAME
| Line S00940 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01346 M02S00940.pfile2 ---| SA6 PKNM
| Line S00941 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01347 M02S00941.pfile2 ---| SA4 A4+B1
| Line S00942 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01348 M02S00942.pfile2 ---| SB4 B4-B1
| Line S00943 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01349 M02S00943.pfile2 ---| ZR X4,PAC3 IF NO MORE PARAMETERS SPECIFIED
| Line S00944 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01350 M02S00944.pfile2 ---| SB5 B5+B1 DO NOT ALLOW *PN* SPECIFICATION
| Line S00945 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01351 M02S00945.pfile2 ---| PAC1 RJ ARG PROCESS EQUIVALENCED PARAMETERS 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 (Updated by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 01358 M02S00009.pfile2a ---| SB4 PACA 01359 M01S00003.pfile2a +++| SB4 PBUF 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 (Updated by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 01364 M02S00014.pfile2a ---| SB6 PACA 01365 M01S00004.pfile2a +++| SB6 PBUF 01366 M01S00015.pfile2 +++| SA6 USBC 01367 M01S00016.pfile2 +++| RJ ARM 01368 M01S00946.pfiles +++| NZ X1,ERR IF ARGUMENT ERROR 01369 M01S00006.pfile1 +++| RJ PRD PROCESS RESIDENCE DEFINITION 01370 M01S00947.pfiles +++| SA4 RES VALIDATE DEVICE TYPE
| Line S00948 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01371 M02S00948.pfile2 ---| ZR X4,PAC3 IF DEVICE TYPE NOT SPECIFIED 01372 M01S00017.pfile2 +++| ZR X4,PAC2 IF DEVICE TYPE NOT SPECIFIED
| Line S00949 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile1 |
Seq # *Modification Id* Act ----------------------------+ 01373 M02S00949.pfile1 ---| MX0 6
| Line S00950 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile1 |
Seq # *Modification Id* Act ----------------------------+ 01374 M02S00950.pfile1 ---| LX4 6
| Line S00951 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile1 |
Seq # *Modification Id* Act ----------------------------+ 01375 M02S00951.pfile1 ---| BX6 X0*X4
| Line S00952 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile1 |
Seq # *Modification Id* Act ----------------------------+ 01376 M02S00952.pfile1 ---| ZR X6,ERR IF DEVICE TYPE TOO SHORT
| Line S00953 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile1 |
Seq # *Modification Id* Act ----------------------------+ 01377 M02S00953.pfile1 ---| LX4 12
| Line S00954 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile1 |
Seq # *Modification Id* Act ----------------------------+ 01378 M02S00954.pfile1 ---| BX6 X0*X4
| Line S00955 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile1 |
Seq # *Modification Id* Act ----------------------------+ 01379 M02S00955.pfile1 ---| NZ X6,ERR IF DEVICE TYPE TOO LONG
| Line S00956 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile1 |
Seq # *Modification Id* Act ----------------------------+ 01380 M02S00956.pfile1 ---| LX0 6
| Line S00957 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile1 |
Seq # *Modification Id* Act ----------------------------+ 01381 M02S00957.pfile1 ---| BX6 X0*X4 01382 M01S00007.pfile1 +++| MX0 -6 01383 M01S00008.pfile1 +++| LX4 18 01384 M01S00009.pfile1 +++| BX6 -X0*X4
| Line S00958 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01385 M02S00958.pfile2 ---| NZ X6,PAC2 IF THREE CHARACTER DEVICE TYPE SPECIFIED 01386 M01S00018.pfile2 +++| NZ X6,PAC1 IF THREE CHARACTER DEVICE TYPE SPECIFIED 01387 M01S00959.pfiles +++| SX6 1R1 ADD *1* TO TWO CHARACTER DEVICE TYPE 01388 M01S00960.pfiles +++| BX4 X4+X6
| Line S00961 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01389 M02S00961.pfile2 ---| PAC2 SA1 PKNM
| Line S00962 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01390 M02S00962.pfile2 ---| ZR X1,PAC3 IF *PN* NOT SPECIFIED 01391 M01S00019.pfile2 +++| PAC1 SA1 PKNM 01392 M01S00020.pfile2 +++| ZR X1,PAC2 IF *PN* NOT SPECIFIED 01393 M01S00963.pfiles +++| BX6 X1+X4 COMBINE *PN* WITH *R* 01394 M01S00964.pfiles +++| SA6 A1
| Line S00965 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01395 M02S00965.pfile2 ---| PAC3 PACKNAM PKNM ENTER PACK NAME AND PACK TYPE 01396 M01S00021.pfile2 +++| PAC2 PACKNAM PKNM ENTER PACK NAME AND PACK TYPE
| Line S00966 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01397 M02S00966.v23l617 ---| EQ PNC PROCESS NEXT CONTROL STATEMENT 01398 M01S00092.v23l617 +++| EQ PNC PROCESS NEXT COMMAND
| Line S00967 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2 |
Seq # *Modification Id* Act ----------------------------+ 01399 M02S00967.pfile2 ---| PERMIT SPACE 4,20
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
M02 (Updated by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 01400 M02S00022.pfile2a ---|
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | pfile2 |
M02 (Updated by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 01401 M02S00023.pfile2a ---| PACA BSS 100 POSITIONAL PARAMETER BUFFER 01402 M01S00024.pfile2 +++| PERMIT SPACE 4,20
| Line S00968 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01403 M02S00968.ns22000 ---|*** PERMIT (F,UN1=M1,UN2=M2,...,UNN=MN/PN,R,NA,WB) 01404 M01S00104.ns22000 +++|*** PERMIT (P,UN1=M1,UN2=M2,...,UNN=MN/PN,R,NA,WB,XT) 01405 M01S00969.pfiles +++|* 01406 M01S00970.pfiles +++|* PERMIT USER TO ACCESS PERMANENT FILE WITH SPECIFIED MODE. 01407 M01S00971.pfiles +++|* 01408 M01S00972.pfiles +++|* P = PERMANENT FILE NAME.
| Line S00973 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01409 M02S00973.v23l617 ---|* UN = USER NUMBER TO BE PERMITTED. 01410 M01S00093.v23l617 +++|* UN = USER NAME TO BE PERMITTED. 01411 M01S00974.pfiles +++|* M = MODE OF ACCESS PERMITTED. 01412 M01S00975.pfiles +++|* W - WRITE, READ, EXECUTE APPEND 01413 M01S00976.pfiles +++|* R - READ, EXECUTE. 01414 M01S00977.pfiles +++|* E - EXECUTE. 01415 M01S00978.pfiles +++|* A - APPEND. 01416 M01S00979.pfiles +++|* N - NULL. 01417 M01S00980.pfiles +++|* PN = PACK NAME. 01418 M01S00981.pfiles +++|* R = RESIDENCE. 01419 M01S00982.pfiles +++|* NA = NO ABORT IF ERROR ENCOUNTERED. 01420 M01S00983.pfiles +++|* WB = WAIT FOR PACK MOUNT. 01421 M01S00105.ns22000 +++|* XT = PERMIT EXPIRATION DATE OR TERM. 01422 M01S00984.pfiles +++|* 01423 M01S00985.pfiles +++|* DEFAULT VALUES. 01424 M01S00986.pfiles +++|* M = READ. 01425 M01S00987.pfiles +++| 01426 M01S00988.pfiles +++| 01427 M01S00989.pfiles +++| PERMIT BSS 0 ENTRY 01428 M01S00990.pfiles +++| SB7 CCPM SET FUNCTION CODE 01429 M01S00991.pfiles +++| RJ PFL PROCESS PERMANENT FILE REQUEST 01430 M01S00992.pfiles +++| SA1 TSFN SET FILE NAME 01431 M01S00106.ns22000 +++| SA2 TPFN CHECK FOR LOCAL FILE NAME 01432 M01S00107.ns22000 +++| NZ X2,ERR IF LOCAL FILE SPECIFIED 01433 M01S00993.pfiles +++| SB7 CCPM SET PERMIT FUNCTION 01434 M01S00994.pfiles +++| SX6 B1 01435 M01S00995.pfiles +++| BX6 X6+X1 01436 M01S00996.pfiles +++| SA6 F 01437 M01S00997.pfiles +++| SB3 B1
| Line S00998 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01438 M02S00998.v23l617 ---| SA1 B3+TSFN READ FIRST USER NUMBER 01439 M01S00094.v23l617 +++| SA1 B3+TSFN READ FIRST USER NAME 01440 M01S00999.pfiles +++| ZR X1,ERR IF NO USER SPECIFIED 01441 M01S01000.pfiles +++| PER1 SA5 B3+TPFN MODE 01442 M01S01001.pfiles +++| RJ PMD CONVERT MODE
| Line S01002 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01443 M02S01002.ns22000 ---| PERMIT F,,B3+TSFN,MODE,PKNM,RES 01444 M01S00108.ns22000 +++| PERMIT F,,B3+TSFN,MODE,PKNM,RES,,,PXT 01445 M01S01003.pfiles +++| RJ CES CHECK ERROR STATUS 01446 M01S01004.pfiles +++| SB3 B3+B1 ADVANCE TO NEXT USER 01447 M01S01005.pfiles +++| SA1 B3+TSFN 01448 M01S01006.pfiles +++| NZ X1,PER1 IF ANOTHER USER TO PROCESS
| Line S01007 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01449 M02S01007.v23l617 ---| EQ PNC PROCESS NEXT CONTROL STATEMENT 01450 M01S00095.v23l617 +++| EQ PNC PROCESS NEXT COMMAND 01451 M01S01008.pfiles +++| PURGE SPACE 4,15 01452 M01S01009.pfiles +++|*** PURGE (P/UN,PW,PN,R,NA,WB) 01453 M01S01010.pfiles +++|* 01454 M01S01011.pfiles +++|* PURGE PERMANENT FILE. 01455 M01S01012.pfiles +++|* 01456 M01S01013.pfiles +++|* P = PERMANENT FILE NAME
| Line S01014 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01457 M02S01014.v23l617 ---|* UN = OPTIONAL USER NUMBER 01458 M01S00096.v23l617 +++|* UN = USER NAME. 01459 M01S01015.pfiles +++|* (USER MUST HAVE WRITE PERMISSION) 01460 M01S01016.pfiles +++|* PW = FILE PASSWORD 01461 M01S01017.pfiles +++|* PN = PACK NAME. 01462 M01S01018.pfiles +++|* R = RESIDENCE. 01463 M01S01019.pfiles +++|* NA = NO ABORT IF ERROR ENCOUNTERED. 01464 M01S01020.pfiles +++|* WB = WAIT FOR PACK MOUNT. 01465 M01S01021.pfiles +++| 01466 M01S01022.pfiles +++| 01467 M01S01023.pfiles +++| PURGE BSS 0 ENTRY 01468 M01S01024.pfiles +++| SB7 CCPG SET FUNCTION CODE 01469 M01S01025.pfiles +++| RJ PFL PROCESS PERMANENT FILE REQUEST 01470 M01S01026.pfiles +++| SB3 B0 PROCESS FILE NAME LIST 01471 M01S01027.pfiles +++| SA5 B3+TSFN 01472 M01S01028.pfiles +++| PUR1 SX6 B1 01473 M01S01029.pfiles +++| BX6 X6+X5 01474 M01S01030.pfiles +++| SA6 F 01475 M01S01031.pfiles +++| PURGE F,USNM,PWD,PKNM,RES 01476 M01S01032.pfiles +++| RJ CES CHECK ERROR STATUS 01477 M01S01033.pfiles +++| SB3 B3+B1 ADVANCE TO NEXT FILE 01478 M01S01034.pfiles +++| SA5 B3+TSFN 01479 M01S01035.pfiles +++| NZ X5,PUR1 IF ANOTHER FILE TO PROCESS
| Line S01036 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01480 M02S01036.v23l617 ---| EQ PNC PROCESS NEXT CONTROL STATEMENT 01481 M01S00097.v23l617 +++| EQ PNC PROCESS NEXT COMMAND 01482 M01S01037.pfiles +++| REPLACE SPACE 4,15
| Line S01038 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns2267 |
Seq # *Modification Id* Act ----------------------------+ 01483 M02S01038.ns2267 ---|*** REPLACE (F=P/PW,UN,PN,R,NA,WB) 01484 M01S00002.ns2267 +++|*** REPLACE (F=P/PW,M,UN,PN,R,NA,WB) 01485 M01S01039.pfiles +++|* 01486 M01S01040.pfiles +++|* REPLACE PERMANENT FILE WITH COPY OF WORKING FILE. 01487 M01S01041.pfiles +++|* INDIRECT ACCESS FILES ONLY. 01488 M01S01042.pfiles +++|* 01489 M01S01043.pfiles +++|* F = WORKING FILE NAME. 01490 M01S01044.pfiles +++|* P = PERMANENT FILE NAME 01491 M01S01045.pfiles +++|* PW = FILE PASSWORD 01492 M01S00003.ns2267 +++|* M = MODE OF ACCESS (IF FILE DOES NOT ALREADY EXIST).
| Line S01046 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01493 M02S01046.v23l617 ---|* UN = OPTIONAL USER NUMBER 01494 M01S00098.v23l617 +++|* UN = USER NAME. 01495 M01S01047.pfiles +++|* (USER MUST HAVE WRITE PERMISSION). 01496 M01S01048.pfiles +++|* PN = PACK NAME. 01497 M01S01049.pfiles +++|* R = RESIDENCE. 01498 M01S01050.pfiles +++|* NA = NO ABORT IF ERROR ENCOUNTERED. 01499 M01S01051.pfiles +++|* WB = WAIT FOR PACK MOUNT. 01500 M01S01052.pfiles +++| 01501 M01S01053.pfiles +++| 01502 M01S01054.pfiles +++| REPLACE BSS 0 ENTRY 01503 M01S01055.pfiles +++| SB7 CCRP SET FUNCTION CODE 01504 M01S01056.pfiles +++| RJ PFL PROCESS PERMANENT FILE REQUEST 01505 M01S01057.pfiles +++| SB3 B0 01506 M01S01058.pfiles +++| SA5 B3+TSFN SYSTEM FILE NAME 01507 M01S01059.pfiles +++| REP1 SX6 B1 01508 M01S01060.pfiles +++| BX6 X5+X6 01509 M01S01061.pfiles +++| SA6 F
| Line S01062 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns2267 |
Seq # *Modification Id* Act ----------------------------+ 01510 M02S01062.ns2267 ---| REPLACE F,B3+TPFN,USNM,PWD,,PKNM,RES 01511 M01S00004.ns2267 +++| REPLACE F,B3+TPFN,USNM,PWD,,PKNM,RES,,,MODE 01512 M01S01063.pfiles +++| RJ CES CHECK ERROR STATUS 01513 M01S01064.pfiles +++| SB3 B3+B1 ADVANCE TO NEXT FILE 01514 M01S01065.pfiles +++| SA5 B3+TSFN 01515 M01S01066.pfiles +++| NZ X5,REP1 IF ANOTHER FILE TO PROCESS
| Line S01067 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01516 M02S01067.v23l617 ---| EQ PNC PROCESS NEXT CONTROL STATEMENT 01517 M01S00099.v23l617 +++| EQ PNC PROCESS NEXT COMMAND 01518 M01S01068.pfiles +++| SAVE SPACE 4,25
| Line S01069 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01519 M02S01069.ns22000 ---|*** SAVE (F=P/PW,CT,M,BR,SS,PN,R,NA,WB)
| Line S00109 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01520 M02S00109.v23l617 ---|*** SAVE (F=P/PW,CT,M,BR,SS,PN,R,NA,WB,XT,AL) 01521 M01S00100.v23l617 +++|*** SAVE (F=P/PW,CT,M,BR,SS,PR,PN,R,NA,WB,XT,AL,AC) 01522 M01S01070.pfiles +++|* 01523 M01S01071.pfiles +++|* SAVE COPY OF WORKING FILE ON PERMANENT FILES. 01524 M01S01072.pfiles +++|* IF PRIMARY FILE IS SAVED, ASSOCIATED SUBSYSTEM IS 01525 M01S01073.pfiles +++|* SET INTO CATALOG. 01526 M01S01074.pfiles +++|* INDIRECT ACCESS FILES ONLY. 01527 M01S01075.pfiles +++|* 01528 M01S01076.pfiles +++|* F = WORKING FILE NAME. 01529 M01S01077.pfiles +++|* P = PERMANENT FILE NAME 01530 M01S01078.pfiles +++|* PW = FILE PASSWORD 01531 M01S01079.pfiles +++|* CT = FILE CATEGORY 01532 M01S01080.pfiles +++|* M = MODE OF ACCESS 01533 M01S01081.pfiles +++|* BR = BACKUP REQUIREMENT. 01534 M01S01082.pfiles +++|* SS = SUBSYSTEM. 01535 M01S01083.pfiles +++|* PN = PACK NAME. 01536 M01S01084.pfiles +++|* R = RESIDENCE. 01537 M01S00101.v23l617 +++|* PR = PREFERRED RESIDENCE. 01538 M01S01085.pfiles +++|* NA = NO ABORT IF ERROR ENCOUNTERED. 01539 M01S01086.pfiles +++|* WB = WAIT FOR PACK MOUNT. 01540 M01S00110.ns22000 +++|* XT = PASSWORD EXPIRATION DATE OR TERM. 01541 M01S00111.ns22000 +++|* AL = FILE ACCESS LEVEL. 01542 M01S00102.v23l617 +++|* AC = ALTERNATE CATLIST PERMISSION. 01543 M01S01087.pfiles +++|* 01544 M01S01088.pfiles +++|* DEFAULT VALUES. 01545 M01S01089.pfiles +++|* PW = 0. 01546 M01S01090.pfiles +++|* CT = PRIVATE. 01547 M01S01091.pfiles +++|* M = WRITE. 01548 M01S01092.pfiles +++|* NA = 0. 01549 M01S00103.v23l617 +++|* AC = NO. 01550 M01S01093.pfiles +++| 01551 M01S01094.pfiles +++| 01552 M01S01095.pfiles +++| SAVE BSS 0 ENTRY 01553 M01S01096.pfiles +++| SB7 CCSV SET FUNCTION CODE 01554 M01S01097.pfiles +++| RJ PFL PROCESS PERMANENT FILE REQUEST 01555 M01S01098.pfiles +++| RJ GPN GET PRIMARY FILE NAME 01556 M01S01099.pfiles +++| SB3 B0 01557 M01S01100.pfiles +++| SA5 B3+TSFN SYSTEM FILE NAME 01558 M01S01101.pfiles +++| SAV1 SX6 B1 01559 M01S01102.pfiles +++| BX6 X6+X5 01560 M01S01103.pfiles +++| SA6 F 01561 M01S01104.pfiles +++| SA1 SUBSYS 01562 M01S01105.pfiles +++| NZ X1,SAV2 IF *SS* SPECIFIED 01563 M01S01106.pfiles +++| SA1 GETTAB+1 CHECK FOR PRIMARY FILE 01564 M01S01107.pfiles +++| BX1 X1-X5 01565 M01S01108.pfiles +++| NZ X1,SAV2 IF NOT MATCH 01566 M01S01109.pfiles +++| SA2 PSSA GET CURRENT SUBSYSTEM 01567 M01S01110.pfiles +++| BX6 X2 01568 M01S01111.pfiles +++| SA6 SUBSYS
| Line S01112 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01569 M02S01112.ns22000 ---| SAV2 SAVE F,B3+TPFN,PWD,,CTG,MODE,PKNM,RES,,SUBSYS,BREQ
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01570 M02S00112.v23l617 ---| SAV2 SAVE F,B3+TPFN,PWD,,CTG,MODE,PKNM,RES,,SUBSYS,BREQ,,,PXT,FAL 01571 M01S00104.v23l617 +++| SAV2 SAVE F,B3+TPFN,PWD,,CTG,MODE,PKNM,RES,,SUBSYS,BREQ,PRES,,PXT 01572 M01S00105.v23l617 +++|,,FAL,ALCT 01573 M01S01113.pfiles +++| RJ CES CHECK ERROR STATUS 01574 M01S01114.pfiles +++| SB3 B3+B1 ADVANCE TO NEXT FILE 01575 M01S01115.pfiles +++| SA5 B3+TSFN 01576 M01S01116.pfiles +++| NZ X5,SAV1 IF ANOTHER FILE TO PROCESS
| Line S01117 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01577 M02S01117.v23l617 ---| EQ PNC PROCESS NEXT CONTROL STATEMENT 01578 M01S00106.v23l617 +++| EQ PNC PROCESS NEXT COMMAND 01579 M01S01118.pfiles +++| TITLE SUBROUTINES.
| Line S01119 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01580 M02S01119.pfile6 ---| CES SPACE 4,15 01581 M01S00028.pfile6 +++| CES SPACE 4,20 01582 M01S01120.pfiles +++|** CES - CHECK ERROR STATUS. 01583 M01S01121.pfiles +++|*
| Line S01122 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01584 M02S01122.pfile6 ---|* ABORT IF *WAIT BUSY* WAS SPECIFIED, AND AN ERROR
| Line S01123 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile4 |
M03 (Updated by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01585 M03S01123.pfile6 ---|* OTHER THAN *FILE BUSY* IS DETECTED.
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
M02 (Updated by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01586 M02S00082.pfile6 ---|* OTHER THAN *FILE BUSY* OR *STAGE INITIATED* IS DETECTED. 01587 M01S00029.pfile6 +++|* ABORT IF *NA* WAS NOT SPECIFIED, AND AN ERROR OTHER THAN
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
M02 (Updated by) | pfile4a |
Seq # *Modification Id* Act ----------------------------+ 01588 M02S00030.pfile4a ---|* *FILE BUSY*, *STAGE INITIATED* OR *PF UTILITY ACTIVE*
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
M02 (Updated by) | pfile4a |
Seq # *Modification Id* Act ----------------------------+ 01589 M02S00031.pfile4a ---|* IS DETECTED. 01590 M01S00003.pfile4a +++|* *FILE BUSY*, *FILE INTERLOCKED*, *STAGE INITIATED* OR 01591 M01S00004.pfile4a +++|* *PF UTILITY ACTIVE* IS DETECTED. 01592 M01S01124.pfiles +++|* 01593 M01S01125.pfiles +++|* ENTRY (X2) = FET ADDRESS. 01594 M01S01126.pfiles +++|* 01595 M01S01127.pfiles +++|* EXIT (X6) = 0 IF *FILE BUSY* ERROR.
| Line S01128 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01596 M02S01128.pfile4 ---|* (ERRFLG) .NE. 0 IF ERROR OTHER THAN *FILE BUSY*.
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
M02 (Updated by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01597 M02S00083.pfile6 ---|* (X7) = 0 IF *STAGE INITIATED* STATUS.
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
M02 (Updated by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01598 M02S00084.pfile6 ---|* (ERRFLG) .NE. 0 IF ERROR OTHER THAN *FILE BUSY*
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | pfile4 |
M02 (Updated by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01599 M02S00085.pfile6 ---|* OR *STAGE INITIATED*.
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
M02 (Updated by) | pfile4a |
Seq # *Modification Id* Act ----------------------------+ 01600 M02S00032.pfile4a ---|* (X7) = 0 IF *STAGE INITIATED* OR *PF UTILITY ACTIVE*. 01601 M01S00005.pfile4a +++|* (X7) = 0 IF *STAGE INITIATED*, *PF UTILITY ACTIVE* 01602 M01S00006.pfile4a +++|* OR *FILE INTERLOCKED*. 01603 M01S00033.pfile6 +++|* (ERRFLG) .NE. 0 IF ERROR OTHER THAN *FILE BUSY*,
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | pfile6 |
M02 (Updated by) | pfile4a |
Seq # *Modification Id* Act ----------------------------+ 01604 M02S00034.pfile4a ---|* *STAGE INITIATED* OR *PF UTILITY ACTIVE*. 01605 M01S00007.pfile4a +++|* *STAGE INITIATED*, *PF UTILITY ACTIVE* OR 01606 M01S00008.pfile4a +++|* *FILE INTERLOCKED*. 01607 M01S01129.pfiles +++|*
| Line S01130 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01608 M02S01130.pfile4 ---|* USES X - 1, 6. 01609 M01S00086.pfile4 +++|* USES X - 1, 6, 7. 01610 M01S01131.pfiles +++|* A - 1, 6. 01611 M01S01132.pfiles +++|* 01612 M01S01133.pfiles +++|* MACROS ABORT. 01613 M01S01134.pfiles +++| 01614 M01S01135.pfiles +++| 01615 M01S01136.pfiles +++| CES SUBR ENTRY/EXIT 01616 M01S01137.pfiles +++| MX6 -8 CHECK ERROR STATUS FIELD 01617 M01S01138.pfiles +++| SA1 X2 01618 M01S01139.pfiles +++| AX1 10 01619 M01S01140.pfiles +++| BX1 -X6*X1 01620 M01S00087.pfile4 +++| SX6 X1-/ERRMSG/FBS 01621 M01S00088.pfile4 +++| SX7 X1-/ERRMSG/PSI 01622 M01S01141.pfiles +++| ZR X1,CESX IF NO ERROR
| Line S01142 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 01623 M02S01142.pfile4 ---| SX6 X1-/ERRMSG/FBS 01624 M01S01143.pfiles +++| ZR X6,CESX IF *FILE BUSY* STATUS 01625 M01S00089.pfile4 +++| ZR X7,CESX IF *STAGE INITIATED* STATUS 01626 M01S00035.pfile6 +++| SX7 X1-/ERRMSG/PFA 01627 M01S00036.pfile6 +++| ZR X7,CESX IF *PF UTILITY ACTIVE* STATUS 01628 M01S00009.pfile4a +++| SX7 X1-/ERRMSG/FIN 01629 M01S00010.pfile4a +++| ZR X7,CESX IF *FILE INTERLOCKED* STATUS 01630 M01S01144.pfiles +++| SA6 ERRFLG SAVE ERROR FLAG
| Line S01145 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01631 M02S01145.pfile6 ---| SA1 WBUSY
| Line S01146 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile6 |
Seq # *Modification Id* Act ----------------------------+ 01632 M02S01146.pfile6 ---| ZR X1,CESX IF *NA* OR *RT* SPECIFIED RATHER THAN *WB* 01633 M01S00037.pfile6 +++| SA1 NABT 01634 M01S00038.pfile6 +++| NZ X1,CESX IF *NA* SPECIFIED RATHER THAN *WB* OR *RT* 01635 M01S01147.pfiles +++| ABORT ABORT (ERROR MESSAGE ISSUED BY *PFM*) 01636 M01S01148.pfiles +++| CTJ SPACE 4,9 01637 M01S01149.pfiles +++|** CTJ - CHECK FOR *TXOT* JOB. 01638 M01S01150.pfiles +++|* 01639 M01S01151.pfiles +++|* EXIT (X2) = 0, IF *TXOT* JOB. 01640 M01S01152.pfiles +++|* 01641 M01S01153.pfiles +++|* USES X - 0, 1. 01642 M01S01154.pfiles +++|* A - 1. 01643 M01S01155.pfiles +++| 01644 M01S01156.pfiles +++| 01645 M01S01157.pfiles +++| CTJ SUBR ENTRY/EXIT 01646 M01S01158.pfiles +++| SA1 JOPR FETCH ORIGIN TYPE FROM COMMUNICATION AREA 01647 M01S01159.pfiles +++| LX1 -24 01648 M01S01160.pfiles +++| MX0 -12 01649 M01S01161.pfiles +++| BX1 -X0*X1 01650 M01S01162.pfiles +++| SX2 X1-TXOT 01651 M01S01163.pfiles +++| EQ CTJX EXIT 01652 M01S01164.pfiles +++| CVT SPACE 4,15 01653 M01S01165.pfiles +++|** CVT - CONVERT ARGUMENT 01654 M01S01166.pfiles +++|* 01655 M01S01167.pfiles +++|* ENTRY (B5) = ADDRESS OF TABLE
| Line S01168 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile3 |
Seq # *Modification Id* Act ----------------------------+ 01656 M02S01168.pfile3 ---|* (X0) = 42 BIT MASK. 01657 M01S01169.pfiles +++|* (X5) = ARGUMENT 01658 M01S01170.pfiles +++|* TABLE OF ARGUMENTS IN FOLLOWING FORMAT. 01659 M01S01171.pfiles +++|*T, 42/ARGUMENT,18/VALUE
Figure
01660 M01S01172.pfiles +++|* 01661 M01S01173.pfiles +++|* EXIT (X6) = 0 IF LEGAL ARGUMENT 01662 M01S01174.pfiles +++|* (X7) = EQUIVALENT VALUE (RIGHT JUSTIFIED) 01663 M01S01175.pfiles +++|* 01664 M01S01176.pfiles +++|* CALLS *NONE* 01665 M01S01177.pfiles +++|*
| Line S01178 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile3 |
Seq # *Modification Id* Act ----------------------------+ 01666 M02S01178.pfile3 ---|* USES X - 0, 2, 4. 01667 M01S00001.pfile3 +++|* USES X - 0, 2, 4, 5, 6, 7. 01668 M01S01179.pfiles +++|* A - 4. 01669 M01S01180.pfiles +++|* B - 5. 01670 M01S01181.pfiles +++| 01671 M01S01182.pfiles +++| 01672 M01S01183.pfiles +++| CVT SUBR ENTRY/EXIT 01673 M01S00002.pfile3 +++| MX0 42 01674 M01S01184.pfiles +++| MX6 1 01675 M01S01185.pfiles +++| BX5 X0*X5 01676 M01S01186.pfiles +++| CVT1 SA4 B5 READ NEXT TABLE ENTRY 01677 M01S01187.pfiles +++| ZR X4,CVTX IF END OF TABLE 01678 M01S01188.pfiles +++| SB5 B5+B1 ADVANCE TABLE POINTER 01679 M01S01189.pfiles +++| BX2 X0*X4 PICK ARGUMENT 01680 M01S01190.pfiles +++| BX7 -X0*X4 PICK EQUIVALENCE 01681 M01S01191.pfiles +++| IX6 X2-X5 01682 M01S01192.pfiles +++| ZR X6,CVTX IF ARGUMENT FOUND 01683 M01S01193.pfiles +++| EQ CVT1 LOOP FOR NEXT TABLE VALUE
| Line S01194 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01684 M02S01194.ns22000 ---| ESP SPACE 4,20 01685 M01S00113.ns22000 +++| ESP SPACE 4,25 01686 M01S01195.pfiles +++|** ESP - ENTER SECURE PASSWORD. 01687 M01S01196.pfiles +++|* 01688 M01S01197.pfiles +++|* THIS SUBROUTINE PROCESSES SECURELY ENTERED PASSWORDS. 01689 M01S01198.pfiles +++|* IF OUTPUT FILE IS ASSIGNED TO A TERMINAL THE MESSAGE 01690 M01S01199.pfiles +++|* *PASSWORD:* ALONG WITH BLANK OUT CHARACTERS FOR SECURE 01691 M01S01200.pfiles +++|* ENTRY OF PASSWORD WILL BE SENT TO THE TERMINAL. 01692 M01S01201.pfiles +++|* FILE *INPUT* WILL THEN BE READ FOR THE PASSWORD. 01693 M01S01202.pfiles +++|* FOR BATCH JOBS FILE *INPUT* IS READ FOR THE PASSWORD. 01694 M01S01203.pfiles +++|*
| Line S01204 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01695 M02S01204.ns22000 ---|* ENTRY NONE. 01696 M01S00114.ns22000 +++|* ENTRY (PFLA) = COMMAND CODE. 01697 M01S01205.pfiles +++|* 01698 M01S01206.pfiles +++|* EXIT (X6) = PASSWORD. 01699 M01S00115.ns22000 +++|* (B7) = COMMAND CODE.
| Line S01207 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01700 M02S01207.v23l617 ---|* TO *ABT* IF ILLEGAL PASSWORD ENCOUNTERED. 01701 M01S00107.v23l617 +++|* TO *ABT* IF INCORRECT PASSWORD ENCOUNTERED. 01702 M01S01208.pfiles +++|* 01703 M01S01209.pfiles +++|* USES X - ALL. 01704 M01S01210.pfiles +++|* A - 1, 2, 6, 7. 01705 M01S01211.pfiles +++|* B - 2, 3, 4, 5, 6, 7. 01706 M01S01212.pfiles +++|* 01707 M01S01213.pfiles +++|* CALLS STF. 01708 M01S01214.pfiles +++|* 01709 M01S01215.pfiles +++|* MACROS CSET, MESSAGE, READSKP, WRITE. 01710 M01S01216.pfiles +++| 01711 M01S01217.pfiles +++| 01712 M01S01218.pfiles +++| ESP SUBR ENTRY/EXIT 01713 M01S01219.pfiles +++| SX2 O SET ADDRESS OF FET 01714 M01S01220.pfiles +++| RJ STF CHECK IF OUTPUT ASSIGNED TO TERMINAL 01715 M01S01221.pfiles +++| NZ X6,ESP1 IF OUTPUT NOT ASSIGNED TO TERMINAL 01716 M01S01222.pfiles +++| SA1 X2+B1 SET BUFFER FULL 01717 M01S01223.pfiles +++| SX7 X1 01718 M01S01224.pfiles +++| SX6 X1+PMSGL 01719 M01S01225.pfiles +++| SA6 A1+B1 SET IN BELOW DATA FOR MESSAGE 01720 M01S01226.pfiles +++| SA7 A6+B1 SET OUT = FIRST 01721 M01S01227.pfiles +++| WRITE X2,* FORCE WRITE BIT SET 01722 M01S01228.pfiles +++| SA1 O 01723 M01S01229.pfiles +++| MX0 42 01724 M01S01230.pfiles +++| BX2 X0*X1 FILE NAME FOR OUTPUT POINTER 01725 M01S01231.pfiles +++| SX1 A1 SET ADDRESS OF FET FOR POINTER 01726 M01S01232.pfiles +++| BX6 X1+X2 01727 M01S01233.pfiles +++| SA6 ARGR FORCE WRITE BEFORE READ ON ROLLOUT 01728 M01S01234.pfiles +++| ESP1 SX2 I SET ADDRESS OF FET 01729 M01S01235.pfiles +++| RJ STF CHECK IF INPUT ASSIGNED TO TERMINAL 01730 M01S01236.pfiles +++| NZ X6,ESP2 IF INPUT NOT ASSIGNED TO TERMINAL 01731 M01S01237.pfiles +++| CSET NORMAL ENSURE TERMINAL IN NORMAL MODE 01732 M01S01238.pfiles +++| ESP2 READSKP I,,R READ INPUT FOR PASSWORD 01733 M01S01239.pfiles +++| SA1 I+2 DETERMINE NUMBER OF WORDS READ 01734 M01S01240.pfiles +++| SA2 A1+B1 01735 M01S01241.pfiles +++| IX6 X1-X2 01736 M01S01242.pfiles +++| ZR X6,ESP10 IF NO DATA ENTERED (NULL PASSWORD) 01737 M01S01243.pfiles +++| SB5 X6 01738 M01S01244.pfiles +++| SB3 B0 01739 M01S01245.pfiles +++| BX5 X5-X5 01740 M01S01246.pfiles +++| BX6 X6-X6 01741 M01S01247.pfiles +++| SB4 60 01742 M01S01248.pfiles +++| SB7 B0 01743 M01S01249.pfiles +++| MX0 -6 01744 M01S01250.pfiles +++| ESP3 SA2 IBUF+B3 PICK UP NEXT DATA WORD 01745 M01S01251.pfiles +++| SB2 B0+ 01746 M01S01252.pfiles +++| ESP4 LX2 6 01747 M01S01253.pfiles +++| BX1 -X0*X2 PICK UP CHARACTER TO CHECK 01748 M01S01254.pfiles +++| NZ X1,ESP5 IF CHARACTER NOT ZERO 01749 M01S01255.pfiles +++| NZ X5,ESP10 IF 00 ENCOUNTERED 01750 M01S01256.pfiles +++| SX5 B1+ SET FLAG TO INDICATE 0 ENCOUNTERED
| Line S01257 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile5 |
Seq # *Modification Id* Act ----------------------------+ 01751 M02S01257.pfile5 ---| EQ ESP9 01752 M01S00001.pfile5 +++| EQ ESP9 CHECK FOR MORE CHARACTERS 01753 M01S01258.pfiles +++| 01754 M01S01259.pfiles +++| ESP5 NZ X5,ESP11 IF PREVIOUS CHARACTER = COLON 01755 M01S01260.pfiles +++| ESP6 SB6 X1-1R9 01756 M01S01261.pfiles +++| GT B6,ESP8 IF NOT ALPHANUMERIC CHARACTER 01757 M01S01262.pfiles +++| ESP7 SB4 B4-6 01758 M01S01263.pfiles +++| LX7 X1,B4 01759 M01S01264.pfiles +++| BX6 X7+X6 01760 M01S01265.pfiles +++| SB7 B7+1 01761 M01S01266.pfiles +++| SB6 B7-7 01762 M01S01267.pfiles +++| GT B6,ESP11 IF PASSWORD .GT. SEVEN CHARACTERS
| Line S01268 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile5 |
Seq # *Modification Id* Act ----------------------------+ 01763 M02S01268.pfile5 ---| EQ ESP9 01764 M01S00002.pfile5 +++| EQ ESP9 CHECK FOR MORE CHARACTERS 01765 M01S01269.pfiles +++| 01766 M01S01270.pfiles +++| ESP8 SX4 X1-1R* 01767 M01S01271.pfiles +++| ZR X4,ESP7 IF CHARACTER = * 01768 M01S01272.pfiles +++| SX3 X1-1R 01769 M01S01273.pfiles +++| NZ X3,ESP11 IF CHARACTER NOT BLANK 01770 M01S01274.pfiles +++| ESP9 SB2 B2+B1 01771 M01S01275.pfiles +++| SB6 B2-10 01772 M01S01276.pfiles +++| LT B6,ESP4 IF NOT END OF WORD 01773 M01S01277.pfiles +++| SB3 B3+B1 01774 M01S01278.pfiles +++| SB6 B5-B3 01775 M01S01279.pfiles +++| EQ B6,ESP11 IF TOO MUCH DATA ENTERED
| Line S01280 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile5 |
Seq # *Modification Id* Act ----------------------------+ 01776 M02S01280.pfile5 ---| EQ ESP3 01777 M01S00003.pfile5 +++| EQ ESP3 GET NEXT WORD 01778 M01S01281.pfiles +++| 01779 M01S01282.pfiles +++| ESP10 SA1 I+1 01780 M01S01283.pfiles +++| BX7 X1 01781 M01S01284.pfiles +++| SA7 A1+B1 SET IN = FIRST FOR INPUT BUFFER 01782 M01S00116.ns22000 +++| SA1 PFLA RESET (B7) = COMMAND CODE 01783 M01S00117.ns22000 +++| SB7 X1 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 M01S01285.pfiles +++| EQ ESPX RETURN 01789 M01S01286.pfiles +++|
| Line S01287 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01790 M02S01287.v23l617 ---| ESP11 MESSAGE (=C* ILLEGAL PASSWORD.*) 01791 M01S00108.v23l617 +++| ESP11 MESSAGE (=C* INCORRECT PASSWORD.*) 01792 M01S01288.pfiles +++| ABORT 01793 M01S01289.pfiles +++| GPN SPACE 4,21 01794 M01S01290.pfiles +++|** GPN - GET PRIMARY FILE NAME. 01795 M01S01291.pfiles +++|* THIS SUBROUTINE IS USED FOR DETERMINING THE NAME OF 01796 M01S01292.pfiles +++|* THE USER S PRIMARY FILE- IF ONE EXISTS. 01797 M01S01293.pfiles +++|* 01798 M01S01294.pfiles +++|* A LFM GETFNT CALL IS MADE, WITH SELECTIVITY OF PRIMARY 01799 M01S01295.pfiles +++|* TYPE ONLY, AND CONTROL BITS SET FOR NORMAL TREATMENT 01800 M01S01296.pfiles +++|* OF CHECKPOINT FILES AND NO MODIFICATION OF FST ENTRIES. 01801 M01S01297.pfiles +++|* 01802 M01S01298.pfiles +++|* ENTRY (GPNB) .NE. 0 IMPLIES PRIMARY HAS ALREADY BEEN 01803 M01S01299.pfiles +++|* FETCHED BY A DEFAULT CALL. 01804 M01S01300.pfiles +++|* 01805 M01S01301.pfiles +++|* EXIT IF (GPNB) = 0, 01806 M01S01302.pfiles +++|* (GETTAB+1) AND (X6) .NE. 0 IMPLIES PRIMARY EXISTS AND 01807 M01S01303.pfiles +++|* CONTAINS NAME (LEFT 01808 M01S01304.pfiles +++|* JUSTIFIED WITH ZERO FILL). 01809 M01S01305.pfiles +++|* (GETTAB+1) AND (X6) = 0 IMPLIES NO PRIMARY EXISTS. 01810 M01S01306.pfiles +++|* 01811 M01S01307.pfiles +++|* USES X - 2, 3, 6, 7. 01812 M01S01308.pfiles +++|* A - 2, 6, 7. 01813 M01S01309.pfiles +++|* 01814 M01S01310.pfiles +++|* MACROS GETFNT. 01815 M01S01311.pfiles +++| 01816 M01S01312.pfiles +++| 01817 M01S01313.pfiles +++| GPN SUBR ENTRY/EXIT 01818 M01S01314.pfiles +++| SA2 GPNB 01819 M01S01315.pfiles +++| NZ X2,GPNX IF HAVE ALREADY FETCHED PRIMARY, EXIT 01820 M01S01316.pfiles +++| BX7 X7-X7 CLEAR BUFFER CONTROL WORD 01821 M01S01317.pfiles +++| SA7 GETTAB 01822 M01S01318.pfiles +++| SA2 GPNA 01823 M01S01319.pfiles +++| BX6 X2 01824 M01S01320.pfiles +++| SA6 F+CFPN 01825 M01S01321.pfiles +++| GETFNT F 01826 M01S01322.pfiles +++| BX6 X6-X6 CLEAR PFM LOCATION FET+CFPN 01827 M01S01323.pfiles +++| SA6 F+CFPN 01828 M01S01324.pfiles +++| SA2 GETTAB+1 01829 M01S01325.pfiles +++| MX3 42 MASK OUT ALL BUT NAME OF PRIMARY 01830 M01S01326.pfiles +++| BX6 X2*X3 01831 M01S01327.pfiles +++| SA6 A2 01832 M01S01328.pfiles +++| EQ GPNX EXIT 01833 M01S01329.pfiles +++| 01834 M01S01330.pfiles +++|* GETFNT CONTROL WORD. 01835 M01S01331.pfiles +++| 01836 M01S01332.pfiles +++| PRIM DECMIC PTFT 01837 M01S01333.pfiles +++| PMSK EQU 1S"PRIM" 01838 M01S01334.pfiles +++| GPNA VFD 12/1,24/PMSK,6/15B,18/GETTAB 01839 M01S01335.pfiles +++| GPNB DATA 0 PRIMARY FETCHED FLAG 01840 M01S01336.pfiles +++| IDF SPACE 4,10 01841 M01S01337.pfiles +++|** IDF - ISSUE DAYFILE MESSAGE. 01842 M01S01338.pfiles +++|*
| Line S01339 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01843 M02S01339.v23l617 ---|* ENTRY (CCDR) = CONTROL STATEMENT. 01844 M01S00109.v23l617 +++|* ENTRY (CCDR) = COMMAND. 01845 M01S01340.pfiles +++|* 01846 M01S01341.pfiles +++|* USES X - 4, 5. 01847 M01S01342.pfiles +++|* A - 4, 5. 01848 M01S01343.pfiles +++|* B - 2, 6. 01849 M01S01344.pfiles +++|* 01850 M01S01345.pfiles +++|* CALLS CTJ, RSP. 01851 M01S01346.pfiles +++| 01852 M01S01347.pfiles +++| 01853 M01S01348.pfiles +++| IDF SUBR ENTRY/EXIT 01854 M01S01349.pfiles +++| SA4 TARG+1 FWA ARGUMENT TABLE 01855 M01S01350.pfiles +++| SB6 TKPR FWA KEYWORD/POSITION TABLE
| Line S01351 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01856 M02S01351.v23l617 ---| SA5 CCDR FWA CONTROL STATEMENT BUFFER 01857 M01S00110.v23l617 +++| SA5 CCDR FWA COMMAND BUFFER 01858 M01S01352.pfiles +++| SB2 1R/ SKIP TO */*
| Line S01353 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01859 M02S01353.v23l617 ---| RJ RSP REMOVE SECURE PARAMETERS FROM CONTROL CARD
| Line S01354 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01860 M02S01354.v23l617 ---| MESSAGE CCDR,0,R ISSUE CONTROL STATEMENT TO DAYFILE 01861 M01S00111.v23l617 +++| RJ RSP REMOVE SECURE PARAMETERS FROM COMMAND 01862 M01S00112.v23l617 +++| MESSAGE CCDR,0,R ISSUE COMMAND TO DAYFILE 01863 M01S01355.pfiles +++| EQ IDFX RETURN 01864 M01S01356.pfiles +++| 01865 M01S01357.pfiles +++| 01866 M01S01358.pfiles +++| TKPR BSS 0 TABLE OF KEYWORDS/POSITIONS TO REMOVE 01867 M01S00118.ns22000 +++| CON 2LAL ACCESS LEVEL 01868 M01S01359.pfiles +++| CON 2LPW PASSWORD 01869 M01S01360.pfiles +++| CON 0 END OF TABLE 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 +++|**** 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 M01S01361.pfiles +++| PBR SPACE 4,20 01942 M01S01362.pfiles +++|** PBR - PROCESS BACKUP REQUIREMENT. 01943 M01S01363.pfiles +++|* 01944 M01S01364.pfiles +++|* ENTRY (BREQ) = BACKUP REQUIREMENT (DISPLAY CODE). 01945 M01S01365.pfiles +++|* 01946 M01S01366.pfiles +++|* EXIT (BREQ) = BACKUP REQUIREMENT (NUMERIC EQUIVALENT). 01947 M01S01367.pfiles +++|* 01948 M01S01368.pfiles +++|* USES X - 5. 01949 M01S01369.pfiles +++|* A - 5, 7. 01950 M01S01370.pfiles +++|* B - 5. 01951 M01S01371.pfiles +++|* 01952 M01S01372.pfiles +++|* CALLS CVT. 01953 M01S01373.pfiles +++|* 01954 M01S01374.pfiles +++|* MACROS ABORT, MESSAGE. 01955 M01S01375.pfiles +++| 01956 M01S01376.pfiles +++| 01957 M01S01377.pfiles +++| PBR SUBR ENTRY/EXIT 01958 M01S01378.pfiles +++| SA5 BREQ 01959 M01S01379.pfiles +++| ZR X5,PBRX IF NO ARGUMENT SPECIFIED 01960 M01S01380.pfiles +++| SB5 TBREQ 01961 M01S01381.pfiles +++| RJ CVT CONVERT ARGUMENT TO EQUIVALENT 01962 M01S01382.pfiles +++| SA7 A5 SAVE CONVERSION 01963 M01S01383.pfiles +++| ZR X6,PBRX IF LEGAL ARGUMENT 01964 M01S01384.pfiles +++| 01965 M01S01385.pfiles +++| MESSAGE (=C* ERROR IN BACKUP REQUIREMENT.*) 01966 M01S01386.pfiles +++| ABORT 01967 M01S01387.pfiles +++| 01968 M01S01388.pfiles +++| 01969 M01S01389.pfiles +++|**** 01970 M01S01390.pfiles +++|* TABLE OF BACKUP REQUIREMENTS. 01971 M01S01391.pfiles +++| 01972 M01S01392.pfiles +++| 01973 M01S01393.pfiles +++| TBREQ BSS 0 01974 M01S01394.pfiles +++| VFD 42/0LN,18/BRNO BACKUP NOT REQUIRED 01975 M01S01395.pfiles +++| VFD 42/0LY,18/BRAL BACKUP ALWAYS REQUIRED 01976 M01S01396.pfiles +++| VFD 42/0LMD,18/BRMD BACKUP REQUIRED UNLESS FILE ON MSF 01977 M01S01397.pfiles +++| CON 0 01978 M01S01398.pfiles +++|**** 01979 M01S01399.pfiles +++| PCT SPACE 4,15 01980 M01S01400.pfiles +++|** PCT - PROCESS FILE CATEGORY. 01981 M01S01401.pfiles +++|* 01982 M01S01402.pfiles +++|* ENTRY (CTG) = LEFT JUSTIFIED DISPLAY CODED ARGUMENT. 01983 M01S01403.pfiles +++|* 01984 M01S01404.pfiles +++|* EXIT (CTG) = RIGHT JUSTIFIED EQUIVALENT ARGUMENT. 01985 M01S01405.pfiles +++|* 01986 M01S01406.pfiles +++|* USES X - 5, 7. 01987 M01S01407.pfiles +++|* A - 5, 7. 01988 M01S01408.pfiles +++|* B - 5. 01989 M01S01409.pfiles +++|* 01990 M01S01410.pfiles +++|* CALLS CVT. 01991 M01S01411.pfiles +++|* 01992 M01S01412.pfiles +++|* MACROS ABORT, MESSAGE. 01993 M01S01413.pfiles +++| 01994 M01S01414.pfiles +++| 01995 M01S01415.pfiles +++| PCT SUBR ENTRY/EXIT 01996 M01S01416.pfiles +++| SA5 CTG 01997 M01S01417.pfiles +++| ZR X5,PCTX IF NO ARGUMENT 01998 M01S01418.pfiles +++| SB5 TCAT 01999 M01S01419.pfiles +++| RJ CVT CONVERT ARGUMENT TO EQUIVALENT 02000 M01S01420.pfiles +++| SX7 X7+40B 02001 M01S01421.pfiles +++| SA7 A5 SAVE CONVERSION 02002 M01S01422.pfiles +++| ZR X6,PCTX IF LEGAL ARGUMENT 02003 M01S01423.pfiles +++| 02004 M01S01424.pfiles +++| MESSAGE (=C* ERROR IN FILE CATEGORY.*) 02005 M01S01425.pfiles +++| ABORT 02006 M01S01426.pfiles +++| 02007 M01S01427.pfiles +++| 02008 M01S01428.pfiles +++|**** 02009 M01S01429.pfiles +++|* TABLE OF FILE CATEGORIES. 02010 M01S01430.pfiles +++| 02011 M01S01431.pfiles +++| 02012 M01S01432.pfiles +++| TCAT BSS 0 02013 M01S01433.pfiles +++| VFD 42/0LPRIVATE,18/FCPR 02014 M01S01434.pfiles +++| VFD 42/0LP,18/FCPR 02015 M01S01435.pfiles +++| VFD 42/0LPR,18/FCPR 02016 M01S01436.pfiles +++| VFD 42/0LSPRIV,18/FCSP 02017 M01S01437.pfiles +++| VFD 42/0LS,18/FCSP 02018 M01S01438.pfiles +++| VFD 42/0LLIBRARY,18/FCLI 02019 M01S01439.pfiles +++| VFD 42/0LL,18/FCLI 02020 M01S01440.pfiles +++| VFD 42/0LPUBLIC,18/FCLI 02021 M01S01441.pfiles +++| VFD 42/0LPU,18/FCLI 02022 M01S01442.pfiles +++| CON 0 02023 M01S01443.pfiles +++|**** 02024 M01S01444.pfiles +++| PDC SPACE 4,25 02025 M01S01445.pfiles +++|** PDC - PROCESS DEFAULT CALL. 02026 M01S01446.pfiles +++|* 02027 M01S01447.pfiles +++|* DETERMINE IF THE COMMAND IS A DEFAULT CALL. 02028 M01S01448.pfiles +++|* THIS IS A *GET*, *PURGE*, *REPLACE*, OR *SAVE* 02029 M01S01449.pfiles +++|* WITH NO ARGUMENTS OR ONE BLANK ARGUMENT. 02030 M01S01450.pfiles +++|* 02031 M01S01451.pfiles +++|* ENTRY (B4) = ARGUMENT COUNT. 02032 M01S00153.ns22000 +++|* (B6) = SHIFT COUNT FOR COMMAND. 02033 M01S01452.pfiles +++|* (B7) = COMMAND CODE. 02034 M01S01453.pfiles +++|* 02035 M01S01454.pfiles +++|* EXIT (B2) .NE. 0 IF NOT DEFAULT CALL. 02036 M01S01455.pfiles +++|* ABORT IF DEFAULT AND NO PRIMARY FILE. 02037 M01S01456.pfiles +++|* IF DEFAULT AND PRIMARY FILE FOUND- 02038 M01S01457.pfiles +++|* (B2) = 0 02039 M01S01458.pfiles +++|* (TSFN) = PRIMARY FILE NAME. 02040 M01S01459.pfiles +++|* (GPNB) .NE. 0. 02041 M01S01460.pfiles +++|* 02042 M01S01461.pfiles +++|* USES X - 1, 2, 6. 02043 M01S01462.pfiles +++|* A - 2, 6.
| Line S01463 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02044 M02S01463.ns22000 ---|* B - 2, 3. 02045 M01S00154.ns22000 +++|* B - 2. 02046 M01S01464.pfiles +++|* 02047 M01S01465.pfiles +++|* CALLS GPN. 02048 M01S01466.pfiles +++|* 02049 M01S01467.pfiles +++|* MACROS ABORT, MESSAGE. 02050 M01S01468.pfiles +++| 02051 M01S01469.pfiles +++| 02052 M01S01470.pfiles +++| PDC SUBR ENTRY/EXIT 02053 M01S01471.pfiles +++| SB2 B1+ SET NO DEFAULT EXIT 02054 M01S01472.pfiles +++| GT B4,B1,PDCX IF TOO MANY ARGUMENTS 02055 M01S01473.pfiles +++| SX1 PRM9
| Line S01474 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02056 M02S01474.ns22000 ---| SB3 60
| Line S01475 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02057 M02S01475.ns22000 ---| SB3 B3-B7
| Line S01476 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02058 M02S01476.ns22000 ---| LX1 X1,B3 02059 M01S00155.ns22000 +++| LX1 X1,B6 02060 M01S01477.pfiles +++| PL X1,PDCX IF DEFAULT NOT LEGAL FOR COMMAND 02061 M01S01478.pfiles +++| SA2 ARGR 02062 M01S01479.pfiles +++| NZ X2,PDCX IF ARGUMENT NOT BLANK 02063 M01S01480.pfiles +++| RJ GPN GET PRIMARY FILE NAME 02064 M01S01481.pfiles +++| ZR X6,PDC1 IF NO PRIMARY FILE 02065 M01S01482.pfiles +++| SA6 GPNB SET PRIMARY FETCHED FLAG 02066 M01S01483.pfiles +++| SA6 TSFN SET DEFAULT FILE NAME 02067 M01S01484.pfiles +++| SB2 B0 SET DEFAULT EXIT 02068 M01S01485.pfiles +++| BX6 X6-X6 02069 M01S01486.pfiles +++| SA6 TSFN+1 TERMINATE *TSFN* TABLE 02070 M01S01487.pfiles +++| SA6 TPFN 02071 M01S01488.pfiles +++| EQ PDCX RETURN 02072 M01S01489.pfiles +++| 02073 M01S01490.pfiles +++| PDC1 MESSAGE (=C* NO PRIMARY FILE.*) 02074 M01S01491.pfiles +++| ABORT 02075 M01S01492.pfiles +++| PMD SPACE 4,15 02076 M01S01493.pfiles +++|** PMD - PROCESS MODE OF FILE. 02077 M01S01494.pfiles +++|* 02078 M01S01495.pfiles +++|* ENTRY (X5) = ACCESS MODE (DISPLAY CODE).
| Line S01496 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02079 M02S01496.ns22000 ---|* (B7) = COMMAND CODE. 02080 M01S01497.pfiles +++|* 02081 M01S01498.pfiles +++|* EXIT (MODE) = ACCESS MODE (NUMERIC EQUIVALENT). 02082 M01S01499.pfiles +++|* 02083 M01S01500.pfiles +++|* USES X - 5, 7. 02084 M01S01501.pfiles +++|* A - 5, 7. 02085 M01S01502.pfiles +++|* B - 5. 02086 M01S01503.pfiles +++|* 02087 M01S01504.pfiles +++|* CALLS CVT. 02088 M01S01505.pfiles +++|* 02089 M01S01506.pfiles +++|* MACROS ABORT, MESSAGE. 02090 M01S01507.pfiles +++| 02091 M01S01508.pfiles +++| 02092 M01S01509.pfiles +++| PMD SUBR ENTRY/EXIT 02093 M01S01510.pfiles +++| NZ X5,PMD2 IF MODE ENTERED
| Line S01511 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02094 M02S01511.ns22000 ---| SA5 B7+TMOD-1 SET DEFAULT FOR COMMAND
| Line S01512 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02095 M02S01512.ns22000 ---| BX7 X5 02096 M01S00156.ns22000 +++| SX7 PTRD SET DEFAULT MODE (READ MODE) 02097 M01S01513.pfiles +++| PMD1 SA7 MODE 02098 M01S01514.pfiles +++| EQ PMDX 02099 M01S01515.pfiles +++| 02100 M01S01516.pfiles +++| PMD2 SB5 TMDE 02101 M01S01517.pfiles +++| RJ CVT CONVERT ARGUMENT 02102 M01S01518.pfiles +++| SX7 X7+40B 02103 M01S01519.pfiles +++| ZR X6,PMD1 IF LEGAL ARGUMENT 02104 M01S01520.pfiles +++| 02105 M01S01521.pfiles +++| MESSAGE (=C* ERROR IN MODE.*) 02106 M01S01522.pfiles +++| ABORT 02107 M01S01523.pfiles +++|
| Line S01524 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02108 M02S01524.ns22000 ---|* TABLE OF DEFAULT MODES.
| Line S01525 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02109 M02S01525.ns22000 ---|
| Line S01526 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02110 M02S01526.ns22000 ---| TMOD BSS 0 FILE MODES
| Line S01527 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02111 M02S01527.ns22000 ---| CON PTRD SAVE
| Line S01528 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02112 M02S01528.ns22000 ---| CON 0 GET
| Line S01529 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02113 M02S01529.ns22000 ---| CON 0 PURGE
| Line S01530 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02114 M02S01530.ns22000 ---| CON 0 CATLIST
| Line S01531 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02115 M02S01531.ns22000 ---| CON PTRD PERMIT
| Line S01532 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02116 M02S01532.ns22000 ---| CON 0 REPLACE
| Line S01533 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02117 M02S01533.ns22000 ---| CON 0 APPEND
| Line S01534 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02118 M02S01534.ns22000 ---| CON PTRD DEFINE
| Line S01535 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02119 M02S01535.ns22000 ---| CON PTRD ATTACH
| Line S01536 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02120 M02S01536.ns22000 ---| CON 0 CHANGE
| Line S01537 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02121 M02S01537.ns22000 ---| CON 0 PACKNAM - (NOT REFERENCED)
| Line S01538 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02122 M02S01538.ns22000 ---| CON 0 NEW
| Line S01539 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02123 M02S01539.ns22000 ---| CON 0 OLD
| Line S01540 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02124 M02S01540.ns22000 ---| 02125 M01S01541.pfiles +++| 02126 M01S01542.pfiles +++|**** 02127 M01S01543.pfiles +++|* TABLE OF FILE MODE EQUIVALENCES. 02128 M01S01544.pfiles +++| 02129 M01S01545.pfiles +++| 02130 M01S01546.pfiles +++| TMDE BSS 0 02131 M01S01547.pfiles +++| VFD 42/0LWRITE,18/PTWR 02132 M01S01548.pfiles +++| VFD 42/0LW,18/PTWR 02133 M01S01549.pfiles +++| VFD 42/0LREAD,18/PTRD 02134 M01S01550.pfiles +++| VFD 42/0LR,18/PTRD 02135 M01S01551.pfiles +++| VFD 42/0LEXECUTE,18/PTEX 02136 M01S01552.pfiles +++| VFD 42/0LE,18/PTEX 02137 M01S01553.pfiles +++| VFD 42/0LAPPEND,18/PTAP 02138 M01S01554.pfiles +++| VFD 42/0LA,18/PTAP 02139 M01S01555.pfiles +++| VFD 42/0LNULL,18/PTNU 02140 M01S01556.pfiles +++| VFD 42/0LN,18/PTNU 02141 M01S01557.pfiles +++| VFD 42/0LMODIFY,18/PTMD 02142 M01S01558.pfiles +++| VFD 42/0LM,18/PTMD 02143 M01S01559.pfiles +++| VFD 42/0LREADMD,18/PTRM 02144 M01S01560.pfiles +++| VFD 42/0LRM,18/PTRM 02145 M01S01561.pfiles +++| VFD 42/0LREADAP,18/PTRA 02146 M01S01562.pfiles +++| VFD 42/0LRA,18/PTRA 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 M01S01563.pfiles +++| CON 0 02152 M01S01564.pfiles +++|**** 02153 M01S01565.pfiles +++| PNA SPACE 4,10 02154 M01S01566.pfiles +++|** PNA - PROCESS *NO ABORT* AND *WAIT BUSY* OPTIONS. 02155 M01S01567.pfiles +++|* 02156 M01S01568.pfiles +++|* ENTRY (NABT) .NE. 0 IF *NO ABORT* SPECIFIED. 02157 M01S01569.pfiles +++|* (WBUSY) .NE. 0 IF *WAIT BUSY* REQUESTED. 02158 M01S01570.pfiles +++|* 02159 M01S01571.pfiles +++|* EXIT ERROR PROCESSING BIT SET IF REQUIRED. 02160 M01S01572.pfiles +++|* TO *ERR* IF BOTH *NA* AND *WB* SPECIFIED. 02161 M01S01573.pfiles +++|* 02162 M01S01574.pfiles +++|* USES X - 1, 2, 6. 02163 M01S01575.pfiles +++|* A - 1, 2, 6. 02164 M01S01576.pfiles +++| 02165 M01S01577.pfiles +++| 02166 M01S01578.pfiles +++| PNA SUBR ENTRY/EXIT 02167 M01S01579.pfiles +++| SA1 NABT 02168 M01S01580.pfiles +++| SA2 WBUSY 02169 M01S01581.pfiles +++| IX1 X1+X2 02170 M01S01582.pfiles +++| ZR X1,PNAX IF NEITHER *NA* OR *WB* SPECIFIED 02171 M01S01583.pfiles +++| SX1 X1-2 02172 M01S01584.pfiles +++| ZR X1,ERR IF BOTH *NA* AND *WB* SPECIFIED 02173 M01S01585.pfiles +++| SA1 F+1 SET ERROR PROCESSING BIT 02174 M01S01586.pfiles +++| SX6 B1 02175 M01S01587.pfiles +++| LX6 44 02176 M01S01588.pfiles +++| BX6 X1+X6 02177 M01S01589.pfiles +++| SA6 A1 02178 M01S01590.pfiles +++| EQ PNAX RETURN 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 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 M01S01591.pfiles +++| PRE SPACE 4,20 02318 M01S01592.pfiles +++|** PRE - PROCESS PREFERRED RESIDENCE. 02319 M01S01593.pfiles +++|* 02320 M01S01594.pfiles +++|* ENTRY (PRES) = PREFERRED RESIDENCE (DISPLAY CODE). 02321 M01S01595.pfiles +++|* 02322 M01S01596.pfiles +++|* EXIT (PRES) = PREFERRED RESIDENCE (NUMERIC EQUIVALENT). 02323 M01S01597.pfiles +++|* 02324 M01S01598.pfiles +++|* USES X - 5. 02325 M01S01599.pfiles +++|* A - 5, 7. 02326 M01S01600.pfiles +++|* B - 5. 02327 M01S01601.pfiles +++|* 02328 M01S01602.pfiles +++|* CALLS CVT. 02329 M01S01603.pfiles +++|* 02330 M01S01604.pfiles +++|* MACROS ABORT, MESSAGE. 02331 M01S01605.pfiles +++| 02332 M01S01606.pfiles +++| 02333 M01S01607.pfiles +++| PRE SUBR ENTRY/EXIT 02334 M01S01608.pfiles +++| SA5 PRES 02335 M01S01609.pfiles +++| ZR X5,PREX IF NO ARGUMENT SPECIFIED 02336 M01S01610.pfiles +++| SB5 TPRES 02337 M01S01611.pfiles +++| RJ CVT CONVERT ARGUMENT TO EQUIVALENT 02338 M01S01612.pfiles +++| SA7 A5 SAVE CONVERSION 02339 M01S01613.pfiles +++| ZR X6,PREX IF LEGAL ARGUMENT 02340 M01S01614.pfiles +++| MESSAGE (=C*ERROR IN PREFERRED RESIDENCE.*) 02341 M01S01615.pfiles +++| ABORT 02342 M01S01616.pfiles +++| 02343 M01S01617.pfiles +++| 02344 M01S01618.pfiles +++|**** 02345 M01S01619.pfiles +++|* TABLE OF PREFERRED RESIDENCES. 02346 M01S01620.pfiles +++| 02347 M01S01621.pfiles +++| 02348 M01S01622.pfiles +++| TPRES BSS 0 02349 M01S00150.v23l617 +++| VFD 42/0LL,18/RSLK 02350 M01S00151.v23l617 +++| VFD 42/0LD,18/RSDS 02351 M01S01623.pfiles +++| VFD 42/0LM,18/RSMS 02352 M01S01624.pfiles +++| VFD 42/0LN,18/RSNP 02353 M01S00013.253l688 +++| VFD 42/0LT,18/RSTP 02354 M01S01625.pfiles +++| CON 0 02355 M01S01626.pfiles +++|**** 02356 M01S01627.pfiles +++| PRT SPACE 4,10 02357 M01S01628.pfiles +++|** PRT - PROCESS *RT* PARAMETER. 02358 M01S01629.pfiles +++|* 02359 M01S01630.pfiles +++|* ENTRY (RTIME) = 0 IF *RT* NOT SPECIFIED. 02360 M01S00090.pfile4 +++|* (PFLA) = COMMAND CODE. 02361 M01S00091.pfile4 +++|* (PFLB) = NUMBER OF FILES SPECIFIED - 1. 02362 M01S01631.pfiles +++|*
| Line S01632 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 02363 M02S01632.pfile4 ---|* EXIT *RT* BIT SET IN FET IF REQUESTED. 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 M01S01633.pfiles +++|* 02367 M01S01634.pfiles +++|* USES X - 1, 6. 02368 M01S01635.pfiles +++|* A - 1, 6. 02369 M01S01636.pfiles +++| 02370 M01S01637.pfiles +++| 02371 M01S01638.pfiles +++| PRT SUBR ENTRY/EXIT 02372 M01S01639.pfiles +++| SA1 RTIME
| Line S01640 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 02373 M02S01640.pfile4 ---| ZR X1,PRTX IF *RT* NOT SPECIFIED
| Line S01641 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile4 |
Seq # *Modification Id* Act ----------------------------+ 02374 M02S01641.pfile4 ---| SA1 F+1 SET REAL-TIME PROCESSING BIT 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 M01S01642.pfiles +++| MX6 1 02385 M01S01643.pfiles +++| LX6 43-59 02386 M01S01644.pfiles +++| BX6 X1+X6 02387 M01S01645.pfiles +++| SA6 A1 02388 M01S01646.pfiles +++| EQ PRTX RETURN 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 M01S01647.pfiles +++| PSS SPACE 4,10 02414 M01S01648.pfiles +++|** PSS - PROCESS SUBSYSTEM SELECTION. 02415 M01S01649.pfiles +++|* 02416 M01S01650.pfiles +++|* ENTRY (SUBSYS) = VALUE FROM *SS* PARAMETER. 02417 M01S01651.pfiles +++|* 02418 M01S01652.pfiles +++|* EXIT (SUBSYS) = SUBSYSTEM VALUE (IF *SS* SPECIFIED). 02419 M01S01653.pfiles +++|* (PSSA) = CURRENT SUBSYSTEM. 02420 M01S01654.pfiles +++|* 02421 M01S01655.pfiles +++|* USES X - 0, 1, 5, 7. 02422 M01S01656.pfiles +++|* A - 1, 5, 7. 02423 M01S01657.pfiles +++|* 02424 M01S01658.pfiles +++|* CALLS CVT. 02425 M01S01659.pfiles +++| 02426 M01S01660.pfiles +++| 02427 M01S01661.pfiles +++| PSS SUBR ENTRY/EXIT 02428 M01S01662.pfiles +++| SA5 SUBSYS GET *SS* PARAMETER VALUE 02429 M01S01663.pfiles +++| GETSS PSSA GET CURRENT SUBSYSTEM 02430 M01S01664.pfiles +++| ZR X5,PSSX IF *SS* NOT SPECIFIED 02431 M01S01665.pfiles +++| MX0 42 02432 M01S01666.pfiles +++| SA1 PSSA 02433 M01S01667.pfiles +++| BX5 X0*X5 02434 M01S01668.pfiles +++| BX7 X1 02435 M01S01669.pfiles +++| ZR X5,PSS1 IF *SS* NOT EQUIVALENCED 02436 M01S01670.pfiles +++| SB5 TSSY 02437 M01S01671.pfiles +++| RJ CVT CONVERT ARGUMENT 02438 M01S01672.pfiles +++| ZR X6,PSS1 IF LEGAL VALUE 02439 M01S01673.pfiles +++| MESSAGE (=C* ERROR IN SUBSYSTEM.*) 02440 M01S01674.pfiles +++| ABORT 02441 M01S01675.pfiles +++| 02442 M01S01676.pfiles +++| PSS1 SX7 X7+40B SAVE SELECTED SUBSYSTEM 02443 M01S01677.pfiles +++| SA7 SUBSYS 02444 M01S01678.pfiles +++| EQ PSSX RETURN 02445 M01S01679.pfiles +++| 02446 M01S01680.pfiles +++| PSSA CON 0 CURRENT SUBSYSTEM 02447 M01S01681.pfiles +++| 02448 M01S01682.pfiles +++| 02449 M01S01683.pfiles +++|**** 02450 M01S01684.pfiles +++|* TABLE OF SUBSYSTEMS. 02451 M01S01685.pfiles +++| 02452 M01S01686.pfiles +++| 02453 M01S01687.pfiles +++| TSSY BSS 0 02454 M01S01688.pfiles +++| VFD 42/0LNULL,18/NULS 02455 M01S01689.pfiles +++| VFD 42/0LNUL,18/NULS 02456 M01S01690.pfiles +++| VFD 42/0LBASIC,18/BASS 02457 M01S01691.pfiles +++| VFD 42/0LBAS,18/BASS 02458 M01S01692.pfiles +++| VFD 42/0LFORTRAN,18/FORS 02459 M01S01693.pfiles +++| VFD 42/0LFOR,18/FORS 02460 M01S01694.pfiles +++| VFD 42/0LFTNTS,18/FTNS 02461 M01S01695.pfiles +++| VFD 42/0LFTN,18/FTNS 02462 M01S01696.pfiles +++| VFD 42/0LEXECUTE,18/EXES 02463 M01S01697.pfiles +++| VFD 42/0LEXE,18/EXES 02464 M01S01698.pfiles +++| VFD 42/0LBATCH,18/BATS 02465 M01S01699.pfiles +++| VFD 42/0LBAT,18/BATS 02466 M01S01700.pfiles +++| CON 0 02467 M01S01701.pfiles +++|**** 02468 M01S01702.pfiles +++| RNF SPACE 4,14 02469 M01S01703.pfiles +++|** RNF - RETURN NON-PRIMARY FILES. 02470 M01S01704.pfiles +++|* THIS SUBROUTINE USES THE LFM FUNCTION GETFNT TO RETURN ALL 02471 M01S01705.pfiles +++|* FILES CURRENTLY ASSIGNED TO JOB (EXCEPT THE PRIMARY FILE
| Line S01706 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | ns2102 |
Seq # *Modification Id* Act ----------------------------+ 02472 M02S01706.ns2102 ---|* AND ANY FILE WITH *NDST* STATUS SET). 02473 M01S00001.ns2102 +++|* AND ANY FILE WITH *CBST*, *CKST* OR *NDST* STATUS SET). 02474 M01S01707.pfiles +++|* 02475 M01S01708.pfiles +++|* ENTRY NONE. 02476 M01S01709.pfiles +++|* 02477 M01S01710.pfiles +++|* EXIT NONE. 02478 M01S01711.pfiles +++|* 02479 M01S01712.pfiles +++|* USES X - 0, 1, 2, 3, 4, 7. 02480 M01S01713.pfiles +++|* A - 2, 7. 02481 M01S01714.pfiles +++|* B - 3, 4. 02482 M01S01715.pfiles +++|* 02483 M01S01716.pfiles +++|* MACROS GETFNT, RECALL, RETURN. 02484 M01S01717.pfiles +++| 02485 M01S01718.pfiles +++| 02486 M01S01719.pfiles +++| RNF SUBR ENTRY/EXIT 02487 M01S01720.pfiles +++| SA2 NODROP 02488 M01S01721.pfiles +++| NZ X2,RNFX IF ND PARAMETER SPECIFIED, EXIT 02489 M01S01722.pfiles +++| BX7 X7-X7 CLEAR BUFFER CONTROL WORD 02490 M01S01723.pfiles +++| SA7 GETTAB 02491 M01S01724.pfiles +++| SA2 RNFA MAKE GETFNT CALL 02492 M01S01725.pfiles +++| BX7 X2 02493 M01S01726.pfiles +++| MX0 42 02494 M01S01727.pfiles +++| RECALL F 02495 M01S01728.pfiles +++| SA7 F+CFPN 02496 M01S01729.pfiles +++| 02497 M01S01730.pfiles +++| RNF1 GETFNT F 02498 M01S01731.pfiles +++| SB3 B0 02499 M01S01732.pfiles +++| SB4 GLEN 02500 M01S01733.pfiles +++| MX3 -6 02501 M01S01734.pfiles +++| 02502 M01S01735.pfiles +++| RNF2 SA2 B3+GETTAB+1 02503 M01S01736.pfiles +++| ZR X2,RNFX IF END OF FILES 02504 M01S01737.pfiles +++| BX1 -X3*X2 02505 M01S01738.pfiles +++| SX7 X1-NDST 02506 M01S01739.pfiles +++| ZR X7,RNF3 IF *NDST* FILE 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 M01S01740.pfiles +++| BX4 X0*X2 02512 M01S01741.pfiles +++| SX1 B1+ SET COMPLETE BIT 02513 M01S01742.pfiles +++| BX7 X1+X4 02514 M01S01743.pfiles +++| RECALL F 02515 M01S01744.pfiles +++| SA7 F 02516 M01S01745.pfiles +++| RETURN F 02517 M01S01746.pfiles +++| 02518 M01S01747.pfiles +++| RNF3 SB3 B3+2 02519 M01S01748.pfiles +++| NE B3,B4,RNF2 IF MORE FILES IN GETTAB 02520 M01S01749.pfiles +++| SA2 GETTAB 02521 M01S01750.pfiles +++| NZ X2,RNF1 IF MORE FILES TO PROCESS 02522 M01S01751.pfiles +++| EQ RNFX RETURN 02523 M01S01752.pfiles +++| 02524 M01S01753.pfiles +++|* GETFNT CONTROL WORD. 02525 M01S01754.pfiles +++| 02526 M01S01755.pfiles +++| RNFA VFD 12/GFILES,24/-PMSK,6/15B,18/GETTAB 02527 M01S01756.pfiles +++| SPACE 4 02528 M01S01757.pfiles +++|* COMMON DECKS. 02529 M01S01758.pfiles +++| 02530 M01S00025.pfile2 +++|*CALL COMCARM 02531 M01S01759.pfiles +++|*CALL COMCARG 02532 M01S01760.pfiles +++|*CALL COMCCIO 02533 M01S00026.pfile2 +++|*CALL COMCCPA 02534 M01S01761.pfiles +++|*CALL COMCCPM 02535 M01S01762.pfiles +++|*CALL COMCDXB 02536 M01S01763.pfiles +++|*CALL COMCLFM 02537 M01S01764.pfiles +++|*CALL COMCPFM 02538 M01S00027.pfile2 +++|*CALL COMCPOP 02539 M01S01765.pfiles +++|*CALL COMCRSP 02540 M01S01766.pfiles +++|*CALL COMCSTF 02541 M01S01767.pfiles +++|*CALL COMCSYS 02542 M01S00028.pfile2 +++|*CALL COMCUSB 02543 M01S00240.ns22000 +++|*CALL COMCVDT 02544 M01S00241.ns22000 +++|*CALL COMCVLC
| Line S01768 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 02545 M02S01768.pfile2a ---| USE //
| Line S01769 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 02546 M02S01769.pfile2a ---|
| Line S01770 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 02547 M02S01770.pfile2a ---|** TABLE FOR FILE NAMES.
| Line S01771 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 02548 M02S01771.pfile2a ---|
| Line S01772 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 02549 M02S01772.pfile2a ---| TSFN EQU * SYSTEM FILE NAMES
| Line S01773 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 02550 M02S01773.pfile2a ---| TPFN EQU TSFN+NFILES PERMANENT FILE NAMES
| Line S01774 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 02551 M02S01774.pfile2a ---|
| Line S01775 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 02552 M02S01775.pfile2a ---| IBUF EQU TPFN+NFILES INPUT BUFFER
| Line S01776 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 02553 M02S01776.pfile2a ---|
| Line S01777 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 02554 M02S01777.pfile2a ---| GETTAB EQU IBUF+BUFL GETFNT TABLE
| Line S01778 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 02555 M02S01778.pfile2a ---|
| Line S01779 Modification History | |
|---|---|
M01 (Added by) | pfiles |
M02 (Updated by) | pfile2a |
Seq # *Modification Id* Act ----------------------------+ 02556 M02S01779.pfile2a ---| RFL= EQU GETTAB+GLEN+2 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 (Updated by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 02562 M02S00010.ns2483 ---| FWABUF SET *
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | pfile2a |
M02 (Updated by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 02563 M02S00011.ns2483 ---| LIST G
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | pfile2a |
M02 (Updated by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 02564 M02S00012.ns2483 ---|
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | pfile2a |
M02 (Updated by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 02565 M02S00013.ns2483 ---| BEGIN BSSN FWABUF 02566 M01S00001.ns2483 +++| 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 (Updated by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 02573 M02S00020.ns2483 ---| END BSSN
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | pfile2a |
M02 (Updated by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 02574 M02S00021.ns2483 ---|
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | pfile2a |
M02 (Updated by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 02575 M02S00022.ns2483 ---| LIST * 02576 M01S01780.pfiles +++| SPACE 4 02577 M01S01781.pfiles +++| END
cdc/nos2.source/opl.opl871/deck/pfiles.001.txt · Last modified: by 127.0.0.1