Deck PFILES Part 001

18 Modifications

Seq #  *Modification Id* Act 
----------------------------+

Seq #  *Modification Id* Act 
----------------------------+
01220  M03S00856.pfile4  ---|          EQ     PNC         PROCESS NEXT CONTROL STATEMENT

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

Seq #  *Modification Id* Act 
----------------------------+
01224  M02S00058.pfile6  ---|          ZR     X7,GET5     IF *STAGE INITIATED* STATUS

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

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

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  +++|

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

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

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.

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.

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

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

Seq #  *Modification Id* Act 
----------------------------+
01336  M02S00930.pfile2  ---|          RJ     IDF         ISSUE DAYFILE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01337  M02S00931.pfile2  ---|          SA1    ACTR

Seq #  *Modification Id* Act 
----------------------------+
01338  M02S00932.pfile2  ---|          SB4    X1

Seq #  *Modification Id* Act 
----------------------------+
01339  M02S00933.pfile2  ---|          R=     A4,ARGR

Seq #  *Modification Id* Act 
----------------------------+
01340  M02S00934.pfile2  ---|          ZR     B4,PAC3     IF NO PARAMETERS (*PACKNAM.*)

Seq #  *Modification Id* Act 
----------------------------+
01341  M02S00935.pfile2  ---|          SX7    X4-1R=

Seq #  *Modification Id* Act 
----------------------------+
01342  M02S00936.pfile2  ---|          SB5    TARGP

Seq #  *Modification Id* Act 
----------------------------+
01343  M02S00937.pfile2  ---|          ZR     X7,PAC1     IF FIRST PARAMETER IS EQUIVALENCED

Seq #  *Modification Id* Act 
----------------------------+
01344  M02S00938.pfile2  ---|          MX0    42

Seq #  *Modification Id* Act 
----------------------------+
01345  M02S00939.pfile2  ---|          BX6    X0*X4       SET FIRST PARAMETER AS PACKNAME

Seq #  *Modification Id* Act 
----------------------------+
01346  M02S00940.pfile2  ---|          SA6    PKNM

Seq #  *Modification Id* Act 
----------------------------+
01347  M02S00941.pfile2  ---|          SA4    A4+B1

Seq #  *Modification Id* Act 
----------------------------+
01348  M02S00942.pfile2  ---|          SB4    B4-B1

Seq #  *Modification Id* Act 
----------------------------+
01349  M02S00943.pfile2  ---|          ZR     X4,PAC3     IF NO MORE PARAMETERS SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
01350  M02S00944.pfile2  ---|          SB5    B5+B1       DO NOT ALLOW *PN* SPECIFICATION

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

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
01373  M02S00949.pfile1  ---|          MX0    6

Seq #  *Modification Id* Act 
----------------------------+
01374  M02S00950.pfile1  ---|          LX4    6

Seq #  *Modification Id* Act 
----------------------------+
01375  M02S00951.pfile1  ---|          BX6    X0*X4

Seq #  *Modification Id* Act 
----------------------------+
01376  M02S00952.pfile1  ---|          ZR     X6,ERR      IF DEVICE TYPE TOO SHORT

Seq #  *Modification Id* Act 
----------------------------+
01377  M02S00953.pfile1  ---|          LX4    12

Seq #  *Modification Id* Act 
----------------------------+
01378  M02S00954.pfile1  ---|          BX6    X0*X4

Seq #  *Modification Id* Act 
----------------------------+
01379  M02S00955.pfile1  ---|          NZ     X6,ERR      IF DEVICE TYPE TOO LONG

Seq #  *Modification Id* Act 
----------------------------+
01380  M02S00956.pfile1  ---|          LX0    6

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

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

Seq #  *Modification Id* Act 
----------------------------+
01389  M02S00961.pfile2  ---| PAC2     SA1    PKNM

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

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

Seq #  *Modification Id* Act 
----------------------------+
01397  M02S00966.v23l617 ---|          EQ     PNC         PROCESS NEXT CONTROL STATEMENT
01398  M01S00092.v23l617 +++|          EQ     PNC         PROCESS NEXT COMMAND

Seq #  *Modification Id* Act 
----------------------------+
01399  M02S00967.pfile2  ---| PERMIT   SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
01400  M02S00022.pfile2a ---|

Seq #  *Modification Id* Act 
----------------------------+
01401  M02S00023.pfile2a ---| PACA     BSS    100         POSITIONAL PARAMETER BUFFER
01402  M01S00024.pfile2  +++| PERMIT   SPACE  4,20

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.

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

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

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

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

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

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

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).

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
01519  M02S01069.ns22000 ---|***       SAVE (F=P/PW,CT,M,BR,SS,PN,R,NA,WB)

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

Seq #  *Modification Id* Act 
----------------------------+
01569  M02S01112.ns22000 ---| SAV2     SAVE   F,B3+TPFN,PWD,,CTG,MODE,PKNM,RES,,SUBSYS,BREQ

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

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.

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  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01584  M02S01122.pfile6  ---|*         ABORT IF *WAIT BUSY* WAS SPECIFIED, AND AN ERROR

Seq #  *Modification Id* Act 
----------------------------+
01585  M03S01123.pfile6  ---|*         OTHER THAN *FILE BUSY* IS DETECTED.

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

Seq #  *Modification Id* Act 
----------------------------+
01588  M02S00030.pfile4a ---|*         *FILE BUSY*, *STAGE INITIATED* OR *PF UTILITY ACTIVE*

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.

Seq #  *Modification Id* Act 
----------------------------+
01596  M02S01128.pfile4  ---|*                (ERRFLG) .NE. 0 IF ERROR OTHER THAN *FILE BUSY*.

