User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:pfm.002

Deck PFM Part 002

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
02779  M01S00052.ns2426  +++|*         LDC    7776        (NORMAL USER NAME - NOT IN CLT)
02780  M01S00053.ns2426  +++|*         LDC    0           (USER NAME AND VALIDATION INFO IN CLT)
02781  M01S00054.ns2426  +++|*         LDC    1           (USER NAME BUT NOT VALIDATION INFO IN CLT)
02782  M00S01914.pfm     +++| POAA     EQU    *-1
Line S01915 Modification History
M01 (Removed by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02783  M01S01915.ns2426  ---|          ZJN    POA12       IF ALL INFORMATION IN TABLE
Line S00055 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02784  M01S00055.ns2426  +++|          ZJN    POA12       IF ALL INFORMATION IN CLT
02785  M00S01916.pfm     +++|          SBN    1
Line S01917 Modification History
M01 (Removed by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02786  M01S01917.ns2426  ---|          ZJN    POA13       IF VALIDATION INFORMATION NEEDED
Line S00056 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02787  M01S00056.ns2426  +++|          ZJN    POA13       IF VALIDATION INFORMATION NEEDED IN CLT
02788  M01S00057.ns2426  +++|
Line S00058 Modification History
M01 (Added by) ns2426
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02789  M02S00058.271l750 ---|*         UPDATE USER NAME CACHE IN CPA.
Line S00006 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02790  M01S00006.271l750 +++|*         UPDATE USER NAME CACHE IN NFL/CPA.
Line S00059 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02791  M01S00059.ns2426  +++|
02792  M01S00060.ns2426  +++|          LDD    CP
02793  M01S00061.ns2426  +++|          ADK    PFCW
02794  M01S00062.ns2426  +++|          CRD    CN
02795  M01S00063.ns2426  +++|          LDM    PFUC        UPDATE USER VALIDATION INFORMATION
02796  M01S00064.ns2426  +++|          STM    CN+2
02797  M01S00065.ns2426  +++|          LDD    CP
02798  M01S00066.ns2426  +++|          ADK    PFCW
02799  M01S00067.ns2426  +++|          CWD    CN
Line S00068 Modification History
M01 (Added by) ns2426
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02800  M02S00068.271l750 ---|          ADK    PUCW-PFCW   SAVE USER NAME AND USER INDEX
Line S00007 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02801  M01S00007.271l750 +++|          NFA    PUCN        SAVE USER NAME AND USER INDEX
Line S00069 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02802  M01S00069.ns2426  +++|          CWD    FN
Line S00008 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02803  M01S00008.271l750 +++|          LDN    0           SET RETURN STATUS
02804  M00S01918.pfm     +++| POA12    LJM    POAX        RETURN
Line S00070 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02805  M01S00070.ns2426  +++|
02806  M01S00071.ns2426  +++|*         UPDATE COMMON LIBRARY TABLE ENTRY.
02807  M00S01919.pfm     +++|
Line S01920 Modification History
M01 (Removed by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02808  M01S01920.pfm70   ---| POA13    LDC    0           GET ENTRY LOCATION
02809  M01S01921.pfm70   ---| POAB     EQU    *-1
02810  M01S01922.pfm70   ---|          STD    T4
02811  M01S01923.pfm70   ---|          SFA    CLT         DETERMINE ADDRESS
02812  M01S01924.pfm70   ---|          ADK    CLTU
02813  M01S01925.pfm70   ---|          CWD    FN          WRITE USER INDEX IN TABLE
02814  M01S01926.pfm70   ---|          ADN    CLTF-CLTU
02815  M01S01927.pfm70   ---|          CRD    CM          PICK UP SECOND WORD OF ENTRY
02816  M01S01928.pfm70   ---|          LDD    T5          SAVE NEW EST ORDINAL
02817  M01S01929.pfm70   ---|          STD    CM+4
Line S00001 Modification History
M01 (Added by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02818  M01S00001.pfm70   +++| POA13    LDD    CN+3        CLEAR DEVICE NUMBER FROM FAMILY NAME
02819  M01S00002.pfm70   +++|          SCN    77
02820  M01S00003.pfm70   +++|          STD    CN+3
02821  M01S00004.pfm70   +++|          LDD    T5          SAVE NEW EST ORDINAL
02822  M01S00005.pfm70   +++|          STD    CN+4        MERGE EST ORDINAL WITH FAMILY NAME
02823  M00S01930.pfm     +++|          STM    PFPN+4      CHANGE EST ORDINAL
Line S01931 Modification History
M01 (Removed by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02824  M01S01931.pfm70   ---|          SFA    CLT,T4
02825  M01S01932.pfm70   ---|          ADN    CLTF
02826  M01S01933.pfm70   ---|          CWD    CM          WRITE EST ORDINAL IN TABLE
Line S00006 Modification History
M01 (Added by) pfm70
Seq #  *Modification Id* Act 
----------------------------+
02827  M01S00006.pfm70   +++|          LDC    0           GET ENTRY ORDINAL
02828  M01S00007.pfm70   +++| POAB     EQU    *-1
02829  M01S00008.pfm70   +++|          STD    T4
02830  M01S00009.pfm70   +++|          SFA    CLT
02831  M01S00010.pfm70   +++|          ADK    CLTU
02832  M01S00011.pfm70   +++|          CWD    FN          WRITE USER INDEX IN TABLE
02833  M01S00012.pfm70   +++|          ADN    CLTF-CLTU
02834  M01S00013.pfm70   +++|          CWD    CN          WRITE FAMILY NAME AND EST ORDINAL IN TABLE
02835  M00S01934.pfm     +++|          ADN    CLTV-CLTF   SET PERMANENT FILE VALIDATION INFORMATION
02836  M00S01935.pfm     +++|          CRD    CM
02837  M00S01936.pfm     +++|          LDM    PFUC
02838  M00S01937.pfm     +++|          STD    CM+4
02839  M00S01938.pfm     +++|          SFA    CLT,T4
02840  M00S01939.pfm     +++|          ADN    CLTV
02841  M00S01940.pfm     +++|          CWD    CM
02842  M00S01941.pfm     +++|          LJM    POAX        RETURN
Line S01942 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02843  M01S01942.242l642 ---| RCL      SPACE  4,10
Line S00258 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02844  M01S00258.242l642 +++| RCL      SPACE  4,15
02845  M00S01943.pfm     +++|**        RCL - RECALL PFM.
02846  M00S01944.pfm     +++|*
Line S01945 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02847  M01S01945.242l642 ---|*         EXIT   TO *DPP*.
02848  M01S01946.242l642 ---|*                INPUT REGISTER WRITTEN TO PP RECALL STACK.
02849  M01S01947.242l642 ---|*                (DPPF) CLEARED.
02850  M01S01948.242l642 ---|*
02851  M01S01949.242l642 ---|*         MACROS MONITOR.
Line S00259 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02852  M02S00259.ns2426  ---|*         ENTRY  (PWRF) = RESTART FLAGS.
Line S00072 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02853  M01S00072.ns2426  +++|*         ENTRY  (A) = ERROR CODE.
02854  M01S00073.ns2426  +++|*                (PWRF) = RESTART FLAGS.
Line S00260 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02855  M01S00260.242l642 +++|*
02856  M01S00261.242l642 +++|*         EXIT   (CN - CN+4) = INPUT REGISTER FOR *PFM* RECALL.
02857  M01S00262.242l642 +++|*                (FN - FN+4) = RECALL REQUEST FOR MONITOR.
02858  M01S00263.242l642 +++|*                (MP - MP+4) = PARAMETER WORD FOR *PFM* RECALL.
02859  M01S00264.242l642 +++|*                (AIPF, AIPF+1) = 0.
02860  M01S00265.242l642 +++|*                (STAU) = *STRP* BIT SET TO RECALL *PFM*.
Line S00266 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
02861  M02S00266.ns2414  ---|*                TO *3PT* TO RECALL *PFM*.
Line S00009 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
02862  M01S00009.ns2414  +++|*                TO *3PU* TO RECALL *PFM*.
Line S00267 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02863  M01S00267.242l642 +++|*
Line S00074 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02864  M01S00074.ns2426  +++|*         USES   P1, CN - CN+4, FN - FN+4, MP - MP+4.
02865  M01S00075.ns2426  +++|*
Line S00268 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02866  M01S00268.242l642 +++|*         MACROS EXECUTE.
02867  M00S01950.pfm     +++|
02868  M00S01951.pfm     +++|
02869  M00S01952.pfm     +++| RCL      BSS    0           ENTRY
Line S00076 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02870  M01S00076.ns2426  +++|          STD    P1          SAVE ERROR CODE
02871  M00S01953.pfm     +++|          LDN    0           CLEAR PF ACCUMULATOR INCREMENT
Line S01954 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02872  M01S01954.242l642 ---|          STM    DPPF
02873  M01S01955.242l642 ---|          STM    DPPF-1
Line S00269 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02874  M01S00269.242l642 +++|          STM    AIPF
02875  M01S00270.242l642 +++|          STM    AIPF+1
02876  M00S01956.pfm     +++|          LDN    ZERL
Line S01957 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02877  M01S01957.242l642 ---|          CRD    CM
Line S00271 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02878  M01S00271.242l642 +++|          CRD    FN          SET RECALL REQUEST
02879  M01S00272.242l642 +++|          CRD    MP
02880  M01S00273.242l642 +++|          LDM    PWRF        SET RESTART FLAGS FOR RECALL
02881  M01S00274.242l642 +++|          STD    MP
Line S00077 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02882  M01S00077.ns2426  +++|          LDD    P1          SET ERROR CODE
02883  M01S00078.ns2426  +++|          STD    MP+1
02884  M00S01958.pfm     +++|          LDD    IA          READ INPUT REQUEST REGISTER
02885  M00S01959.pfm     +++|          CRD    CN
Line S01960 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02886  M01S01960.242l642 ---|          LDD    MA          RECALL REQUEST
02887  M01S01961.242l642 ---|          CWD    CN
02888  M01S01962.242l642 ---|          ADN    1           CLEAR PARAMETER WORD
02889  M01S01963.242l642 ---|          CWD    CM
02890  M01S01964.242l642 ---|          LDD    CN+1        CLEAR AUTO RECALL
02891  M01S01965.242l642 ---|          SCN    40
02892  M01S01966.242l642 ---|          STD    CN+1
02893  M01S01967.242l642 ---|          LDD    IA          REWRITE INPUT REGISTER
02894  M01S01968.242l642 ---|          CWD    CN
02895  M01S01969.242l642 ---|          LDC    4000+PTMF   SET TO RECALL WITH TIME SPECIFIED
02896  M01S01970.242l642 ---|          STD    CM+1
Line S00275 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02897  M01S00275.242l642 +++|          LDC    PTMF        SET TIMED RECALL
02898  M01S00276.242l642 +++|          STD    FN+1
Line S01971 Modification History
M01 (Removed by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02899  M01S01971.ns2426  ---|          LDC    200D        SET DELAY TO 200D MILLISECONDS
Line S00079 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02900  M01S00079.ns2426  +++|          LDC    250D        SET DELAY TO 250D MILLISECONDS
Line S01972 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02901  M01S01972.242l642 ---|          STD    CM+4
02902  M01S01973.242l642 ---|          MONITOR  RECM
02903  M01S01974.242l642 ---|          LJM    DPP         DROP PP
Line S00277 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02904  M01S00277.242l642 +++|          STD    FN+4
02905  M01S00278.242l642 +++|          LDK    STRP        SET *RECALL PFM* STATUS BIT
02906  M01S00279.242l642 +++|          RAM    STAU
Line S00280 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
02907  M02S00280.ns2414  ---|          EXECUTE  3PT       RECALL *PFM*
Line S00010 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
02908  M01S00010.ns2414  +++|          EXECUTE  3PU       RECALL *PFM*
02909  M00S01975.pfm     +++| RSX      SPACE  4,10
02910  M00S01976.pfm     +++|**        RSX - REQUEST RESOURCE VALIDATION.
02911  M00S01977.pfm     +++|*
02912  M00S01978.pfm     +++|*         CALL *RESEX* AS A *DMP=* PROGRAM.
02913  M00S01979.pfm     +++|*
02914  M00S01980.pfm     +++|*         EXIT   TO *RCL*.
02915  M00S01981.pfm     +++|*
02916  M00S01982.pfm     +++|*         USES   CM - CM+4, FN - FN+4.
02917  M00S01983.pfm     +++|*
02918  M00S01984.pfm     +++|*         MACROS ERROR, MONITOR.
02919  M00S01985.pfm     +++|
02920  M00S01986.pfm     +++|
02921  M00S01987.pfm     +++| RSX      BSS    0           ENTRY
02922  M00S01988.pfm     +++|          LDD    CP          CHECK FOR *DMP=* IN PROGRESS
02923  M00S01989.pfm     +++|          ADC    SPCW
02924  M00S01990.pfm     +++|          CRD    CM
02925  M00S01991.pfm     +++|          LDD    CM+1
02926  M00S01992.pfm     +++|          SHN    -6
02927  M00S01993.pfm     +++|          ADD    CM
02928  M00S01994.pfm     +++|          ZJN    RSX1        IF NOT *DMP=* IN PROGRESS
02929  M00S01995.pfm     +++|          ERROR  ILR,CH,IW   * PFM INCORRECT REQUEST.*
02930  M00S01996.pfm     +++|
02931  M00S01997.pfm     +++| RSX1     LDD    MA          SET INPUT REGISTER
02932  M00S01998.pfm     +++|          CWD    IR
02933  M00S01999.pfm     +++|          CRD    FN
02934  M00S02000.pfm     +++|          LDD    FN+1
02935  M00S02001.pfm     +++|          SCN    77
02936  M00S02002.pfm     +++|          LMN    20          SET STATUS TO LEAVE RA+1 SET WITH PFM CALL
02937  M00S02003.pfm     +++|          STD    FN+1
02938  M00S02004.pfm     +++|          LDN    0           CLEAR RETURN STATUS
02939  M00S02005.pfm     +++|          STD    FN+2
02940  M00S02006.pfm     +++|          LDD    CP          WRITE CP REQUEST
02941  M00S02007.pfm     +++|          ADC    SPCW
02942  M00S02008.pfm     +++|          CWD    FN
02943  M00S02009.pfm     +++|          LDN    ROSR        REQUEST SCHEDULER ROLLOUT
02944  M00S02010.pfm     +++|          STD    CM+1
02945  M00S02011.pfm     +++|          MONITOR ROCM
Line S00080 Modification History
M01 (Added by) ns2426
Seq #  *Modification Id* Act 
----------------------------+
02946  M01S00080.ns2426  +++|*         LDN    0           (NO ERROR CODE)
02947  M00S02012.pfm     +++|          LJM    RCL         RECALL PFM
02948  M00S02013.pfm     +++| SAM      SPACE  4,15
02949  M00S02014.pfm     +++|**        SAM - SET UP ACCOUNTING MESSAGE.
02950  M00S02015.pfm     +++|*
02951  M00S02016.pfm     +++|*         ENTRY  (A) = ADDRESS OF USER NAME.
02952  M00S02017.pfm     +++|*                (PFPN) = OPTIONAL PACK NAME.
02953  M00S02018.pfm     +++|*                (CC) = COMMAND CODE.
02954  M00S02019.pfm     +++|*
02955  M00S02020.pfm     +++|*         EXIT   (PRSF) - (PRSH+PRSHL-1) = MESSAGE AREA SET UP.
02956  M00S02021.pfm     +++|*
02957  M00S02022.pfm     +++|*         CALLS  ACS, SFN, SPN.
02958  M00S02023.pfm     +++|*
02959  M00S02024.pfm     +++|*         USES   P0, T1, FN - FN+4.
02960  M00S02025.pfm     +++|
02961  M00S02026.pfm     +++|
02962  M00S02027.pfm     +++| SAM      SUBR               ENTRY/EXIT
02963  M00S02028.pfm     +++|          STD    P0          SAVE ADDRESS OF USER NAME
02964  M00S02029.pfm     +++|          LDM    PRSH,CC     SET PFM FUNCTION IN MESSAGE BUFFER
02965  M00S02030.pfm     +++|          STM    PRSF+1
02966  M00S02031.pfm     +++|          RJM    SPN         SET PERMANENT FILE NAME
02967  M00S02032.pfm     +++|          LDC    PRSH        INITIALIZE MESSAGE POINTER FOR ACS CALLS
02968  M00S02033.pfm     +++|          STD    T1
02969  M00S02034.pfm     +++|          LDN    FN          INSERT FILE NAME IN MESSAGE BUFFER
02970  M00S02035.pfm     +++|          RJM    ACS
02971  M00S02036.pfm     +++|          LDC    PRSB        APPEND COMMA SEPARATOR
02972  M00S02037.pfm     +++|          RJM    ACS
02973  M00S02038.pfm     +++|          LDI    P0          CHECK USER NAME
02974  M00S02039.pfm     +++|          ZJN    SAM1        IF NULL USER NAME
02975  M00S02040.pfm     +++|          LDD    P0          CLEAR LOWER 3 CHARACTERS OF USER NAME
02976  M00S02041.pfm     +++|          RJM    SFN
02977  M00S02042.pfm     +++|          LDN    FN          APPEND USER NAME IN MESSAGE BUFFER
02978  M00S02043.pfm     +++|          RJM    ACS
02979  M00S02044.pfm     +++| SAM1     LDC    PRSB        APPEND COMMA SEPARATOR
02980  M00S02045.pfm     +++|          RJM    ACS
02981  M00S02046.pfm     +++|          LDM    PFPN        CHECK FOR OPTIONAL PACK NAME
02982  M00S02047.pfm     +++|          ZJN    SAM2        IF NO PACK NAME
02983  M00S02048.pfm     +++|          LDC    PFPN        CLEAR LOWER 3 CHARACTERS OF PACK NAME
02984  M00S02049.pfm     +++|          RJM    SFN
02985  M00S02050.pfm     +++|          LDN    FN          APPEND OPTIONAL PACK NAME
02986  M00S02051.pfm     +++|          RJM    ACS
02987  M00S02052.pfm     +++| SAM2     LDC    PRSC        APPEND MESSAGE TERMINATOR
02988  M00S02053.pfm     +++|          RJM    ACS
02989  M00S02054.pfm     +++|          LJM    SAMX        RETURN
02990  M00S02055.pfm     +++| SRF      SPACE  4,15
02991  M00S02056.pfm     +++|**        SRF - SET UP RESERVE FNT.
02992  M00S02057.pfm     +++|*
02993  M00S02058.pfm     +++|*         RESERVE AN FNT ENTRY IF STATUS *H* IS SET IN *TCTL*.
02994  M00S02059.pfm     +++|*
02995  M00S02060.pfm     +++|*         ENTRY  (CC) = COMMAND CODE.
02996  M00S02061.pfm     +++|*
02997  M00S02062.pfm     +++|*         EXIT   (FNTA) = ADDRESS OF RESERVE FNT ENTRY.
02998  M00S02063.pfm     +++|*                (PRSF) = EXIT PROCESSING STATUS.
02999  M00S02064.pfm     +++|*
03000  M00S02065.pfm     +++|*         CALLS  SFN, *0BF*.
03001  M00S02066.pfm     +++|*
03002  M00S02067.pfm     +++|*         USES   T4, CM - CM+4, FS - FS+4.
03003  M00S02068.pfm     +++|*
03004  M00S02069.pfm     +++|*         MACROS EXECUTE, EXIT.
03005  M00S02070.pfm     +++|
03006  M00S02071.pfm     +++|
03007  M00S02072.pfm     +++| SRF      SUBR               ENTRY/EXIT
03008  M00S02073.pfm     +++|          LDM    TCTL,CC     CHECK FOR FNT NEEDED
03009  M00S02074.pfm     +++|          SHN    21-7
Line S02075 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03010  M01S02075.ns2776  ---|          PJN    SRFX        IF FNT NOT NEEDED
Line S00044 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03011  M01S00044.ns2776  +++| SRF1     PJN    SRFX        IF FNT NOT NEEDED
03012  M00S02076.pfm     +++|          LDC    SRFB        SET RESERVED FNT NAME
03013  M00S02077.pfm     +++|          RJM    SFN
03014  M00S02078.pfm     +++|          LDN    NEEQ        ASSIGN NULL EQUIPMENT
03015  M00S02079.pfm     +++|          STD    FS
03016  M00S02080.pfm     +++|          LDN    5           RETURN ON NFL INCREASE, LOCAL FILE LIMIT
03017  M00S02081.pfm     +++|          STM    LOCF-1
03018  M00S02082.pfm     +++|          EXECUTE  0BF,LOCF  CREATE PFM*** FILE
Line S02083 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03019  M01S02083.ns2776  ---|          UJN    SRF2        CHECK RETURN STATUS
Line S00045 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03020  M01S00045.ns2776  +++|          NJN    SRF2        IF FILE NOT CREATED
03021  M00S02084.pfm     +++|
03022  M00S02085.pfm     +++|*         USE EXISTING FNT ENTRY (ADVANCE EXIT FROM *0BF*).
03023  M00S02086.pfm     +++|
Line S02087 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03024  M01S02087.ns2776  ---|          UJN    SRF3        SAVE FNT POINTER
Line S00046 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03025  M01S00046.ns2776  +++|          LDD    FA          SAVE RESERVE FNT POINTER
03026  M01S00047.ns2776  +++|          STM    FNTA
03027  M01S00048.ns2776  +++|          LDD    FN+4        SAVE FILE STATUS
03028  M01S00049.ns2776  +++|          LPN    77
03029  M01S00050.ns2776  +++|          RAM    SFNB
03030  M01S00051.ns2776  +++|          LDN    0           CLEAR FST POINTER
03031  M01S00052.ns2776  +++|          STD    FA
03032  M01S00053.ns2776  +++|          LDD    FS          CHECK FOR RESERVED SPACE
03033  M01S00054.ns2776  +++|          NJN    SRF1        IF SPACE RESERVED
03034  M01S00055.ns2776  +++|          EXIT   PFN,CH,IW,,EC4  * DEVICE UNAVAILABLE.*
03035  M00S02088.pfm     +++|
Line S02089 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03036  M01S02089.ns2776  ---| SRF2     ZJN    SRF3        IF FILE CREATED
03037  M01S02090.ns2776  ---|          MJN    SRF5        IF REJECT ON NFL INCREASE
Line S00056 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03038  M01S00056.ns2776  +++| SRF2     MJN    SRF5        IF REJECT ON NFL INCREASE
03039  M00S02091.pfm     +++|          LMN    4
03040  M00S02092.pfm     +++|          NJN    SRF6        IF NOT LOCAL FILE LIMIT
Line S02093 Modification History
M01 (Removed by) pfm41
Seq #  *Modification Id* Act 
----------------------------+
03041  M01S02093.pfm41   ---|          ERROR  LFL,CH,IW,,EC3  * LOCAL FILE LIMIT.*
Line S00001 Modification History
M01 (Added by) pfm41
Seq #  *Modification Id* Act 
----------------------------+
03042  M01S00001.pfm41   +++|          ERROR  LFL,CH,IW   * LOCAL FILE LIMIT.*
Line S02094 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03043  M01S02094.ns2776  ---|
03044  M01S02095.ns2776  ---| SRF3     LDD    FA          SAVE RESERVE FNT POINTER
03045  M01S02096.ns2776  ---|          STM    FNTA
03046  M01S02097.ns2776  ---|          LDD    FN+4        SAVE FILE STATUS
03047  M01S02098.ns2776  ---|          LPN    77
03048  M01S02099.ns2776  ---|          RAM    SFNB
03049  M01S02100.ns2776  ---|          LDN    0           CLEAR FST POINTER
03050  M01S02101.ns2776  ---|          STD    FA
03051  M01S02102.ns2776  ---|          LDD    FS          CHECK FOR RESERVED SPACE
03052  M01S02103.ns2776  ---|          ZJN    SRF4        IF SPACE NOT RESERVED
03053  M01S02104.ns2776  ---|          LJM    SRFX        RETURN
03054  M01S02105.ns2776  ---|
03055  M01S02106.ns2776  ---| SRF4     EXIT   PFN,CH,IW,,EC4  * DEVICE UNAVAILABLE.*
03056  M00S02107.pfm     +++|
03057  M00S02108.pfm     +++| SRF5     LDN    0           SET SCHEDULER ROLLOUT
03058  M00S02109.pfm     +++|          STM    ERRC
03059  M00S02110.pfm     +++|          STM    ERRD
03060  M00S02111.pfm     +++|          EXIT   WNF,CH,IW,,EC1  * WAITING FOR NFL.*
03061  M00S02112.pfm     +++|
03062  M00S02113.pfm     +++| SRF6     EXIT   WNF,CH,IW,,EC4  * WAITING FOR NFL.*
03063  M00S02114.pfm     +++|
03064  M00S02115.pfm     +++|
03065  M00S02116.pfm     +++| SRFB     VFD    60/6LPFM***
03066  M00S02117.pfm     +++| SUC      SPACE  4,30
03067  M00S02118.pfm     +++|**        SUC - SET USER CONTROLS.
03068  M00S02119.pfm     +++|*         IF INDIVIDUAL CONTROL NOT SET USE
03069  M00S02120.pfm     +++|*         SERVICE CLASS SPECIFIED LIMITS.
03070  M00S02121.pfm     +++|*
03071  M00S02122.pfm     +++|*         ENTRY  (PFUC) = USER CONTROL.
03072  M00S02123.pfm     +++|*T PFUC   3/ DS, 3/ FC, 3/ CS, 3/ FS
Figure PFUC

023568911 FS CS FC DS

03073  M00S02124.pfm     +++|*                DS = INDEX FOR DIRECT ACCESS FILE SIZE.
03074  M00S02125.pfm     +++|*                FC = INDEX FOR NUMBER OF FILES IN CATALOG.
03075  M00S02126.pfm     +++|*                CS = INDEX FOR CUMULATIVE SIZE OF INDIRECT FILES.
03076  M00S02127.pfm     +++|*                FS = INDEX FOR INDIRECT FILE SIZE.
03077  M00S02128.pfm     +++|*                (JORG) = JOB ORIGIN.
03078  M00S02129.pfm     +++|*
03079  M00S02130.pfm     +++|*
03080  M00S02131.pfm     +++|*         EXIT   (MXFS) = MAXIMUM INDIRECT FILE SIZE/10B.
03081  M00S02132.pfm     +++|*                (IMSK) SET TO DEVICE ACCESS MASK FOR *DEFINE*.
03082  M00S02133.pfm     +++|*                (MXNF) = MAXIMUM NUMBER OF FILES/100B.
03083  M00S02134.pfm     +++|*                (MXCS - MXCS+1) = MAXIMUM CUMULATIVE SIZE FOR IAPF-S.
03084  M00S02135.pfm     +++|*                (MXDS - MXDS+1) = MAXIMUM SIZE OF DIRECT ACCESS FILE.
03085  M00S02136.pfm     +++|*
03086  M00S02137.pfm     +++|*         CALLS  FMS, RJC.
03087  M00S02138.pfm     +++|*
03088  M00S02139.pfm     +++|*         USES   FS - FS+4, T1.
03089  M00S02140.pfm     +++|
03090  M00S02141.pfm     +++|
03091  M00S02142.pfm     +++| SUC      SUBR               ENTRY/EXIT
03092  M00S02143.pfm     +++|
03093  M00S02144.pfm     +++|*         SET PERMANENT FILE CONTROLS.
03094  M00S02145.pfm     +++|
03095  M00S02146.pfm     +++| SUCA     LDN    0           (SERVICE CLASS SET IN *PRS*)
03096  M00S02147.pfm     +++|          LMN    DSSC
03097  M00S02148.pfm     +++|          NJN    SUC1        IF NOT DEADSTART SEQUENCING
03098  M00S02149.pfm     +++|          LDN    SSSC&DSSC   USE SUBSYSTEM SERVICE CLASS
03099  M00S02150.pfm     +++| SUC1     LMN    DSSC        READ JOB CONTROL PARAMETERS
03100  M00S02151.pfm     +++|          RJM    RJC
03101  M00S02152.pfm     +++|          ZJN    SUCX        IF SERVICE CLASS UNDEFINED
03102  M00S02153.pfm     +++|          ADN    PFCT
03103  M00S02154.pfm     +++|          CRD    FS
03104  M00S02155.pfm     +++|
03105  M00S02156.pfm     +++|*         SET LIMIT FOR INDIVIDUAL FILE SIZE.
03106  M00S02157.pfm     +++|
03107  M00S02158.pfm     +++|          LDD    FS          SET SERVICE CLASS CONTROL AS DEFAULT
03108  M00S02159.pfm     +++|          LPN    7
03109  M00S02160.pfm     +++|          STD    T1
03110  M00S02161.pfm     +++|          LDM    PFUC        CHECK INDIVIDUAL *FS* VALUE
03111  M00S02162.pfm     +++|          LPN    7
03112  M00S02163.pfm     +++|          ZJN    SUC2        IF NOT INDIVIDUAL CONTROL SET
03113  M00S02164.pfm     +++|          STD    T1
03114  M00S02165.pfm     +++| SUC2     LDM    TMFS,T1     SET CONTROL VALUE
03115  M00S02166.pfm     +++|          STM    MXFS
03116  M00S02167.pfm     +++|
03117  M00S02168.pfm     +++|*         SET LIMIT FOR NUMBER OF FILES.
03118  M00S02169.pfm     +++|
03119  M00S02170.pfm     +++|          LDD    FS          SET SERVICE CLASS CONTROL AS DEFAULT
03120  M00S02171.pfm     +++|          SHN    -6
03121  M00S02172.pfm     +++|          LPN    7
03122  M00S02173.pfm     +++|          STD    T1
03123  M00S02174.pfm     +++|          LDM    PFUC        CHECK INDIVIDUAL *FC* VALUE
03124  M00S02175.pfm     +++|          SHN    -6
03125  M00S02176.pfm     +++|          LPN    7
03126  M00S02177.pfm     +++|          ZJN    SUC3        IF NO INDIVIDUAL CONTROL SET
03127  M00S02178.pfm     +++|          STD    T1
03128  M00S02179.pfm     +++| SUC3     LDM    TMNF,T1     SET CONTROL VALUE
03129  M00S02180.pfm     +++|          STM    MXNF
03130  M00S02181.pfm     +++|
03131  M00S02182.pfm     +++|*         SET LIMIT FOR CUMULATIVE SIZE OF INDIRECT ACCESS FILES.
03132  M00S02183.pfm     +++|
03133  M00S02184.pfm     +++|          LDD    FS          SET SERVICE CLASS CONTROL AS DEFAULT
03134  M00S02185.pfm     +++|          SHN    -3
03135  M00S02186.pfm     +++|          LPN    7
03136  M00S02187.pfm     +++|          SHN    1
03137  M00S02188.pfm     +++|          STD    T1
03138  M00S02189.pfm     +++|          LDM    PFUC        CHECK INDIVIDUAL *CS* VALUE
03139  M00S02190.pfm     +++|          SHN    -3
03140  M00S02191.pfm     +++|          LPN    7
03141  M00S02192.pfm     +++|          ZJN    SUC4        IF NO INDIVIDUAL CONTROL SET
03142  M00S02193.pfm     +++|          SHN    1
03143  M00S02194.pfm     +++|          STD    T1
03144  M00S02195.pfm     +++| SUC4     LDM    TMCS,T1     SET CONTROL VALUE
03145  M00S02196.pfm     +++|          STM    MXCS
03146  M00S02197.pfm     +++|          LDM    TMCS+1,T1
03147  M00S02198.pfm     +++|          STM    MXCS+1
03148  M00S02199.pfm     +++|
03149  M00S02200.pfm     +++|*         SET DIRECT ACCESS FILE SIZE CONTROLS.
03150  M00S02201.pfm     +++|
03151  M00S02202.pfm     +++|          LDM    TCTL,CC
03152  M00S02203.pfm     +++|          SHN    21-5
03153  M00S02204.pfm     +++|          PJN    SUC6        IF NOT DIRECT ACCESS REQUEST
03154  M00S02205.pfm     +++|          RJM    FMS         FORM MASK FOR FILE RESIDENCE CHECK
03155  M00S02206.pfm     +++|          LDD    FS          SET SERVICE CLASS CONTROL AS DEFAULT
03156  M00S02207.pfm     +++|          SHN    -11
03157  M00S02208.pfm     +++|          LPN    7
03158  M00S02209.pfm     +++|          SHN    1
03159  M00S02210.pfm     +++|          STD    T1
03160  M00S02211.pfm     +++|          LDM    PFUC        CHECK INDIVIDUAL *DS* VALUE
03161  M00S02212.pfm     +++|          SHN    -11
03162  M00S02213.pfm     +++|          LPN    7
03163  M00S02214.pfm     +++|          ZJN    SUC5        IF NO INDIVIDUAL CONTROL SET
03164  M00S02215.pfm     +++|          SHN    1
03165  M00S02216.pfm     +++|          STD    T1
03166  M00S02217.pfm     +++| SUC5     LDM    TMDS,T1     SET INDIVIDUAL CONTROL
03167  M00S02218.pfm     +++|          STM    MXDS
03168  M00S02219.pfm     +++|          LDM    TMDS+1,T1
03169  M00S02220.pfm     +++|          STM    MXDS+1
03170  M00S02221.pfm     +++| SUC6     LJM    SUCX        EXIT
03171  M00S02222.pfm     +++| SWI      SPACE  4,15
03172  M00S02223.pfm     +++|**        SWI - SWAP USER INDICES.
03173  M00S02224.pfm     +++|*
03174  M00S02225.pfm     +++|*         ENTRY  (UI - UI+1) = USER INDEX.
03175  M00S02226.pfm     +++|*                (PI - PI+1) = PERMIT INDEX.
03176  M00S02227.pfm     +++|*
03177  M00S02228.pfm     +++|*         EXIT   (UI - UI+1) = PERMIT INDEX.
03178  M00S02229.pfm     +++|*                (PI - PI+1) = USER INDEX.
03179  M00S02230.pfm     +++|
03180  M00S02231.pfm     +++|
03181  M00S02232.pfm     +++| SWI      SUBR               ENTRY/EXIT
03182  M00S02233.pfm     +++|          LDD    UI          SWAP USER AND PERMIT INDICES
03183  M00S02234.pfm     +++|          STD    T1
03184  M00S02235.pfm     +++|          LDD    PI
03185  M00S02236.pfm     +++|          STD    UI
03186  M00S02237.pfm     +++|          LDD    T1
03187  M00S02238.pfm     +++|          STD    PI
03188  M00S02239.pfm     +++|          LDD    UI+1
03189  M00S02240.pfm     +++|          STD    T1
03190  M00S02241.pfm     +++|          LDD    PI+1
03191  M00S02242.pfm     +++|          STD    UI+1
03192  M00S02243.pfm     +++|          LDD    T1
03193  M00S02244.pfm     +++|          STD    PI+1
03194  M00S02245.pfm     +++|          UJN    SWIX        RETURN
03195  M00S02246.pfm     +++| TMFS     SPACE  4,15
03196  M00S02247.pfm     +++|**        TABLE OF INDIVIDUAL FILE SIZE LIMITS.
03197  M00S02248.pfm     +++|
03198  M00S02249.pfm     +++|
03199  M00S02250.pfm     +++| TMFS     BSS    0
03200  M00S02251.pfm     +++|          LOC    0
03201  M00S02252.pfm     +++|          CON    0
03202  M00S02253.pfm     +++|          CON    FSRNG1
03203  M00S02254.pfm     +++|          CON    FSRNG2
03204  M00S02255.pfm     +++|          CON    FSRNG3
03205  M00S02256.pfm     +++|          CON    FSRNG4
03206  M00S02257.pfm     +++|          CON    FSRNG5
03207  M00S02258.pfm     +++|          CON    FSRNG6
03208  M00S02259.pfm     +++|          CON    FSRNG7
03209  M00S02260.pfm     +++|          LOC    *O
03210  M00S02261.pfm     +++| TMNF     SPACE  4,15
03211  M00S02262.pfm     +++|**        TABLE OF NUMBER OF FILE LIMITS.
03212  M00S02263.pfm     +++|
03213  M00S02264.pfm     +++|
03214  M00S02265.pfm     +++| TMNF     BSS    0
03215  M00S02266.pfm     +++|          LOC    0
03216  M00S02267.pfm     +++|          CON    0
03217  M00S02268.pfm     +++|          CON    NFRNG1
03218  M00S02269.pfm     +++|          CON    NFRNG2
03219  M00S02270.pfm     +++|          CON    NFRNG3
03220  M00S02271.pfm     +++|          CON    NFRNG4
03221  M00S02272.pfm     +++|          CON    NFRNG5
03222  M00S02273.pfm     +++|          CON    NFRNG6
03223  M00S02274.pfm     +++|          CON    NFRNG7
03224  M00S02275.pfm     +++|          LOC    *O
03225  M00S02276.pfm     +++| TMCS     SPACE  4,15
03226  M00S02277.pfm     +++|**        TABLE OF CUMULATIVE FILE SIZE LIMITS.
03227  M00S02278.pfm     +++|
03228  M00S02279.pfm     +++|
03229  M00S02280.pfm     +++| TMCS     BSS    0
03230  M00S02281.pfm     +++|          LOC    0
03231  M00S02282.pfm     +++|          CON    0,0
03232  M00S02283.pfm     +++|          CSR    CSRNG1
03233  M00S02284.pfm     +++|          CSR    CSRNG2
03234  M00S02285.pfm     +++|          CSR    CSRNG3
03235  M00S02286.pfm     +++|          CSR    CSRNG4
03236  M00S02287.pfm     +++|          CSR    CSRNG5
03237  M00S02288.pfm     +++|          CSR    CSRNG6
03238  M00S02289.pfm     +++|          CSR    CSRNG7
03239  M00S02290.pfm     +++|          LOC    *O
03240  M00S02291.pfm     +++| TMDS     SPACE  4,15
03241  M00S02292.pfm     +++|**        TABLE OF DIRECT ACCESS FILE SIZE LIMITS.
03242  M00S02293.pfm     +++|
03243  M00S02294.pfm     +++|
03244  M00S02295.pfm     +++| TMDS     BSS    0
03245  M00S02296.pfm     +++|          LOC    0
03246  M00S02297.pfm     +++|          CON    0,0
03247  M00S02298.pfm     +++|          CSR    DSRNG1
03248  M00S02299.pfm     +++|          CSR    DSRNG2
03249  M00S02300.pfm     +++|          CSR    DSRNG3
03250  M00S02301.pfm     +++|          CSR    DSRNG4
03251  M00S02302.pfm     +++|          CSR    DSRNG5
03252  M00S02303.pfm     +++|          CSR    DSRNG6
03253  M00S02304.pfm     +++|          CSR    DSRNG7
03254  M00S02305.pfm     +++|          LOC    *O
03255  M00S02306.pfm     +++|          SPACE  4,10
03256  M00S02307.pfm     +++|*         COMMON DECKS.
03257  M00S02308.pfm     +++|
03258  M00S02309.pfm     +++|
03259  M00S02310.pfm     +++|*CALL     COMPACS
Line S00051 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03260  M01S00051.253l688 +++| DTS$     EQU    0           CHECK FOR INACCESSIBLE DEVICE
03261  M00S02311.pfm     +++|*CALL     COMPDTS
03262  M00S02312.pfm     +++| CLT$     EQU    0           DEFINE *COMPGFP* ACCESS TO CLT
03263  M00S02313.pfm     +++| EJT$     EQU    0           DEFINE *COMPGFP* ACCESS TO EJT
03264  M00S02314.pfm     +++|*CALL     COMPGFP
03265  M00S02315.pfm     +++|*CALL     COMPRJC
03266  M00S02316.pfm     +++|*CALL     COMPSAF
03267  M00S02317.pfm     +++|*CALL     COMPSCA
03268  M00S02318.pfm     +++|          SPACE  4,10
03269  M00S02319.pfm     +++| LOCF     EQU    *+5         OVERLAY ADDRESS FOR ZERO-LEVEL OVERLAYS
03270  M00S02320.pfm     +++|
03271  M00S02321.pfm     +++|          ERRNG  EPFW-LOCF-ZAVL  CHECK LENGTH OF *0AV*
03272  M00S02322.pfm     +++|          ERRNG  EPFW-LOCF-ZBFL  CHECK LENGTH OF *0BF*
03273  M00S02323.pfm     +++|          ERRNG  BFMS-LOCF-ZRFL  CHECK LENGTH OF *0RF*
03274  M00S02324.pfm     +++|
03275  M00S02325.pfm     +++|
03276  M00S02326.pfm     +++|*         THE FOLLOWING CODE MAY BE OVERLAID BY ZERO-LEVEL OVERLAYS.
03277  M00S02327.pfm     +++|          TITLE  OVERLAYABLE PRESET SUBROUTINES.
03278  M00S02328.pfm     +++| CPN      SPACE  4,10
03279  M00S02329.pfm     +++|**        CPN - COMPARE NAMES.
03280  M00S02330.pfm     +++|*
03281  M00S02331.pfm     +++|*         ENTRY  (CM - CM+3) = NAME FROM COMMON LIBRARIES TABLE.
03282  M00S02332.pfm     +++|*                (A) = ADDRESS OF SECOND NAME.
03283  M00S02333.pfm     +++|*
03284  M00S02334.pfm     +++|*         EXIT   (A) = 0 IF MATCH.
03285  M00S02335.pfm     +++|*
03286  M00S02336.pfm     +++|*         USES   T7.
03287  M00S02337.pfm     +++|
03288  M00S02338.pfm     +++|
03289  M00S02339.pfm     +++| CPN      SUBR               ENTRY/EXIT
03290  M00S02340.pfm     +++|          STD    T7          SAVE ADDRESS
03291  M00S02341.pfm     +++|          LDI    T7
03292  M00S02342.pfm     +++|          LMD    CM
03293  M00S02343.pfm     +++|          NJN    CPNX        IF NO MATCH
03294  M00S02344.pfm     +++|          LDM    1,T7
03295  M00S02345.pfm     +++|          LMD    CM+1
03296  M00S02346.pfm     +++|          NJN    CPNX        IF NO MATCH
03297  M00S02347.pfm     +++|          LDM    2,T7
03298  M00S02348.pfm     +++|          LMD    CM+2
03299  M00S02349.pfm     +++|          NJN    CPNX        IF NO MATCH
03300  M00S02350.pfm     +++|          LDM    3,T7
03301  M00S02351.pfm     +++|          LMD    CM+3
03302  M00S02352.pfm     +++|          SCN    77
03303  M00S02353.pfm     +++|          UJN    CPNX        RETURN
Line S00281 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03304  M01S00281.242l642 +++| PER      SPACE  4,15
03305  M01S00282.242l642 +++|**        PER - PROCESS ERROR REPLY FROM *CPUPFM*.
03306  M01S00283.242l642 +++|*
03307  M01S00284.242l642 +++|*         ENTRY  (A) = ERROR REPLY FROM *CPUPFM*.
03308  M01S00285.242l642 +++|*                (CM - CM+4) = CP WORD *SPCW*.
03309  M01S00286.242l642 +++|*                (PWRF) = *PFM* RESTART FLAGS.
03310  M01S00287.242l642 +++|*
03311  M01S00288.242l642 +++|*         EXIT   (A) = PARAMETER WORD FOR *ERROR* MACRO.
03312  M01S00289.242l642 +++|*                (P1) = ERROR CODE.
03313  M01S00290.242l642 +++|*                (PWRF) = *RFRR* BIT SET IF REQUEST TO BE RETRIED.
Line S00291 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
03314  M02S00291.ns2414  ---|*                TO *3PR* TO REDO *DMP=* CALL IF *CPUPFM* DID NOT
Line S00011 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
03315  M01S00011.ns2414  +++|*                TO *3PS* TO REDO *DMP=* CALL IF *CPUPFM* DID NOT
Line S00292 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03316  M01S00292.242l642 +++|*                COMPLETE.
03317  M01S00293.242l642 +++|*
03318  M01S00294.242l642 +++|*         USES   T0.
03319  M01S00295.242l642 +++|*
03320  M01S00296.242l642 +++|*         MACROS EXECUTE.
03321  M01S00297.242l642 +++|
03322  M01S00298.242l642 +++|
03323  M01S00299.242l642 +++| PER      SUBR               ENTRY/EXIT
03324  M01S00300.242l642 +++|          STD    T0
03325  M01S00301.242l642 +++|          SHN    21-11
03326  M01S00302.242l642 +++|          PJN    PER3        IF *CPUPFM* DID NOT COMPLETE
03327  M01S00303.242l642 +++|          LDD    T0
03328  M01S00304.242l642 +++|          LPC    177
03329  M01S00305.242l642 +++|          STD    P1          ERROR CODE
03330  M01S00306.242l642 +++|          ZJN    PERX        IF NO ERROR
03331  M01S00307.242l642 +++|          LMK    /ERRMSG/RTR
03332  M01S00308.242l642 +++|          NJN    PER2        IF NOT *RETRY REQUEST*
03333  M01S00309.242l642 +++|          LDM    PWRF        RESTART FLAGS
03334  M01S00310.242l642 +++|          LPK    RFRR
03335  M01S00311.242l642 +++|          NJN    PER1        IF REQUEST ALREADY RETRIED
03336  M01S00312.242l642 +++|          LDK    RFRR        SET *RETRY REQUEST* FLAG
03337  M01S00313.242l642 +++|          RAM    PWRF
03338  M01S00314.242l642 +++|          UJN    PER2        FORM PARAMETER WORD FOR *ERROR* MACRO
03339  M01S00315.242l642 +++|
03340  M01S00316.242l642 +++| PER1     LDK    /ERRMSG/MSE SET ERROR CODE TO *MASS STORAGE ERROR*
03341  M01S00317.242l642 +++|          STD    P1
03342  M01S00318.242l642 +++| PER2     LDD    T0          FORM PARAMETER WORD FOR *ERROR* MACRO
03343  M01S00319.242l642 +++|          SHN    1-10
03344  M01S00320.242l642 +++|          LPN    2           ERROR IDLE FLAG
03345  M01S00321.242l642 +++|          STD    T0
03346  M01S00322.242l642 +++|          LDD    P1
03347  M01S00323.242l642 +++|          SHN    2           ERROR CODE
03348  M01S00324.242l642 +++|          ADD    T0
03349  M01S00325.242l642 +++|          UJN    PERX        RETURN
03350  M01S00326.242l642 +++|
03351  M01S00327.242l642 +++|*         REDO *DMP=* CALL.
03352  M01S00328.242l642 +++|
03353  M01S00329.242l642 +++| PER3     LDD    CM
Line S00330 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
03354  M02S00330.ns2414  ---|          EXECUTE  3PR       REDO *DMP=* CALL
Line S00012 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
03355  M01S00012.ns2414  +++|          EXECUTE  3PS       REDO *DMP=* CALL
Line S02354 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03356  M01S02354.242l642 ---| PFP      SPACE  4,15
Line S00331 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03357  M01S00331.242l642 +++| PFP      SPACE  4,20
03358  M00S02355.pfm     +++|**        PFP - PROCESS FET PARAMETERS.
03359  M00S02356.pfm     +++|*
03360  M00S02357.pfm     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
03361  M00S02358.pfm     +++|*
03362  M00S02359.pfm     +++|*         EXIT   (CN - CN+4) = USER NAME/USER INDEX.
03363  M00S02360.pfm     +++|*                (FN - FN+4) = ACCESS WORD (*AACW*).
Line S00332 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03364  M01S00332.242l642 +++|*                (FERT) = REAL-TIME PROCESSING FLAG.
03365  M00S02361.pfm     +++|*                (PFUC) = USER CONTROLS.
03366  M00S02362.pfm     +++|*                (FETL) = LENGTH OF PF PARAMETERS IN FET.
03367  M00S02363.pfm     +++|*                (PRSA - PRSA+1) = AUXILIARY DEVICE TYPE REQUESTED.
Line S02364 Modification History
M01 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03368  M01S02364.ns2599  ---|*                (PRSD) = UP AND EP EXIT PROCESSING STATUS.
03369  M00S02365.pfm     +++|*                (RQDT - RQDT+1) = REQUESTED DEVICE TYPE.
03370  M00S02366.pfm     +++|*                PARAMETERS FROM FET SET IN PFM PARAMETER BLOCK AREA.
03371  M00S02367.pfm     +++|*
03372  M00S02368.pfm     +++|*         USES   T1, CM - CM+4, CN - CN+4, FN - FN+4.
03373  M00S02369.pfm     +++|*
03374  M00S02370.pfm     +++|*         CALLS  CRS, PSR, PXT, SAP, SFA, VRP.
03375  M00S02371.pfm     +++|*
03376  M00S02372.pfm     +++|*         MACROS ERROR.
03377  M00S02373.pfm     +++|
03378  M00S02374.pfm     +++|
03379  M00S02375.pfm     +++| PFP      SUBR               ENTRY/EXIT
Line S02376 Modification History
M01 (Removed by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03380  M01S02376.pfm22   ---|          LDD    IR+3        SET FET ADDRESS IN *SFA*
03381  M01S02377.pfm22   ---|          LPN    37
03382  M01S02378.pfm22   ---|          LMC    ADCI
03383  M01S02379.pfm22   ---|          STM    SFAA
03384  M01S02380.pfm22   ---|          LDD    IR+4
03385  M01S02381.pfm22   ---|          STM    SFAA+1
Line S02382 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03386  M01S02382.241l630 ---|          RJM    CRS         CHECK RECALL STATUS
03387  M01S02383.241l630 ---|          ZJP    PFP1        IF NOT CALLED WITH AUTO RECALL
Line S02384 Modification History
M01 (Removed by) pfm22
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03388  M02S02384.241l630 ---|          RJM    SFA         VERIFY FET ADDRESS IN FL
Line S00052 Modification History
M01 (Added by) pfm22
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
03389  M02S00052.241l630 ---|          RJM    SFA         READ FET+1 PARAMETERS
Line S00005 Modification History
M01 (Added by) 241l630
M02 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03390  M02S00005.ns2599  ---|          LDM    TCTL,CC
03391  M02S00006.ns2599  ---|          SHN    21-13
Line S00007 Modification History
M01 (Added by) 241l630
M02 (Removed by) 253l688
M03 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03392  M03S00007.ns2599  ---|          PJN    PFP0.1      IF AUTO-RECALL REQUIRED
03393  M03S00008.ns2599  ---|          LDC    ZJNI-NJNI   REVERSE ERROR CONDITION ON RECALL
03394  M03S00009.ns2599  ---|          RAM    PFPC
03395  M03S00010.ns2599  ---| PFP0.1   RJM    CRS         CHECK RECALL STATUS
03396  M03S00011.ns2599  ---| PFPC     NJN    PFP0.2      IF CALLED WITH AUTO RECALL
03397  M03S00012.ns2599  ---|*         ZJN    PFP0.2      (NON-AUTO RECALL REQUEST)
03398  M03S00013.ns2599  ---|          LJM    PFP1        * PFM ARGUMENT ERROR. *
Line S00052 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03399  M02S00052.ns2599  ---|          MJN    PFP0.1      IF REQUEST MAY BE MADE WITHOUT AUTO-RECALL
03400  M02S00053.ns2599  ---|          RJM    CRS         CHECK RECALL STATUS
03401  M02S00054.ns2599  ---|          ZJP    PFP1        IF CALLED WITHOUT AUTO RECALL
Line S00014 Modification History
M01 (Added by) 241l630
M02 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03402  M02S00014.ns2599  ---|
Line S00015 Modification History
M01 (Added by) 241l630
M02 (Removed by) 253l688
M03 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03403  M03S00015.ns2599  ---| PFP0.2   RJM    SFA         VERIFY FET ADDRESS
Line S00055 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03404  M02S00055.ns2599  ---| PFP0.1   RJM    SFA         VERIFY FET ADDRESS
Line S00025 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03405  M01S00025.ns2599  +++|          RJM    SFA         READ FET+1
03406  M00S02385.pfm     +++|          ADN    1
03407  M00S02386.pfm     +++|          CRD    CM
Line S02387 Modification History
M01 (Removed by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03408  M01S02387.pfm22   ---|          SHN    -6
03409  M01S02388.pfm22   ---|          SBD    RA
03410  M01S02389.pfm22   ---|          SBD    FL
03411  M01S02390.pfm22   ---|          PJN    PFP1        IF FET OUTSIDE JOB FL
03412  M00S02391.pfm     +++|          LDD    CM          SET DEVICE TYPE FOR AUX PACK PROCESSING
03413  M00S02392.pfm     +++|          STM    PFPB
Line S00333 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03414  M01S00333.242l642 +++|          LDD    CM+1        SAVE RT STATUS
03415  M01S00334.242l642 +++|          SHN    0-7
03416  M01S00335.242l642 +++|          LPN    1
03417  M01S00336.242l642 +++|          STM    FERT
Line S02393 Modification History
M01 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03418  M01S02393.ns2599  ---|          LDD    CM+1        SAVE EP AND UP STATUS
03419  M01S02394.ns2599  ---|          SHN    0-10
03420  M01S02395.ns2599  ---|          LPN    3
03421  M01S02396.ns2599  ---|          STM    PRSD
Line S02397 Modification History
M01 (Removed by) 241l630
M02 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03422  M02S02397.ns2599  ---|          LDD    CM+1        SAVE SECURITY PROCESSING BIT
Line S00016 Modification History
M01 (Added by) 241l630
M02 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03423  M02S00016.ns2599  ---|          LMN    3
03424  M02S00017.ns2599  ---|          ZJN    PFP0.3      IF BOTH *EP* AND *UP* SPECIFIED
03425  M02S00018.ns2599  ---|          LDM    TCTL,CC
03426  M02S00019.ns2599  ---|          SHN    21-13
03427  M02S00020.ns2599  ---|          MJN    PFP1        IF NON-AUTO RECALL REQUEST
03428  M02S00021.ns2599  ---| PFP0.3   LDD    CM+1        SAVE SECURITY PROCESSING BIT
Line S00026 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03429  M01S00026.ns2599  +++|          LDD    CM+1        SAVE SECURITY PROCESSING BIT
03430  M00S02398.pfm     +++|          LPN    10
03431  M00S02399.pfm     +++|          STM    PFSP
03432  M00S02400.pfm     +++|          LDD    CM+3
03433  M00S02401.pfm     +++|          SHN    -6
03434  M00S02402.pfm     +++|          ADN    5           COMPUTE FULL LENGTH
03435  M00S02403.pfm     +++|          STD    T1
Line S02404 Modification History
M01 (Removed by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03436  M01S02404.pfm22   ---|          LDD    IR+3        CHECK FET ADDRESS
03437  M01S02405.pfm22   ---|          LPN    77
03438  M01S02406.pfm22   ---|          SHN    14
03439  M01S02407.pfm22   ---|          MJN    PFP1        IF ADDRESS OUT OF RANGE
03440  M01S02408.pfm22   ---|          ADD    IR+4
03441  M01S02409.pfm22   ---|          ADD    T1          FET LENGTH
03442  M01S02410.pfm22   ---|          SBN    1
03443  M01S02411.pfm22   ---|          SHN    -6
03444  M01S02412.pfm22   ---|          SBD    FL
03445  M01S02413.pfm22   ---|          MJN    PFP2        IF ADDRESS IN RANGE
Line S00053 Modification History
M01 (Added by) pfm22
M02 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03446  M02S00053.ns2599  ---|          UJN    PFP2        SET FET PARAMETERS
Line S00054 Modification History
M01 (Added by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
03447  M01S00054.pfm22   +++|
Line S00027 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03448  M01S00027.ns2599  +++|*         CHECK RECALL STATUS.
03449  M01S00028.ns2599  +++|
03450  M01S00029.ns2599  +++|          LDM    TCTL,CC
03451  M01S00030.ns2599  +++|          SHN    21-13
03452  M01S00031.ns2599  +++|          MJN    PFP1.1      IF REQUEST MAY BE MADE WITHOUT AUTO-RECALL
03453  M01S00032.ns2599  +++|          RJM    CRS         CHECK RECALL STATUS
03454  M01S00033.ns2599  +++|          NJN    PFP2        IF CALLED WITH AUTO RECALL
03455  M00S02414.pfm     +++| PFP1     ERROR  PAE,CH,IW   * PFM ARGUMENT ERROR.*
Line S00034 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
03456  M01S00034.ns2599  +++|
03457  M01S00035.ns2599  +++| PFP1.1   LDD    CM+1        CHECK ERROR PROCESSING OPTIONS
03458  M01S00036.ns2599  +++|          SHN    0-10
03459  M01S00037.ns2599  +++|          LPN    3
03460  M01S00038.ns2599  +++|          LMN    3
03461  M01S00039.ns2599  +++|          NJN    PFP1        IF EITHER *EP* OR *UP* NOT SPECIFIED
03462  M00S02415.pfm     +++|
03463  M00S02416.pfm     +++|*         SET FET PARAMETERS.
03464  M00S02417.pfm     +++|
Line S02418 Modification History
M01 (Removed by) pfm20
Seq #  *Modification Id* Act 
----------------------------+
03465  M01S02418.pfm20   ---| PFP2     LDD    T1          DETERMINE IF FET WILL FIT IN BUFFER AREA
Line S00001 Modification History
M01 (Added by) pfm20
Seq #  *Modification Id* Act 
----------------------------+
03466  M01S00001.pfm20   +++| PFP2     LDD    CC
03467  M01S00002.pfm20   +++|          LMN    CCCT
03468  M01S00003.pfm20   +++|          NJN    PFP2.1      IF NOT *CATLIST* COMMAND
03469  M01S00004.pfm20   +++|          LDD    T1
03470  M01S00005.pfm20   +++|          SBN    CFCN+1
03471  M01S00006.pfm20   +++|          MJN    PFP1        IF FET NOT LONG ENOUGH
03472  M01S00007.pfm20   +++| PFP2.1   LDD    T1          DETERMINE IF FET WILL FIT IN BUFFER AREA
03473  M00S02419.pfm     +++|          SBM    FETL
03474  M00S02420.pfm     +++|          PJN    PFP3        IF FET LONGER THAN PF PARAMETERS
03475  M00S02421.pfm     +++|          RAM    FETL        SET FET LENGTH
03476  M00S02422.pfm     +++|
03477  M00S02423.pfm     +++| PFP3     LDM    FETL        READ FET PARAMETERS
03478  M00S02424.pfm     +++|          SBN    CFPN
03479  M00S02425.pfm     +++|          STD    T1
03480  M00S02426.pfm     +++|          MJN    PFP4        IF NONE TO READ
03481  M00S02427.pfm     +++|          ZJN    PFP4        IF NONE TO READ
03482  M00S02428.pfm     +++|          RJM    SFA
03483  M00S02429.pfm     +++|          ADN    CFPN
03484  M00S02430.pfm     +++|          CRM    PFFN,T1
03485  M00S02431.pfm     +++|          LDM    EMRA        CHECK ERROR MESSAGE RETURN ADDRESS
03486  M00S02432.pfm     +++|          LPN    37
03487  M00S02433.pfm     +++|          SHN    14
03488  M00S02434.pfm     +++|          ADM    EMRA+1
Line S02435 Modification History
M01 (Removed by) ns2722
Seq #  *Modification Id* Act 
----------------------------+
03489  M01S02435.ns2722  ---|          ADN    2           CHECK ADDRESS
Line S00011 Modification History
M01 (Added by) ns2722
Seq #  *Modification Id* Act 
----------------------------+
03490  M01S00011.ns2722  +++|          ADN    3           CHECK ADDRESS
03491  M00S02436.pfm     +++|          SHN    -6
03492  M00S02437.pfm     +++|          SBD    FL
03493  M00S02438.pfm     +++|          MJN    PFP4        IF ADDRESS IN RANGE
03494  M00S02439.pfm     +++|          LDN    0           CLEAR ERROR MESSAGE RETURN ADDRESS
03495  M00S02440.pfm     +++|          STM    EMRA
03496  M00S02441.pfm     +++|          STM    EMRA+1
03497  M00S02442.pfm     +++|          LJM    PFP1        ISSUE ERROR MESSAGE
03498  M00S02443.pfm     +++|
03499  M00S02444.pfm     +++| PFP4     RJM    SAP         SAVE ACCESS PARAMETERS
03500  M00S02445.pfm     +++|          RJM    PXT         PROCESS EXPIRATION TERM
03501  M00S02446.pfm     +++|          LDD    CP          READ USER CONTROL FROM CONTROL POINT
03502  M00S02447.pfm     +++|          ADN    PFCW
03503  M00S02448.pfm     +++|          CRD    FS
03504  M00S02449.pfm     +++|          ADN    UIDW-PFCW   READ USER INDEX
03505  M00S02450.pfm     +++|          CRD    CN
03506  M00S02451.pfm     +++|          CRM    PFAC,ON     READ USER NAME
03507  M00S02452.pfm     +++|          ADN    AACW-UIDW-1
03508  M00S02453.pfm     +++|          CRD    FN          READ USER VALIDATIONS
Line S02454 Modification History
M01 (Removed by) pfm21
Seq #  *Modification Id* Act 
----------------------------+
03509  M01S02454.pfm21   ---|          LDD    FS+4        SAVE PF USER CONTROL VALIDATIONS
Line S00001 Modification History
M01 (Added by) pfm21
Seq #  *Modification Id* Act 
----------------------------+
03510  M01S00001.pfm21   +++|          LDM    SSJS
03511  M01S00002.pfm21   +++|          ZJN    PFP4.1      IF NOT *SSJ=*
03512  M01S00003.pfm21   +++|          LDD    CN+3        CHECK USER INDEX
03513  M01S00004.pfm21   +++|          LPN    37
03514  M01S00005.pfm21   +++|          SHN    14
03515  M01S00006.pfm21   +++|          LMD    CN+4
03516  M01S00007.pfm21   +++|          LMC    SYUI
03517  M01S00008.pfm21   +++|          NJN    PFP4.1      IF NOT *SYSTEMX*
03518  M01S00009.pfm21   +++|          LCN    0           SET UNLIMITED VALIDATIONS
03519  M01S00010.pfm21   +++|          STD    FS+4
03520  M01S00011.pfm21   +++| PFP4.1   LDD    FS+4        SAVE PF USER CONTROL VALIDATIONS
03521  M00S02455.pfm     +++|          STM    PFUC
03522  M00S02456.pfm     +++|          RJM    PSR         PROCESS SPECIAL REQUEST BLOCK
03523  M00S02457.pfm     +++|          NJN    PFP5        IF NOT SPECIAL REQUEST
03524  M00S02458.pfm     +++|          LJM    PFPX        RETURN
03525  M00S02459.pfm     +++|
03526  M00S02460.pfm     +++|*         DETERMINE AUXILIARY PACKNAME AND DEVICE TYPE.
03527  M00S02461.pfm     +++|
03528  M00S02462.pfm     +++| PFP5     RJM    VRP         VERIFY PARAMETERS
Line S00003 Modification History
M01 (Added by) ns2350
Seq #  *Modification Id* Act 
----------------------------+
03529  M01S00003.ns2350  +++|          LDK    PFNL        PRESET SYSTEM DEFAULT PACK TYPE
03530  M01S00004.ns2350  +++|          CRD    CM
03531  M01S00005.ns2350  +++|          LDD    CM+1
03532  M01S00006.ns2350  +++|          SCN    77
03533  M01S00007.ns2350  +++|          SHN    6
03534  M01S00008.ns2350  +++|          LMD    CM
03535  M01S00009.ns2350  +++|          SHN    6
03536  M01S00010.ns2350  +++|          STM    RQDT+1
03537  M01S00011.ns2350  +++|          SHN    -14
03538  M01S00012.ns2350  +++|          STM    RQDT
03539  M00S02463.pfm     +++|          LDM    PFPN+4      SAVE UNIT COUNT
03540  M00S02464.pfm     +++|          STM    PFPA
03541  M00S02465.pfm     +++|          LDD    IA          READ INPUT REGISTER
03542  M00S02466.pfm     +++|          CRD    CM
03543  M00S02467.pfm     +++|          LDD    CM+2
03544  M00S02468.pfm     +++|          SCN    77
03545  M00S02469.pfm     +++|          NJN    PFP6        IF *IP* OR *DF* SPECIFIED
03546  M00S02470.pfm     +++|          LDM    PFPN
03547  M00S02471.pfm     +++|          ZJN    PFP8        IF PACKNAME NOT SPECIFIED IN FET
03548  M00S02472.pfm     +++|          LMC    1R0*100
03549  M00S02473.pfm     +++|          NJP    PFP9        IF NOT *PN.EQ.0*
03550  M00S02474.pfm     +++|
03551  M00S02475.pfm     +++|*         CLEAR PACKNAME.
03552  M00S02476.pfm     +++|
03553  M00S02477.pfm     +++| PFP6     LDN    0           CLEAR PACKNAME
03554  M00S02478.pfm     +++|          STM    PFPN
03555  M00S02479.pfm     +++|          LDD    CM+2
03556  M00S02480.pfm     +++|          SHN    21-11
03557  M00S02481.pfm     +++|          PJN    PFP7        IF NOT *DF* (FORCE SYSTEM DEFAULT FAMILY)
03558  M00S02482.pfm     +++|          LDM    SSJS
03559  M00S02483.pfm     +++|          ZJP    PFP1        IF NOT *SSJ=* PROGRAM
03560  M00S02484.pfm     +++|          LDC    PFNL
03561  M00S02485.pfm     +++|          CRD    FS
Line S02486 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03562  M01S02486.ns2776  ---| PFP7     LJM    PFP11       SET FAMILY EQUIPMENT
Line S00057 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03563  M01S00057.ns2776  +++| PFP7     UJN    PFP9.1      SET FAMILY EQUIPMENT
03564  M00S02487.pfm     +++|
03565  M00S02488.pfm     +++|*         NO PACKNAME IN FET - SET PACKNAME AND DEVICE TYPE FROM CPA.
03566  M00S02489.pfm     +++|
03567  M00S02490.pfm     +++| PFP8     LDD    CP          SET PACKNAME AND DEVICE TYPE FROM CPA
03568  M00S02491.pfm     +++|          ADC    PKNW
03569  M00S02492.pfm     +++|          CRM    PFPN,ON
03570  M00S02493.pfm     +++|          LDM    PFPN+4
03571  M00S02494.pfm     +++|          ZJN    PFP9        IF DEVICE TYPE NOT SPECIFIED IN CPA
03572  M00S02495.pfm     +++|          STM    RQDT+1      SET DEVICE TYPE
03573  M00S02496.pfm     +++|          LDM    PFPN+3
03574  M00S02497.pfm     +++|          LPN    37
Line S02498 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03575  M01S02498.ns2776  ---|          LMD    HN          SET USER REQUESTED DEVICE
03576  M01S02499.ns2776  ---|          STM    RQDT
03577  M01S02500.ns2776  ---|          UJN    PFP11       SET FAMILY EQUIPMENT
Line S00058 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03578  M01S00058.ns2776  +++|          UJN    PFP10.1     SET USER REQUESTED AND FAMILY EQUIPMENT
03579  M00S02501.pfm     +++|
03580  M00S02502.pfm     +++|*         SET DEVICE TYPE FROM FET.
03581  M00S02503.pfm     +++|
03582  M00S02504.pfm     +++| PFP9     LDN    CFPK        CHECK FET LENGTH
03583  M00S02505.pfm     +++|          SBM    FETL
Line S02506 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03584  M01S02506.ns2776  ---|          PJN    PFP11       IF FET TOO SHORT FOR UNIT COUNT
Line S00059 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03585  M01S00059.ns2776  +++| PFP9.1   PJN    PFP11       IF FET TOO SHORT FOR UNIT COUNT
03586  M00S02507.pfm     +++|          LDC    *
03587  M00S02508.pfm     +++| PFPA     EQU    *-1         (UNIT COUNT SPECIFIED IN FET)
03588  M00S02509.pfm     +++|          NJN    PFP10       IF UNIT COUNT SPECIFIED
03589  M00S02510.pfm     +++|          LDN    1           SET DEFAULT COUNT
03590  M00S02511.pfm     +++| PFP10    ADN    1R0         CONVERT TO DISPLAY CODE
03591  M00S02512.pfm     +++|          STD    T1
03592  M00S02513.pfm     +++|          LDC    *
03593  M00S02514.pfm     +++| PFPB     EQU    *-1         (DEVICE TYPE SPECIFIED IN FET)
03594  M00S02515.pfm     +++|          ZJN    PFP11       IF NO DEVICE TYPE SPECIFIED
03595  M00S02516.pfm     +++|          LPC    3777        SET REQUESTED DEVICE TYPE
03596  M00S02517.pfm     +++|          SHN    6
03597  M00S02518.pfm     +++|          LMD    T1
03598  M00S02519.pfm     +++|          STM    RQDT+1
03599  M00S02520.pfm     +++|          SHN    -14
Line S02521 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03600  M01S02521.ns2776  ---|          LMD    HN          SET *USER REQUESTED DEVICE* FLAG
Line S00060 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03601  M01S00060.ns2776  +++| PFP10.1  LMD    HN          SET *USER REQUESTED DEVICE* FLAG
03602  M00S02522.pfm     +++|          STM    RQDT
03603  M00S02523.pfm     +++|
03604  M00S02524.pfm     +++|*         SET FAMILY EQUIPMENT.
03605  M00S02525.pfm     +++|
03606  M00S02526.pfm     +++| PFP11    LDD    FS+3
03607  M00S02527.pfm     +++|          STM    PFPN+4
03608  M00S02528.pfm     +++|          LJM    PFPX        RETURN
03609  M00S02529.pfm     +++| PSR      SPACE  4,15
03610  M00S02530.pfm     +++|**        PSR - PROCESS SPECIAL REQUEST BLOCK.
03611  M00S02531.pfm     +++|*
03612  M00S02532.pfm     +++|*         ENTRY  (CC) = COMMAND CODE.
03613  M00S02533.pfm     +++|*                (FS - FS+4) = (PFCW) FROM CONTROL POINT AREA.
03614  M00S02534.pfm     +++|*                (PFRB - PFRB+1) = SPECIAL REQUEST BLOCK ADDRESS.
Line S00056 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03615  M01S00056.253l688 +++|*                (SSJS) .NE. 0 IF CALLED BY *SSJ=* PROGRAM.
03616  M00S02535.pfm     +++|*
03617  M00S02536.pfm     +++|*         EXIT   (A) = 0 IF SPECIAL REQUEST.
03618  M00S02537.pfm     +++|*                (CN+3 - CN+4) = USER INDEX.
03619  M00S02538.pfm     +++|*                (PFPN - PFPN+4) = 42/ NAME, 6/, 12/ FAMILY EQ.
03620  M00S02539.pfm     +++|*                (PFUC) = USER CONTROLS.
03621  M00S02540.pfm     +++|*                (PFSB - PFFN) = SPECIAL REQUEST BLOCK SETUP.
Line S00057 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03622  M01S00057.253l688 +++|*                *STTA* SET IN *STAT* IF TAPE ALTERNATE STORAGE REQUEST.
03623  M00S02541.pfm     +++|*
Line S02542 Modification History
M01 (Removed by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03624  M01S02542.pfm19   ---|*         USES   T5, T6, CM - CM+4, CN - CN+4, T0 - T0+4.
Line S00001 Modification History
M01 (Added by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03625  M01S00001.pfm19   +++|*         USES   T5, T6, CM - CM+4, CN - CN+4, T0 - T0+4, T7 - T7+4.
03626  M00S02543.pfm     +++|*
03627  M00S02544.pfm     +++|*         CALLS  VCA.
03628  M00S02545.pfm     +++|*
03629  M00S02546.pfm     +++|*         MACROS ERROR, SFA.
03630  M00S02547.pfm     +++|
03631  M00S02548.pfm     +++|
Line S00061 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03632  M01S00061.ns2776  +++| PSR12    LDN    1           INDICATE NO SRB
03633  M01S00062.ns2776  +++|
03634  M00S02549.pfm     +++| PSR      SUBR               ENTRY/EXIT
03635  M00S02550.pfm     +++|          LDM    TCTL,CC
03636  M00S02551.pfm     +++|          SHN    21-12
Line S02552 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03637  M01S02552.253l688 ---|          MJN    PSR2        IF SPECIAL REQUEST
03638  M01S02553.253l688 ---| PSR1     LDN    1
Line S00058 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03639  M02S00058.ns2776  ---|          MJN    PSR2        IF SPECIAL REQUEST BLOCK ALLOWED
03640  M02S00059.ns2776  ---| PSR1     LDN    1           INDICATE NO SRB
Line S02554 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03641  M01S02554.ns2776  ---|          UJN    PSRX        RETURN
Line S00063 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
03642  M01S00063.ns2776  +++| PSR1     PJN    PSR12       IF NO SPECIAL REQUEST BLOCK ALLOWED
03643  M00S02555.pfm     +++|
Line S02556 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03644  M01S02556.253l688 ---|*         READ SPECIAL REQUEST BLOCK
Line S00060 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03645  M01S00060.253l688 +++|*         READ SPECIAL REQUEST BLOCK (SRB).
03646  M00S02557.pfm     +++|
03647  M00S02558.pfm     +++| PSR2     LDM    PFRB        CHECK LOCATION OF SPECIAL REQUEST BLOCK
03648  M00S02559.pfm     +++|          LPN    37
03649  M00S02560.pfm     +++|          SHN    14
03650  M00S02561.pfm     +++|          ADM    PFRB+1
03651  M00S02562.pfm     +++|          NJN    PSR3        IF ADDRESS SPECIFIED
Line S00061 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03652  M01S00061.253l688 +++|
03653  M01S00062.253l688 +++|*         NO SRB SPECIFIED ON FUNCTION WHICH ALLOWS SRB.  FOR *DROPDS*,
03654  M01S00063.253l688 +++|*         *DROPIDS* AND *PURGE* - ALLOW EVEN WITH NO *SSJ=*.
03655  M01S00064.253l688 +++|*         FOR *ASSIGNPF*, *UATTACH* AND *UGET* - ALLOW WITH *SSJ=*.
03656  M01S00065.253l688 +++|*         FOR ALL OTHER SRB-TYPE FUNCTIONS - DO NOT ALLOW.
03657  M01S00066.253l688 +++|
03658  M00S02563.pfm     +++|          LDD    CC
Line S02564 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03659  M01S02564.253l688 ---|          LMN    CCUA
03660  M01S02565.253l688 ---|          ZJN    PSR1        IF *UATTACH*, ALLOW NO SPECIAL REQUEST
Line S00067 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03661  M01S00067.253l688 +++|          LMN    CCPG
03662  M01S00068.253l688 +++|          ZJN    PSR1        IF *PURGE*
03663  M01S00069.253l688 +++|          LMN    CCDD&CCPG
03664  M01S00070.253l688 +++|          ZJN    PSR1        IF *DROPDS*
03665  M01S00071.253l688 +++|          LMN    CCDI&CCDD
03666  M01S00072.253l688 +++|          ZJN    PSR1        IF *DROPIDS*
03667  M01S00073.253l688 +++|          LMN    CCUA&CCDI
03668  M01S00074.253l688 +++|          ZJN    PSR2.1      IF *UATTACH*
03669  M00S02566.pfm     +++|          LMN    CCUG&CCUA
Line S02567 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03670  M01S02567.253l688 ---|          ZJN    PSR1        IF *UGET*, ALLOW NO SPECIAL REQUEST BLOCK
Line S00075 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03671  M01S00075.253l688 +++|          ZJN    PSR2.1      IF *UGET*
03672  M00S02568.pfm     +++|          LMN    CCAN&CCUG
Line S02569 Modification History
M01 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
03673  M01S02569.ns2414  ---|          NJN    PSR4        IF NOT *ASSIGNPF*
Line S00013 Modification History
M01 (Added by) ns2414
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03674  M02S00013.253l688 ---|          ZJN    PSR1        IF *ASSIGNPF*, ALLOW NO SPECIAL REQUEST
03675  M02S00014.253l688 ---|          LMN    CCDD&CCAN
03676  M02S00015.253l688 ---|          ZJN    PSR1        IF *DROPDS*, ALLOW NO SPECIAL REQUEST
03677  M02S00016.253l688 ---|          LMN    CCDI&CCDD
03678  M02S00017.253l688 ---|          NJN    PSR4        IF NOT *DROPIDS*
Line S02570 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03679  M01S02570.253l688 ---|          UJN    PSR1        DO NOT PROCESS AS SPECIAL REQUEST
Line S00076 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03680  M01S00076.253l688 +++|          NJN    PSR4        IF NOT *ASSIGNPF*
03681  M01S00077.253l688 +++| PSR2.1   LDM    SSJS
03682  M01S00078.253l688 +++|          NJN    PSR1        IF *SSJ=*
03683  M01S00079.253l688 +++| PSR2.2   ERROR  ILR,CH,IW   * PFM INCORRECT REQUEST.*
03684  M00S02571.pfm     +++|
03685  M00S02572.pfm     +++| PSR3     ADN    SFBL-1
03686  M00S02573.pfm     +++|          SHN    -6
03687  M00S02574.pfm     +++|          SBD    FL
03688  M00S02575.pfm     +++|          MJN    PSR5        IF IN RANGE OF FIELD LENGTH
03689  M00S02576.pfm     +++| PSR4     ERROR  PAE,CH,IW   * PFM ARGUMENT ERROR.*
03690  M00S02577.pfm     +++|
Line S02578 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03691  M01S02578.253l688 ---| PSR5     LDN    SFBL        READ SPECIAL REQUEST BLOCK
Line S00080 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03692  M01S00080.253l688 +++| PSR5     LDM    SSJS        ALWAYS REQUIRE *SSJ=* IF SRB SPECIFIED
03693  M01S00081.253l688 +++|          ZJN    PSR2.2      IF NOT *SSJ=*
03694  M01S00082.253l688 +++|          LDN    SFBL        READ SPECIAL REQUEST BLOCK
03695  M00S02579.pfm     +++|          STD    T1
03696  M00S02580.pfm     +++|          LDM    PFRB
03697  M00S02581.pfm     +++|          LPN    37
03698  M00S02582.pfm     +++|          SHN    6
03699  M00S02583.pfm     +++|          ADD    RA
03700  M00S02584.pfm     +++|          SHN    6
03701  M00S02585.pfm     +++|          ADM    PFRB+1
03702  M00S02586.pfm     +++|          CRM    PFSB,T1
Line S02587 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03703  M01S02587.253l688 ---|          LDN    ZERL        INITIALIZE FOR USER INDEX
Line S00083 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03704  M01S00083.253l688 +++|          LDM    PFSB+5+1
03705  M01S00084.253l688 +++|          SHN    21-6
03706  M01S00085.253l688 +++|          PJN    PSR5.1      IF NOT TAPE ALTERNATE STORAGE REQUEST
03707  M01S00086.253l688 +++|          LDN    STTA        SET TAPE FLAG
03708  M01S00087.253l688 +++|          RAM    STAT
03709  M01S00088.253l688 +++| PSR5.1   LDN    ZERL        INITIALIZE FOR USER INDEX
03710  M00S02588.pfm     +++|          CRD    CN
03711  M00S02589.pfm     +++|          LDM    PFSU        SET USER INDEX
03712  M00S02590.pfm     +++|          LPN    77
03713  M00S02591.pfm     +++|          STD    CN+3
03714  M00S02592.pfm     +++|          LDM    PFSU+1
03715  M00S02593.pfm     +++|          STD    CN+4
03716  M00S02594.pfm     +++|
03717  M00S02595.pfm     +++|*         FIND THE FAMILY EST ORDINAL BASED ON THE FAMILY NAME AND
03718  M00S02596.pfm     +++|*         DEVICE NUMBER.
03719  M00S02597.pfm     +++|
03720  M00S02598.pfm     +++|          LDN    ESTP        READ EST SEARCH POINTERS
03721  M00S02599.pfm     +++|          CRD    T0
03722  M00S02600.pfm     +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
03723  M00S02601.pfm     +++|          STD    T5
03724  M00S02602.pfm     +++|          LDD    T0+3        SAVE LAST MASS STORAGE ORDINAL + 1
03725  M00S02603.pfm     +++|          STD    T6
03726  M00S02604.pfm     +++| PSR6     AOD    T5          ADVANCE EST ORDINAL
03727  M00S02605.pfm     +++|          LMD    T6
03728  M00S02606.pfm     +++|          NJN    PSR7        IF NOT END OF MASS STORAGE DEVICES
03729  M00S02607.pfm     +++|          ERROR  IPA,CH,IW   * INCORRECT PFC ADDRESS.*
03730  M00S02608.pfm     +++|
03731  M00S02609.pfm     +++| PSR7     SFA    EST,T5
03732  M00S02610.pfm     +++|          ADK    EQDE
03733  M00S02611.pfm     +++|          CRD    CM
03734  M00S02612.pfm     +++|          LDD    CM          CHECK FOR MASS STORAGE DEVICE
Line S02613 Modification History
M01 (Removed by) pfm69
Seq #  *Modification Id* Act 
----------------------------+
03735  M01S02613.pfm69   ---|          SHN    21-13
03736  M01S02614.pfm69   ---|          PJN    PSR6        IF NOT MASS STORAGE DEVICE
Line S00001 Modification History
M01 (Added by) pfm69
Seq #  *Modification Id* Act 
----------------------------+
03737  M01S00001.pfm69   +++|          SHN    -6
03738  M01S00002.pfm69   +++|          LPN    41
03739  M01S00003.pfm69   +++|          LMN    40
03740  M01S00004.pfm69   +++|          NJN    PSR6        IF UNAVAILABLE OR NON-MS DEVICE
Line S00002 Modification History
M01 (Added by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03741  M01S00002.pfm19   +++|          LDD    CM+3        SAVE DEVICE TYPE
03742  M01S00003.pfm19   +++|          STM    PSRB
03743  M00S02615.pfm     +++|          LDD    CM+4        READ MST
Line S00004 Modification History
M01 (Added by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03744  M01S00004.pfm19   +++|          STM    PSRA        SAVE MST ADDRESS
03745  M00S02616.pfm     +++|          SHN    3
Line S00005 Modification History
M01 (Added by) pfm69
Seq #  *Modification Id* Act 
----------------------------+
03746  M01S00005.pfm69   +++|          ADN    STLL
03747  M01S00006.pfm69   +++|          CRD    T0
03748  M01S00007.pfm69   +++|          LDD    T0
03749  M01S00008.pfm69   +++|          LPC    MLFPR+MLIAL+MLIHD+MLIFD+MLIPF+MLUNL+MLDUL
03750  M01S00009.pfm69   +++| PSR7.1   NJN    PSR6        IF INITIALIZE PENDING OR UNLOADED
03751  M01S00010.pfm69   +++|          LDM    PSRA
03752  M01S00011.pfm69   +++|          SHN    3
03753  M00S02617.pfm     +++|          ADN    PFGL
03754  M00S02618.pfm     +++|          CRD    T0
03755  M00S02619.pfm     +++|          LDM    PFFM        COMPARE FAMILY NAME
03756  M00S02620.pfm     +++|          LMD    T0
Line S02621 Modification History
M01 (Removed by) pfm69
Seq #  *Modification Id* Act 
----------------------------+
03757  M01S02621.pfm69   ---|          NJN    PSR6        IF FAMILY NAME DOES NOT MATCH
Line S00012 Modification History
M01 (Added by) pfm69
Seq #  *Modification Id* Act 
----------------------------+
03758  M01S00012.pfm69   +++| PSR8     NJN    PSR7.1      IF FAMILY NAME DOES NOT MATCH
03759  M00S02622.pfm     +++|          LDM    PFFM+1
03760  M00S02623.pfm     +++|          LMD    T0+1
Line S02624 Modification History
M01 (Removed by) pfm69
Seq #  *Modification Id* Act 
----------------------------+
03761  M01S02624.pfm69   ---|          NJN    PSR6        IF FAMILY NAME DOES NOT MATCH
Line S00013 Modification History
M01 (Added by) pfm69
Seq #  *Modification Id* Act 
----------------------------+
03762  M01S00013.pfm69   +++|          NJN    PSR8        IF FAMILY NAME DOES NOT MATCH
03763  M00S02625.pfm     +++|          LDM    PFFM+2
03764  M00S02626.pfm     +++|          LMD    T0+2
Line S02627 Modification History
M01 (Removed by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03765  M01S02627.pfm19   ---| PSR8     NJN    PSR6        IF FAMILY NAME DOES NOT MATCH
Line S00005 Modification History
M01 (Added by) pfm19
M02 (Removed by) pfm69
Seq #  *Modification Id* Act 
----------------------------+
03766  M02S00005.pfm69   ---| PSR8     NJP    PSR6        IF FAMILY NAME DOES NOT MATCH
Line S00014 Modification History
M01 (Added by) pfm69
Seq #  *Modification Id* Act 
----------------------------+
03767  M01S00014.pfm69   +++|          NJN    PSR8        IF FAMILY NAME DOES NOT MATCH
03768  M00S02628.pfm     +++|          LDM    PFFM+3
03769  M00S02629.pfm     +++|          LMD    T0+3
03770  M00S02630.pfm     +++|          SCN    77
03771  M00S02631.pfm     +++|          NJN    PSR8        IF FAMILY NAME DOES NOT MATCH
03772  M00S02632.pfm     +++|          LDD    CC          CHECK COMMAND CODE
03773  M00S02633.pfm     +++|          LMN    CCAN
03774  M00S02634.pfm     +++|          ZJN    PSR9        IF *ASSIGNPF* COMMAND
03775  M00S02635.pfm     +++|          LDM    PFID        COMPARE DEVICE NUMBER
03776  M00S02636.pfm     +++|          LMD    T0+3
03777  M00S02637.pfm     +++|          LPN    77
03778  M00S02638.pfm     +++|          NJN    PSR8        IF DEVICE NUMBER DOES NOT MATCH
03779  M00S02639.pfm     +++|
03780  M00S02640.pfm     +++|*         THE EST ORDINAL HAS BEEN IDENTIFIED.
03781  M00S02641.pfm     +++|
03782  M00S02642.pfm     +++|          RJM    VCA         VERIFY THE CATALOG ADDRESS *PFID*
Line S02643 Modification History
M01 (Removed by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03783  M01S02643.pfm19   ---| PSR9     LDD    T5          SET FAMILY EST ORDINAL
03784  M01S02644.pfm19   ---|          STM    PFPN+4
03785  M01S02645.pfm19   ---|          LDD    FS+4        SET USER CONTROL BIT
Line S00006 Modification History
M01 (Added by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03786  M01S00006.pfm19   +++| PSR9     LDD    FS+4        SET USER CONTROL BIT
03787  M00S02646.pfm     +++|          STM    PFUC
03788  M00S02647.pfm     +++|          LDM    PFPN        CHECK FET FIELDS
03789  M00S02648.pfm     +++|          ADM    PFOU
Line S02649 Modification History
M01 (Removed by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03790  M01S02649.pfm19   ---|          NJN    PSR10       IF *PN* OR *UN* SPECIFIED
03791  M01S02650.pfm19   ---|          LJM    PSRX        RETURN
03792  M01S02651.pfm19   ---|
03793  M01S02652.pfm19   ---| PSR10    LJM    PSR4        * PFM ARGUMENT ERROR.*
Line S00007 Modification History
M01 (Added by) pfm19
Seq #  *Modification Id* Act 
----------------------------+
03794  M01S00007.pfm19   +++|          NJP    PSR4        IF *PN* OR *UN* SPECIFIED
03795  M01S00008.pfm19   +++|          LDC    *           CHECK IF DEVICE IS AUXILIARY PACK
03796  M01S00009.pfm19   +++| PSRA     EQU    *-1         (MST ADDRESS/10)
03797  M01S00010.pfm19   +++|          SHN    3
03798  M01S00011.pfm19   +++|          ADN    MDGL
03799  M01S00012.pfm19   +++|          CRD    T0
03800  M01S00013.pfm19   +++|          ADN    DDLL-MDGL
03801  M01S00014.pfm19   +++|          CRD    T7
03802  M01S00015.pfm19   +++|          LDD    T0+0
03803  M01S00016.pfm19   +++|          SHN    21-12
03804  M01S00017.pfm19   +++|          MJN    PSR10       IF AUXILIARY PACK
03805  M01S00018.pfm19   +++|          LDD    T5          SET EST ORDINAL OF SPECIFIED DEVICE
03806  M01S00019.pfm19   +++|          UJN    PSR11       SET FAMILY EST ORDINAL
03807  M01S00020.pfm19   +++|
03808  M01S00021.pfm19   +++| PSR10    LDD    MA          SET PACKNAME INTO *PFPN*
03809  M01S00022.pfm19   +++|          CWM    PFFM,ON
03810  M01S00023.pfm19   +++|          SBN    1
03811  M01S00024.pfm19   +++|          CRM    PFPN,ON
03812  M01S00025.pfm19   +++|          LDD    T7+0        GET UNIT COUNT
03813  M01S00026.pfm19   +++|          LPN    7
03814  M01S00027.pfm19   +++|          ADN    1R1
03815  M01S00028.pfm19   +++|          SHN    14
03816  M01S00029.pfm19   +++|          LMC    *
03817  M01S00030.pfm19   +++| PSRB     EQU    *-1         (DEVICE TYPE)
03818  M01S00031.pfm19   +++|          SHN    6
03819  M01S00032.pfm19   +++|          STM    RQDT+1      SET REQUESTED DEVICE TYPE
03820  M01S00033.pfm19   +++|          SHN    -14
03821  M01S00034.pfm19   +++|          STM    RQDT
03822  M01S00035.pfm19   +++|          LDD    FS+3        SET FAMILY EST ORDINAL FROM CPA
03823  M01S00036.pfm19   +++| PSR11    STM    PFPN+4      SET FAMILY EST ORDINAL
03824  M01S00037.pfm19   +++|          LDN    0           INDICATE SPECIAL REQUEST BLOCK PRESENT
03825  M01S00038.pfm19   +++|          LJM    PSRX        RETURN
03826  M00S02653.pfm     +++| PXT      SPACE  4,20
03827  M00S02654.pfm     +++|**        PXT -  PROCESS EXPIRATION TERM.
03828  M00S02655.pfm     +++|*
03829  M00S02656.pfm     +++|*         CONVERT EXPIRATION TERM INTO PACKED DATE, AND CHECK AGAINST
03830  M00S02657.pfm     +++|*         MAXIMUM ALLOWED BY SYSTEM.
03831  M00S02658.pfm     +++|*
03832  M00S02659.pfm     +++|*         ENTRY  (PFXT - PFXT+1) = USER SPECIFIED EXPIRATION DATE/TERM.
03833  M00S02660.pfm     +++|*                (CC) = COMMAND CODE.
03834  M00S02661.pfm     +++|*                (SVAL) = SECURITY VALIDATION BITS.
03835  M00S02662.pfm     +++|*
03836  M00S02663.pfm     +++|*         EXIT   (PXDT - PXDT+1) = VALIDATED EXPIRATION DATE.
03837  M00S02664.pfm     +++|*                (PXDT - PXDT+1) = 0 IF NONEXPIRING PASSWORD/PERMIT.
03838  M00S02665.pfm     +++|*
03839  M00S02666.pfm     +++|*         USES   T1, T2, CM - CM+4, CN - CN+4.
03840  M00S02667.pfm     +++|*
03841  M00S02668.pfm     +++|*         MACROS ERROR, MONITOR.
03842  M00S02669.pfm     +++|
03843  M00S02670.pfm     +++|
03844  M00S02671.pfm     +++| PXT      SUBR               ENTRY/EXIT
03845  M00S02672.pfm     +++|          LDM    TCTL,CC
03846  M00S02673.pfm     +++|          SHN    21-10
03847  M00S02674.pfm     +++|          PJN    PXTX        IF COMMAND DOES NOT ALLOW *XT*
03848  M00S02675.pfm     +++|          LDN    ZERL
03849  M00S02676.pfm     +++|          CRD    CM
03850  M00S02677.pfm     +++|          LDN    RIDS        SET UP *RDCM* PARAMETERS
03851  M00S02678.pfm     +++|          STD    CM+1
03852  M00S02679.pfm     +++|          LDM    PFXT        CHECK *XD/XT*
03853  M00S02680.pfm     +++|          LPN    77
03854  M00S02681.pfm     +++|          STD    T1
03855  M00S02682.pfm     +++|          SHN    14
03856  M00S02683.pfm     +++|          LMM    PFXT+1
03857  M00S02684.pfm     +++|          STD    T2
03858  M00S02685.pfm     +++|          NJN    PXT1        IF *XD/XT* SPECIFIED
03859  M00S02686.pfm     +++|          LDK    FPXT        USE SYSTEM DEFAULT *XT*
03860  M00S02687.pfm     +++|          STD    T2
03861  M00S02688.pfm     +++|          LJM    PXT8        SET DEFAULT *XT*
03862  M00S02689.pfm     +++|
03863  M00S02690.pfm     +++| PXT1     LDN    STXD        INDICATE THAT DATE WAS SPECIFIED
03864  M00S02691.pfm     +++|          RAM    STAT
03865  M00S02692.pfm     +++|          LDM    SVAL        CHECK PASSWORD EXPIRATION VALIDATION
03866  M00S02693.pfm     +++|          SHN    21-10
03867  M00S02694.pfm     +++|          MJN    PXT2        IF USER VALIDATED TO SET EXPIRATION DATE
03868  M00S02695.pfm     +++|          ERROR  NVX,CH,IW   *NOT VALIDATED TO SET XD/XT.*
03869  M00S02696.pfm     +++|
03870  M00S02697.pfm     +++| PXT2     LDD    T1
03871  M00S02698.pfm     +++|          ZJP    PXT7        IF *XT* SPECIFIED RATHER THAN *XD*
03872  M00S02699.pfm     +++|
03873  M00S02700.pfm     +++|*         VALIDATE SPECIFIED EXPIRATION DATE.
03874  M00S02701.pfm     +++|
03875  M00S02702.pfm     +++| PXT3     LDK    FPXL        READ MAXIMUM *XT* ALLOWED
03876  M00S02703.pfm     +++|          LMC    7777
03877  M00S02704.pfm     +++|          ZJN    PXT4        IF MAXIMUM IS UNLIMITED
03878  M00S02705.pfm     +++|          LDK    FPXL        CONVERT MAXIMUM *XT* TO *XD*
03879  M00S02706.pfm     +++|          STD    CM+4
03880  M00S02707.pfm     +++|          MONITOR  RDCM
03881  M00S02708.pfm     +++|          LDD    MA
03882  M00S02709.pfm     +++|          CRD    CN          COMPARE *XD* SPECIFIED WITH MAXIMUM *XD*
03883  M00S02710.pfm     +++|          LDD    CN+3
03884  M00S02711.pfm     +++|          SBD    T1
03885  M00S02712.pfm     +++|          MJN    PXT6        IF DATE BEYOND MAXIMUM
03886  M00S02713.pfm     +++|          SHN    14
03887  M00S02714.pfm     +++|          ADD    CN+4
03888  M00S02715.pfm     +++|          SBD    T2
03889  M00S02716.pfm     +++|          MJN    PXT6        IF DATE BEYOND MAXIMUM
03890  M00S02717.pfm     +++|
03891  M00S02718.pfm     +++|*         SAVE PASSWORD/PERMIT EXPIRATION DATE.
03892  M00S02719.pfm     +++|
03893  M00S02720.pfm     +++| PXT4     LDD    T1
03894  M00S02721.pfm     +++|          SHN    14
03895  M00S02722.pfm     +++|          LMD    T2
03896  M00S02723.pfm     +++| PXT5     STM    PXDT+1
03897  M00S02724.pfm     +++|          SHN    -14
03898  M00S02725.pfm     +++|          STM    PXDT
03899  M00S02726.pfm     +++|          LJM    PXTX        RETURN
03900  M00S02727.pfm     +++|
03901  M00S02728.pfm     +++| PXT6     ERROR  DEM,CH,IW   *XD/XT EXCEEDS MAXIMUM.*
03902  M00S02729.pfm     +++|
03903  M00S02730.pfm     +++|*         PROCESS EXPIRATION TERM.
03904  M00S02731.pfm     +++|
03905  M00S02732.pfm     +++| PXT7     LDK    FPXL        COMPARE TO MAXIMUM *XT*
03906  M00S02733.pfm     +++|          SBD    T2
03907  M00S02734.pfm     +++|          MJN    PXT6        IF MAXIMUM *XT* EXCEEDED
03908  M00S02735.pfm     +++| PXT8     LDD    T2
03909  M00S02736.pfm     +++|          LMC    7777
03910  M00S02737.pfm     +++|          ZJN    PXT5        IF NON-EXPIRING TERM SPECIFIED
03911  M00S02738.pfm     +++|          LDD    T2          CONVERT *XT* INTO *XD*
03912  M00S02739.pfm     +++|          STD    CM+4
03913  M00S02740.pfm     +++|          MONITOR  RDCM
03914  M00S02741.pfm     +++|          LDD    MA          READ RESULT
03915  M00S02742.pfm     +++|          CRD    CN
03916  M00S02743.pfm     +++|          LDD    CN+3
03917  M00S02744.pfm     +++|          SHN    14
03918  M00S02745.pfm     +++|          LMD    CN+4
03919  M00S02746.pfm     +++|          UJN    PXT5        STORE DATE
03920  M00S02747.pfm     +++| SAP      SPACE  4,15
03921  M00S02748.pfm     +++|**        SAP - SAVE ACCESS PARAMETERS.
03922  M00S02749.pfm     +++|*
03923  M00S02750.pfm     +++|*         ENTRY  (CC) = COMMAND CODE.
03924  M00S02751.pfm     +++|*
03925  M00S02752.pfm     +++|*         EXIT   (PFFC - PFFC+2) = SPECIFIED ACCESS CATEGORY SET.
03926  M00S02753.pfm     +++|*                (PFAL) = JOB ACCESS LEVEL.
03927  M00S02754.pfm     +++|*                (LFAL) = SPECIFIED ACCESS LEVEL(IF ANY),DEFAULT PFAL.
03928  M00S02755.pfm     +++|*                (SVAL) = SECURITY VALIDATION BITS.
03929  M00S02756.pfm     +++|*
03930  M00S02757.pfm     +++|*         USES   CN - CN+4, CM - CM+4, T0 - T4.
03931  M00S02758.pfm     +++|*
03932  M00S02759.pfm     +++|*         MACROS ERROR, MONITOR.
03933  M00S02760.pfm     +++|
03934  M00S02761.pfm     +++|
03935  M00S02762.pfm     +++| SAP      SUBR               ENTRY/EXIT
03936  M00S02763.pfm     +++|          LDD    CP          GET JOB DEFAULT VALUES AND VALIDATION
03937  M00S02764.pfm     +++|          ADK    JSCW
03938  M00S02765.pfm     +++|          CRM    SVAL,ON
03939  M00S02766.pfm     +++|          LDM    SVAL+1      SAVE JOB ACCESS LEVEL
03940  M00S02767.pfm     +++|          SHN    -11
03941  M00S02768.pfm     +++|          STM    PFAL
03942  M00S02769.pfm     +++|          STM    LFAL
03943  M00S02770.pfm     +++|          LDM    SVAL+2      SAVE JOB ACCESS CATEGORY SET
03944  M00S02771.pfm     +++|          LPC    377
03945  M00S02772.pfm     +++|          STM    PFFC
03946  M00S02773.pfm     +++|          ERRNZ  SVAL+2-PFFC CODE DEPENDS ON VALUE
03947  M00S02774.pfm     +++|          LDN    ZERL        SET UP FOR *VSAM*
03948  M00S02775.pfm     +++|          CRD    CN
03949  M00S02776.pfm     +++|          CRD    CM
03950  M00S02777.pfm     +++|          LDN    VAJS
03951  M00S02778.pfm     +++|          STD    CM+1
03952  M00S02779.pfm     +++|          LDD    CC
03953  M00S02780.pfm     +++|          LMN    CCAC
03954  M00S02781.pfm     +++|          ZJP    SAP4        IF *SETPFAC* REQUEST
03955  M00S02782.pfm     +++|          LMN    CCAL&CCAC
03956  M00S02783.pfm     +++|          ZJN    SAP2        IF *SETPFAL* REQUEST
03957  M00S02784.pfm     +++|
03958  M00S02785.pfm     +++|*         PROCESS ACCESS LEVEL FROM FET FOR *SAVE*, *DEFINE*, AND
03959  M00S02786.pfm     +++|*         *ASSIGNPF*, IF *SP* BIT SET.
03960  M00S02787.pfm     +++|
03961  M00S02788.pfm     +++|          LMN    CCSV&CCAL
03962  M00S02789.pfm     +++|          ZJN    SAP1        IF *SAVE* REQUEST
03963  M00S02790.pfm     +++|          LMN    CCDF&CCSV
03964  M00S02791.pfm     +++|          ZJN    SAP1        IF *DEFINE* REQUEST
03965  M00S02792.pfm     +++|          LMN    CCAN&CCDF
03966  M00S02793.pfm     +++|          NJP    SAPX        IF NOT *ASSIGNPF* REQUEST
03967  M00S02794.pfm     +++| SAP1     LDM    PFSP
03968  M00S02795.pfm     +++|          ZJP    SAPX        IF SECURITY PROCESSING BIT NOT SET
03969  M00S02796.pfm     +++|
03970  M00S02797.pfm     +++|*         VALIDATE SPECIFIED ACCESS LEVEL.
03971  M00S02798.pfm     +++|
03972  M00S02799.pfm     +++| SAP2     RJM    SFA         GET SPECIFIED ACCESS LEVEL
03973  M00S02800.pfm     +++|          ADN    CFAL
03974  M00S02801.pfm     +++|          CRD    T0
03975  M00S02802.pfm     +++|          LDD    T0+1        SAVE ACCESS LEVEL
03976  M00S02803.pfm     +++|          LPN    7
03977  M00S02804.pfm     +++|          STM    LFAL
03978  M00S02805.pfm     +++|          STD    CN+1
03979  M00S02806.pfm     +++|          LDN    1           VALIDATE ACCESS LEVEL ONLY
03980  M00S02807.pfm     +++|          STD    CM+4
03981  M00S02808.pfm     +++|          LDD    MA
03982  M00S02809.pfm     +++|          CWD    CN
03983  M00S02810.pfm     +++|          MONITOR  VSAM
03984  M00S02811.pfm     +++|          LDD    CM+1
03985  M00S02812.pfm     +++|          ZJP    SAPX        IF SPECIFIED ACCESSES VALID
03986  M00S02813.pfm     +++|          ERROR  LNJ,CH,IW,,SVE  * ACCESS LEVEL NOT VALID FOR JOB.*
03987  M00S02814.pfm     +++|
03988  M00S02815.pfm     +++|*         VALIDATE SPECIFIED ACCESS CATEGORY SET.
03989  M00S02816.pfm     +++|
03990  M00S02817.pfm     +++| SAP4     LDN    CFFC
03991  M00S02818.pfm     +++|          SBM    FETL
03992  M00S02819.pfm     +++|          MJN    SAP5        IF FET LONG ENOUGH FOR FUNCTION
03993  M00S02820.pfm     +++|          ERROR  ILR,CH,IW   * PFM INCORRECT REQUEST.*
03994  M00S02821.pfm     +++|
03995  M00S02822.pfm     +++| SAP5     RJM    SFA         GET SPECIFIED ACCESS CATEGORY SET
03996  M00S02823.pfm     +++|          ADN    CFFC
03997  M00S02824.pfm     +++|          CRD    CN
03998  M00S02825.pfm     +++|          LDD    CN+2
03999  M00S02826.pfm     +++|          LPC    377
04000  M00S02827.pfm     +++|          STD    CN+2
04001  M00S02828.pfm     +++|          STM    PFFC        SAVE ACCESS CATEGORY SET
04002  M00S02829.pfm     +++|          LDD    CN+3
04003  M00S02830.pfm     +++|          STM    PFFC+1
04004  M00S02831.pfm     +++|          LDD    CN+4
04005  M00S02832.pfm     +++|          STM    PFFC+2
04006  M00S02833.pfm     +++|          LDN    2           VALIDATE ACCESS CATEGORY SET ONLY
04007  M00S02834.pfm     +++|          STD    CM+4
04008  M00S02835.pfm     +++|          LDD    MA
04009  M00S02836.pfm     +++|          CWD    CN
04010  M00S02837.pfm     +++|          MONITOR  VSAM
04011  M00S02838.pfm     +++|          LDD    CM+1
04012  M00S02839.pfm     +++|          ZJP    SAPX        IF SPECIFIED ACCESS CATEGORY SET VALID
04013  M00S02840.pfm     +++|          ERROR  CNJ,CH,IW,,SVE  * ACCESS CATEGORIES NOT VALID FOR JOB*
Line S00040 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
04014  M01S00040.ns2599  +++| SEP      SPACE  4,10
04015  M01S00041.ns2599  +++|**        SEP - SET ERROR PROCESSING OPTIONS.
04016  M01S00042.ns2599  +++|*
04017  M01S00043.ns2599  +++|*         EXIT   (EPOP) = ERROR PROCESSING OPTIONS.
04018  M01S00044.ns2599  +++|*
04019  M01S00045.ns2599  +++|*         USES   CM - CM+4.
04020  M01S00046.ns2599  +++|*
04021  M01S00047.ns2599  +++|*         CALLS  SFA.
04022  M01S00048.ns2599  +++|
04023  M01S00049.ns2599  +++|
04024  M01S00050.ns2599  +++| SEP      SUBR               ENTRY/EXIT
04025  M01S00051.ns2599  +++|          RJM    SFA         READ FET+1
04026  M01S00052.ns2599  +++|          ADN    1
04027  M01S00053.ns2599  +++|          CRD    CM
04028  M01S00054.ns2599  +++|          LDD    CM+1        SAVE ERROR PROCESSING OPTIONS
04029  M01S00055.ns2599  +++|          SHN    0-6
04030  M01S00056.ns2599  +++|          LPN    37
04031  M01S00057.ns2599  +++|          STM    EPOP
04032  M01S00058.ns2599  +++|          UJN    SEPX        RETURN
04033  M00S02841.pfm     +++| SLT      SPACE  4,20
04034  M00S02842.pfm     +++|**        SLT - SEARCH COMMON LIBRARY TABLE FOR ALTERNATE USER NAME.
04035  M00S02843.pfm     +++|*
04036  M00S02844.pfm     +++|*         ENTRY  (FN - FN+3) = USER NAME FOR ALTERNATE ACCESS.
04037  M00S02845.pfm     +++|*
04038  M00S02846.pfm     +++|*         EXIT   (A) = -1 IF USER NAME NOT FOUND.
04039  M00S02847.pfm     +++|*                (A) =  0 IF MATCH AND USER INDEX AND EQ AVAILABLE.
04040  M00S02848.pfm     +++|*                (A) =  1 IF MATCH BUT VALIDATION NEEDED.
04041  M00S02849.pfm     +++|*                (CN - CN+3) = FAMILY IF USER NAME FOUND.
04042  M00S02850.pfm     +++|*                (T1 - T2) = USER INDEX IF FOUND IN THE TABLE.
04043  M00S02851.pfm     +++|*                (POAB) = TABLE OFFSET IF ENTRY FOUND.
04044  M00S02852.pfm     +++|*                (PFPN+4) = (T5) = EST ORDINAL IF TAKEN FROM THE TABLE.
04045  M00S02853.pfm     +++|*                (PFUC) = PERMANENT FILE VALIDATION.
04046  M00S02854.pfm     +++|*
04047  M00S02855.pfm     +++|*         USES   T1 - T7, CM - CM+4.
04048  M00S02856.pfm     +++|*
04049  M00S02857.pfm     +++|*         CALLS  CPN.
04050  M00S02858.pfm     +++|*
04051  M00S02859.pfm     +++|*         MACROS SFA.
04052  M00S02860.pfm     +++|
04053  M00S02861.pfm     +++|
04054  M00S02862.pfm     +++| SLT6     LCN    1           VALUE
04055  M00S02863.pfm     +++|
04056  M00S02864.pfm     +++| SLT      SUBR               ENTRY/EXIT
Line S02865 Modification History
M01 (Removed by) pfm50
Seq #  *Modification Id* Act 
----------------------------+
04057  M01S02865.pfm50   ---|          LDM    PFPN        CHECK FOR PACKNAME
04058  M01S02866.pfm50   ---|          NJN    SLT6        IF PACKNAME SPECIFIED
04059  M00S02867.pfm     +++|          LDC    CLTP        PICK UP COMMON LIBRARIES POINTER
04060  M00S02868.pfm     +++|          CRD    T3
04061  M00S02869.pfm     +++|          LDD    T5
04062  M00S02870.pfm     +++|          ZJN    SLT6        IF NO CLT
04063  M00S02871.pfm     +++|          LDN    0           INITIALIZE CLT OFFSET
04064  M00S02872.pfm     +++|          STD    T4
Line S02873 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04065  M01S02873.ns2776  ---| SLT1     AOD    T4
Line S00064 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04066  M01S00064.ns2776  +++| SLT1     AOD    T4          CHECK NEXT CLT ENTRY
04067  M00S02874.pfm     +++|          LMD    T5
04068  M00S02875.pfm     +++|          ZJN    SLT6        IF END OF CLT
04069  M00S02876.pfm     +++|          SFA    CLT,T4
04070  M00S02877.pfm     +++|          CRD    CM          READ COMMON LIBRARIES USER NAME
04071  M00S02878.pfm     +++|          LDN    FN          PASS ALTERNATE USER NAME ADDRESS
04072  M00S02879.pfm     +++|          RJM    CPN         COMPARE USER NAMES
Line S02880 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04073  M01S02880.ns2776  ---|          ZJN    SLT2        IF MATCH
04074  M01S02881.ns2776  ---|          UJN    SLT1        RETRY USING NEXT COMMON LIBRARY USER NAME
04075  M01S02882.ns2776  ---|
Line S00065 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04076  M01S00065.ns2776  +++|          NJN    SLT1        IF NO MATCH
04077  M00S02883.pfm     +++| SLT2     LDD    T4
04078  M00S02884.pfm     +++|          STM    POAB        SAVE TABLE OFFSET FOR ENTRY
04079  M00S02885.pfm     +++|          LDD    CM+3        PICK UP USER INDEX
04080  M00S02886.pfm     +++|          LPN    37
04081  M00S02887.pfm     +++|          STD    T1
04082  M00S02888.pfm     +++|          LDD    CM+4
04083  M00S02889.pfm     +++|          STD    T2
04084  M00S02890.pfm     +++|          SFA    CLT,T4      CHECK FOR EST ORDINAL
04085  M00S02891.pfm     +++|          ADN    CLTF-CLTU
04086  M00S02892.pfm     +++|          CRD    CN          PICK UP FAMILY NAME AND EST ORDINAL
04087  M00S02893.pfm     +++|          LDD    CN+4
04088  M00S02894.pfm     +++|          NJN    SLT5        IF EST ORDINAL IN THE TABLE
04089  M00S02895.pfm     +++| SLT3     LDN    1           SET VALIDATION REQUIRED
04090  M00S02896.pfm     +++| SLT4     LJM    SLTX        RETURN
04091  M00S02897.pfm     +++|
04092  M00S02898.pfm     +++| SLT5     STD    T5          SAVE EST ORDINAL
04093  M00S02899.pfm     +++|          SFA    EST
04094  M00S02900.pfm     +++|          ADK    EQDE
04095  M00S02901.pfm     +++|          CRD    CM          READ EST ENTRY
04096  M00S02902.pfm     +++|          LDD    CM+4        GET MST ADDRESS
04097  M00S02903.pfm     +++|          SHN    3
04098  M00S02904.pfm     +++|          ADN    PFGL
04099  M00S02905.pfm     +++|          CRD    CM          READ FAMILY OR PACK NAME
04100  M00S02906.pfm     +++|          LDN    CN
04101  M00S02907.pfm     +++|          RJM    CPN         COMPARE FAMILY NAMES
04102  M00S02908.pfm     +++|          NJN    SLT3        IF NO MATCH
04103  M00S02909.pfm     +++|          LDD    T5          CHANGE EST ORDINAL
04104  M00S02910.pfm     +++|          STM    PFPN+4
04105  M00S02911.pfm     +++|          SFA    CLT,T4      GET PF VALIDATION
04106  M00S02912.pfm     +++|          ADN    CLTV-CLTU
04107  M00S02913.pfm     +++|          CRD    CM
04108  M00S02914.pfm     +++|          LDD    CM+4
04109  M00S02915.pfm     +++|          STM    PFUC
04110  M00S02916.pfm     +++|          LDN    0           USER NAME AND INDEX FOUND
04111  M00S02917.pfm     +++|          UJN    SLT4        RETURN
04112  M00S02918.pfm     +++| VCA      SPACE  4,15
04113  M00S02919.pfm     +++|**        VCA - VERIFY CATALOG ADDRESS.
04114  M00S02920.pfm     +++|*
04115  M00S02921.pfm     +++|*         ENTRY  (CM - CM+4) = EST ENTRY OF THE FAMILY AND DEVICE.
04116  M00S02922.pfm     +++|*                (T5) = EST ORDINAL FOR THE FAMILY AND DEVICE NUMBER.
04117  M00S02923.pfm     +++|*                (PFID - PFID+2) = 4/,2/PEO,6/DN,12/TRACK,12/SECTOR.
04118  M00S02924.pfm     +++|*
04119  M00S02925.pfm     +++|*         EXIT   THE CATALOG ADDRESS IS VERIFIED TO DEFINE A LEGAL
04120  M00S02926.pfm     +++|*                PERMANENT FILE CATALOG ADDRESS.
04121  M00S02927.pfm     +++|*
04122  M00S02928.pfm     +++|*         USES   CM - CM+4, T0 - T0+4, T6 - T6+4.
04123  M00S02929.pfm     +++|*
04124  M00S02930.pfm     +++|*         CALLS  CTA.
04125  M00S02931.pfm     +++|*
04126  M00S02932.pfm     +++|*         MACROS ERROR.
04127  M00S02933.pfm     +++|
04128  M00S02934.pfm     +++|
04129  M00S02935.pfm     +++| VCA      SUBR               ENTRY/EXIT
04130  M00S02936.pfm     +++|          LDD    CM+4        DETERMINE MST ADDRESS
04131  M00S02937.pfm     +++|          SHN    3
04132  M00S02938.pfm     +++|          ADN    ALGL        READ THE DEVICE ALLOCATION WORD
04133  M00S02939.pfm     +++|          CRD    T6
04134  M00S02940.pfm     +++|          ADN    PUGL-ALGL   READ DEVICE MASK
04135  M00S02941.pfm     +++|          CRD    T0
04136  M00S02942.pfm     +++|          ADN    TRLL-PUGL
04137  M00S02943.pfm     +++|          RJM    CTA         CALCULATE FWA OF TRT
04138  M00S02944.pfm     +++|          SBD    TH          BIAS FOR LINK INDICATOR BIT
04139  M00S02945.pfm     +++|          STM    VCAA+1
04140  M00S02946.pfm     +++|          SHN    -14
04141  M00S02947.pfm     +++|          LMC    ADCI
04142  M00S02948.pfm     +++|          STM    VCAA
04143  M00S02949.pfm     +++|          LDD    T6+1        SET FIRST TRACK IN CATALOG CHAIN (LABEL)
04144  M00S02950.pfm     +++|          STD    T6
04145  M00S02951.pfm     +++|          LDM    PFSU+1      CHECK USER INDEX AGAINST DEVICE MASK
04146  M00S02952.pfm     +++|          LPN    7
04147  M00S02953.pfm     +++|          RAM    VCAB
04148  M00S02954.pfm     +++|          LDN    1
04149  M00S02955.pfm     +++| VCAB     SHN    **          (LAST DIGIT OF USER INDEX)
04150  M00S02956.pfm     +++|          STM    VCAC
04151  M00S02957.pfm     +++|          LDD    T0+4
04152  M00S02958.pfm     +++|          LPC    377
04153  M00S02959.pfm     +++|          LPC    *           (MASK FOR SPECIFIED USER INDEX)
04154  M00S02960.pfm     +++| VCAC     EQU    *-1
04155  M00S02961.pfm     +++|          ZJN    VCA2        IF USER INDEX NOT LEGAL FOR DEVICE
04156  M00S02962.pfm     +++|
04157  M00S02963.pfm     +++|*         LOOP THROUGH THE CHAIN OF CATALOG TRACKS AND VERIFY THAT
04158  M00S02964.pfm     +++|*         THE SPECIFIED TRACK IS IN THE CHAIN.
04159  M00S02965.pfm     +++|
04160  M00S02966.pfm     +++| VCA1     LDD    T6          CHECK TRACK LINKAGE
04161  M00S02967.pfm     +++|          SHN    21-13
04162  M00S02968.pfm     +++|          PJN    VCA2        IF NOT A VALID LINKAGE
04163  M00S02969.pfm     +++|          ZJN    VCA2        IF END OF CHAIN
04164  M00S02970.pfm     +++|          SHN    13-21-2     CALCULATE NEXT TRT WORD OFFSET
04165  M00S02971.pfm     +++| VCAA     ADC    TRTS
04166  M00S02972.pfm     +++|          CRD    CM          READ THE LINKED TO WORD
04167  M00S02973.pfm     +++|          LDD    T6          BIAS INTO THIS TRT WORD
04168  M00S02974.pfm     +++|          LPN    3
04169  M00S02975.pfm     +++|          STD    CM+4
04170  M00S02976.pfm     +++|          LDM    CM,CM+4
04171  M00S02977.pfm     +++|          STD    T6          SET THE NEXT TRACK
04172  M00S02978.pfm     +++|          LMM    PFID+1
04173  M00S02979.pfm     +++|          ZJN    VCA3        IF THE SPECIFIED TRACK IS IN THE CHAIN
04174  M00S02980.pfm     +++|          UJN    VCA1        CONTINUE EXAMINING CATALOG TRACKS
04175  M00S02981.pfm     +++|
04176  M00S02982.pfm     +++| VCA2     ERROR  IPA,CH,IW   * INCORRECT PFC ADDRESS.*
04177  M00S02983.pfm     +++|
04178  M00S02984.pfm     +++|*         THE TRACK IS A MEMBER OF THE CATALOG CHAIN.
04179  M00S02985.pfm     +++|
Line S02986 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04180  M01S02986.242l642 ---| VCA3     SETMS              VERIFY THE SECTOR SPECIFIED
Line S00337 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04181  M01S00337.242l642 +++| VCA3     SETMS  STATUS      VERIFY THE SECTOR SPECIFIED
04182  M00S02987.pfm     +++|          LDM    PFID+2
04183  M00S02988.pfm     +++|          SBM    SLM
04184  M00S02989.pfm     +++|          PJN    VCA2        IF SECTOR OUT OF RANGE
04185  M00S02990.pfm     +++|          LJM    VCAX        RETURN
Line S00055 Modification History
M01 (Added by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
04186  M01S00055.pfm22   +++| VFA      SPACE  4,15
04187  M01S00056.pfm22   +++|**        VFA - VERIFY FET ADDRESS.
04188  M01S00057.pfm22   +++|*
04189  M01S00058.pfm22   +++|*         EXIT   (A) .LT. 0, IF FET NOT WITHIN CALLER-S FIELD LENGTH.
04190  M01S00059.pfm22   +++|*                (SFAB) = *LDD RA*, IF FET IN RANGE.
04191  M01S00060.pfm22   +++|*                (SFAA - SFAA+1) = FET ADDRESS, IF IN RANGE.
Line S00061 Modification History
M01 (Added by) pfm22
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04192  M02S00061.242l642 ---|*                (TRPA) = *UJN TRP2*, IF RANDOM ADDRESS NOT TO BE
04193  M02S00062.242l642 ---|*                  UPDATED.
Line S00063 Modification History
M01 (Added by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
04194  M01S00063.pfm22   +++|*
04195  M01S00064.pfm22   +++|*         USES   T1, CN - CN+4.
04196  M01S00065.pfm22   +++|*
04197  M01S00066.pfm22   +++|*         CALLS  SFA.
04198  M01S00067.pfm22   +++|*
04199  M01S00068.pfm22   +++|*         MACROS ISTORE.
04200  M01S00069.pfm22   +++|
04201  M01S00070.pfm22   +++|
04202  M01S00071.pfm22   +++| VFA      SUBR               ENTRY/EXIT
04203  M01S00072.pfm22   +++|          LDD    IR+3
04204  M01S00073.pfm22   +++|          LPN    77
04205  M01S00074.pfm22   +++|          SHN    14
04206  M01S00075.pfm22   +++|          MJN    VFA1        IF ADDRESS OUT OF RANGE
04207  M01S00076.pfm22   +++|          LMD    IR+4
04208  M01S00077.pfm22   +++|          ADN    1
04209  M01S00078.pfm22   +++|          SHN    -6
04210  M01S00079.pfm22   +++|          SBD    FL
04211  M01S00080.pfm22   +++|          MJN    VFA2        IF ADDRESS IN RANGE
04212  M01S00081.pfm22   +++| VFA1     LCN    0           SET ERROR RETURN
04213  M01S00082.pfm22   +++|          UJN    VFAX        RETURN
04214  M01S00083.pfm22   +++|
04215  M01S00084.pfm22   +++| VFA2     LDD    IR+3        SAVE FET ADDRESS
04216  M01S00085.pfm22   +++|          LPN    37
04217  M01S00086.pfm22   +++|          LMC    ADCI
04218  M01S00087.pfm22   +++|          STM    SFAA
04219  M01S00088.pfm22   +++|          LDD    IR+4
04220  M01S00089.pfm22   +++|          STM    SFAA+1
04221  M01S00090.pfm22   +++|          ISTORE SFAB,(LDD RA)  FLAG FET ADDRESS VALID
04222  M01S00091.pfm22   +++|          RJM    SFA         READ FET LENGTH/RANDOM BIT
04223  M01S00092.pfm22   +++|          ADN    1
04224  M01S00093.pfm22   +++|          CRD    CN
04225  M01S00094.pfm22   +++|          LDD    CN+3        SAVE FET LENGTH
04226  M01S00095.pfm22   +++|          SHN    -6
04227  M01S00096.pfm22   +++|          ADN    4
04228  M01S00097.pfm22   +++|          STD    T1
04229  M01S00098.pfm22   +++|          LDD    CN+1
04230  M01S00099.pfm22   +++|          SHN    21-13
04231  M01S00100.pfm22   +++|          PJN    VFA4        IF NOT RANDOM FET
04232  M01S00101.pfm22   +++|          LDD    T1
04233  M01S00102.pfm22   +++|          SBN    CFCN
04234  M01S00103.pfm22   +++|          PJN    VFA4        IF FET NOT TOO SHORT
Line S00104 Modification History
M01 (Added by) pfm22
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04235  M02S00104.242l642 ---| VFA3     ISTORE TRPA,(UJN TRP2)  DO NOT UPDATE RANDOM INDEX
04236  M02S00105.242l642 ---|          UJP    VFA1        SET ERROR RETURN
Line S00338 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04237  M01S00338.242l642 +++| VFA3     UJN    VFA1        SET ERROR RETURN
Line S00106 Modification History
M01 (Added by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
04238  M01S00106.pfm22   +++|
04239  M01S00107.pfm22   +++| VFA4     LDD    IR+3        CHECK FET WITHIN FIELD LENGTH
04240  M01S00108.pfm22   +++|          LPN    77
04241  M01S00109.pfm22   +++|          SHN    14
04242  M01S00110.pfm22   +++|          LMD    IR+4
04243  M01S00111.pfm22   +++|          ADD    T1
04244  M01S00112.pfm22   +++|          SHN    -6
04245  M01S00113.pfm22   +++|          SBD    FL
04246  M01S00114.pfm22   +++|          PJN    VFA3        IF FET OUT OF RANGE
04247  M01S00115.pfm22   +++|          LDN    0           SET NO ERROR
04248  M01S00116.pfm22   +++|          UJP    VFAX        RETURN
04249  M00S02991.pfm     +++| VRP      SPACE  4,15
04250  M00S02992.pfm     +++|**        VRP - VERIFY PARAMETERS.
04251  M00S02993.pfm     +++|*
04252  M00S02994.pfm     +++|*         ENTRY  (CC) = COMMAND CODE.
04253  M00S02995.pfm     +++|*                (FN - FN+4) = ACCESS WORD.
04254  M00S02996.pfm     +++|*                (PFBR) = BACKUP REQUIREMENT VALUE.
04255  M00S02997.pfm     +++|*                (PFRS) = PREFERRED RESIDENCE VALUE.
04256  M00S02998.pfm     +++|*                (PFSS) = SUBSYSTEM VALUE.
04257  M00S02999.pfm     +++|*                (PFAP) = ALTERNATE CATLIST PERMISSION VALUE.
04258  M00S03000.pfm     +++|*
04259  M00S03001.pfm     +++|*         EXIT   PARAMETERS VERIFIED TO BE IN RANGE.
04260  M00S03002.pfm     +++|*                DEFAULT VALUES SET IF NEEDED (FILE CREATION).
04261  M00S03003.pfm     +++|*
04262  M00S03004.pfm     +++|*         MACROS ERROR.
04263  M00S03005.pfm     +++|
04264  M00S03006.pfm     +++|
04265  M00S03007.pfm     +++| VRP      SUBR               ENTRY/EXIT
04266  M00S03008.pfm     +++|          LDD    CC          CHECK FOR *CHANGE* REQUEST
04267  M00S03009.pfm     +++|          LMN    CCCG
Line S03010 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04268  M01S03010.ns2776  ---|          ZJP    VRP3        IF *CHANGE* REQUEST
Line S00066 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04269  M01S00066.ns2776  +++|          ZJN    VRP3        IF *CHANGE* REQUEST
04270  M00S03011.pfm     +++|
04271  M00S03012.pfm     +++|
04272  M00S03013.pfm     +++|*         SET DEFAULT VALUES ON FILE CREATION.
04273  M00S03014.pfm     +++|
04274  M00S03015.pfm     +++|
04275  M00S03016.pfm     +++|          LDM    PFSS        CLEAR *CHANGE* FLAG ON FILE CREATION
04276  M00S03017.pfm     +++|          SCN    40
04277  M00S03018.pfm     +++|          STM    PFSS
04278  M00S03019.pfm     +++|          LDM    PFBR        INSURE VALID *BR* VALUE
04279  M00S03020.pfm     +++|          LPC    0700
04280  M00S03021.pfm     +++|          NJN    VRP1        IF *BR* PARAMETER SPECIFIED
04281  M00S03022.pfm     +++|          LDC    BRDE*100    SET DEFAULT *BR* VALUE
04282  M00S03023.pfm     +++|          RAM    PFBR
04283  M00S03024.pfm     +++| VRP1     LDM    PFRS        INSURE VALID *PR* VALUE
Line S03025 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04284  M01S03025.ns2776  ---|          LPC    7000
Line S00067 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04285  M01S00067.ns2776  +++|          SHN    0-11
04286  M00S03026.pfm     +++|          NJN    VRP2        IF *PR* PARAMETER SPECIFIED
04287  M00S03027.pfm     +++|          LDC    RSDE*1000   SET DEFAULT *PR* VALUE
04288  M00S03028.pfm     +++|          RAM    PFRS
04289  M00S03029.pfm     +++| VRP2     LDM    PFAP        CHECK FOR NULL *AC* VALUE
04290  M00S03030.pfm     +++|          SHN    -12
04291  M00S03031.pfm     +++|          NJN    VRP3        IF *AC* PARAMETER SPECIFIED
Line S03032 Modification History
M01 (Removed by) ns2351
Seq #  *Modification Id* Act 
----------------------------+
04292  M01S03032.ns2351  ---|          LDC    ACNO*2000   SET DEFAULT *AC* VALUE
Line S00001 Modification History
M01 (Added by) ns2351
Seq #  *Modification Id* Act 
----------------------------+
04293  M01S00001.ns2351  +++|          LDC    ACDF*2000   SET DEFAULT *AC* VALUE
04294  M00S03033.pfm     +++|          RAM    PFAP
04295  M00S03034.pfm     +++|
04296  M00S03035.pfm     +++|*         ENSURE VALID PARAMETER VALUES.
04297  M00S03036.pfm     +++|
04298  M00S03037.pfm     +++| VRP3     LDM    PFBR        VERIFY RANGE OF *BR* VALUE
04299  M00S03038.pfm     +++|          SHN    0-6
04300  M00S03039.pfm     +++|          LPN    7
04301  M00S03040.pfm     +++|          SBN    BRMX+1
04302  M00S03041.pfm     +++|          PJN    VRP4        IF *BR* NOT IN RANGE
04303  M00S03042.pfm     +++|          LDM    PFRS        VERIFY RANGE OF *PR* VALUE
04304  M00S03043.pfm     +++|          SHN    0-11
04305  M00S03044.pfm     +++|          SBN    RSMX+1
04306  M00S03045.pfm     +++|          PJN    VRP4        IF *PR* OUT OF RANGE
04307  M00S03046.pfm     +++|          ADN    RSMX+1-RSLK
04308  M00S03047.pfm     +++|          NJN    VRP5        IF *DISK LOCKED* NOT REQUESTED
04309  M00S03048.pfm     +++|          LDD    FN+2        CHECK FOR *CLTD* VALIDATION
04310  M00S03049.pfm     +++|          SHN    21-0
04311  M00S03050.pfm     +++|          MJN    VRP5        IF USER VALIDATED TO SPECIFY DISK LOCKED
04312  M00S03051.pfm     +++| VRP4     ERROR  ILR,CH,IW   * PFM INCORRECT REQUEST.*
04313  M00S03052.pfm     +++|
04314  M00S03053.pfm     +++| VRP5     LDM    PFSS        VERIFY SUBSYSTEM VALUE
04315  M00S03054.pfm     +++|          LPN    37
04316  M00S03055.pfm     +++|          SBN    MSYS+1
04317  M00S03056.pfm     +++|          PJN    VRP4        IF *SS* NOT VALID
04318  M00S03057.pfm     +++|          LDM    PFAP        VERIFY *AC* PARAMETER
04319  M00S03058.pfm     +++|          SHN    -12
04320  M00S03059.pfm     +++|          SBN    ACMX+1
04321  M00S03060.pfm     +++|          PJN    VRP4        IF *AC* NOT VALID
04322  M00S03061.pfm     +++|          LJM    VRPX        RETURN
04323  M00S03062.pfm     +++| VUA      SPACE  4,15
04324  M00S03063.pfm     +++|**        VUA - VALIDATE USER ACCESS.
04325  M00S03064.pfm     +++|*
Line S03065 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04326  M01S03065.253l688 ---|*         EXIT   (PRSI) = 1 IF *SSJ=* JOB.
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/pfm.002.txt ยท Last modified: by 127.0.0.1