Deck PFM Part 009

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
13257  M00S09534.pfm     +++|          STD    T2
13258  M00S09535.pfm     +++|          LDM    FCLF+1,CI
13259  M00S09536.pfm     +++|          STD    T3
13260  M00S09537.pfm     +++|          ADD    T2
13261  M00S09538.pfm     +++|          NJN    CSL2        IF FILE LENGTH DEFINED IN *PFC*
Line S09539 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13262  M01S09539.pfm78   ---|          RJM    IMS         INITIALIZE FOR *EOI* ACCESS
Line S00080 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13263  M01S00080.pfm78   +++|          RJM    SEI         SKIP TO END OF INFORMATION
13264  M00S09540.pfm     +++| CSL2     LDN    0           TEST ACCESS MODE
13265  M00S09541.pfm     +++|*         LDN    1           (SET IF WRITEABLE MODE)
13266  M00S09542.pfm     +++| CSLA     EQU    *-1
13267  M00S09543.pfm     +++|          NJN    CSL4        IF WRITEABLE MODE
13268  M00S09544.pfm     +++|          LDD    T2          SET FILE LENGTH
13269  M00S09545.pfm     +++|          STD    LF
13270  M00S09546.pfm     +++|          LDD    T3
13271  M00S09547.pfm     +++|          STD    LF+1
13272  M00S09548.pfm     +++| CSL3     UJN    CSLX        RETURN
13273  M00S09549.pfm     +++|
13274  M00S09550.pfm     +++| CSL4     LDM    MXDS        CHECK FILE LENGTH
13275  M00S09551.pfm     +++|          ADM    MXDS+1
13276  M00S09552.pfm     +++|          ZJN    CSL3        IF UNLIMITED ACCESS
13277  M00S09553.pfm     +++|          LDM    MXDS
13278  M00S09554.pfm     +++|          SBD    T2
13279  M00S09555.pfm     +++|          MJN    CSL5        IF LENGTH LIMIT EXCEEDED
13280  M00S09556.pfm     +++|          NJN    CSL3        IF LIMIT NOT EXCEEDED
13281  M00S09557.pfm     +++|          LDM    MXDS+1
13282  M00S09558.pfm     +++|          SBD    T3
13283  M00S09559.pfm     +++|          PJN    CSL3        IF LIMIT NOT EXCEEDED
Line S09560 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13284  M01S09560.242l642 ---| CSL5     LDD    P2
13285  M01S09561.242l642 ---|          RJM    CTI
13286  M01S09562.242l642 ---|          ERROR  FTL,CH      * FILE TOO LONG.*
Line S01195 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13287  M01S01195.242l642 +++| CSL5     ERROR  FTL,CH      * FILE TOO LONG.*
13288  M00S09563.pfm     +++| DLT      SPACE  4,10
13289  M00S09564.pfm     +++|**        DLT - DETERMINE LOCAL USER TABLE TO UPDATE.
13290  M00S09565.pfm     +++|*
13291  M00S09566.pfm     +++|*         ENTRY  (BFMS - BFMS+500) - SYSTEM SECTOR.
13292  M00S09567.pfm     +++|*                (T5) = EST ORDINAL.
13293  M00S09568.pfm     +++|*
13294  M00S09569.pfm     +++|*         EXIT   (T7) - ADDRESS OF LOCAL USER COUNTS.
13295  M00S09570.pfm     +++|*
13296  M00S09571.pfm     +++|*         USES   T7.
13297  M00S09572.pfm     +++|*
13298  M00S09573.pfm     +++|*         CALLS  SMI.
13299  M00S09574.pfm     +++|
13300  M00S09575.pfm     +++|
13301  M00S09576.pfm     +++| DLT      SUBR               ENTRY/EXIT
13302  M00S09577.pfm     +++|          RJM    SMI         COMPUTE LOCAL USER COUNT BASE ADDRESS
13303  M00S09578.pfm     +++|          STD    T0
13304  M00S09579.pfm     +++|          SHN    2
13305  M00S09580.pfm     +++|          ADD    T0
13306  M00S09581.pfm     +++|          ADC    UCSS+1
13307  M00S09582.pfm     +++|          STD    T7
13308  M00S09583.pfm     +++|          UJN    DLTX
Line S09584 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13309  M01S09584.pfm78   ---| IMS      SPACE  4,10
13310  M01S09585.pfm78   ---|**        IMS - INITIALIZE MASS STORAGE.
13311  M01S09586.pfm78   ---|*
13312  M01S09587.pfm78   ---|*         ENTRY  (T5) = EST ORDINAL.
13313  M01S09588.pfm78   ---|*
13314  M01S09589.pfm78   ---|*         EXIT   ERROR PROCESSING SELECTED.
13315  M01S09590.pfm78   ---|*                TRT ADDRESS SET IN *COMPSEI*.
13316  M01S09591.pfm78   ---|*
13317  M01S09592.pfm78   ---|*         CALLS  CTA, SEI.
13318  M01S09593.pfm78   ---|*
13319  M01S09594.pfm78   ---|*         MACROS SETMS.
13320  M01S09595.pfm78   ---|
13321  M01S09596.pfm78   ---|
13322  M01S09597.pfm78   ---| IMS      SUBR               ENTRY/EXIT
Line S09598 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13323  M02S09598.pfm78   ---|          SETMS
Line S01196 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13324  M02S01196.pfm78   ---|          SETMS  STATUS
Line S09599 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13325  M01S09599.pfm78   ---| IMSA     LDN    0           CHECK FOR PRIOR CALL
13326  M01S09600.pfm78   ---|*         LDN    1           (SET IF PRIOR CALL MADE)
13327  M01S09601.pfm78   ---|          NJN    IMSX        IF NOT FIRST CALL
13328  M01S09602.pfm78   ---|          AOM    IMSA        SET PRIOR CALL STATUS
13329  M01S09603.pfm78   ---|          LDD    CM+4        SET TRT ADDRESS FOR *SEI*
13330  M01S09604.pfm78   ---|          SHN    3
13331  M01S09605.pfm78   ---|          ADN    TRLL
13332  M01S09606.pfm78   ---|          RJM    CTA         CALCULATE FWA OF TRT
13333  M01S09607.pfm78   ---|          SBD    TH
13334  M01S09608.pfm78   ---|          STM    SEIA+1
13335  M01S09609.pfm78   ---|          SHN    -14
13336  M01S09610.pfm78   ---|          LMC    ADCI
13337  M01S09611.pfm78   ---|          STM    SEIA
13338  M01S09612.pfm78   ---|          RJM    SEI         SET *EOI* TRACK/SECTOR
13339  M01S09613.pfm78   ---|          UJN    IMSX        RETURN
13340  M01S09614.pfm78   ---| PFE      SPACE  4,15
13341  M01S09615.pfm78   ---|**        PFE - PROCESS FILE ERROR CONDITION.
13342  M01S09616.pfm78   ---|*
13343  M01S09617.pfm78   ---|*         ENTRY  (A) = ERROR CODE AND EXIT CASE.
13344  M01S09618.pfm78   ---|*                (PFEQ) = EST ORDINAL FOR FILE.
13345  M01S09619.pfm78   ---|*                (PFFT) = FIRST TRACK FOR FILE.
13346  M01S09620.pfm78   ---|*
Line S09621 Modification History
M01 (Removed by) 271l716
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13347  M02S09621.pfm78   ---|*         EXIT   (ERRC) = FIRST TRACK FOR EVENT.
13348  M02S09622.pfm78   ---|*                (ERRD) = TIME FOR EVENT.
13349  M02S09623.pfm78   ---|*                (ERRE) = EST ORDINAL FOR EVENT.
Line S00002 Modification History
M01 (Added by) 271l716
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13350  M02S00002.pfm78   ---|*         EXIT   *TERW* UPDATED WITH TIMED/EVENT DATA.
13351  M02S00003.pfm78   ---|*
13352  M02S00004.pfm78   ---|*         USES   CM - CM+4.
13353  M02S00005.pfm78   ---|*
Line S09624 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13354  M01S09624.pfm78   ---|*
13355  M01S09625.pfm78   ---|*         MACROS ENDMS, ERROR.
13356  M01S09626.pfm78   ---|
13357  M01S09627.pfm78   ---|
13358  M01S09628.pfm78   ---| PFE      BSS    0           ENTRY
13359  M01S09629.pfm78   ---|          STM    PFEA        SET ERROR CODE AND EXIT CASE
13360  M01S09630.pfm78   ---|          ENDMS
Line S09631 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13361  M02S09631.pfm78   ---|          LDD    P2          RELEASE FILE INTERLOCK
13362  M02S09632.pfm78   ---|          RJM    CTI
Line S09633 Modification History
M01 (Removed by) 271l716
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13363  M02S09633.pfm78   ---|          LDM    PFEQ        SET EVENT EST ORDINAL
13364  M02S09634.pfm78   ---|          STM    ERRE
13365  M02S09635.pfm78   ---|          LDM    PFFT        SET EVENT TRACK
13366  M02S09636.pfm78   ---|          STM    ERRC
13367  M02S09637.pfm78   ---|          LDC    ART         SET EVENT TIME
13368  M02S09638.pfm78   ---|          STM    ERRD
Line S00006 Modification History
M01 (Added by) 271l716
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13369  M02S00006.pfm78   ---|          LDM    PFEQ        SET EVENT EST ORDINAL
13370  M02S00007.pfm78   ---|          STM    ERRE
13371  M02S00008.pfm78   ---|          LDM    PFFT        SET EVENT TRACK
13372  M02S00009.pfm78   ---|          STM    ERRC
13373  M02S00010.pfm78   ---|          LDC    ART         SET EVENT TIME
13374  M02S00011.pfm78   ---|          STM    ERRD
Line S09639 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13375  M01S09639.pfm78   ---| PFEA     EQU    *+3
13376  M01S09640.pfm78   ---|          ERROR  FBS,,,FS    *(FILE NAME) BUSY.*
13377  M01S09641.pfm78   ---|*         ERROR  FSE,,,FS    * FILE BOI/EOI/UI MISMATCH.*
13378  M01S09642.pfm78   ---|*         ERROR  ILR,,,FS    * PFM INCORRECT REQUEST.*
13379  M01S09643.pfm78   ---|*         ERROR  FIN,,,FS,EC2  *(FILE NAME) INTERLOCKED.*
13380  M01S09644.pfm78   ---|*         ERROR  DAF,,,FS    *EQXXX,DNYY, DIRECT ACCESS FILE ERROR.*
Line S09645 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13381  M02S09645.pfm78   ---| WSE      SPACE  4,10
13382  M02S09646.pfm78   ---|**        WSE - WRITE SYSTEM SECTOR ERROR PROCESSING.
13383  M02S09647.pfm78   ---|
13384  M02S09648.pfm78   ---|
13385  M02S09649.pfm78   ---| WSE      LDD    P2          RELEASE FILE INTERLOCK
13386  M02S09650.pfm78   ---|          RJM    CTI
13387  M02S09651.pfm78   ---|          ERROR  MSE,,,FS    *EQXXX,DNYY, MASS STORAGE ERROR.*
Line S01197 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13388  M02S01197.pfm78   ---|*         ERROR  MSE,,,FS    *EQXXX,DNYY, MASS STORAGE ERROR.*
13389  M00S09652.pfm     ---|          SPACE  4,10
Line S09653 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13390  M01S09653.pfm78   ---|*         COMMON DECKS.
Line S00081 Modification History
M01 (Added by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13391  M01S00081.pfm78   +++|*         OVERLAYABLE COMMON DECKS.
13392  M00S09654.pfm     +++|
13393  M00S09655.pfm     +++|
13394  M00S09656.pfm     +++| EJT$     SET    0           DEFINE EJT ACCESS
13395  M00S09657.pfm     +++|*CALL     COMPGFP
13396  M00S09658.pfm     +++|*CALL     COMPRSS
13397  M00S09659.pfm     +++|*CALL     COMPSDN
Line S09660 Modification History
M01 (Removed by) pfm78
Seq #  *Modification Id* Act 
----------------------------+
13398  M01S09660.pfm78   ---|*CALL     COMPWSS
13399  M00S09661.pfm     ---|*CALL     COMPSMI
13400  M00S09662.pfm     ---|          SPACE  4,10
13401  M00S09663.pfm     ---|*         CHECK FOR OVERFLOW.
13402  M00S09664.pfm     ---|
13403  M00S09665.pfm     ---|
13404  M00S09666.pfm     ---|          OVERFLOW  OVLC,BUF1-2  OVERFLOW INTO CATALOG BUFFER
13405  M00S09667.pfm     ---|          OVERLAY  (CATLIST PROCESSING.),OVLA
13406  M00S09668.pfm     ---|          SPACE  4,10
13407  M00S09669.pfm     ---|**        THIS OVERLAY READS PERMANENT FILE CATALOG ENTRIES
13408  M00S09670.pfm     ---|*         OR PERMIT ENTRIES FOR A CENTRAL PROCESSOR PROGRAM.
13409  M00S09671.pfm     ---|
13410  M00S09672.pfm     ---|
13411  M00S09673.pfm     ---| OVL      BSS    0           ENTRY
13412  M00S09674.pfm     ---|*         LJM    CAT         PROCESS REQUEST
13413  M00S09675.pfm     ---|          SPACE  4,10
13414  M00S09676.pfm     ---|***       PROCESS *CATLIST* REQUEST.
13415  M00S09677.pfm     ---|*
13416  M00S09678.pfm     ---|*         CALL.
13417  M00S09679.pfm     ---|*
13418  M00S09680.pfm     ---|*T        18/PFM,6/P,12/CCCT,24/FET
Figure

0232429FETCCCT303536414259CCCTPPFM

13419  M00S09681.pfm     ---|*
13420  M00S09682.pfm     ---|*T  FET   42/ *FILENAME*,18/ STATUS
Figure FET

0171829 STATUS *FILENAME*3059 *FILENAME*

13421  M00S09683.pfm     ---|*T,       60/ FIRST
Figure

029 FIRST3059 FIRST

13422  M00S09684.pfm     ---|*T,       60/ IN
Figure

029 IN3059 IN

13423  M00S09685.pfm     ---|*T,       60/ OUT
Figure

029 OUT3059 OUT

13424  M00S09686.pfm     ---|*T,       60/ LIMIT
Figure

029 LIMIT3059 LIMIT

13425  M00S09687.pfm     ---|*T,       60/
Figure

0293059

13426  M00S09688.pfm     ---|*T,       60/ RESERVED
Figure

029 RESERVED3059 RESERVED

13427  M00S09689.pfm     ---|*T,       60/
Figure

0293059

13428  M00S09690.pfm     ---|*T,       42/ *PF NAME*, 6/ SR, 12/ MODE
Figure

01112171829 MODE SR *PF NAME*3059 *PF NAME*

13429  M00S09691.pfm     ---|*T,       42/ OUAN, 6/ DN, 12/
Figure

01112171829 DN OUAN3059 OUAN

13430  M00S09692.pfm     ---|*
13431  M00S09693.pfm     ---|*         STATUS RETURNED,
13432  M00S09694.pfm     ---|*                33          BUFFER FULL.
13433  M00S09695.pfm     ---|*              1033          REQUEST COMPLETED.
13434  M00S09696.pfm     ---|*              BUFFER IS FILLED FROM IN TO LIMIT - 1.
13435  M00S09697.pfm     ---|*
13436  M00S09698.pfm     ---|*         FET+6 RESERVED FOR RECALL INFORMATION TO *PFM*.
13437  M00S09699.pfm     ---|*
13438  M00S09700.pfm     ---|*         PF NAME = PERMANENT FILE NAME.
13439  M00S09701.pfm     ---|*
13440  M00S09702.pfm     ---|*         SR = SPECIAL REQUEST.
13441  M00S09703.pfm     ---|*              IF SR = SRDN, LIST ONLY FILES ON SPECIFIED DEVICE.
13442  M00S09704.pfm     ---|*
13443  M00S09705.pfm     ---|*         MODE = 0           SEARCH FOR CATALOG ENTRIES.
13444  M00S09706.pfm     ---|*         MODE = 1           SEARCH FOR PERMIT ENTRIES.
13445  M00S09707.pfm     ---|*         MODE = 2           SEARCH FOR CATALOG ENTRIES/*PFID* ACCESS.
13446  M00S09708.pfm     ---|*
13447  M00S09709.pfm     ---|*         OUAN = ALTERNATE CATALOG SEARCHED.
13448  M00S09710.pfm     ---|*
13449  M00S09711.pfm     ---|          SPACE  4,10
13450  M00S09712.pfm     ---|***       EXIT.
13451  M00S09713.pfm     ---|*
13452  M00S09714.pfm     ---|*         PF CATALOG ENTRIES WRITTEN TO CM.
13453  M00S09715.pfm     ---|*
13454  M00S09716.pfm     ---|*                FOR NORMAL CATALOG SEARCH FULL CATALOG ENTRY
13455  M00S09717.pfm     ---|*                WRITTEN TO CM (SEE COMSPFM)
13456  M00S09718.pfm     ---|*
13457  M00S09719.pfm     ---|*                FOR ALTERNATE CATALOG SEARCH ENTIRE CATALOG IS
13458  M00S09720.pfm     ---|*                RETURNED WITH THE FOLLOWING FIELDS CLEARED-
13459  M00S09721.pfm     ---|*                     USER INDEX.
13460  M00S09722.pfm     ---|*                     PASSWORD AND PASSWORD EXPIRATION DATE.
13461  M00S09723.pfm     ---|*                     ACCESS LEVEL AND ACCESS CATEGORY SET.
13462  M00S09724.pfm     ---|*
Line S09725 Modification History
M01 (Removed by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13463  M01S09725.pfm28   ---|*                FOR PERMIT DATA REQUEST THE FULL PERMIT ENTRY IS
13464  M01S09726.pfm28   ---|*                WRITTEN TO CM.
13465  M01S09727.pfm28   ---|*
13466  M00S09728.pfm     ---|*                FOR *PFID* ACCESS CATALOG SEARCH, THE FULL CATALOG
13467  M00S09729.pfm     ---|*                ENTRY IS WRITTEN TO CM, WITH A WORD PRECEDING
13468  M00S09730.pfm     ---|*                EACH ENTRY CONTAINING THE *PFID* (DISK ADDRESS)
13469  M00S09731.pfm     ---|*                FOR THAT ENTRY.
Line S00022 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13470  M01S00022.pfm28   +++|*
13471  M01S00023.pfm28   +++|*                IN ALL OF THE ABOVE CASES, IF THE FILE ACCESS
13472  M01S00024.pfm28   +++|*                LEVEL IS ABOVE THE JOB ACCESS LEVEL, THE FOLLOWING
13473  M01S00025.pfm28   +++|*                FIELDS ARE ALSO CLEARED -
13474  M01S00026.pfm28   +++|*                     PASSWORD (REPLACED BY ASTERISKS).
13475  M01S00027.pfm28   +++|*                     PASSWORD EXPIRATION DATE.
13476  M01S00028.pfm28   +++|*                     ACCESS CATEGORY SET.
13477  M01S00029.pfm28   +++|*                     USER CONTROL WORD.
13478  M01S00030.pfm28   +++|*
13479  M01S00031.pfm28   +++|*                FOR A PERMIT DATA REQUEST, THE FULL PERMIT ENTRY IS
13480  M01S00032.pfm28   +++|*                WRITTEN TO CM.  THIS TYPE OF REQUEST IS NOT ALLOWED
13481  M01S00033.pfm28   +++|*                ON A FILE WITH AN ACCESS LEVEL HIGHER THAN THAT OF THE
13482  M01S00034.pfm28   +++|*                CALLING JOB, UNLESS THE JOB IS A SUBSYSTEM.
13483  M00S09732.pfm     +++|          SPACE  4,10
13484  M00S09733.pfm     +++|****      DIRECT LOCATION ASSIGNMENTS.
13485  M00S09734.pfm     +++|
13486  M00S09735.pfm     +++|
13487  M00S09736.pfm     +++| CF       EQU    P0          CONTINUATION FLAG
13488  M00S09737.pfm     +++| DN       EQU    35          DEVICE NUMBER FOR CATALOG LIST
13489  M00S09738.pfm     +++| ST       EQU    45          CATALOG SEARCH TRACK
13490  M00S09739.pfm     +++| SS       EQU    46          CATALOG SEARCH SECTOR
13491  M00S09740.pfm     +++| SI       EQU    47          CATALOG SEARCH INDEX
13492  M00S09741.pfm     +++| EQ       EQU    60          MASTER DEVICE EST ORDINAL
13493  M00S09742.pfm     +++| RI       EQU    61 - 62     RANDOM INDEX
13494  M00S09743.pfm     +++| WC       EQU    63          WORD COUNT
13495  M00S09744.pfm     +++| IN       EQU    64 - 65     FET POINTER
13496  M00S09745.pfm     +++| LM       EQU    66 - 67     FET LIMIT POINTER
13497  M00S09746.pfm     +++|****
Line S09747 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13498  M01S09747.ns2756  ---|          SPACE  4,10
13499  M01S09748.ns2756  ---|*         PROGRAM CONSTANTS.
13500  M01S09749.ns2756  ---|
13501  M01S09750.ns2756  ---|
13502  M01S09751.ns2756  ---| NCST     EQU    0           MODE FOR NORMAL CATALOG SEARCH
13503  M01S09752.ns2756  ---| PDST     EQU    1           MODE FOR PERMIT DATA SEARCH
13504  M01S09753.ns2756  ---| PAST     EQU    2           MODE FOR *PFID* ACCESS
13505  M01S09754.ns2756  ---| ACST     EQU    3           MODE FOR ALTERNATE CATALOG SEARCH
13506  M01S09755.ns2756  ---| MXST     EQU    2           MAXIMUM VALUE FOR USER SPECIFIED MODE
13507  M01S09756.ns2756  ---| CSPC     EQU    20          CATALOG SEARCH PAUSE COUNT LIMIT
13508  M00S09757.pfm     ---|          TITLE  COMMAND PROCESSING.
13509  M00S09758.pfm     ---| CAT      SPACE  4,10
13510  M00S09759.pfm     ---|**        CAT - CATALOG MAIN PROGRAM.
13511  M00S09760.pfm     ---|*
13512  M00S09761.pfm     ---|*         ENTRY  (PFUI - PFUI+1) = USER INDEX.
13513  M00S09762.pfm     ---|*                (UI - UI+1) = USER INDEX OF CALLING USER
13514  M00S09763.pfm     ---|*                (PI - PI+1) = USER INDEX OF ALTERNATE CATALOG.
13515  M00S09764.pfm     ---|*                (PFFN - PFFN+3) = FILE NAME FOR SELECTED FILE CATALOG.
13516  M00S09765.pfm     ---|*                (PFOU - PFOU+3) = CALL BLOCK USER NAME.
13517  M00S09766.pfm     ---|*                (PFFN+4) = MODE OF CALL.
13518  M00S09767.pfm     ---|*
13519  M00S09768.pfm     ---|*         USES   T1.
13520  M00S09769.pfm     ---|*
13521  M00S09770.pfm     ---|*         CALLS  SBS.
13522  M00S09771.pfm     ---|*
13523  M00S09772.pfm     ---|*         MACROS ENDMS, ERROR.
13524  M00S09773.pfm     ---|
13525  M00S09774.pfm     ---|
13526  M00S09775.pfm     ---| CAT      LDM    PFFN+4      SET FUNCTION TYPE
13527  M01S09776.ns2756  ---|          SBN    MXST+1
Line S00001 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13528  M01S00001.ns2756  +++|          SBN    CTMX
13529  M00S09777.pfm     +++|          MJN    CAT1        IF VALID MODE
13530  M00S09778.pfm     +++|          ERROR  ILR,CH,IW   * PFM INCORRECT REQUEST.*
13531  M00S09779.pfm     +++|
Line S09780 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13532  M01S09780.ns2756  ---| CAT1     ADN    MXST+1
Line S00002 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13533  M01S00002.ns2756  +++| CAT1     ADN    CTMX
13534  M00S09781.pfm     +++|          NJN    CAT2        IF NOT ALTERNATE USER
13535  M00S09782.pfm     +++|          LDD    PI          CHECK FOR ALTERNATE USER
13536  M00S09783.pfm     +++|          ADD    PI+1
13537  M00S09784.pfm     +++|          ZJN    CAT2        IF NORMAL CATALOG SEARCH
Line S09785 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13538  M01S09785.ns2756  ---|          LDN    ACST        ALTERNATE CATALOG SEARCH
Line S00003 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13539  M01S00003.ns2756  +++|          LDN    CTCA        ALTERNATE CATALOG SEARCH
13540  M00S09786.pfm     +++| CAT2     STD    T1
13541  M00S09787.pfm     +++|          STM    CATA        SET ACCESS MODE
13542  M00S09788.pfm     +++|
13543  M00S09789.pfm     +++|*         PROCESS REQUEST.
13544  M00S09790.pfm     +++|
13545  M00S09791.pfm     +++|          LDM    CATC,T1
13546  M00S09792.pfm     +++|          STM    CATC
13547  M00S09793.pfm     +++|          LJM    NCS         NORMAL CATALOG SEARCH
13548  M00S09794.pfm     +++| CATC     EQU    *-1
13549  M00S09795.pfm     +++|          CON    PDS         PERMIT DATA SEARCH
13550  M00S09796.pfm     +++|          CON    PAS         *PFID* ACCESS SEARCH
13551  M00S09797.pfm     +++|          CON    ACS         ALTERNATE CATALOG SEARCH
13552  M00S09798.pfm     +++|
13553  M00S09799.pfm     +++|**        CATX - TERMINATE PROGRAM.
13554  M00S09800.pfm     +++|
13555  M00S09801.pfm     +++| CATX     ENDMS
13556  M00S09802.pfm     +++|          LDC    1031        SET BUFFER STATUS TO EOI
13557  M00S09803.pfm     +++|          RJM    SBS
Line S09804 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13558  M01S09804.242l642 ---|          LJM    DPP         DROP PP
Line S01198 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13559  M01S01198.242l642 +++|          UJN    DPP         DROP PP
13560  M00S09805.pfm     +++|
13561  M00S09806.pfm     +++| CATA     CON    0           FUNCTION
13562  M00S09807.pfm     +++| CATB     CON    0           MASTER DEVICE NUMBER
13563  M01S01199.242l642 +++| DPP      SPACE  4,10
13564  M01S01200.242l642 +++|**        DPP - DROP PP.
13565  M01S01201.242l642 +++|
13566  M01S01202.242l642 +++|
Line S01203 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
13567  M02S01203.253l688 ---| DPP      LDK    STDP        SET *DROP PP* STATUS BIT
Line S00389 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
13568  M01S00389.253l688 +++| DPP      BSS    0           ENTRY
13569  M01S00390.253l688 +++|          LDK    STDP        SET *DROP PP* STATUS BIT
Line S01204 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13570  M01S01204.242l642 +++|          RAM    STAU
Line S01205 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
13571  M02S01205.ns2414  ---|          EXECUTE  3PT       DROP PP
Line S00116 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
13572  M01S00116.ns2414  +++|          EXECUTE  3PU       DROP PP
13573  M00S09808.pfm     +++| PAS      SPACE  4,15
13574  M00S09809.pfm     +++|**        PAS - *PFID* ACCESS SEARCH.
13575  M00S09810.pfm     +++|
13576  M00S09811.pfm     +++|
13577  M00S09812.pfm     +++| PAS      BSS    0           ENTRY
13578  M00S09813.pfm     +++|          LDC    LDNI+NWCE+1 SET FOR SIZE OF OUTPUT
13579  M00S09814.pfm     +++|          STM    SHBC
13580  M00S09815.pfm     +++|*         UJN    NCS         (PERFORM NORMAL CATALOG SEARCH)
13581  M00S09816.pfm     +++| NCS      SPACE  4,10
13582  M00S09817.pfm     +++|**        NCS - NORMAL CATALOG SEARCH.
13583  M00S09818.pfm     +++|
13584  M00S09819.pfm     +++|
13585  M00S09820.pfm     +++| NCS      RJM    ISP         INITIALIZE FOR CATALOG SEARCH
13586  M00S09821.pfm     +++| NCS1     RJM    RBS         READ BUFFER FOR CATALOG SEARCH
13587  M00S09822.pfm     +++|          RJM    SHB         SEARCH CATALOG BUFFER
13588  M00S09823.pfm     +++|          ZJN    NCS1        LOOP FOR NEXT SECTOR OF CATALOGS
13589  M00S09824.pfm     +++|          UJN    CATX        EXIT
13590  M00S09825.pfm     +++| ACS      SPACE  4,10
13591  M00S09826.pfm     +++|**        ACS - ALTERNATE CATALOG SEARCH.
13592  M00S09827.pfm     +++|
13593  M00S09828.pfm     +++|
13594  M00S09829.pfm     +++| ACS      RJM    CSU         CHECK FOR SPECIAL USER ACCESS
13595  M00S09830.pfm     +++|          LDD    UI          SWAP USER INDEXES
13596  M00S09831.pfm     +++|          STD    T1
13597  M00S09832.pfm     +++|          LDD    PI
13598  M00S09833.pfm     +++|          STD    UI
13599  M00S09834.pfm     +++|          LDD    T1
13600  M00S09835.pfm     +++|          STD    PI
13601  M00S09836.pfm     +++|          LDD    UI+1
13602  M00S09837.pfm     +++|          STD    T1
13603  M00S09838.pfm     +++|          LDD    PI+1
13604  M00S09839.pfm     +++|          STD    UI+1
13605  M00S09840.pfm     +++|          LDD    T1
13606  M00S09841.pfm     +++|          STD    PI+1
13607  M00S09842.pfm     +++|          RJM    ISP         INITIALIZE FOR CATALOG SEARCH
13608  M00S09843.pfm     +++| ACS1     RJM    RBS         READ BUFFER FOR SEARCH
13609  M00S09844.pfm     +++|          RJM    SHB         SEARCH CATALOG BUFFER
13610  M00S09845.pfm     +++|          ZJN    ACS1        LOOP FOR NEXT SECTOR
13611  M00S09846.pfm     +++|          LJM    CATX        EXIT
13612  M00S09847.pfm     +++| PDS      SPACE  4,10
13613  M00S09848.pfm     +++|**        PDS - PERMIT DATA SEARCH.
13614  M00S09849.pfm     +++|
13615  M00S09850.pfm     +++|
Line S09851 Modification History
M01 (Removed by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13616  M01S09851.pfm28   ---| PDS15    LJM    CATX        RETURN
13617  M01S09852.pfm28   ---|
13618  M00S09853.pfm     ---| PDS      LDM    PFFN        ENTRY
13619  M00S09854.pfm     ---|          NJN    PDS1        IF PERMANENT FILE NAME SPECIFIED
13620  M00S09855.pfm     ---|          ERROR  ILR,CH,IW   * PFM INCORRECT REQUEST.*
13621  M00S09856.pfm     ---|
13622  M00S09857.pfm     ---| PDS1     RJM    ISP         INITIALIZE FOR CATALOG SEARCH
Line S09858 Modification History
M01 (Removed by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
13623  M01S09858.ns2631  ---|          LDD    CF          CHECK CONTINUATIN FLAG
Line S00001 Modification History
M01 (Added by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
13624  M01S00001.ns2631  +++|          LDD    CF          CHECK CONTINUATION FLAG
13625  M00S09859.pfm     +++|          ZJN    PDS2        IF INITIAL CALL
13626  M00S09860.pfm     +++|          LJM    PDS5        CONTINUE READ
13627  M00S09861.pfm     +++|
13628  M00S09862.pfm     +++| PDS2     RJM    RBS         READ BUFFER FOR SEARCH
13629  M00S09863.pfm     +++|          RJM    SHB         SEARCH CATALOG BUFFER
13630  M00S09864.pfm     +++|          ZJN    PDS2        IF FILE NOT FOUND
Line S09865 Modification History
M01 (Removed by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13631  M01S09865.pfm28   ---|          LDM    FCRI,P2     SET PERMIT RANDOM INDEX
Line S00035 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13632  M01S00035.pfm28   +++|
13633  M01S00036.pfm28   +++|*         A PERMIT DATA CATLIST IS NOT ALLOWED ON A FILE WITH AN
13634  M01S00037.pfm28   +++|*         ACCESS LEVEL ABOVE THAT OF THE JOB UNLESS THE CALLER IS
13635  M01S00038.pfm28   +++|*         A SUBSYSTEM.
13636  M01S00039.pfm28   +++|
13637  M01S00040.pfm28   +++|          LDM    SSOM
13638  M01S00041.pfm28   +++|          ZJN    PDS2.1      IF UNSECURED SYSTEM
13639  M01S00042.pfm28   +++|          LDM    FCAL,P2     GET FILE ACCESS LEVEL
13640  M01S00043.pfm28   +++|          LPN    7
13641  M01S00044.pfm28   +++|          STD    T1
13642  M01S00045.pfm28   +++|          LDM    PFAL        GET JOB ACCESS LEVEL
13643  M01S00046.pfm28   +++|          SBD    T1
13644  M01S00047.pfm28   +++|          PJN    PDS2.1      IF FILE ACCESS LEVEL NOT ABOVE JOB LEVEL
13645  M01S00048.pfm28   +++|          LDM    SSID
13646  M01S00049.pfm28   +++|          SBK    LSSI+1
13647  M01S00050.pfm28   +++|          PJN    PDS2.1      IF SUBSYSTEM
13648  M01S00051.pfm28   +++|          ERROR  IUA,,IW     * USER ACCESS NOT VALID.*
13649  M01S00052.pfm28   +++|
13650  M01S00053.pfm28   +++| PDS2.1   LDM    FCRI,P2     SET PERMIT RANDOM INDEX
13651  M00S09866.pfm     +++|          STD    RI
13652  M00S09867.pfm     +++|          LDM    FCRI+1,P2
13653  M00S09868.pfm     +++|          STD    RI+1
13654  M00S09869.pfm     +++|          ADD    RI
13655  M00S09870.pfm     +++|          NJN    PDS4        IF PERMITS AVAILABLE
13656  M00S09871.pfm     +++|
13657  M00S09872.pfm     +++|*         NO PERMITS AVALABLE - SET MESSAGE.
13658  M00S09873.pfm     +++|
13659  M00S09874.pfm     +++| PDS3     LDM    PFOU
Line S09875 Modification History
M01 (Removed by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13660  M01S09875.pfm28   ---|          ZJN    PDS15       IF NOT SPECIFIC USER REQUEST
Line S00054 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13661  M01S00054.pfm28   +++|          ZJP    CATX        IF NOT SPECIFIC USER REQUEST
13662  M00S09876.pfm     +++|          LDD    MA          SET OPTIONAL USER IN FILE NAME
13663  M00S09877.pfm     +++|          CWM    PFOU,ON
13664  M00S09878.pfm     +++|          SBN    1
13665  M00S09879.pfm     +++|          CRD    FN
13666  M00S09880.pfm     +++|          ERROR  FNF,,IW     *(USER NAME) NOT FOUND.*
13667  M00S09881.pfm     +++|
13668  M00S09882.pfm     +++| PDS4     LDN    NWPH        SET SECTOR WORD INDEX
13669  M00S09883.pfm     +++|          STD    SI
13670  M00S09884.pfm     +++|          LDN    0
13671  M00S09885.pfm     +++|          RJM    CSA         COMPUTE SECTOR ADDRESS
13672  M00S09886.pfm     +++|          MJN    PDS3        IF ERROR ON POSITION TO PERMIT SECTOR
13673  M00S09887.pfm     +++|
13674  M00S09888.pfm     +++| PDS5     LDC    BUFB        READ SECTOR
13675  M00S09889.pfm     +++|          RJM    RDS
13676  M00S09890.pfm     +++|          MJN    PDS3        IF ERROR TREAT AS EOI
13677  M00S09891.pfm     +++|          LDM    BUFB
13678  M00S09892.pfm     +++|          ZJN    PDS3        IF EOF/EOI
13679  M00S09893.pfm     +++|          LDM    BUFB+1
Line S09894 Modification History
M01 (Removed by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
13680  M01S09894.ns2649  ---|          ZJN    PDS3        IF WORD COUNT = 0
Line S00019 Modification History
M01 (Added by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
13681  M01S00019.ns2649  +++|          SBN    NWPH+NWPE
13682  M01S00020.ns2649  +++|          MJN    PDS6.1      IF INCORRECT SECTOR LENGTH
Line S00118 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
13683  M01S00118.ns2415  +++|          LPN    NWPE-1
13684  M01S00119.ns2415  +++|          ERRNZ  NWPH-NWPE   HEADER SIZE MUST EQUAL ENTRY SIZE
13685  M01S00120.ns2415  +++|          NJN    PDS6.1      IF NOT INTEGRAL NUMBER OF PERMIT ENTRIES
13686  M00S09895.pfm     +++|          LDC    BUFB        CHECK USER INDEX
13687  M00S09896.pfm     +++|          STD    T1
13688  M00S09897.pfm     +++|          LDD    UI
13689  M00S09898.pfm     +++|          LMM    FPUI,T1
13690  M00S09899.pfm     +++|          NJN    PDS6        IF INCORRECT UI
13691  M00S09900.pfm     +++|          LDD    UI+1
13692  M00S09901.pfm     +++|          LMM    FPUI+1,T1
13693  M00S09902.pfm     +++|          ZJN    PDS7        IF CORRECT UI
Line S09903 Modification History
M01 (Removed by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
13694  M01S09903.ns2631  ---| PDS6     ERROR  RIN,,IW,EQ  *EQXXX,DNYY, RANDOM INDEX ERROR.*
Line S00002 Modification History
M01 (Added by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
13695  M01S00002.ns2631  +++| PDS6     LDD    CF
13696  M01S00003.ns2631  +++|          ZJN    PDS6.0      IF NOT CONTINUATION CALL
13697  M01S00004.ns2631  +++| PDSA     LDC    0
13698  M01S00005.ns2631  +++|*         LDC    (NONZERO)   (NOT FIRST SECTOR)
13699  M01S00006.ns2631  +++|          ZJN    PDS6.2      IF FIRST SECTOR
13700  M01S00007.ns2631  +++| PDS6.0   ERROR  RIN,,IW,T5  *EQXXX,DNYY,RANDOM INDEX ERROR.*
Line S00121 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
13701  M01S00121.ns2415  +++|
13702  M01S00122.ns2415  +++| PDS6.1   ERROR  BCS,,IW,T5,,EI  *EQXXX,DNYY,BAD CATALOG/PERMIT SECTOR*
Line S00008 Modification History
M01 (Added by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
13703  M01S00008.ns2631  +++|
13704  M01S00009.ns2631  +++| PDS6.2   ERROR  ECD,,IW     * ERROR IN CATLIST CONTINUATION DATA.*
13705  M00S09904.pfm     +++|
13706  M00S09905.pfm     +++| PDS7     LDM    PFOU
13707  M00S09906.pfm     +++|          NJN    PDS8        IF SPECIFIC USER REQUEST
13708  M00S09907.pfm     +++|          LJM    PDS12       CONTINUE SEARCH OF PERMITS
13709  M00S09908.pfm     +++|
13710  M00S09909.pfm     +++|*         PROCESS SPECIFIC USER PERMIT REQUEST.
13711  M00S09910.pfm     +++|
Line S09911 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
13712  M01S09911.pfm43   ---| PDS8     LDD    MA          SET USER NAME/USER INDEX FOR SEARCH
Line S00001 Modification History
M01 (Added by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
13713  M01S00001.pfm43   +++| PDS8     LDD    MA          SET USER NAME FOR SEARCH
13714  M00S09912.pfm     +++|          CWM    PFOU,ON
13715  M00S09913.pfm     +++|          SBN    1
13716  M00S09914.pfm     +++|          CRD    CM
Line S09915 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
13717  M01S09915.pfm43   ---|          LDD    CM+3
13718  M01S09916.pfm43   ---|          SCN    77
13719  M01S09917.pfm43   ---|          LMD    PI
13720  M01S09918.pfm43   ---|          STD    CM+3
13721  M01S09919.pfm43   ---|          LDD    PI+1
13722  M01S09920.pfm43   ---|          STD    CM+4
13723  M00S09921.pfm     ---|          RJM    SPB         SEARCH PERMIT BUFFER
13724  M00S09922.pfm     ---|          ZJN    PDS10       IF ENTRY NOT FOUND
13725  M00S09923.pfm     ---|          LDN    NWPE        WRITE ENTRY TO CM
13726  M00S09924.pfm     ---|          STD    T1
13727  M00S09925.pfm     ---|          LDM    FPMD,T2
13728  M00S09926.pfm     ---|          SHN    21-5
13729  M00S09927.pfm     ---|          MJN    PDS9        IF EXPIRATION DATE PRESENT
13730  M00S09928.pfm     ---|          LDM    FPXD,T2     CLEAR EXPIRATION DATE FIELD
13731  M00S09929.pfm     ---|          SCN    77
13732  M00S09930.pfm     ---|          STM    FPXD,T2
13733  M00S09931.pfm     ---|          LDN    0
13734  M00S09932.pfm     ---|          STM    FPXD+1,T2
13735  M00S09933.pfm     ---| PDS9     LDD    T2          WRITE ENTRY TO CM
13736  M00S09934.pfm     ---|          RJM    WDB
13737  M00S09935.pfm     ---|          LJM    CATX        EXIT
13738  M00S09936.pfm     ---|
13739  M00S09937.pfm     ---| PDS10    LDM    BUFB+FPRI   SET ADDRESS OF NEXT BUFFER
13740  M00S09938.pfm     ---|          STD    RI
13741  M00S09939.pfm     ---|          LDM    BUFB+FPRI+1
13742  M00S09940.pfm     ---|          STD    RI+1
13743  M00S09941.pfm     ---|          ADD    RI
13744  M00S09942.pfm     ---|          ZJN    PDS11       IF NO MORE PERMITS
Line S00010 Modification History
M01 (Added by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
13745  M01S00010.ns2631  +++|          AOM    PDSA+1      INDICATE NOT FIRST SECTOR
13746  M00S09943.pfm     +++|          LJM    PDS4        LOOP TO READ NEXT SECTOR
13747  M00S09944.pfm     +++|
13748  M00S09945.pfm     +++| PDS11    LJM    PDS3        EXIT
13749  M00S09946.pfm     +++|
13750  M00S09947.pfm     +++| PDS12    LDN    NWPE        SET WORD COUNT
13751  M00S09948.pfm     +++|          STD    T1
13752  M00S09949.pfm     +++| PDS13    LDD    SI
13753  M00S09950.pfm     +++|          SHN    2
13754  M00S09951.pfm     +++|          ADD    SI
13755  M00S09952.pfm     +++|          ADC    BUFB+2
13756  M00S09953.pfm     +++|          STD    T2          SAVE BASE ADDRESS
13757  M00S09954.pfm     +++|          LDM    FPMD,T2
13758  M00S09955.pfm     +++|          SHN    21-5
13759  M00S09956.pfm     +++|          MJN    PDS14       IF EXPIRATION DATE PRESENT
13760  M00S09957.pfm     +++|          LDM    FPXD,T2     CLEAR EXPIRATION DATE FIELD
13761  M00S09958.pfm     +++|          SCN    77
13762  M00S09959.pfm     +++|          STM    FPXD,T2
13763  M00S09960.pfm     +++|          LDN    0
13764  M00S09961.pfm     +++|          STM    FPXD+1,T2
13765  M00S09962.pfm     +++| PDS14    LDD    T2          WRITE ENTRY TO CM
13766  M00S09963.pfm     +++|          RJM    WDB
13767  M00S09964.pfm     +++|          LDN    NWPE        ADVANCE WORD INDEX
13768  M00S09965.pfm     +++|          RAD    SI
13769  M00S09966.pfm     +++|          LMM    BUFB+1
13770  M00S09967.pfm     +++|          NJN    PDS13       IF MORE ENTRIES
13771  M00S09968.pfm     +++|          LJM    PDS10       LOOP FOR NEXT SECTOR
13772  M00S09969.pfm     +++|          TITLE  SUBROUTINES.
13773  M00S09970.pfm     +++| SBS      SPACE  4,15
13774  M00S09971.pfm     +++|**        SBS - SET STATUS OF BUFFER.
13775  M00S09972.pfm     +++|*
13776  M00S09973.pfm     +++|*         ENTRY  (A) = STATUS TO BE SET.
13777  M00S09974.pfm     +++|*                (IN - IN+1) = CURRENT ADDRESS IN FET.
13778  M00S09975.pfm     +++|*
13779  M00S09976.pfm     +++|*         EXIT   FET STATUS SET.
13780  M00S09977.pfm     +++|*                (IN) UPDATED IN FET.
13781  M00S09978.pfm     +++|*
13782  M00S09979.pfm     +++|*         USES   T1, CM - CM+4.
13783  M00S09980.pfm     +++|*
13784  M00S09981.pfm     +++|*         CALLS  SFA.
13785  M00S09982.pfm     +++|
13786  M00S09983.pfm     +++|
13787  M00S09984.pfm     +++| SBS      SUBR               ENTRY/EXIT
13788  M00S09985.pfm     +++|          STD    T1          SAVE STATUS TO BE SET
13789  M00S09986.pfm     +++|          RJM    SFA         SET FET ADDRESS
13790  M00S09987.pfm     +++|          CRD    CM
13791  M00S09988.pfm     +++|          LDD    CM+4        SET STATUS
13792  M00S09989.pfm     +++|          LPN    2
13793  M00S09990.pfm     +++|          LMD    T1
13794  M00S09991.pfm     +++|          STD    CM+4
13795  M00S09992.pfm     +++|          LDD    CM+3        CLEAR UPPER BITS OF STATUS FIELD
13796  M00S09993.pfm     +++|          SCN    77
13797  M00S09994.pfm     +++|          STD    CM+3
13798  M00S09995.pfm     +++|          RJM    SFA
13799  M00S09996.pfm     +++|          CWD    CM          WRITE FET STATUS
13800  M00S09997.pfm     +++|          LDN    ZERL        UPDATE FET IN POINTER
13801  M00S09998.pfm     +++|          CRD    CM
13802  M00S09999.pfm     +++|          LDD    IN
13803  M00S10000.pfm     +++|          STD    CM+3
13804  M00S10001.pfm     +++|          LDD    IN+1
13805  M00S10002.pfm     +++|          STD    CM+4
13806  M00S10003.pfm     +++|          RJM    SFA
13807  M00S10004.pfm     +++|          ADN    2
13808  M00S10005.pfm     +++|          CWD    CM
13809  M00S10006.pfm     +++|          UJN    SBSX        RETURN
13810  M00S10007.pfm     +++| RBS      SPACE  4,15
13811  M00S10008.pfm     +++|**        RBS - READ BUFFER FOR SEARCH.
13812  M00S10009.pfm     +++|*
13813  M00S10010.pfm     +++|*         ENTRY  (T6) = TRACK.
13814  M00S10011.pfm     +++|*                (T7) = SECTOR.
13815  M00S10012.pfm     +++|*                DEVICE POSITIONED AND CHANNEL RESERVED.
13816  M00S10013.pfm     +++|*                AT RBS1 IF SEARCH TERMINATION DESIRED.
13817  M00S10014.pfm     +++|*
13818  M00S10015.pfm     +++|*         EXIT   (A) = WORD COUNT OF SECTOR READ.
13819  M00S10016.pfm     +++|*                (T6) = NEXT TRACK.
13820  M00S10017.pfm     +++|*                (T7) = NEXT SECTOR.
13821  M00S10018.pfm     +++|*                (WBDB - WDBC) SET TO CURRENT POSITION
Line S10019 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
13822  M01S10019.ns2415  ---|*                (SHBD) ADVANCED IF DA FILES FOUND IN LAST PRU.
13823  M00S10020.pfm     ---|*
13824  M00S10021.pfm     ---|*         CALLS  DPP, RNS, SBS.
13825  M00S10022.pfm     ---|*
13826  M00S10023.pfm     ---|*         MACROS ENDMS, ERROR.
13827  M00S10024.pfm     ---|
13828  M00S10025.pfm     ---|
13829  M00S10026.pfm     ---| RBS      SUBR               ENTRY/EXIT
13830  M00S10027.pfm     ---|          LDC    **          COUNT OF DA FILES FOUND IN BUFFER
13831  M00S10028.pfm     ---| RBSA     EQU    *-1
13832  M00S10029.pfm     ---|          ZJN    RBS1        IF NO DA FILES FOUND IN LAST PRU
13833  M01S10030.ns2415  ---|          AOM    SHBD        ADVANCE CATALOG SEARCH PAUSE COUNT
13834  M00S10031.pfm     ---|          LDN    0           CLEAR PRU COUNT
13835  M00S10032.pfm     ---|          STM    RBSA
13836  M00S10033.pfm     ---|
13837  M00S10034.pfm     ---| RBS1     LDD    T6          SET CURRENT POSITION FOR RECALL
13838  M00S10035.pfm     ---|          STM    WDBB
13839  M00S10036.pfm     ---|          STM    ERRC
13840  M00S10037.pfm     ---|          LDD    T7
13841  M00S10038.pfm     ---|          STM    WDBC
13842  M00S10039.pfm     ---|          STM    ERRD
13843  M00S10040.pfm     ---|          LDC    BUFA        SET BUFFER FOR READ
13844  M00S10041.pfm     ---|          RJM    RNS         READ SECTOR
13845  M00S10042.pfm     ---|          ZJN    RBS2        EOF/EOI SECTOR
13846  M00S10043.pfm     ---|          LPN    NWCE-1
13847  M01S10044.ns2415  ---|          NJN    RBS2        IF NOT INTEGRAL NUMBER OF CATALOG ENTRIES
Line S00123 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
13848  M01S00123.ns2415  +++|          NJN    RBS4        IF NOT INTEGRAL NUMBER OF CATALOG ENTRIES
13849  M00S10045.pfm     +++|          LDD    T1
13850  M00S10046.pfm     +++|          UJN    RBSX        RETURN
13851  M00S10047.pfm     +++|
13852  M00S10048.pfm     +++| RBS2     LDD    FN
13853  M00S10049.pfm     +++|          ZJN    RBS3        IF NOT FILE NAME SEARCH
13854  M00S10050.pfm     +++|          ERROR  FNF,,IW     *(FILE NAME) NOT FOUND.*
13855  M00S10051.pfm     +++|
13856  M00S10052.pfm     +++| RBS3     LDC    1031        SET EOI BUFFER STATUS
13857  M00S10053.pfm     +++|          RJM    SBS
13858  M00S10054.pfm     +++|          ENDMS
13859  M00S10055.pfm     +++|          LJM    DPP         TERMINATE PROGRAM
Line S10056 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
13860  M01S10056.ns2415  ---| RBS4     ERROR  BCS,,IW,T5  *EQXXX,DNYY, BAD CATALOG/PERMIT SECTOR.*
Line S00124 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
13861  M01S00124.ns2415  +++|
13862  M01S00125.ns2415  +++| RBS4     ERROR  BCS,,IW,T5,,EI  *EQXXX,DNYY,BAD CATALOG/PERMIT SECTOR*
13863  M00S10057.pfm     +++| MSR      SPACE  4,10
13864  M00S10058.pfm     +++|**        MSR - MASS STORAGE READ ERROR PROCESSOR.
Line S10059 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13865  M01S10059.242l642 ---|*
13866  M01S10060.242l642 ---|*         TREAT ERROR AS EOI.
13867  M00S10061.pfm     ---|
13868  M00S10062.pfm     ---|
13869  M00S10063.pfm     ---| MSR      SUBR               ENTRY/EXIT
13870  M01S10064.242l642 ---|          UJN    RBS2        TREAT AS EOI
Line S01206 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
13871  M01S01206.242l642 +++|          RJM    PES         PROCESS ERROR STATUS
13872  M01S01207.242l642 +++|          ERROR  MSE,CH,IW,T5  *EQXXX,DNYY, MASS STORAGE ERROR.*
13873  M00S10065.pfm     +++| SHB      SPACE  4,15
13874  M00S10066.pfm     +++|**        SHB - SEARCH CATALOG BUFFER.
13875  M00S10067.pfm     +++|*
13876  M00S10068.pfm     +++|*         ENTRY  (A) = NUMBER OF WORDS IN BUFFER.
13877  M00S10069.pfm     +++|*                (SI) = SEARCH INDEX.
13878  M00S10070.pfm     +++|*                (FN - FN+3) = SELECTED FILE NAME FOR SEARCH
13879  M00S10071.pfm     +++|*                (UI - UI+1) = USER INDEX OF CATALOG TO SEARCH.
13880  M00S10072.pfm     +++|*
13881  M00S10073.pfm     +++|*         EXIT   (A) " 0 IF SPECIFIC ENTRY FOUND
13882  M00S10074.pfm     +++|*                (P2) = FWA OF CATALOG ENTRY
13883  M00S10075.pfm     +++|*
13884  M00S10076.pfm     +++|*         USES   T1, P1, P2, RI - RI+1.
13885  M00S10077.pfm     +++|*
13886  M00S10078.pfm     +++|*         CALLS  WDB, CIP.
13887  M00S10079.pfm     +++|
13888  M00S10080.pfm     +++|
13889  M00S10081.pfm     +++| SHB      SUBR               ENTRY/EXIT
13890  M00S10082.pfm     +++|          STD    P1          SAVE WORD COUNT
13891  M00S10083.pfm     +++|          LDM    CATA        SET CONTROL FOR SEARCH MODE
13892  M00S10084.pfm     +++|          STD    T1
13893  M00S10085.pfm     +++|          LDM    SHBF,T1
13894  M00S10086.pfm     +++|          STM    SHBB
13895  M00S10087.pfm     +++|          LDC    BUFA+2      SET BUFFER DATA BASE
13896  M00S10088.pfm     +++|          STD    P2
13897  M00S10089.pfm     +++|          LDD    SI          SET SEARCH INDEX
13898  M00S10090.pfm     +++|          SHN    2           MULTIPLY BY FIVE
13899  M00S10091.pfm     +++|          ADD    SI
13900  M00S10092.pfm     +++|          RAD    P2          SET DATA ADDRESS TO NEXT CATALOG ENTRY
13901  M00S10093.pfm     +++| SHB1     LDM    FCUI,P2     CHECK USER INDEX
13902  M00S10094.pfm     +++|          LPN    37
13903  M00S10095.pfm     +++|          SHN    14
13904  M00S10096.pfm     +++|          LMM    FCUI+1,P2
13905  M00S10097.pfm     +++|          ZJN    SHB2        IF EMPTY CATALOG ENTRY
13906  M00S10098.pfm     +++| SHBA     PSN
13907  M00S10099.pfm     +++|*         UJN    SHB4        (SET IF PRIVATE DEVICE)
13908  M00S10100.pfm     +++|          LMD    UI+1
13909  M00S10101.pfm     +++|          SHN    6
13910  M00S10102.pfm     +++|          LMD    UI
13911  M00S10103.pfm     +++|          ZJN    SHB4        USER INDEX MATCH
13912  M00S10104.pfm     +++|
13913  M00S10105.pfm     +++|*         INCREMENT FOR NEXT ENTRY.
13914  M00S10106.pfm     +++|
13915  M00S10107.pfm     +++| SHB2     LDC    NWCE*5      ADVANCE ENTRY INDEX
13916  M00S10108.pfm     +++|          RAD    P2
13917  M00S10109.pfm     +++|          LDN    NWCE        INCREMENT WORD COUNT
13918  M00S10110.pfm     +++|          RAD    SI          ADVANCE SEARCH INDEX
13919  M00S10111.pfm     +++|          ADN    NWCE-1      CHECK FOR ANOTHER CATALOG ENTRY
13920  M00S10112.pfm     +++|          SBD    P1
13921  M00S10113.pfm     +++|          MJN    SHB1        IF NOT END OF BUFFER
13922  M00S10114.pfm     +++|          LDN    0
13923  M00S10115.pfm     +++|          STD    SI          CLEAR SEARCH INDEX
13924  M00S10116.pfm     +++| SHB3     LJM    SHBX        RETURN
13925  M00S10117.pfm     +++|
13926  M00S10118.pfm     +++| SHB4     LDD    FN          CHECK AGAINST SELECTED FILE NAME
13927  M00S10119.pfm     +++|          ZJN    SHB6        IF NO SELECTED FILE REQUESTED
13928  M00S10120.pfm     +++|          LMI    P2
13929  M00S10121.pfm     +++|          NJN    SHB2        NO MATCH
13930  M00S10122.pfm     +++|          LDM    1,P2
13931  M00S10123.pfm     +++|          LMD    FN+1
13932  M00S10124.pfm     +++|          NJN    SHB2        NO MATCH
13933  M00S10125.pfm     +++|          LDM    2,P2
13934  M00S10126.pfm     +++|          LMD    FN+2
13935  M00S10127.pfm     +++|          NJN    SHB2        NO MATCH
13936  M00S10128.pfm     +++|          LDM    3,P2
13937  M00S10129.pfm     +++|          LMD    FN+3
13938  M00S10130.pfm     +++|          SCN    77
13939  M00S10131.pfm     +++| SHB5     NJN    SHB2        IF NOT MATCH
13940  M00S10132.pfm     +++| SHB6     BSS    0
13941  M00S10133.pfm     +++| SHBE     UJN    SHB7
13942  M00S10134.pfm     +++|*         PSN                IF CATLIST OF DEVICE NUMBER SPECIFIED.
13943  M00S10135.pfm     +++|
13944  M00S10136.pfm     +++|          LDM    FCDN,P2     CHECK DEVICE NUMBER
13945  M00S10137.pfm     +++|          LPN    77
13946  M00S10138.pfm     +++|          SBD    DN
13947  M00S10139.pfm     +++|          NJN    SHB5        IF NO MATCH
Line S10140 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13948  M01S10140.ns2756  ---| SHB7     LDN    1           SET FOR *PDST* EXIT CASE
Line S00004 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13949  M01S00004.ns2756  +++| SHB7     LDN    1           SET FOR *CTPM* EXIT CASE
13950  M00S10141.pfm     +++|          UJN    *           PERFORM SEARCH DEPENDING ON MODE
13951  M00S10142.pfm     +++| SHBB     EQU    *-1
Line S10143 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13952  M01S10143.ns2756  ---|*         UJN    SHB9        (IF NORMAL CATALOG SEARCH, *NCST*)
13953  M01S10144.ns2756  ---|*         UJN    SHB3        (IF PERMIT DATA SEARCH, *PDST*)
13954  M01S10145.ns2756  ---|*         UJN    SHB9        (IF *PFID* ACCESS SEARCH, *PAST*)
13955  M01S10146.ns2756  ---|*         UJN    SHB8        (IF ALTERNATE CATALOG SEARCH, *ACST*)
Line S00005 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
13956  M01S00005.ns2756  +++|*         UJN    SHB9        (IF NORMAL CATALOG SEARCH, *CTNC*)
13957  M01S00006.ns2756  +++|*         UJN    SHB3        (IF PERMIT DATA SEARCH, *CTPM*)
13958  M01S00007.ns2756  +++|*         UJN    SHB9        (IF *PFID* ACCESS SEARCH, *CTID*)
13959  M01S00008.ns2756  +++|*         UJN    SHB8        (IF ALTERNATE CATALOG SEARCH, *CTCA*)
13960  M00S10147.pfm     +++|
13961  M00S10148.pfm     +++|*         VALIDATE ACCESS AND PREPARE THE *PFC* ENTRY FOR OUTPUT.
13962  M00S10149.pfm     +++|
13963  M00S10150.pfm     +++| SHB8     RJM    CCP         CHECK CATALOG PERMISSION
Line S10151 Modification History
M01 (Removed by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13964  M01S10151.pfm28   ---|          ZJN    SHB11       IF NOT PERMITTED
13965  M01S10152.pfm28   ---| SHB9     LDM    FCBS,P2
Line S00055 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13966  M01S00055.pfm28   +++|          ZJP    SHB11       IF NOT PERMITTED
13967  M01S00056.pfm28   +++| SHB9     LDM    SSOM
Line S00057 Modification History
M01 (Added by) pfm28
M02 (Removed by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13968  M02S00057.ns2616  ---|          ZJP    SHB9.2      IF UNSECURED SYSTEM
Line S00001 Modification History
M01 (Added by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13969  M01S00001.ns2616  +++|          ZJN    SHB9.1      IF UNSECURED SYSTEM
13970  M01S00002.ns2616  +++|          LDM    SSJS
13971  M01S00003.ns2616  +++|          NJN    SHB9.1      IF *SSJ=* CALLER
Line S00058 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13972  M01S00058.pfm28   +++|          LDM    FCAL,P2     GET FILE ACCESS LEVEL
13973  M01S00059.pfm28   +++|          LPN    7
13974  M01S00060.pfm28   +++|          STD    T1
13975  M01S00061.pfm28   +++|          LDM    PFAL        GET JOB ACCESS LEVEL
13976  M01S00062.pfm28   +++|          SBD    T1
Line S00063 Modification History
M01 (Added by) pfm28
M02 (Removed by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13977  M02S00063.ns2616  ---|          PJP    SHB9.2      IF FILE ACCESS LEVEL NOT ABOVE JOB
Line S00004 Modification History
M01 (Added by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13978  M01S00004.ns2616  +++|          MJN    SHB9.2      IF FILE ACCESS LEVEL ABOVE JOB
13979  M01S00005.ns2616  +++| SHB9.1   LJM    SHB9.4      WRITE CATALOG TO CM
Line S00064 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13980  M01S00064.pfm28   +++|
Line S00065 Modification History
M01 (Added by) pfm28
M02 (Removed by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13981  M02S00065.ns2616  ---|*         IF THE FILE ACCESS LEVEL IS HIGHER THAN THE JOB ACCES
13982  M02S00066.ns2616  ---|*         LEVEL, CLEAR THE FOLLOWING PFC FIELDS.
Line S00006 Modification History
M01 (Added by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13983  M01S00006.ns2616  +++|*         IF THE FILE ACCESS LEVEL IS HIGHER THAN THE JOB ACCESS LEVEL,
13984  M01S00007.ns2616  +++|*         CLEAR THE FOLLOWING PFC FIELDS (UNLESS CALLER IS *SSJ=*).
Line S00067 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13985  M01S00067.pfm28   +++|*                1. PASSWORD (REPLACE WITH ASTERISKS).
13986  M01S00068.pfm28   +++|*                2. PASSWORD EXPIRATION DATE.
13987  M01S00069.pfm28   +++|*                3. ACCESS CATEGORY SET.
13988  M01S00070.pfm28   +++|*                4. USER CONTROL WORD.
13989  M01S00071.pfm28   +++|
Line S00072 Modification History
M01 (Added by) pfm28
M02 (Removed by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13990  M02S00072.ns2616  ---|          LDK    FCCW        SET ADDRESS OF USER CONTROL WORD
Line S00008 Modification History
M01 (Added by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13991  M01S00008.ns2616  +++| SHB9.2   LDK    FCCW        SET ADDRESS OF USER CONTROL WORD
Line S00073 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13992  M01S00073.pfm28   +++|          ADD    P2
13993  M01S00074.pfm28   +++|          STM    SHBG
13994  M01S00075.pfm28   +++|          LDM    FCPW,P2
Line S00076 Modification History
M01 (Added by) pfm28
M02 (Removed by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13995  M02S00076.ns2616  ---|          ZJN    SHB9.1      IF NO PASSWORD DEFINED
Line S00009 Modification History
M01 (Added by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
13996  M01S00009.ns2616  +++|          ZJN    SHB9.3      IF NO PASSWORD DEFINED
Line S00077 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
13997  M01S00077.pfm28   +++|          LDC    2R**        REPLACE PASSWORD WITH ASTERISKS
13998  M01S00078.pfm28   +++|          STM    FCPW,P2
13999  M01S00079.pfm28   +++|          STM    FCPW+1,P2
14000  M01S00080.pfm28   +++|          STM    FCPW+2,P2
14001  M01S00081.pfm28   +++|          SCN    77          CLEAR PASSWORD EXPIRATION DATE
14002  M01S00082.pfm28   +++|          STM    FCPW+3,P2
14003  M01S00083.pfm28   +++|*         STM    FCXD,P2
14004  M01S00084.pfm28   +++|          LDN    0
14005  M01S00085.pfm28   +++|          STM    FCXD+1,P2
Line S00086 Modification History
M01 (Added by) pfm28
M02 (Removed by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
14006  M02S00086.ns2616  ---| SHB9.1   STM    FCFC+1,P2   CLEAR ACCESS CATEGORY SET
Line S00010 Modification History
M01 (Added by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
14007  M01S00010.ns2616  +++| SHB9.3   STM    FCFC+1,P2   CLEAR ACCESS CATEGORY SET
Line S00087 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
14008  M01S00087.pfm28   +++|          STM    FCFC+2,P2
14009  M01S00088.pfm28   +++|          LDM    FCFC,P2
14010  M01S00089.pfm28   +++|          LPC    7400
14011  M01S00090.pfm28   +++|          STM    FCFC,P2
14012  M01S00091.pfm28   +++|          LDN    ZERL        CLEAR USER CONTROL WORD
14013  M01S00092.pfm28   +++|          CRM    *,ON
14014  M01S00093.pfm28   +++| SHBG     EQU    *-1         (ADDRESS OF USER CONTROL WORD)
Line S00094 Modification History
M01 (Added by) pfm28
M02 (Removed by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
14015  M02S00094.ns2616  ---| SHB9.2   LDM    FCBS,P2
Line S00095 Modification History
M01 (Added by) pfm28
Seq #  *Modification Id* Act 
----------------------------+
14016  M01S00095.pfm28   +++|
14017  M01S00096.pfm28   +++|*         WRITE CATALOG TO CM.
14018  M01S00097.pfm28   +++|
Line S00011 Modification History
M01 (Added by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
14019  M01S00011.ns2616  +++| SHB9.4   LDM    FCBS,P2
14020  M00S10153.pfm     +++|          SHN    6
Line S10154 Modification History
M01 (Removed by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
14021  M01S10154.ns2616  ---|          PJN    SHB10       IF NO DIRECT ACCESS FILE
14022  M01S10155.ns2616  ---|          RJM    DFS
Line S00012 Modification History
M01 (Added by) ns2616
Seq #  *Modification Id* Act 
----------------------------+
14023  M01S00012.ns2616  +++|          PJN    SHB10       IF NOT DIRECT ACCESS FILE
14024  M01S00013.ns2616  +++|          RJM    DFS         DETERMINE FILE SIZE
14025  M00S10156.pfm     +++| SHB10    LDN    NWCE        WRITE CATALOG TO CM
14026  M00S10157.pfm     +++| SHBC     EQU    *-1
Line S10158 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14027  M01S10158.ns2756  ---|*         LDN    NWCE+1      (IF *PFID* ACCESS SEARCH, *PAST*)
Line S00009 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14028  M01S00009.ns2756  +++|*         LDN    NWCE+1      (IF *PFID* ACCESS SEARCH, *CTID*)
14029  M00S10159.pfm     +++|          STD    T1
14030  M00S10160.pfm     +++|          LDD    P2
14031  M00S10161.pfm     +++|          RJM    WDB
14032  M00S10162.pfm     +++|          LDD    FN
14033  M00S10163.pfm     +++|          ZJN    SHB11       IF NOT SELECTED FILE SEARCH
14034  M00S10164.pfm     +++|          LJM    SHBX        RETURN FILE FOUND
14035  M00S10165.pfm     +++|
Line S10166 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14036  M01S10166.ns2415  ---|*         CHECK IF PAUSE NECESSARY BEFORE CONTINUING SEARCH.
Line S00126 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14037  M01S00126.ns2415  +++| SHB11    STM    RBSA        CLEAR DA FILE COUNT
14038  M01S00127.ns2415  +++| SHB13    LJM    SHB2        LOOP FOR NEXT CATALOG ENTRY
14039  M00S10167.pfm     +++|
Line S10168 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14040  M01S10168.ns2415  ---| SHB11    LDC    **          CATALOG SEARCH PAUSE COUNT
14041  M01S10169.ns2415  ---| SHBD     EQU    *-1
14042  M01S10170.ns2415  ---|          SBN    CSPC
14043  M01S10171.ns2415  ---|          MJN    SHB13       IF PAUSE NOT NECESSARY
14044  M01S10172.ns2415  ---|          ENDMS
14045  M01S10173.ns2415  ---|          PAUSE
14046  M01S10174.ns2415  ---|          LDD    CM+1
14047  M01S10175.ns2415  ---|          ZJN    SHB12       IF ERROR FLAG NOT SET
14048  M01S10176.ns2415  ---|          ERROR  ABT,CH,IW   *PFM ABORTED.*
14049  M01S10177.ns2415  ---|
14050  M01S10178.ns2415  ---| SHB12    STM    SHBD        CLEAR PAUSE COUNT
14051  M01S10179.ns2415  ---|          STM    RBSA        CLEAR DA FILE COUNT
14052  M01S10180.ns2415  ---| SHB13    LJM    SHB2        LOOP FOR NEXT CATALOG ENTRY
14053  M00S10181.pfm     ---|
14054  M00S10182.pfm     ---| SHBF     BSS    0           BRANCH TABLE
14055  M00S10183.pfm     ---|          LOC    SHBB
Line S10184 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14056  M01S10184.ns2756  ---|          UJN    SHB9        *NCST* MODE OF SEARCH
Line S00010 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14057  M01S00010.ns2756  +++|          UJN    SHB9        *CTNC* MODE OF SEARCH
14058  M00S10185.pfm     +++|          LOC    SHBB
Line S10186 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14059  M01S10186.ns2756  ---|          UJN    SHB3        *PDST* MODE OF SEARCH
Line S00011 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14060  M01S00011.ns2756  +++|          UJN    SHB3        *CTPM* MODE OF SEARCH
14061  M00S10187.pfm     +++|          LOC    SHBB
Line S10188 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14062  M01S10188.ns2756  ---|          UJN    SHB9        *PAST* MODE OF SEARCH
Line S00012 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14063  M01S00012.ns2756  +++|          UJN    SHB9        *CTID* MODE OF SEARCH
14064  M00S10189.pfm     +++|          LOC    SHBB
Line S10190 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14065  M01S10190.ns2756  ---|          UJN    SHB8        *ACST* MODE OF SEARCH
Line S00013 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14066  M01S00013.ns2756  +++|          UJN    SHB8        *CTCA* MODE OF SEARCH
14067  M00S10191.pfm     +++|          LOC    *O
14068  M00S10192.pfm     +++| WDB      SPACE  4,20
14069  M00S10193.pfm     +++|**        WDB - WRITE BUFFER TO CENTRAL.
14070  M00S10194.pfm     +++|*
14071  M00S10195.pfm     +++|*         ENTRY  (A) = CATALOG ENTRY ADDRESS.
14072  M00S10196.pfm     +++|*                (T1) = WORD COUNT OF ENTRY TO WRITE
14073  M00S10197.pfm     +++|*                (IN - IN+1) = CURRENT POSITION IN FET.
14074  M00S10198.pfm     +++|*                (LM - LM+1) = FET LIMIT.
14075  M00S10199.pfm     +++|*                (SI) = CURRENT SECTOR WORD INDEX.
14076  M00S10200.pfm     +++|*                (T6 - T7) CURRENT PERMIT BUFFER ADDRESS IF PERMIT LIST.
14077  M00S10201.pfm     +++|*                (WDBB - WDBC) SET TO CURRENT CATALOG SEARCH POS.
14078  M00S10202.pfm     +++|*
14079  M00S10203.pfm     +++|*         EXIT   CATALOG ENTRY WRITTEN TO BUFFER.
14080  M00S10204.pfm     +++|*                (IN - IN+1) ADVANCED
14081  M00S10205.pfm     +++|*                TO DPP IF BUFFER FULL (EOF STATUS SET IN FET)
14082  M00S10206.pfm     +++|*
14083  M00S10207.pfm     +++|*         USES   T2, CM - CM+4.
14084  M00S10208.pfm     +++|*
14085  M00S10209.pfm     +++|*         CALLS  PCA, SBS, SFA, SRA.
14086  M00S10210.pfm     +++|*
14087  M00S10211.pfm     +++|*         MACROS ENDMS, ERROR.
14088  M00S10212.pfm     +++|
14089  M00S10213.pfm     +++|
14090  M00S10214.pfm     +++| WDB      SUBR               ENTRY/EXIT
14091  M00S10215.pfm     +++|          STD    T2          SET ADDRESS FOR WRITE
14092  M00S10216.pfm     +++|          STM    WDBA
14093  M00S10217.pfm     +++|          LDD    IN          CHECK FOR ROOM IN BUFFER FOR NEXT ENTRY
14094  M00S10218.pfm     +++|          SHN    14
14095  M00S10219.pfm     +++|          ADD    IN+1
14096  M00S10220.pfm     +++|          ADD    T1
14097  M00S10221.pfm     +++|          STD    CM+4
14098  M00S10222.pfm     +++|          SHN    -14
14099  M00S10223.pfm     +++|          STD    CM+3
14100  M00S10224.pfm     +++|          SBD    LM
14101  M00S10225.pfm     +++|          SHN    14
14102  M00S10226.pfm     +++|          ADD    CM+4
14103  M00S10227.pfm     +++|          SBD    LM+1
14104  M00S10228.pfm     +++|          PJN    WDB1        IF BUFFER FULL
14105  M00S10229.pfm     +++|          RJM    PCA         PROCESS CATALOG ADDRESS ACCESS MODE
14106  M00S10230.pfm     +++|          LDD    IN          WRITE ENTRY TO BUFFER
14107  M00S10231.pfm     +++|          SHN    6
14108  M00S10232.pfm     +++|          ADD    RA
14109  M00S10233.pfm     +++|          SHN    6
14110  M00S10234.pfm     +++|          ADD    IN+1
14111  M00S10235.pfm     +++|          CWM    *,T1
14112  M00S10236.pfm     +++| WDBA     EQU    *-1
14113  M00S10237.pfm     +++|          LDD    CM+3        ADVANCE IN POINTER
14114  M00S10238.pfm     +++|          STD    IN
14115  M00S10239.pfm     +++|          LDD    CM+4
14116  M00S10240.pfm     +++|          STD    IN+1
14117  M00S10241.pfm     +++|          LDN    IPCE        PF INCREMENT FOR CATALOG ENTRY RETURNED
Line S10242 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14118  M01S10242.242l642 ---|          RAM    DPPF
Line S01208 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14119  M01S01208.242l642 +++|          RAM    AIPF+1
14120  M00S10243.pfm     +++|          LJM    WDBX        EXIT
14121  M00S10244.pfm     +++|
14122  M00S10245.pfm     +++|*         BUFFER FULL.
14123  M00S10246.pfm     +++|
14124  M00S10247.pfm     +++| WDB1     ENDMS
14125  M00S10248.pfm     +++|          LDM    CATA
Line S10249 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14126  M01S10249.ns2756  ---|          LMN    PDST
Line S00014 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14127  M01S00014.ns2756  +++|          LMN    CTPM
14128  M00S10250.pfm     +++|          ZJN    WDB2        IF PERMIT FILE POSITION TO BE SAVED
14129  M00S10251.pfm     +++|          LDC    *           SET CURRENT POSITION
14130  M00S10252.pfm     +++| WDBB     EQU    *-1
14131  M00S10253.pfm     +++|          STD    T6
14132  M00S10254.pfm     +++|          LDC    *
14133  M00S10255.pfm     +++| WDBC     EQU    *-1
14134  M00S10256.pfm     +++|          STD    T7
14135  M00S10257.pfm     +++|          LDM    DVLW+1      SET ALLOCATOR TRACK
14136  M00S10258.pfm     +++|          UJN    WDB3
14137  M00S10259.pfm     +++| WDB2     LDM    DVLW+2      SET PERMIT FILE
14138  M00S10260.pfm     +++| WDB3     RJM    SRA         SET RANDOM ADDRESS
14139  M00S10261.pfm     +++|          ZJN    WDB4        IF NO ERROR
14140  M00S10262.pfm     +++|          ERROR  RIN,CH,IW,EQ  *EQXXX,DNYY, RANDOM INDEX ERROR.*
14141  M00S10263.pfm     +++|
14142  M00S10264.pfm     +++| WDB4     LDN    ZERL        CLEAR ASSEMBLY AREA
14143  M00S10265.pfm     +++|          CRD    CM
14144  M00S10266.pfm     +++|          LDD    RI+1        REPOSITION RANDOM ADDRESS
14145  M00S10267.pfm     +++|          SHN    6
14146  M00S10268.pfm     +++|          STD    CM+2
14147  M00S10269.pfm     +++|          LPC    770000
14148  M00S10270.pfm     +++|          ADD    RI
14149  M00S10271.pfm     +++|          SHN    6
14150  M00S10272.pfm     +++|          STD    CM+1
14151  M00S10273.pfm     +++|          LPC    770000
14152  M00S10274.pfm     +++|          ADD    SI
14153  M00S10275.pfm     +++|          SHN    6
14154  M00S10276.pfm     +++|          STD    CM
14155  M00S10277.pfm     +++|          RJM    SFA         SET FET ADDRESS
14156  M00S10278.pfm     +++|          ADN    CFCN
14157  M00S10279.pfm     +++|          CWD    CM          WRITE ADDRESS TO FET
14158  M00S10280.pfm     +++|          LDN    31          SET END OF FILE STATUS
14159  M00S10281.pfm     +++|          RJM    SBS         SET STATUS OF BUFFER
14160  M00S10282.pfm     +++|          LJM    DPP         TERMINATE PROGRAM
14161  M00S10283.pfm     +++|
Line S10284 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14162  M01S10284.242l642 ---| CCP      SPACE  4,15
Line S01209 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14163  M01S01209.242l642 +++| CCP      SPACE  4,20
14164  M00S10285.pfm     +++|**        CCP - CHECK CATALOG PERMISSION.
14165  M00S10286.pfm     +++|*
14166  M00S10287.pfm     +++|*         CATALOG ENTRY RETURNED IF ALTERNATE CATLIST PERMISSION HAS
14167  M00S10288.pfm     +++|*         BEEN GRANTED AND USER IS VALID TO ACCESS FILE.
14168  M00S10289.pfm     +++|*
14169  M00S10290.pfm     +++|*         ENTRY  (P2) = ADDRESS OF CATALOG ENTRY.
14170  M00S10291.pfm     +++|*
14171  M00S10292.pfm     +++|*         EXIT   (A) = 0 IF USER NOT PERMITTED TO FILE.
14172  M00S10293.pfm     +++|*                CATALOG ENTRY ADJUSTED IF USER PERMITTED.
Line S10294 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14173  M01S10294.ns2415  ---|*                (SHBD) ADVANCED IF PERMIT SECTOR READ
14174  M00S10295.pfm     ---|*
14175  M00S10296.pfm     ---|*         USES   T1, T2, T6, T7, P3, ST, SS.
14176  M00S10297.pfm     ---|*
Line S10298 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14177  M01S10298.242l642 ---|*         CALLS  CSA, RDS, SPB.
Line S01210 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14178  M01S01210.242l642 +++|*         CALLS  CSA, MSR, PDV, RDS, SPB.
14179  M00S10299.pfm     +++|*
Line S10300 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14180  M01S10300.242l642 ---|*         MACROS SETMS.
Line S01211 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14181  M01S01211.242l642 +++|*         MACROS MONITOR, SETMS.
14182  M00S10301.pfm     +++|
14183  M00S10302.pfm     +++|
14184  M00S10303.pfm     +++| CCP10    LDN    0           DENY ACCESS TO USER
14185  M00S10304.pfm     +++| CCP11    ZJP    CCPX        IF USER NOT PERMITTED
14186  M00S10305.pfm     +++| CCP12    LDM    FCAM,P2     CHECK PERMISSION MODE
14187  M00S10306.pfm     +++|          LPN    77
14188  M00S10307.pfm     +++|          LMN    PTNU
14189  M00S10308.pfm     +++|          ZJN    CCP11       IF *NULL* PERMISSION
14190  M00S10309.pfm     +++|
14191  M00S10310.pfm     +++|*         CHECK FOR EXPIRED PERMIT.
14192  M00S10311.pfm     +++|
Line S10312 Modification History
M01 (Removed by) pfm32
Seq #  *Modification Id* Act 
----------------------------+
14193  M01S10312.pfm32   ---|          LDD    T2
Line S00001 Modification History
M01 (Added by) pfm32
Seq #  *Modification Id* Act 
----------------------------+
14194  M01S00001.pfm32   +++|          LDD    P3
14195  M00S10313.pfm     +++|          ZJN    CCP13       IF NO PERMIT ENTRY FOUND
14196  M00S10314.pfm     +++|          LDM    FPMD,T2     CHECK FOR EXPIRED PERMIT
14197  M00S10315.pfm     +++|          SHN    21-5
14198  M00S10316.pfm     +++|          PJN    CCP13       IF NO EXPIRATION DATE PRESENT
14199  M00S10317.pfm     +++|          LDM    FPXD,T2
14200  M00S10318.pfm     +++|          LPN    77
14201  M00S10319.pfm     +++|          STD    CM+3
14202  M00S10320.pfm     +++|          SHN    14
14203  M00S10321.pfm     +++|          LMM    FPXD+1,T2
14204  M00S10322.pfm     +++|          ZJN    CCP13       IF NON-EXPIRING PERMIT
14205  M00S10323.pfm     +++|          STD    CM+4
14206  M00S10324.pfm     +++|          LDN    VEDS        VALIDATE EXPIRATION DATE
14207  M00S10325.pfm     +++|          STD    CM+1
14208  M00S10326.pfm     +++|          MONITOR  VSAM
14209  M00S10327.pfm     +++|          LDD    CM+1
14210  M00S10328.pfm     +++|          NJN    CCP10       IF EXPIRED
14211  M00S10329.pfm     +++|
14212  M00S10330.pfm     +++|*         VALIDATE ACCESS LEVEL/CATEGORY SET OF USER.
14213  M00S10331.pfm     +++|
Line S10332 Modification History
M01 (Removed by) pfm60
Seq #  *Modification Id* Act 
----------------------------+
14214  M01S10332.pfm60   ---| CCP13    LDD    P2
14215  M01S10333.pfm60   ---|          ADK    FCAL-1
14216  M01S10334.pfm60   ---|          STM    CCPE
14217  M01S10335.pfm60   ---|          LDD    MA
14218  M01S10336.pfm60   ---|          CWM    *,ON
14219  M01S10337.pfm60   ---| CCPE     EQU    *-1
Line S00016 Modification History
M01 (Added by) pfm60
Seq #  *Modification Id* Act 
----------------------------+
14220  M01S00016.pfm60   +++| CCP13    LDN    ZERL
14221  M01S00017.pfm60   +++|          CRD    CM
14222  M01S00018.pfm60   +++|          LDM    FCAL,P2     SET ACCESS LEVEL
14223  M01S00019.pfm60   +++|          LPN    7
14224  M01S00020.pfm60   +++|          STD    CM+1
14225  M01S00021.pfm60   +++|          LDM    FCFC,P2     SET ACCESS CATEGORY
14226  M01S00022.pfm60   +++|          LPC    377
14227  M01S00023.pfm60   +++|          STD    CM+2
14228  M01S00024.pfm60   +++|          LDM    FCFC+1,P2
14229  M01S00025.pfm60   +++|          STD    CM+3
14230  M01S00026.pfm60   +++|          LDM    FCFC+2,P2
14231  M01S00027.pfm60   +++|          STD    CM+4
14232  M01S00028.pfm60   +++|          LDD    MA
14233  M01S00029.pfm60   +++|          CWD    CM
14234  M00S10338.pfm     +++|          LDN    ZERL
14235  M00S10339.pfm     +++|          CRD    CM
14236  M00S10340.pfm     +++|          LDN    3           CHECK ACCESS LEVEL/ACCESS CATEGORY SET
14237  M00S10341.pfm     +++|          STD    CM+4
14238  M00S10342.pfm     +++|          LDN    VAJS        CHECK AGAINST USER-S VALIDATION
14239  M00S10343.pfm     +++|          STD    CM+1
14240  M00S10344.pfm     +++|          MONITOR  VSAM
14241  M00S10345.pfm     +++|          LDD    CM+1
14242  M00S10346.pfm     +++|          NJP    CCP10       IF NOT VALID ACCESS
14243  M00S10347.pfm     +++|
14244  M00S10348.pfm     +++|*         CLEAR FIELDS IN CATALOG ENTRY.
14245  M00S10349.pfm     +++|
14246  M00S10350.pfm     +++|          LDN    FCPW        SET FWA OF PASSWORD
14247  M00S10351.pfm     +++|          ADD    P2
14248  M00S10352.pfm     +++|          STM    CCPC
14249  M00S10353.pfm     +++|          ADN    FCAL-1-FCPW SET FWA OF ACCESS LEVEL AND CATEGORY SET
14250  M00S10354.pfm     +++|          STM    CCPD
14251  M00S10355.pfm     +++|          ADN    FCCN-FCAL   SET FWA OF CHARGE NUMBER
14252  M00S10356.pfm     +++|          STM    CCDF
14253  M00S10357.pfm     +++|          ADK    FCP1-FCCN   SET FWA OF PROJECT NUMBER
14254  M00S10358.pfm     +++|          STM    CCDG
14255  M00S10359.pfm     +++|          ADK    FCP2-FCP1   SET FWA OF WORD 2 OF PROJECT NUMBER
14256  M00S10360.pfm     +++|          STM    CCDH
14257  M00S10361.pfm     +++|          LDN    ZERL        CLEAR PASSWORD AND EXPIRATION DATE
14258  M00S10362.pfm     +++|          CRM    *,ON
14259  M00S10363.pfm     +++| CCPC     EQU    *-1         (FWA OF PASSWORD)
14260  M00S10364.pfm     +++|          LDN    ZERL        CLEAR ACCESS LEVEL AND CATEGORIES
14261  M00S10365.pfm     +++|          CRM    *,ON
14262  M00S10366.pfm     +++| CCPD     EQU    *-1
14263  M00S10367.pfm     +++|          LDN    0
14264  M00S10368.pfm     +++|          STM    FCUI+1,P2   CLEAR USER INDEX
14265  M00S10369.pfm     +++|          LDM    FCUI,P2
14266  M00S10370.pfm     +++|          SCN    77
14267  M00S10371.pfm     +++|          STM    FCUI,P2
14268  M00S10372.pfm     +++|          LDM    SSJS
14269  M00S10373.pfm     +++|          NJN    CCP14       IF CALLER IS *SSJ=* PROGRAM
14270  M00S10374.pfm     +++|          LDN    ZERL        CLEAR CHARGE/PROJECT FIELDS
14271  M00S10375.pfm     +++|          CRM    *,ON
14272  M00S10376.pfm     +++| CCDF     EQU    *-1
14273  M00S10377.pfm     +++|          LDN    ZERL
14274  M00S10378.pfm     +++|          CRM    *,ON
14275  M00S10379.pfm     +++| CCDG     EQU    *-1
14276  M00S10380.pfm     +++|          LDN    ZERL
14277  M00S10381.pfm     +++|          CRM    *,ON
14278  M00S10382.pfm     +++| CCDH     EQU    *-1
14279  M00S10383.pfm     +++| CCP14    LDN    1           RETURN PERMISSION FLAG
14280  M00S10384.pfm     +++|
14281  M00S10385.pfm     +++| CCP      SUBR               ENTRY/EXIT
14282  M00S10386.pfm     +++|          LDM    FCAP,P2     CHECK ALTERNATE CATLIST PERMISSION
14283  M00S10387.pfm     +++|          SHN    0-12
14284  M00S10388.pfm     +++|          NJN    CCP1        IF ALTERNATE CATLIST PERMISSION PRESENT
Line S10389 Modification History
M01 (Removed by) ns2351
Seq #  *Modification Id* Act 
----------------------------+
14285  M01S10389.ns2351  ---|          LDN    ACNO        DENY ALTERNATE CATLIST PERMISSION
Line S00002 Modification History
M01 (Added by) ns2351
Seq #  *Modification Id* Act 
----------------------------+
14286  M01S00002.ns2351  +++|          LDN    ACEX        USE DEFAULT PERMISSION FOR EXISTING FILES
14287  M00S10390.pfm     +++| CCP1     LMN    ACNO
14288  M00S10391.pfm     +++|          ZJN    CCPX        IF ALTERNATE CATLIST NOT PERMITTED
Line S10392 Modification History
M01 (Removed by) pfm32
Seq #  *Modification Id* Act 
----------------------------+
14289  M01S10392.pfm32   ---|          LDN    0           CLEAR PERMIT ENTRY ADDRESS
14290  M01S10393.pfm32   ---|          STD    T2
Line S00002 Modification History
M01 (Added by) pfm32
Seq #  *Modification Id* Act 
----------------------------+
14291  M01S00002.pfm32   +++|          LDN    0           CLEAR PERMIT SEARCH STATUS
14292  M01S00003.pfm32   +++|          STD    P3
Line S10394 Modification History
M01 (Removed by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14293  M01S10394.pfm67   ---|          LDM    FCCT,P2     CHECK FILE CATEGORY
14294  M01S10395.pfm67   ---|          SHN    -6
14295  M01S10396.pfm67   ---|          LMN    FCPB
14296  M01S10397.pfm67   ---|          ZJP    CCP12       IF PUBLIC FILE
14297  M01S10398.pfm67   ---|          LMN    FCSP&FCPB
14298  M01S10399.pfm67   ---|          NJN    CCP2        IF NOT SEMI-PRIVATE FILE
14299  M01S10400.pfm67   ---|          LDC    CCP12       PRESET RETURN FOR SEMI-PRIVATE FILES
14300  M01S10401.pfm67   ---|          STM    CCPA
14301  M01S10402.pfm67   ---|          STM    CCPB
14302  M01S10403.pfm67   ---|          UJN    CCP3        PROCESS SEMIPRIVATE FILE
14303  M00S10404.pfm     ---|
14304  M01S10405.pfm67   ---| CCP2     LDC    CCPX        PRESET RETURN FOR PRIVATE FILES
14305  M01S10406.pfm67   ---|          STM    CCPA
14306  M01S10407.pfm67   ---|          LDC    CCP11
14307  M01S10408.pfm67   ---|          STM    CCPB
Line S00012 Modification History
M01 (Added by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14308  M01S00012.pfm67   +++|*         SEARCH FOR PERMIT ENTRY.
14309  M00S10409.pfm     +++|
Line S10410 Modification History
M01 (Removed by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14310  M01S10410.pfm67   ---|*         PRIVATE/SEMI-PRIVATE FILE, SEARCH PERMIT BUFFER FOR USER.
14311  M01S10411.pfm67   ---|
14312  M01S10412.pfm67   ---| CCP3     LDM    FCRI,P2     SET PERMIT INDEX
Line S00013 Modification History
M01 (Added by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14313  M01S00013.pfm67   +++|          LDM    FCRI,P2     SET PERMIT INDEX
14314  M00S10413.pfm     +++|          STD    RI
14315  M00S10414.pfm     +++|          LDM    FCRI+1,P2
14316  M00S10415.pfm     +++|          STD    RI+1
14317  M00S10416.pfm     +++|          ADD    RI
14318  M00S10417.pfm     +++|          NJN    CCP4        IF PERMIT INDEX PRESENT
Line S10418 Modification History
M01 (Removed by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14319  M01S10418.pfm67   ---|          LJM    *           IF NO PERMIT INDEX, RETURN
14320  M01S10419.pfm67   ---| CCPA     EQU    *-1
14321  M01S10420.pfm67   ---|*         LJM    CCPX        (PRIVATE FILE)
14322  M01S10421.pfm67   ---|*         LJM    CCP12       (SEMI-PRIVATE FILE)
Line S00014 Modification History
M01 (Added by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14323  M01S00014.pfm67   +++|          LDM    FCCT,P2     CHECK FILE CATEGORY
14324  M01S00015.pfm67   +++|          SHN    -6
14325  M01S00016.pfm67   +++|          LMN    FCPR
14326  M01S00017.pfm67   +++|          ZJN    CCPX        IF PRIVATE FILE
14327  M01S00018.pfm67   +++|          LJM    CCP12       CHECK PERMISSION MODE IN PFC
14328  M00S10422.pfm     +++|
Line S10423 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14329  M01S10423.ns2415  ---| CCP4     AOM    SHBD        ADVANCE CATALOG SEARCH PAUSE COUNT
14330  M01S10424.ns2415  ---|          LDN    IPPA        PF INCREMENT FOR PERMIT FILE ACCESS
Line S00128 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14331  M01S00128.ns2415  +++| CCP4     LDN    IPPA        PF INCREMENT FOR PERMIT FILE ACCESS
Line S10425 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14332  M01S10425.242l642 ---|          RAM    DPPF
Line S01212 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14333  M01S01212.242l642 +++|          RAM    AIPF+1
14334  M00S10426.pfm     +++|          LDD    T6          SAVE POSITION OF CATALOGS
14335  M00S10427.pfm     +++|          STD    ST
14336  M00S10428.pfm     +++|          LDD    T7
14337  M00S10429.pfm     +++|          STD    SS
14338  M00S10430.pfm     +++|          LDD    P2
14339  M00S10431.pfm     +++| CCP5     RJM    CSA         COMPUTE SECTOR ADDRESS
Line S10432 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14340  M01S10432.242l642 ---|          SETMS  READ
Line S01213 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14341  M01S01213.242l642 +++|          SETMS  IO
14342  M01S01214.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
14343  M00S10433.pfm     +++|          LDC    BUFB        READ PERMIT BUFFER
14344  M00S10434.pfm     +++|          RJM    RDS
14345  M00S10435.pfm     +++|          PJN    CCP6        IF NO ERROR
Line S10436 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14346  M01S10436.242l642 ---|          LDN    0           TERMINATE SEARCH
14347  M01S10437.242l642 ---|          UJN    CCP8        SET TERMINATED SEARCH STATUS
Line S01215 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14348  M01S01215.242l642 +++|          RJM    MSR         PROCESS READ ERROR
14349  M00S10438.pfm     +++|
14350  M00S10439.pfm     +++| CCP6     LDM    BUFB        CHECK CONTROL BYTES
14351  M00S10440.pfm     +++|          ZJN    CCP8        IF TERMINATING SEARCH
14352  M00S10441.pfm     +++|          LDM    BUFB+1
Line S10442 Modification History
M01 (Removed by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
14353  M01S10442.ns2649  ---|          ZJN    CCP8        IF EMPTY SECTOR
Line S00021 Modification History
M01 (Added by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
14354  M01S00021.ns2649  +++|          SBN    NWPH+NWPE
14355  M01S00022.ns2649  +++|          MJN    CCP6.0      IF INCORRECT SECTOR LENGTH
Line S10443 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14356  M01S10443.ns2415  ---|          LDD    CP          SET USER NAME FOR SEARCH
Line S00129 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14357  M01S00129.ns2415  +++|          LPN    NWPE-1
14358  M01S00130.ns2415  +++|          ERRNZ  NWPH-NWPE   HEADER SIZE MUST EQUAL ENTRY SIZE
14359  M01S00131.ns2415  +++|          ZJN    CCP6.1      IF INTEGRAL NUMBER OF PERMIT ENTRIES
Line S00132 Modification History
M01 (Added by) ns2415
M02 (Removed by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
14360  M02S00132.ns2649  ---|          ERROR  BCS,,IW,T5,,EI  *EQXXX,DNYY,BAD CATALOG/PERMIT SECTOR*
Line S00023 Modification History
M01 (Added by) ns2649
Seq #  *Modification Id* Act 
----------------------------+
14361  M01S00023.ns2649  +++| CCP6.0   ERROR  BCS,,IW,T5,,EI  *EQXXX,DNYY,BAD CATALOG/PERMIT SECTOR*
Line S00133 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14362  M01S00133.ns2415  +++|
14363  M01S00134.ns2415  +++| CCP6.1   LDD    CP          SET USER NAME FOR SEARCH
14364  M00S10444.pfm     +++|          ADN    UIDW
14365  M00S10445.pfm     +++|          CRD    CM
14366  M00S10446.pfm     +++|          RJM    SPB         SEARCH PERMIT BUFFER
14367  M00S10447.pfm     +++|          NJN    CCP8        IF PERMIT FOUND
14368  M00S10448.pfm     +++| CCP7     LDM    BUFB+FPRI   CHECK FOR PERMIT LINK
14369  M00S10449.pfm     +++|          STD    RI
14370  M00S10450.pfm     +++|          LDM    BUFB+FPRI+1
14371  M00S10451.pfm     +++|          STD    RI+1
14372  M00S10452.pfm     +++|          ADD    RI
Line S10453 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14373  M01S10453.242l642 ---|          NJN    CCP5        IF PERMIT BUFFERS CONTINUE
Line S01216 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14374  M01S01216.242l642 +++|          NJP    CCP5        IF MORE PERMITS TO CHECK
14375  M00S10454.pfm     +++| CCP8     STD    P3          SAVE SEARCH STATUS
14376  M00S10455.pfm     +++|          ZJN    CCP9        IF TERMINATING PERMIT SEARCH
14377  M00S10456.pfm     +++|          LDM    FPMD,T2     CHECK PERMIT TYPE
14378  M00S10457.pfm     +++|          SHN    21-4
14379  M00S10458.pfm     +++|          MJN    CCP7        IF ACCOUNTING PERMIT
14380  M00S10459.pfm     +++|          SHN    4-4-21+4    SET PERMIT MODE
14381  M00S10460.pfm     +++|          LPN    17
14382  M00S10461.pfm     +++|          STD    T1
14383  M00S10462.pfm     +++|          LDM    FCAM,P2
14384  M00S10463.pfm     +++|          SCN    77
14385  M00S10464.pfm     +++|          ADD    T1
14386  M00S10465.pfm     +++|          STM    FCAM,P2
14387  M00S10466.pfm     +++| CCP9     LDD    ST          RESET SEARCH ADDRESS
14388  M00S10467.pfm     +++|          STD    T6
14389  M00S10468.pfm     +++|          LDD    SS
14390  M00S10469.pfm     +++|          STD    T7
Line S10470 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14391  M01S10470.242l642 ---|          SETMS  READ
Line S01217 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
14392  M02S01217.ns2645  ---|          SETMS  IO
Line S00017 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
14393  M01S00017.ns2645  +++|          SETMS  READSTR
Line S01218 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14394  M01S01218.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
Line S10471 Modification History
M01 (Removed by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14395  M01S10471.pfm67   ---|          LDD    P3          PROCESS CATALOG ENTRY
14396  M01S10472.pfm67   ---|          LJM    *           CHECK PERMISSION MODE
14397  M01S10473.pfm67   ---| CCPB     EQU    *-1
14398  M01S10474.pfm67   ---|*         LJM    CCP11       (PRIVATE FILE)
14399  M01S10475.pfm67   ---|*         LJM    CCP12       (SEMI-PRIVATE FILE)
Line S00019 Modification History
M01 (Added by) pfm67
Seq #  *Modification Id* Act 
----------------------------+
14400  M01S00019.pfm67   +++|          LDD    P3
14401  M01S00020.pfm67   +++|          NJN    CCP9.1      IF PERMIT ENTRY FOUND
14402  M01S00021.pfm67   +++|          LDM    FCCT,P2     CHECK FILE CATEGORY
14403  M01S00022.pfm67   +++|          SHN    -6
14404  M01S00023.pfm67   +++|          LMN    FCPR
14405  M01S00024.pfm67   +++|          ZJP    CCPX        IF PRIVATE FILE
14406  M01S00025.pfm67   +++| CCP9.1   LJM    CCP12       CHECK PERMISSION MODE IN PERMIT OR PFC
14407  M00S10476.pfm     +++| DFS      SPACE  4,15
14408  M00S10477.pfm     +++|**        DFS - DETERMINE FILE SIZE.
14409  M00S10478.pfm     +++|*
14410  M00S10479.pfm     +++|*         ENTRY  (P2) = ADDRESS OF CATALOG ENTRY.
14411  M00S10480.pfm     +++|*                (EQ) = MASTER DEVICE EST ORDINAL.
14412  M00S10481.pfm     +++|*
14413  M00S10482.pfm     +++|*         EXIT   LENGTH OF FILE SET IN CATALOG ENTRY.
14414  M00S10483.pfm     +++|*
Line S10484 Modification History
M01 (Removed by) pfm74
Seq #  *Modification Id* Act 
----------------------------+
14415  M01S10484.pfm74   ---|*         USES   T1-T7, CM - CM+4.
Line S00001 Modification History
M01 (Added by) pfm74
Seq #  *Modification Id* Act 
----------------------------+
14416  M01S00001.pfm74   +++|*         USES   P3, SS, ST, CM - CM+4, T1 - T7.
14417  M00S10485.pfm     +++|*
Line S10486 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14418  M01S10486.242l642 ---|*         CALLS  CTA, SDN, SEI.
Line S01219 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14419  M01S01219.242l642 +++|*         CALLS  CTA, PDV, SDN, SEI.
14420  M00S10487.pfm     +++|*
14421  M00S10488.pfm     +++|*         MACROS ENDMS, SETMS.
14422  M00S10489.pfm     +++|
14423  M00S10490.pfm     +++|
14424  M00S10491.pfm     +++| DFS2     ADD    T2
14425  M00S10492.pfm     +++|          ZJN    DFS3        IF ZERO LENGTH
14426  M00S10493.pfm     +++| DFS2.1   SOM    FCLF+1,P2   DISCOUNT EOI
14427  M00S10494.pfm     +++|          PJN    DFS3        IF NO OVERFLOW
14428  M00S10495.pfm     +++|          AOM    FCLF+1,P2
14429  M00S10496.pfm     +++|          SOM    FCLF,P2
14430  M00S10497.pfm     +++| DFS3     LDD    ST          RESTORE CATALOG TRACK/SECTOR/EQ
14431  M00S10498.pfm     +++|          STD    T6
14432  M00S10499.pfm     +++|          LDD    SS
14433  M00S10500.pfm     +++|          STD    T7
14434  M00S10501.pfm     +++|          LDD    T5
14435  M00S10502.pfm     +++|          LMD    EQ
14436  M00S10503.pfm     +++|          ZJN    DFSX        IF SAME DEVICE
14437  M00S10504.pfm     +++|          LDD    EQ          RESET MASTER DEVICE DRIVER
14438  M00S10505.pfm     +++|          STD    T5
Line S10506 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14439  M01S10506.242l642 ---|          SETMS  READ
Line S01220 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
14440  M02S01220.ns2645  ---|          SETMS  IO
Line S00018 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
14441  M01S00018.ns2645  +++|          SETMS  READSTR
Line S01221 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14442  M01S01221.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
14443  M00S10507.pfm     +++|
14444  M00S10508.pfm     +++| DFS      SUBR               ENTRY/EXIT
14445  M00S10509.pfm     +++|          LDD    T6          SAVE CATALOG TRACK
14446  M00S10510.pfm     +++|          STD    ST
14447  M00S10511.pfm     +++|          LDD    T7          SAVE CATALOG SECTOR
14448  M00S10512.pfm     +++|          STD    SS
14449  M00S10513.pfm     +++|          LDM    FCLF,P2     CHECK LENGTH IN CATALOG
14450  M00S10514.pfm     +++|          ADM    FCLF+1,P2
Line S10515 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14451  M01S10515.242l642 ---|          NJN    DFS2.1      IF LENGTH ALREADY AVAILABLE
Line S01222 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14452  M01S01222.242l642 +++|          NJP    DFS2.1      IF FILE LENGTH ALREADY AVAILABLE
14453  M00S10516.pfm     +++|          ENDMS
Line S10517 Modification History
M01 (Removed by) pfm74
Seq #  *Modification Id* Act 
----------------------------+
14454  M01S10517.pfm74   ---|          LDM    FCDN,P2
Line S00002 Modification History
M01 (Added by) pfm74
Seq #  *Modification Id* Act 
----------------------------+
14455  M01S00002.pfm74   +++|          LDM    FCDN,P2     GET DEVICE NUMBER
14456  M00S10518.pfm     +++|          LPN    77
14457  M01S00003.pfm74   +++|          STD    P3
14458  M00S10519.pfm     +++|          ZJN    DFS1        IF DA FILE ON MASTER DEVICE
14459  M00S10520.pfm     +++|          STD    CM
14460  M00S10521.pfm     +++|          LDM    PFPN+4
14461  M00S10522.pfm     +++|          RJM    SDN         SEARCH FOR DEVICE NUMBER
14462  M00S10523.pfm     +++|          PJN    DFS1        IF DEVICE FOUND
14463  M00S10524.pfm     +++|          LJM    DFS3        RETURN LENGTH OF ZERO
14464  M00S10525.pfm     +++|
14465  M00S10526.pfm     +++| DFS1     AOM    RBSA        ADVANCE DA FILE COUNT
Line S10527 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14466  M01S10527.242l642 ---|          SETMS  READ
Line S01223 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14467  M01S01223.242l642 +++|          SETMS  STATUS
14468  M00S10528.pfm     +++|          LDD    CM+4        SET TRT ADDRESS
14469  M00S10529.pfm     +++|          SHN    3
14470  M00S10530.pfm     +++|          ADN    TRLL
14471  M00S10531.pfm     +++|          RJM    CTA         CALCULATE FWA OF TRT
14472  M00S10532.pfm     +++|          SBD    TH
14473  M00S10533.pfm     +++|          STM    SEIA+1
14474  M00S10534.pfm     +++|          SHN    -14
14475  M00S10535.pfm     +++|          LMC    ADCI
14476  M00S10536.pfm     +++|          STM    SEIA
14477  M00S10537.pfm     +++|          LDM    FCBT,P2     SET FIRST TRACK OF FILE
14478  M00S10538.pfm     +++|          STD    T6
Line S10539 Modification History
M01 (Removed by) pfm74
Seq #  *Modification Id* Act 
----------------------------+
14479  M01S10539.pfm74   ---|          LDN    0           REQUEST TRT UPDATE
14480  M01S10540.pfm74   ---|          RJM    SEI         SET FILE LENGTH IN CATALOG ENTRY
Line S00004 Modification History
M01 (Added by) pfm74
Seq #  *Modification Id* Act 
----------------------------+
14481  M01S00004.pfm74   +++|          LDM    DFSA,P3     REQUEST TRT UPDATE IF FIRST FILE ON DEVICE
14482  M01S00005.pfm74   +++|          RJM    SEI         GET FILE LENGTH
14483  M01S00006.pfm74   +++|          AOM    DFSA,P3     PREVENT TRT UPDATE ON SUBSEQUENT FILES
14484  M00S10541.pfm     +++|          LDD    T2
14485  M00S10542.pfm     +++|          STM    FCLF,P2
14486  M00S10543.pfm     +++|          LDD    T3
14487  M00S10544.pfm     +++|          STM    FCLF+1,P2
14488  M00S10545.pfm     +++|          LJM    DFS2        DISCOUNT EOI
14489  M01S00007.pfm74   +++|
14490  M01S00008.pfm74   +++|
14491  M01S00009.pfm74   +++| DFSA     BSSZ   100B        TRT UPDATE FLAGS FOR EACH DEVICE IN FAMILY
14492  M00S10546.pfm     +++| SPB      SPACE  4,10
14493  M00S10547.pfm     +++|**        SPB - SEARCH PERMIT BUFFER.
14494  M00S10548.pfm     +++|*
14495  M00S10549.pfm     +++|*         ENTRY  PERMIT BUFFER LOADED TO *BUFB*
Line S10550 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14496  M01S10550.pfm43   ---|*                (CM - CM+4) = 42/USER NAME,18/USER INDEX FOR SEARCH.
Line S00002 Modification History
M01 (Added by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14497  M01S00002.pfm43   +++|*                (CM - CM+3) = USER NAME FOR SEARCH.
14498  M00S10551.pfm     +++|*
14499  M00S10552.pfm     +++|*         EXIT   (A) = 0 IF PERMIT NOT FOUND.
14500  M00S10553.pfm     +++|*                (T2) = INDEX TO PERMIT ENTRY, IF FOUND.
14501  M00S10554.pfm     +++|*
Line S10555 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14502  M01S10555.pfm43   ---|*         USES   CM - CM+4, T1.
Line S00003 Modification History
M01 (Added by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14503  M01S00003.pfm43   +++|*         USES   T1, T2.
14504  M00S10556.pfm     +++|
14505  M00S10557.pfm     +++|
14506  M00S10558.pfm     +++| SPB      SUBR               ENTRY/EXIT
Line S10559 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
14507  M01S10559.ns2415  ---|          LDM    BUFB+1      WORD COUNT
14508  M01S10560.ns2415  ---|          ZJN    SPBX        IF ZERO LENGTH SECTOR
14509  M01S10561.ns2415  ---|          LPN    NWPE-1
14510  M01S10562.ns2415  ---|          ZJN    SPB1        IF INTEGRAL NUMBER OF PERMIT ENTRIES
14511  M01S10563.ns2415  ---|          ERRNZ  NWPH-NWPE   HEADER SIZE MUST EQUAL ENTRY SIZE
14512  M01S10564.ns2415  ---|          ERROR  BCS,,IW,T5  *EQXXX,DNYY, BAD CATALOG/PERMIT SECTOR.*
14513  M01S10565.ns2415  ---|          LDN    0           INDICATE PERMIT NOT FOUND
14514  M01S10566.ns2415  ---|          UJN    SPBX        RETURN
14515  M01S10567.ns2415  ---|
14516  M00S10568.pfm     ---| SPB1     LDN    NWPH        ADVANCE WORD COUNT PAST HEADER
14517  M00S10569.pfm     ---|          STD    T1
14518  M00S10570.pfm     ---|          LDC    BUFB+2      SET DATA ADDRESS
14519  M00S10571.pfm     ---|          ADN    NWPH*5
14520  M00S10572.pfm     ---|          STD    T2
14521  M00S10573.pfm     ---| SPB2     LDD    CM
Line S10574 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14522  M01S10574.pfm43   ---|          ZJN    SPB4        IF NO USER NAME
Line S00004 Modification History
M01 (Added by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14523  M01S00004.pfm43   +++|          ZJN    SPBX        IF NO USER NAME
14524  M00S10575.pfm     +++|          LMM    FPAN,T2     COMPARE USER NAME
14525  M00S10576.pfm     +++|          NJN    SPB3        IF NO MATCH
14526  M00S10577.pfm     +++|          LDM    FPAN+1,T2
14527  M00S10578.pfm     +++|          LMD    CM+1
14528  M00S10579.pfm     +++|          NJN    SPB3        IF NO MATCH
14529  M00S10580.pfm     +++|          LDM    FPAN+2,T2
14530  M00S10581.pfm     +++|          LMD    CM+2
14531  M00S10582.pfm     +++|          NJN    SPB3        IF NO MATCH
14532  M00S10583.pfm     +++|          LDM    FPAN+3,T2
14533  M00S10584.pfm     +++|          LMD    CM+3
Line S10585 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14534  M01S10585.pfm43   ---|          SCN    37
Line S00005 Modification History
M01 (Added by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14535  M01S00005.pfm43   +++|          SCN    77
14536  M00S10586.pfm     +++|          ZJN    SPB5        IF USER FOUND
14537  M00S10587.pfm     +++| SPB3     LDN    NWPE*5      ADVANCE TO NEXT ENTRY
14538  M00S10588.pfm     +++|          RAD    T2
14539  M00S10589.pfm     +++|          LDN    NWPE
14540  M00S10590.pfm     +++|          RAD    T1
14541  M00S10591.pfm     +++|          LMM    BUFB+1
14542  M00S10592.pfm     +++|          NJN    SPB2        IF NOT END OF BUFFER
Line S10593 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14543  M01S10593.pfm43   ---|          LJM    SPBX        EXIT
Line S00006 Modification History
M01 (Added by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14544  M01S00006.pfm43   +++|          UJN    SPB6        EXIT
14545  M00S10594.pfm     +++|
Line S10595 Modification History
M01 (Removed by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14546  M01S10595.pfm43   ---| SPB4     LDM    FPPI,T2     COMPARE USER INDEX
14547  M01S10596.pfm43   ---|          LMD    CM+3
14548  M01S10597.pfm43   ---|          LPN    37
14549  M01S10598.pfm43   ---|          NJN    SPB3        IF NO MATCH FOUND
14550  M01S10599.pfm43   ---|          LDM    FPPI+1,T2
14551  M01S10600.pfm43   ---|          LMD    CM+4
14552  M01S10601.pfm43   ---|          NJN    SPB3        IF NO MATCH FOUND
14553  M00S10602.pfm     ---| SPB5     LCN    1           SET ENTRY FOUND EXIT
14554  M01S10603.pfm43   ---|          LJM    SPBX        RETURN
Line S00007 Modification History
M01 (Added by) pfm43
Seq #  *Modification Id* Act 
----------------------------+
14555  M01S00007.pfm43   +++| SPB6     LJM    SPBX        RETURN
14556  M00S10604.pfm     +++| CSA      SPACE  4,15
14557  M00S10605.pfm     +++|**        CSA - COMPUTE SECTOR ADDRESS.
14558  M00S10606.pfm     +++|*
14559  M00S10607.pfm     +++|*         ENTRY  (RI - RI+1) = RANDOM INDEX OF PERMIT SECTOR.
14560  M00S10608.pfm     +++|*                (DVLW - DVLW+4) = DEVICE LAYOUT WORD.
14561  M00S10609.pfm     +++|*                (A) = ADDRESS OF FILE NAME IF NAME NOT
14562  M00S10610.pfm     +++|*                IN FN - FN+3 OTHERWISE (A) = 0.
14563  M00S10611.pfm     +++|*
14564  M00S10612.pfm     +++|*         EXIT   (T6) = TRACK OF RANDOM SECTOR
14565  M00S10613.pfm     +++|*                (T7) = SECTOR OF RANDOM SECTOR.
14566  M00S10614.pfm     +++|*
14567  M00S10615.pfm     +++|*         USES   T6, T7, RI - RI+1.
14568  M00S10616.pfm     +++|*
Line S10617 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14569  M01S10617.242l642 ---|*         CALLS  CRA.
Line S01224 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14570  M01S01224.242l642 +++|*         CALLS  CRA, PDV.
14571  M00S10618.pfm     +++|*
14572  M00S10619.pfm     +++|*         MACROS ENDMS, ERROR, SETMS.
14573  M00S10620.pfm     +++|
14574  M00S10621.pfm     +++|
Line S10622 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14575  M01S10622.242l642 ---| CSA2     SETMS  READ
Line S01225 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
14576  M01S01225.242l642 +++| CSA2     SETMS  IO
14577  M01S01226.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
14578  M00S10623.pfm     +++|
14579  M00S10624.pfm     +++| CSA      SUBR               ENTRY/EXIT
14580  M00S10625.pfm     +++|          STM    CSAA
14581  M00S10626.pfm     +++|          STM    CSAB
14582  M00S10627.pfm     +++|          LDM    DVLW+2      SET FIRST TRACK IN PERMIT CHAIN
14583  M00S10628.pfm     +++|          STD    T6
14584  M00S10629.pfm     +++|          ENDMS
14585  M00S10630.pfm     +++|          LDN    0           SET TRT UPDATE REQUESTED
14586  M00S10631.pfm     +++|          RJM    CRA         COVERT RANDOM ADDRESS
14587  M00S10632.pfm     +++|          PJN    CSA2        IF NO ERROR
14588  M00S10633.pfm     +++|
14589  M00S10634.pfm     +++|*         PROCESS ERROR IN RANDOM INDEX.
14590  M00S10635.pfm     +++|
14591  M00S10636.pfm     +++|          LDC    **
14592  M00S10637.pfm     +++| CSAA     EQU    *-1
14593  M00S10638.pfm     +++|          ZJN    CSA1        IF NO NAME TO COPY
14594  M00S10639.pfm     +++|          LDD    MA          COPY FILE NAME
14595  M00S10640.pfm     +++|          CWM    *,ON
14596  M00S10641.pfm     +++| CSAB     EQU    *-1
14597  M00S10642.pfm     +++|          SBN    1
14598  M00S10643.pfm     +++|          CRD    FN
14599  M00S10644.pfm     +++| CSA1     ERROR  RIN,,IW,EQ  *EQXXX,DNYY, RANDOM INDEX ERROR.*
14600  M00S10645.pfm     +++| PCA      SPACE  4,15
14601  M00S10646.pfm     +++|**        PCA - PROCESS CATALOG ADDRESS ACCESS MODE.
14602  M00S10647.pfm     +++|*
14603  M00S10648.pfm     +++|*         ENTRY  (IN - IN+1) = CURRENT POSITION IN FET.
14604  M00S10649.pfm     +++|*                (T1) = OUTPUT ENTRY LENGTH FOR CATALOG AND *PFID*.
14605  M00S10650.pfm     +++|*                (T2) = *PFC* ENTRY POINTER.
14606  M00S10651.pfm     +++|*                (CATA) = SEARCH MODE.
14607  M00S10652.pfm     +++|*                (CATB) = MASTER DEVICE NUMBER.
14608  M00S10653.pfm     +++|*                (WDBB) = CURRENT CATALOG TRACK.
14609  M00S10654.pfm     +++|*                (WDBC) = CURRENT CATALOG SECTOR.
14610  M00S10655.pfm     +++|*                BUFA+2 = BEGINNING OF CATALOG SECTOR BUFFER.
14611  M00S10656.pfm     +++|*
14612  M00S10657.pfm     +++|*         EXIT   (T1) = DECREMENTED BY ONE FOR *PFID*.
14613  M00S10658.pfm     +++|*                *PFID* WRITTEN TO CENTRAL USER BUFFER.
14614  M00S10659.pfm     +++|
14615  M00S10660.pfm     +++|
14616  M00S10661.pfm     +++| PCA      SUBR               ENTRY/EXIT
14617  M00S10662.pfm     +++|          LDM    CATA        CHECK SEARCH MODE
Line S10663 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14618  M01S10663.ns2756  ---|          LMN    PAST
Line S00015 Modification History
M01 (Added by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14619  M01S00015.ns2756  +++|          LMN    CTID
14620  M00S10664.pfm     +++|          NJN    PCAX        IF NOT *PFID* ACCESS
14621  M00S10665.pfm     +++|
14622  M00S10666.pfm     +++|*         SETUP *PFID* FOR OUTPUT.
14623  M00S10667.pfm     +++|
14624  M00S10668.pfm     +++|          LDM    WDBC        SET CATALOG SECTOR ADDRESS
14625  M00S10669.pfm     +++|          STM    PCAA+4
14626  M00S10670.pfm     +++|          LDM    WDBB        SET CATALOG TRACK ADDRESS
14627  M00S10671.pfm     +++|          STM    PCAA+3
14628  M00S10672.pfm     +++|          LDD    T2          SET *PEO* VALUE
14629  M00S10673.pfm     +++|          ADC    -BUFA-2
14630  M00S10674.pfm     +++|          SHN    -NWCES      CALCULATE *PEO* VALUE
14631  M00S10675.pfm     +++|          LPN    1S"NWCEM"-1
14632  M00S10676.pfm     +++|          SHN    6
14633  M00S10677.pfm     +++|          LMM    CATB        SET MASTER DEVICE NUMBER
14634  M00S10678.pfm     +++|          STM    PCAA+2
14635  M00S10679.pfm     +++|
14636  M00S10680.pfm     +++|*         WRITE *PFID* TO CENTRAL BUFFER.
14637  M00S10681.pfm     +++|
14638  M00S10682.pfm     +++|          LDD    IN          FORM DESTINATION ADDRESS
14639  M00S10683.pfm     +++|          SHN    6
14640  M00S10684.pfm     +++|          ADD    RA
14641  M00S10685.pfm     +++|          SHN    6
14642  M00S10686.pfm     +++|          ADD    IN+1
14643  M00S10687.pfm     +++|          ADN    NWCE        OFFSET FOR *PFC* ENTRY
14644  M00S10688.pfm     +++|          CWM    PCAA,ON     WRITE *PFID*
14645  M00S10689.pfm     +++|          SOD    T1          ADJUST OUTPUT LENGTH
14646  M00S10690.pfm     +++|          LJM    PCAX        RETURN
14647  M00S10691.pfm     +++|
14648  M00S10692.pfm     +++| PCAA     CON    0,0,0,0,0   *PFID* BUFFER
14649  M00S10693.pfm     +++|          SPACE  4,10
14650  M00S10694.pfm     +++|*         COMMON DECKS.
14651  M00S10695.pfm     +++|
14652  M00S10696.pfm     +++|
14653  M00S10697.pfm     +++| CRA$     SET    0           FORCE TRT UPDATE ON *CRA* CALLS
14654  M00S10698.pfm     +++|*CALL     COMPCRA
14655  M00S10699.pfm     +++|*CALL     COMPSRA
14656  M00S10700.pfm     +++| SEI$     SET    0           FORCE TRT UPDATE ON *SEI* CALLS
14657  M00S10701.pfm     +++|*CALL     COMPSEI
14658  M00S10702.pfm     +++|*CALL     COMPRNS
14659  M00S10703.pfm     +++|*CALL     COMPSDN
14660  M00S10704.pfm     +++|          SPACE  4,10
14661  M00S10705.pfm     +++|*         BUFFERS
14662  M00S10706.pfm     +++|
14663  M00S10707.pfm     +++|
14664  M00S10708.pfm     +++| BUFA     EQU    *           CATALOG BUFFER
14665  M00S10709.pfm     +++| BUFB     EQU    BUFA+502    PERMIT BUFFER
14666  M00S10710.pfm     +++|          ERRNG  EPFW-BUFB-502  BUFFER OVERFLOW
14667  M00S10711.pfm     +++|          TITLE  OVERLAYABLE SUBROUTINES.
14668  M00S10712.pfm     +++| CSU      SPACE  4,10
14669  M00S10713.pfm     +++|**        CSU - CHECK FOR SPECIAL USER.
14670  M00S10714.pfm     +++|*
14671  M00S10715.pfm     +++|*         ENTRY  USER NAME WORD (UIDW) SET.
14672  M00S10716.pfm     +++|*                (PFOU - PFOU+3) = USER NAME FROM CALL BLOCK.
14673  M00S10717.pfm     +++|*
14674  M00S10718.pfm     +++|*         EXIT   (UI - UI+1) CLEARED IF SPECIAL USER.
14675  M00S10719.pfm     +++|*
14676  M00S10720.pfm     +++|*         USES   T1, T2, CM - CM+4.
14677  M00S10721.pfm     +++|
14678  M00S10722.pfm     +++|
14679  M00S10723.pfm     +++| CSU      SUBR               ENTRY/EXIT
14680  M00S10724.pfm     +++|          LDD    CP          GET USER USER NAME
14681  M00S10725.pfm     +++|          ADN    UIDW
14682  M00S10726.pfm     +++|          CRD    CM
14683  M00S10727.pfm     +++|          LDD    CM+3        CLEAR LOWER USER NAME
14684  M00S10728.pfm     +++|          SCN    77
14685  M00S10729.pfm     +++|          STD    CM+3
14686  M00S10730.pfm     +++|          LDN    0           INITIALIZE COUNT
14687  M00S10731.pfm     +++|          STD    T1
14688  M00S10732.pfm     +++| CSU1     AOD    T1          ADVANCE BYTE
14689  M00S10733.pfm     +++|          LMN    5
14690  M00S10734.pfm     +++|          ZJN    CSU3        IF END OF USER NAME
14691  M00S10735.pfm     +++|          LDM    CM-1,T1     USER NAME BYTE
14692  M00S10736.pfm     +++|          STD    T2
14693  M00S10737.pfm     +++|          LMC    2R**
14694  M00S10738.pfm     +++|          ZJN    CSU1        IF ** SKIP COMPARE OF CHARACTERS
14695  M00S10739.pfm     +++|          SCN    77
14696  M00S10740.pfm     +++|          ZJN    CSU2        IF UPPER CHARACTER *
14697  M00S10741.pfm     +++|          LDD    T2          COMPARE UPPER CHARACTER
14698  M00S10742.pfm     +++|          LMM    PFOU-1,T1
14699  M00S10743.pfm     +++|          SCN    77
14700  M00S10744.pfm     +++|          NJN    CSUX        IF USER NAME DO NOT MATCH
14701  M00S10745.pfm     +++|          LDD    T2          CHECK LOWER CHARACTER
14702  M00S10746.pfm     +++|          LMN    1R*
14703  M00S10747.pfm     +++|          LPN    77
14704  M00S10748.pfm     +++|          ZJN    CSU1        IF LOWER CHARACTER = *
14705  M00S10749.pfm     +++| CSU2     LDD    T2          COMPARE LOWER CHARACTER
14706  M00S10750.pfm     +++|          LMM    PFOU-1,T1
14707  M00S10751.pfm     +++|          LPN    77
14708  M00S10752.pfm     +++|          ZJN    CSU1        IF LOWER CHARACTER COMPARE
14709  M00S10753.pfm     +++|          UJN    CSU4        USER NAMES DO NOT MATCH
14710  M00S10754.pfm     +++|
14711  M00S10755.pfm     +++| CSU3     STD    UI          CLEAR USER INDEX
14712  M00S10756.pfm     +++|          STD    UI+1
Line S10757 Modification History
M01 (Removed by) ns2756
Seq #  *Modification Id* Act 
----------------------------+
14713  M01S10757.ns2756  ---|          LDN    NCST        SET MODE TO NORMAL CATALOG SEARCH
Proceed to Part 10