Seq #  *Modification Id* Act 
----------------------------+
01597  M02S00083.pfile6  ---|*                (X7) = 0 IF *STAGE INITIATED* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
01598  M02S00084.pfile6  ---|*                (ERRFLG) .NE. 0 IF ERROR OTHER THAN *FILE BUSY*

Seq #  *Modification Id* Act 
----------------------------+
01599  M02S00085.pfile6  ---|*                                OR *STAGE INITIATED*.

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*,

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  +++|*

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

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

Seq #  *Modification Id* Act 
----------------------------+
01631  M02S01145.pfile6  ---|          SA1    WBUSY

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

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  +++|*

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

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  +++|*

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.

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

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

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

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  +++|

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  +++|*

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

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 */*

Seq #  *Modification Id* Act 
----------------------------+
01859  M02S01353.v23l617 ---|          RJ     RSP         REMOVE SECURE PARAMETERS FROM CONTROL CARD

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.

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

Seq #  *Modification Id* Act 
----------------------------+
02056  M02S01474.ns22000 ---|          SB3    60

Seq #  *Modification Id* Act 
----------------------------+
02057  M02S01475.ns22000 ---|          SB3    B3-B7

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).

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

Seq #  *Modification Id* Act 
----------------------------+
02094  M02S01511.ns22000 ---|          SA5    B7+TMOD-1   SET DEFAULT FOR COMMAND

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  +++|

Seq #  *Modification Id* Act 
----------------------------+
02108  M02S01524.ns22000 ---|*         TABLE  OF DEFAULT MODES.

Seq #  *Modification Id* Act 
----------------------------+
02109  M02S01525.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
02110  M02S01526.ns22000 ---| TMOD     BSS    0           FILE MODES

Seq #  *Modification Id* Act 
----------------------------+
02111  M02S01527.ns22000 ---|          CON    PTRD        SAVE

Seq #  *Modification Id* Act 
----------------------------+
02112  M02S01528.ns22000 ---|          CON    0           GET

Seq #  *Modification Id* Act 
----------------------------+
02113  M02S01529.ns22000 ---|          CON    0           PURGE

Seq #  *Modification Id* Act 
----------------------------+
02114  M02S01530.ns22000 ---|          CON    0           CATLIST

Seq #  *Modification Id* Act 
----------------------------+
02115  M02S01531.ns22000 ---|          CON    PTRD        PERMIT

Seq #  *Modification Id* Act 
----------------------------+
02116  M02S01532.ns22000 ---|          CON    0           REPLACE

Seq #  *Modification Id* Act 
----------------------------+
02117  M02S01533.ns22000 ---|          CON    0           APPEND

Seq #  *Modification Id* Act 
----------------------------+
02118  M02S01534.ns22000 ---|          CON    PTRD        DEFINE

Seq #  *Modification Id* Act 
----------------------------+
02119  M02S01535.ns22000 ---|          CON    PTRD        ATTACH

Seq #  *Modification Id* Act 
----------------------------+
02120  M02S01536.ns22000 ---|          CON    0           CHANGE

Seq #  *Modification Id* Act 
----------------------------+
02121  M02S01537.ns22000 ---|          CON    0           PACKNAM - (NOT REFERENCED)

Seq #  *Modification Id* Act 
----------------------------+
02122  M02S01538.ns22000 ---|          CON    0           NEW

Seq #  *Modification Id* Act 
----------------------------+
02123  M02S01539.ns22000 ---|          CON    0           OLD

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  +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
02373  M02S01640.pfile4  ---|          ZR     X1,PRTX     IF *RT* NOT SPECIFIED

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

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

Seq #  *Modification Id* Act 
----------------------------+
02545  M02S01768.pfile2a ---|          USE    //

Seq #  *Modification Id* Act 
----------------------------+
02546  M02S01769.pfile2a ---|

Seq #  *Modification Id* Act 
----------------------------+
02547  M02S01770.pfile2a ---|**        TABLE FOR FILE NAMES.

Seq #  *Modification Id* Act 
----------------------------+
02548  M02S01771.pfile2a ---|

Seq #  *Modification Id* Act 
----------------------------+
02549  M02S01772.pfile2a ---| TSFN     EQU    *           SYSTEM FILE NAMES

Seq #  *Modification Id* Act 
----------------------------+
02550  M02S01773.pfile2a ---| TPFN     EQU    TSFN+NFILES PERMANENT FILE NAMES

Seq #  *Modification Id* Act 
----------------------------+
02551  M02S01774.pfile2a ---|

Seq #  *Modification Id* Act 
----------------------------+
02552  M02S01775.pfile2a ---| IBUF     EQU    TPFN+NFILES INPUT BUFFER

Seq #  *Modification Id* Act 
----------------------------+
02553  M02S01776.pfile2a ---|

Seq #  *Modification Id* Act 
----------------------------+
02554  M02S01777.pfile2a ---| GETTAB   EQU    IBUF+BUFL   GETFNT TABLE

Seq #  *Modification Id* Act 
----------------------------+
02555  M02S01778.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

Seq #  *Modification Id* Act 
----------------------------+
02562  M02S00010.ns2483  ---| FWABUF   SET    *

Seq #  *Modification Id* Act 
----------------------------+
02563  M02S00011.ns2483  ---|          LIST   G

Seq #  *Modification Id* Act 
----------------------------+
02564  M02S00012.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

Seq #  *Modification Id* Act 
----------------------------+
02573  M02S00020.ns2483  ---| END      BSSN

Seq #  *Modification Id* Act 
----------------------------+
02574  M02S00021.ns2483  ---|

Seq #  *Modification Id* Act 
----------------------------+
02575  M02S00022.ns2483  ---|          LIST   *
02576  M01S01780.pfiles  +++|          SPACE  4
02577  M01S01781.pfiles  +++|          END