User Tools

Site Tools


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

Deck PFM Part 015

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
20842  M01S14489.271l716 ---| E0C1     RJM    PEM         PROCESS ERROR MESSAGE
Line S00096 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
20843  M01S00096.271l716 +++| E0C      BSS    0           ENTRY
20844  M01S00097.271l716 +++|          LDD    P1
20845  M01S00098.271l716 +++|          LMK    /ERRMSG/FBS
20846  M01S00099.271l716 +++|          NJN    E0C1        IF NOT *FILE BUSY*
20847  M01S00100.271l716 +++|          LDD    CP          SET *FILE BUSY* EVENT INTO *TERW*
20848  M01S00101.271l716 +++|          ADK    TERW
20849  M01S00102.271l716 +++|          CRD    CM
20850  M01S00103.271l716 +++|          LDD    CM+2        SET TIME
20851  M01S00104.271l716 +++|          SCN    77
20852  M01S00105.271l716 +++|          SHN    3
20853  M01S00106.271l716 +++|          LMM    ERRD
20854  M01S00107.271l716 +++|          SHN    22-3
20855  M01S00108.271l716 +++|          STD    CM+2
20856  M01S00109.271l716 +++|          SHN    -6
20857  M01S00110.271l716 +++|          SCN    77
20858  M01S00111.271l716 +++|          LMM    ERRE        SET EST ORDINAL
20859  M01S00112.271l716 +++|          STD    CM+3
20860  M01S00113.271l716 +++|          LDM    ERRC        SET FOLDED EVENT
20861  M01S00114.271l716 +++|          STD    CM+4
20862  M01S00115.271l716 +++|          LDD    CP
20863  M01S00116.271l716 +++|          ADK    TERW
20864  M01S00117.271l716 +++|          CWD    CM
20865  M01S00118.271l716 +++| E0C1     RJM    PEM         PROCESS ERROR MESSAGE
20866  M00S14490.pfm     +++|          LJM    UFF         UPDATE FET FIELDS AND EXIT
Line S14491 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
20867  M01S14491.271l716 ---|
20868  M00S14492.pfm     +++| E1C      SPACE  4,25
20869  M00S14493.pfm     +++|**        E1C - EXIT 1 CASE PROCESSING.
20870  M00S14494.pfm     +++|*
20871  M00S14495.pfm     +++|*         SPECIAL *EP* AND *UP* CONTROLLED FOR TIME DEPENDENT
Line S14496 Modification History
M01 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
20872  M01S14496.ns2599  ---|*         PROCESSING WITH A POSSIBILITY OF ROLLOUT.
Line S00068 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
20873  M01S00068.ns2599  +++|*           PROCESSING WITH A POSSIBILITY OF ROLLOUT.
20874  M00S14497.pfm     +++|*
20875  M00S14498.pfm     +++|*         ENTRY  (EP) = *EP* BOOLEAN.
20876  M00S14499.pfm     +++|*                (UP) = *UP* BOOLEAN.
20877  M00S14500.pfm     +++|*
Line S14501 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
20878  M01S14501.271l716 ---|*         EXIT   SET TIME/EVENT IN CONTROL POINT.
20879  M01S14502.271l716 ---|*                IF *EP* AND *UP*.
Line S00119 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
20880  M01S00119.271l716 +++|*         EXIT   IF *EP* AND *UP*.
20881  M00S14503.pfm     +++|*                  IF EMRA, COPY MESSAGE TO EMRA BUFFER.
20882  M00S14504.pfm     +++|*                  SET STATUS IN FET.
20883  M00S14505.pfm     +++|*                  EXIT PFM.
20884  M00S14506.pfm     +++|*                SET MESSAGE IN *MS2W*.
20885  M00S14507.pfm     +++|*                IF SSID FIELD ZERO, ROLLOUT JOB.
Line S14508 Modification History
M01 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
20886  M01S14508.ns2599  ---|*                RESET SYSTEM REQUEST (RA+1).
Line S00069 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
20887  M01S00069.ns2599  +++|*                RECALL REQUEST.
20888  M00S14509.pfm     +++|*                EXIT PFM.
20889  M00S14510.pfm     +++|*
Line S14511 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
20890  M01S14511.271l716 ---|*         CALLS  GEA, RCL, REM, STE, UFF.
Line S00120 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
20891  M01S00120.271l716 +++|*         USES   CM+1 - CM+4.
20892  M01S00121.271l716 +++|*
20893  M01S00122.271l716 +++|*         CALLS  GEA, REM, WCM.
20894  M00S14512.pfm     +++|*
20895  M00S14513.pfm     +++|*         MACROS MONITOR.
20896  M00S14514.pfm     +++|
20897  M00S14515.pfm     +++|
20898  M00S14516.pfm     +++| E1C      BSS    0           ENTRY
Line S14517 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
20899  M01S14517.271l716 ---|          RJM    STE         SET ROLLOUT TIME/EVENT
20900  M00S14518.pfm     +++|          LDD    EP
20901  M00S14519.pfm     +++|          ZJN    E1C3        IF *EP* NOT SET
20902  M00S14520.pfm     +++|          LDD    UP
20903  M00S14521.pfm     +++|          ZJN    E1C3        IF *UP* NOT SET
20904  M00S14522.pfm     +++|
20905  M00S14523.pfm     +++|*         RETURN STATUS TO USER.
20906  M00S14524.pfm     +++|
20907  M00S14525.pfm     +++| E1C1     RJM    GEA         GET USER ERROR MESSAGE ADDRESS *EMRA*
20908  M00S14526.pfm     +++|          ZJN    E1C2        IF NO ERROR MESSAGE ADDRESS
20909  M00S14527.pfm     +++|          LDM    ERRMSG,P1   SPECIFY MESSAGE ADDRESS
20910  M00S14528.pfm     +++|          RJM    REM         RETURN ERROR MESSAGE
20911  M00S14529.pfm     +++| E1C2     LJM    UFF         UPDATE FET FIELDS AND EXIT
20912  M00S14530.pfm     +++|
20913  M00S14531.pfm     +++|*         RECALL/ROLLOUT THE USER.
20914  M00S14532.pfm     +++|
20915  M00S14533.pfm     +++| E1C3     RJM    WCM         SET MESSAGE IN *MS2W*
20916  M00S14534.pfm     +++|          LDM    SSID        CHECK SUBSYSTEM ID
20917  M00S14535.pfm     +++|          NJN    E1C4        IF JOB NOT ROLLABLE
Line S00123 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
20918  M01S00123.271l716 +++|          LDM    ERRD        SET ROLLOUT TIME
20919  M01S00124.271l716 +++|          STD    CM+2
20920  M01S00125.271l716 +++|          LDM    ERRE        SET ROLLOUT EST ORDINAL
20921  M01S00126.271l716 +++|          STD    CM+3
20922  M01S00127.271l716 +++|          LDM    ERRC        SET FOLDED ROLLOUT EVENT
20923  M01S00128.271l716 +++|          STD    CM+4
20924  M01S00129.271l716 +++|          ADD    CM+3
20925  M01S00130.271l716 +++|          ADD    CM+2
20926  M01S00131.271l716 +++|          NJN    E1C3.1      IF TIMED EVENT ROLLOUT
20927  M01S00132.271l716 +++|          SOM    E1CA        SET SCHEDULER ROLLOUT OPTION
20928  M01S00133.271l716 +++|          ERRNZ  ROTE-ROSR-1 CODE DEPENDS ON VALUE
20929  M01S00134.271l716 +++| E1C3.1   LDD    MA          WRITE *ROCM* PARAMETERS TO MB
20930  M01S00135.271l716 +++|          CWD    CM
20931  M00S14536.pfm     +++| E1CA     LDN    ROTE        SELECT TIMED/EVENT ROLLOUT
20932  M00S14537.pfm     +++|*         LDN    ROSR        (SELECT SCHEDULER ROLLOUT)
20933  M00S14538.pfm     +++|          STD    CM+1
20934  M00S14539.pfm     +++|          MONITOR ROCM       REQUEST ROLLOUT
20935  M00S14540.pfm     +++| E1C4     LJM    RCL         SET FOR PFM RECALL AND EXIT PFM
20936  M00S14541.pfm     +++| E2C      SPACE  4,15
20937  M00S14542.pfm     +++|**        E2C - EXIT 2 CASE PROCESSING.
20938  M00S14543.pfm     +++|*
20939  M00S14544.pfm     +++|*         SPECIAL *UP* OR *RT* CONTROLLED FOR STAGE INITIATED
Line S14545 Modification History
M01 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
20940  M01S14545.ns2599  ---|*         PROCESSING.
Line S00070 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
20941  M01S00070.ns2599  +++|*           PROCESSING.
20942  M00S14546.pfm     +++|*
20943  M00S14547.pfm     +++|*         ENTRY  (RT) = *RT* BOOLEAN.
20944  M00S14548.pfm     +++|*                (UP) = *UP* BOOLEAN.
20945  M00S14549.pfm     +++|*
Line S14550 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
20946  M01S14550.271l716 ---|*         EXIT   SET TIME/EVENT IN CONTROL POINT.
20947  M01S14551.271l716 ---|*                IF *UP* OR *RT*,
Line S00136 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
20948  M01S00136.271l716 +++|*         EXIT   IF *UP* OR *RT*,
20949  M00S14552.pfm     +++|*                  IF *EMRA*, COPY MESSAGE TO *EMRA* BUFFER.
20950  M00S14553.pfm     +++|*                  SET STATUS IN FET.
20951  M00S14554.pfm     +++|*                  EXIT PFM.
20952  M00S14555.pfm     +++|*                SET MESSAGE AT *MS1W* IN *CPA* FOR THE JOB.
20953  M00S14556.pfm     +++|*                IF SSID FIELD ZERO, ROLLOUT JOB.
Line S14557 Modification History
M01 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
20954  M01S14557.ns2599  ---|*                RESET SYSTEM REQUEST (RA+1).
Line S00071 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
20955  M01S00071.ns2599  +++|*                RECALL REQUEST.
20956  M00S14558.pfm     +++|*                EXIT PFM.
Line S14559 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
20957  M01S14559.271l716 ---|*
20958  M01S14560.271l716 ---|*         USES   T1
20959  M01S14561.271l716 ---|*
20960  M01S14562.271l716 ---|*         CALLS  E1C1, E1C3, STE.
20961  M00S14563.pfm     +++|
20962  M00S14564.pfm     +++|
20963  M00S14565.pfm     +++| E2C      BSS    0           ENTRY
Line S14566 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
20964  M01S14566.271l716 ---|          RJM    STE         SET ROLLOUT TIME/EVENT
20965  M00S14567.pfm     +++|          LDD    UP
Line S14568 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
20966  M01S14568.271l716 ---|          NJN    E1C1        IF *UP* SET
20967  M01S14569.271l716 ---|          LDD    RT
20968  M01S14570.271l716 ---|          NJN    E1C1        IF *RT* SET
20969  M01S14571.271l716 ---|          UJN    E1C3        COMPLETE FOR NOT *UP* OR *RT*
Line S00137 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
20970  M01S00137.271l716 +++|          ZJN    E2C2        IF *UP* NOT SET
20971  M01S00138.271l716 +++| E2C1     LJM    E1C1        RETURN STATUS TO CALLER
20972  M01S00139.271l716 +++|
20973  M01S00140.271l716 +++| E2C2     LDD    RT
20974  M01S00141.271l716 +++|          NJN    E2C1        IF *RT* SET
20975  M01S00142.271l716 +++|          UJP    E1C3        COMPLETE FOR NOT *UP*/*RT*
20976  M00S14572.pfm     +++| E3C      SPACE  4,15
20977  M00S14573.pfm     +++|**        E3C - EXIT 3 CASE PROCESSING.
20978  M00S14574.pfm     +++|*
20979  M00S14575.pfm     +++|*         UNCONDITIONALLY ABORT THE REQUESTING JOB.
20980  M00S14576.pfm     +++|*
20981  M00S14577.pfm     +++|*         EXIT   MESSAGE ISSUED TO JOB DAYFILE.
20982  M00S14578.pfm     +++|*                MESSAGE ISSUED TO SYSTEM DAYFILE.
20983  M00S14579.pfm     +++|*
20984  M00S14580.pfm     +++|*         CALLS  IDM, UFF.
20985  M00S14581.pfm     +++|
20986  M00S14582.pfm     +++|
20987  M00S14583.pfm     +++| E3C      BSS    0           ENTRY
20988  M00S14584.pfm     +++|          LDM    ERRMSG,P1   ISSUE MESSAGE TO DAYFILE
20989  M00S14585.pfm     +++|          RJM    IDM
20990  M00S14586.pfm     +++|
20991  M00S14587.pfm     +++|*         ABORT THE JOB.
20992  M00S14588.pfm     +++|
Line S14589 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
20993  M01S14589.242l642 ---|          AOM    DPPA        SET TO ABORT CONTROL POINT
20994  M01S14590.242l642 ---|          LDN    PSNI
20995  M01S14591.242l642 ---|          STM    DPPB
Line S01752 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
20996  M01S01752.242l642 +++|          LDK    STAJ        SET *ABORT JOB* STATUS BIT
20997  M01S01753.242l642 +++|          RAM    STAU
20998  M00S14592.pfm     +++|          LJM    UFF         UPDATE FET FIELDS AND EXIT
20999  M00S14593.pfm     +++| E4C      SPACE  4,15
21000  M00S14594.pfm     +++|**        E4C - EXIT 4 CASE PROCESSING.
21001  M00S14595.pfm     +++|*
Line S14596 Modification History
M01 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21002  M01S14596.ns2599  ---|*         SPECIAL *EP*, *UP* CONTROLLED FOR TIME DEPENDENT PROCESSING
21003  M01S14597.ns2599  ---|*         WITH RECALL POSSIBILITY.
Line S00072 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21004  M01S00072.ns2599  +++|*         SPECIAL *EP*/*IP* OR *EP*/*UP* CONTROLLED FOR TIME DEPENDENT
21005  M01S00073.ns2599  +++|*           PROCESSING WITH RECALL POSSIBILITY.
21006  M00S14598.pfm     +++|*
21007  M00S14599.pfm     +++|*         ENTRY  (EP) = *EP* BOOLEAN.
21008  M00S14600.pfm     +++|*                (UP) = *UP* BOOLEAN.
Line S00074 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21009  M01S00074.ns2599  +++|*                (EPOP) = ERROR PROCESSING OPTIONS.
21010  M00S14601.pfm     +++|*
Line S14602 Modification History
M01 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21011  M01S14602.ns2599  ---|*         EXIT   IF *EP* AND *UP* AND NON-ROLLABLE JOB,
Line S00075 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21012  M01S00075.ns2599  +++|*         EXIT   IF *EP*/*IP*, OR IF *EP*/*UP* AND NON-ROLLABLE JOB,
21013  M00S14603.pfm     +++|*                  IF EMRA, COPY MESSAGE TO EMRA BUFFER.
21014  M00S14604.pfm     +++|*                  SET STATUS IN FET.
21015  M00S14605.pfm     +++|*                  EXIT PFM.
Line S14606 Modification History
M01 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21016  M01S14606.ns2599  ---|*                RESET SYSTEM REQUEST (RA+1).
Line S00076 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21017  M01S00076.ns2599  +++|*                RECALL REQUEST.
21018  M00S14607.pfm     +++|*                EXIT PFM.
21019  M00S14608.pfm     +++|*
21020  M00S14609.pfm     +++|*         CALLS  E1C1, RCL.
21021  M00S14610.pfm     +++|
21022  M00S14611.pfm     +++|
21023  M00S14612.pfm     +++| E4C      BSS    0           ENTRY
21024  M00S14613.pfm     +++|          LDD    EP
21025  M00S14614.pfm     +++|          ZJN    E4C1        IF *EP* NOT SET
Line S00077 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21026  M01S00077.ns2599  +++|          LDM    EPOP
21027  M01S00078.ns2599  +++|          LPN    1
21028  M01S00079.ns2599  +++|          NJN    E4C0        IF *IP* SET
21029  M00S14615.pfm     +++|          LDD    UP
21030  M00S14616.pfm     +++|          ZJN    E4C1        IF *UP* NOT SET
21031  M00S14617.pfm     +++|          LDM    SSID        CHECK SUBSYSTEM ID
21032  M00S14618.pfm     +++|          ZJN    E4C1        IF ROLLABLE JOB
Line S14619 Modification History
M01 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21033  M01S14619.ns2599  ---|          LJM    E1C1        RETURN STATUS TO USER
Line S00080 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21034  M01S00080.ns2599  +++| E4C0     LJM    E1C1        RETURN STATUS TO USER
21035  M00S14620.pfm     +++|
21036  M00S14621.pfm     +++| E4C1     RJM    WCM         SET MESSAGE IN *MS2W*
21037  M00S14622.pfm     +++|          LJM    RCL         RECALL *PFM*
21038  M00S14623.pfm     +++| E5C      SPACE  4,10
21039  M00S14624.pfm     +++|**        E5C - EXIT 5 CASE PROCESSING.
21040  M00S14625.pfm     +++|*
Line S14626 Modification History
M01 (Removed by) pfm51
Seq #  *Modification Id* Act 
----------------------------+
21041  M01S14626.pfm51   ---|*         ABORT JOB WITH *SVET* ERROR.
Line S00001 Modification History
M01 (Added by) pfm51
Seq #  *Modification Id* Act 
----------------------------+
21042  M01S00001.pfm51   +++|*         SECURITY VIOLATION PROCESSING - ABORT JOB WITH *SVET* ERROR.
Line S00002 Modification History
M01 (Added by) pfm51
M02 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21043  M02S00002.ns2599  ---|*         IF CALLER IS *SSJ=*, PROCESS AS NORMAL ERROR.
Line S00081 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21044  M01S00081.ns2599  +++|*           IF CALLER IS *SSJ=*, PROCESS AS NORMAL ERROR.
21045  M00S14627.pfm     +++|*
21046  M00S14628.pfm     +++|*         ENTRY  (P1) = ERROR CODE.
21047  M00S14629.pfm     +++|*
Line S14630 Modification History
M01 (Removed by) pfm51
Seq #  *Modification Id* Act 
----------------------------+
21048  M01S14630.pfm51   ---|*         EXIT   MESSAGE ISSUED TO JOB DAYFILE.
Line S00003 Modification History
M01 (Added by) pfm51
Seq #  *Modification Id* Act 
----------------------------+
21049  M01S00003.pfm51   +++|*         EXIT   TO *E0C* IF CALLER IS *SSJ=*.
21050  M01S00004.pfm51   +++|*                MESSAGE ISSUED TO JOB DAYFILE.
21051  M00S14631.pfm     +++|*                MESSAGE ISSUED TO SYSTEM DAYFILE.
21052  M00S14632.pfm     +++|*                (SVET) = SECURITY VIOLATION ERROR FLAG SET.
21053  M00S14633.pfm     +++|*
21054  M00S14634.pfm     +++|*         CALLS  IDM, UFF.
21055  M00S14635.pfm     +++|
21056  M00S14636.pfm     +++|
21057  M00S14637.pfm     +++| E5C      BSS    0           ENTRY
Line S00005 Modification History
M01 (Added by) pfm51
Seq #  *Modification Id* Act 
----------------------------+
21058  M01S00005.pfm51   +++|          LDM    SSJS
21059  M01S00006.pfm51   +++|          NJP    E0C         IF CALLER IS *SSJ=*
21060  M00S14638.pfm     +++|          LDM    ERRMSG,P1   ISSUE MESSAGE TO DAYFILE
21061  M00S14639.pfm     +++|          RJM    IDM
21062  M00S14640.pfm     +++|
Line S14641 Modification History
M01 (Removed by) pfm51
Seq #  *Modification Id* Act 
----------------------------+
21063  M01S14641.pfm51   ---|*         ABORT THE JOB.
Line S00007 Modification History
M01 (Added by) pfm51
Seq #  *Modification Id* Act 
----------------------------+
21064  M01S00007.pfm51   +++|*         ABORT THE JOB WITH AN *SVET* ERROR.
21065  M00S14642.pfm     +++|
21066  M00S14643.pfm     +++|          LDN    SVET        SET SECURITY VIOLATION ERROR FLAG
21067  M00S14644.pfm     +++|          STD    CM+1
21068  M00S14645.pfm     +++|          MONITOR  CEFM
21069  M00S14646.pfm     +++|          LJM    UFF         UPDATE FET FIELDS AND EXIT
Line S01754 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21070  M01S01754.242l642 +++| E6C      SPACE  4,25
21071  M01S01755.242l642 +++|**        E6C - EXIT 6 CASE PROCESSING.
21072  M01S01756.242l642 +++|*
21073  M01S01757.242l642 +++|*         SPECIAL *RT* CONTROLLED FOR TIME DEPENDENT PROCESSING OF
Line S01758 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21074  M02S01758.ns2599  ---|*         AN INACCESSIBLE MASS STORAGE DEVICE.
Line S00082 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21075  M01S00082.ns2599  +++|*           AN INACCESSIBLE MASS STORAGE DEVICE.
Line S01759 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21076  M01S01759.242l642 +++|*
21077  M01S01760.242l642 +++|*         ENTRY  (P1) = ERROR CODE.
21078  M01S01761.242l642 +++|*                (P2) = EST ORDINAL OF DEVICE.
21079  M01S01762.242l642 +++|*                (RT) = *RT* BOOLEAN.
Line S01763 Modification History
M01 (Added by) 242l642
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21080  M02S01763.271l716 ---|*                (ERRC) = ROLLOUT EVENT.
21081  M02S01764.271l716 ---|*                (ERRD) = ROLLOUT TIME.
Line S01765 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21082  M01S01765.242l642 +++|*                (PWRF) = RESTART FLAGS FOR *PFM* RECALL.
21083  M01S01766.242l642 +++|*                *RT* IS SET IF THE CALLER IS A SUBSYSTEM.
21084  M01S01767.242l642 +++|*
21085  M01S01768.242l642 +++|*         EXIT   TO *E1C1*, IF *RT* SET, TO RETURN STATUS TO CALLER.
21086  M01S01769.242l642 +++|*                TO *1RJ* TO ROLLOUT THE JOB.
21087  M01S01770.242l642 +++|*
21088  M01S01771.242l642 +++|*         USES   IR+4, MP - MP+4.
21089  M01S01772.242l642 +++|*
Line S01773 Modification History
M01 (Added by) 242l642
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21090  M02S01773.271l716 ---|*         CALLS  PAF, STE, *1RJ*.
Line S00143 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21091  M01S00143.271l716 +++|*         CALLS  PAF, *1RJ*.
Line S01774 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21092  M01S01774.242l642 +++|*
Line S01775 Modification History
M01 (Added by) 242l642
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21093  M02S01775.271l716 ---|*         MACROS EXECUTE, MONITOR.
Line S00144 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21094  M01S00144.271l716 +++|*         MACROS EXECUTE.
Line S01776 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21095  M01S01776.242l642 +++|
21096  M01S01777.242l642 +++|
21097  M01S01778.242l642 +++| E6C      BSS    0           ENTRY
Line S01779 Modification History
M01 (Added by) 242l642
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21098  M02S01779.271l716 ---|          RJM    STE         SET ROLLOUT TIME/EVENT
Line S01780 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21099  M01S01780.242l642 +++|          LDD    RT
21100  M01S01781.242l642 +++|          NJP    E1C1        IF *RT* SET
21101  M01S01782.242l642 +++|
21102  M01S01783.242l642 +++|*         SELECT EVENT ROLLOUT THROUGH OVERLAY *1RJ*.
21103  M01S01784.242l642 +++|
21104  M01S01785.242l642 +++|          RJM    PAF         PROCESS PF ACTIVITY COUNT AND FNT
21105  M01S01786.242l642 +++|          LDN    ZERL        SET PARAMETER WORD FOR *PFM* RECALL
21106  M01S01787.242l642 +++|          CRD    MP
21107  M01S01788.242l642 +++|          LDM    PWRF        RESTART FLAGS
21108  M01S01789.242l642 +++|          STD    MP
21109  M01S01790.242l642 +++|          LDD    P1          ERROR CODE
21110  M01S01791.242l642 +++|          STD    MP+1
21111  M01S01792.242l642 +++|          LDD    P2          SET EST ORDINAL
21112  M01S01793.242l642 +++|          STD    IR+4
21113  M01S01794.242l642 +++|          EXECUTE  1RJ       ROLLOUT THE JOB
Line S00257 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21114  M01S00257.ns2415  +++| E7C      SPACE  4,10
21115  M01S00258.ns2415  +++|**        E7C - EXIT 7 CASE PROCESSING.
21116  M01S00259.ns2415  +++|*
21117  M01S00260.ns2415  +++|*         SPECIAL PROCESSING FOR TYPE 2 ERRORS IN *PURGE*.  ISSUE THE
Line S00261 Modification History
M01 (Added by) ns2415
M02 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21118  M02S00261.ns2599  ---|*         ERROR MESSAGE TO THE ERROR LOG BUT DO NOT ABORT THE JOB.
Line S00083 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21119  M01S00083.ns2599  +++|*           ERROR MESSAGE TO THE ERROR LOG BUT DO NOT ABORT THE JOB.
Line S00262 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21120  M01S00262.ns2415  +++|*
21121  M01S00263.ns2415  +++|*         NOTE THAT CATALOG ENTRY FOR THE FILE HAS BEEN DELETED BEFORE
21122  M01S00264.ns2415  +++|*         THIS OVERLAY IS INVOKED IN THIS CASE.
21123  M01S00265.ns2415  +++|*
21124  M01S00266.ns2415  +++|*         EXIT   MESSAGE ISSUED TO ERROR LOG.
21125  M01S00267.ns2415  +++|*                ERROR CODE CLEARED.
21126  M01S00268.ns2415  +++|*
21127  M01S00269.ns2415  +++|*         CALLS  SEQ, UFF.
21128  M01S00270.ns2415  +++|
21129  M01S00271.ns2415  +++|
21130  M01S00272.ns2415  +++| E7C      BSS    0           ENTRY
21131  M01S00273.ns2415  +++|          RJM    SEQ         ISSUE ERROR LOG MESSAGE
21132  M01S00274.ns2415  +++|          LDN    0           CLEAR ERROR CODE
21133  M01S00275.ns2415  +++|          STD    P1
21134  M01S00276.ns2415  +++|          LJM    UFF         UPDATE FET FIELDS AND EXIT
21135  M00S14647.pfm     +++|          TITLE  SUBROUTINES.
21136  M00S14648.pfm     +++| CPN      SPACE  4,10
21137  M00S14649.pfm     +++|**        CPN - COPY NAME.
21138  M00S14650.pfm     +++|*         COPIES NAME WITH BLANK FILL.
21139  M00S14651.pfm     +++|*
21140  M00S14652.pfm     +++|*         ENTRY  (T3) = SOURCE ADDRESS.
21141  M00S14653.pfm     +++|*                (A) = DESTINATION ADDRESS.
21142  M00S14654.pfm     +++|*
21143  M00S14655.pfm     +++|*         USES   T3, P3.
21144  M00S14656.pfm     +++|
21145  M00S14657.pfm     +++|
21146  M00S14658.pfm     +++| CPN      SUBR               ENTRY/EXIT
21147  M00S14659.pfm     +++|          STD    P3          SAVE DESTINATION ADDRESS
21148  M00S14660.pfm     +++|          ADN    3
21149  M00S14661.pfm     +++|          STM    CPNA
21150  M00S14662.pfm     +++| CPN1     LDI    T3
21151  M00S14663.pfm     +++|          SCN    77
21152  M00S14664.pfm     +++|          NJN    CPN2        IF NOT NULL CHARACTER
21153  M00S14665.pfm     +++|          LDC    100*1R
21154  M00S14666.pfm     +++| CPN2     STI    P3
21155  M00S14667.pfm     +++|          LDI    T3
21156  M00S14668.pfm     +++|          LPN    77
21157  M00S14669.pfm     +++|          NJN    CPN3        IF NOT NULL CHARACTER
21158  M00S14670.pfm     +++|          LDN    1R
21159  M00S14671.pfm     +++| CPN3     RAI    P3          ASSEMBLE CHARACTERS
21160  M00S14672.pfm     +++|          AOD    T3
21161  M00S14673.pfm     +++|          AOD    P3
21162  M00S14674.pfm     +++|          LMC    **
21163  M00S14675.pfm     +++| CPNA     EQU    *-1
21164  M00S14676.pfm     +++|          NJN    CPN1        IF NOT LAST FULL BYTE
21165  M00S14677.pfm     +++|          LDI    T3
21166  M00S14678.pfm     +++|          SCN    77
21167  M00S14679.pfm     +++|          ZJN    CPNX        IF NULL CHARACTER
21168  M00S14680.pfm     +++|          LMN    1R,
21169  M00S14681.pfm     +++|          STI    P3
21170  M00S14682.pfm     +++|          UJN    CPNX        RETURN
21171  M00S14683.pfm     +++| GEA      SPACE  4,15
21172  M00S14684.pfm     +++|**        GEA - GET ERROR MESSAGE RETURN ADDRESS.
21173  M00S14685.pfm     +++|*
21174  M00S14686.pfm     +++|*         ENTRY  (EP) = ERROR PROCESSING STATUS.
21175  M00S14687.pfm     +++|*
21176  M00S14688.pfm     +++|*         EXIT   (A) = 0 IF *EP* OR *EMRA* NOT SPECIFIED.
21177  M00S14689.pfm     +++|*                (A) = *EMRA* ADDRESS IF *EP* AND *EMRA* SPECIFIED.
21178  M00S14690.pfm     +++|
21179  M00S14691.pfm     +++|
21180  M00S14692.pfm     +++| GEA      SUBR               ENTRY/EXIT
21181  M00S14693.pfm     +++|          LDD    EP
21182  M00S14694.pfm     +++|          ZJN    GEAX        IF *EP* BOOLEAN NOT SET IN *FET*
21183  M00S14695.pfm     +++|          LDM    EMRA        FORM *EMRA* BASE ADDRESS
21184  M00S14696.pfm     +++|          LPN    37
21185  M00S14697.pfm     +++|          SHN    14
21186  M00S14698.pfm     +++|          ADM    EMRA+1
21187  M00S14699.pfm     +++|          UJN    GEAX        RETURN WITH*EMRA*
21188  M00S14700.pfm     +++| IDM      SPACE  4,10
21189  M00S14701.pfm     +++|**        IDM - ISSUE DAYFILE MESSAGE.
21190  M00S14702.pfm     +++|*
21191  M00S14703.pfm     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE PLUS DESTINATION.
21192  M00S14704.pfm     +++|*
21193  M00S14705.pfm     +++|*         EXIT   ISSUES MESSAGE WITH FET ADDRESS.
21194  M00S14706.pfm     +++|*
21195  M00S14707.pfm     +++|*         USES   T1 - T4.
21196  M00S14708.pfm     +++|*
21197  M00S14709.pfm     +++|*         CALLS  DFM, C2D.
21198  M00S14710.pfm     +++|
21199  M00S14711.pfm     +++|
21200  M00S14712.pfm     +++| IDM      SUBR               ENTRY/EXIT
21201  M00S14713.pfm     +++|          STD    T4          SAVE ADDRESS
21202  M00S14714.pfm     +++|          STD    T1
21203  M00S14715.pfm     +++|          SHN    -14
21204  M00S14716.pfm     +++|          STD    T3
21205  M00S14717.pfm     +++|          LDM    SFAA
21206  M00S14718.pfm     +++|          LPN    77
21207  M00S14719.pfm     +++|          ADM    SFAA+1
21208  M00S14720.pfm     +++|          ZJN    IDM1        IF NO FET ADDRESS PRESET
Line S14721 Modification History
M01 (Removed by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21209  M01S14721.ns2599  ---| IDMA     LDN    0
21210  M01S14722.ns2599  ---|*         LDN    1           (ADDRESS SUPPRESS BIT)
Line S00084 Modification History
M01 (Added by) ns2599
Seq #  *Modification Id* Act 
----------------------------+
21211  M01S00084.ns2599  +++|          LDM    EPOP        CHECK ADDRESS SUPPRESS BIT
21212  M01S00085.ns2599  +++|          LPN    20
21213  M00S14723.pfm     +++|          ZJN    IDM2        IF FET ADDRESS NOT TO BE SUPPRESSED
21214  M00S14724.pfm     +++| IDM1     LJM    IDM6        ISSUE MESSAGE WITHOUT ADDRESS
21215  M00S14725.pfm     +++|
21216  M00S14726.pfm     +++|*         FIND END OF MESSAGE.
21217  M00S14727.pfm     +++|
21218  M00S14728.pfm     +++| IDM2     LDI    T1
21219  M00S14729.pfm     +++|          SHN    -6
21220  M00S14730.pfm     +++|          ZJN    IDM3        IF END OF MESSAGE
21221  M00S14731.pfm     +++|          LDI    T1
21222  M00S14732.pfm     +++|          LPN    77
21223  M00S14733.pfm     +++|          ZJN    IDM4        IF END OF MESSAGE
21224  M00S14734.pfm     +++|          AOD    T1
21225  M00S14735.pfm     +++|          UJN    IDM2        LOOP
21226  M00S14736.pfm     +++|
21227  M00S14737.pfm     +++| IDM3     SOD    T1          REPLACE *.* WITH *,*
21228  M00S14738.pfm     +++|          LDI    T1
Line S14739 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21229  M01S14739.ns2415  ---|          STM    PSEC        SAVE ORIGINAL VALUE
21230  M00S14740.pfm     +++|          SCN    77
21231  M00S14741.pfm     +++|          ADN    1R,
21232  M00S14742.pfm     +++|          STI    T1
21233  M00S14743.pfm     +++|          AOD    T1
21234  M00S14744.pfm     +++|          UJN    IDM5        ADD FET ADDRESS TO MESSAGE
21235  M00S14745.pfm     +++|
21236  M00S14746.pfm     +++| IDM4     LDC    2R,         REPLACE *.* WITH *,*
21237  M00S14747.pfm     +++|          STI    T1
Line S14748 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21238  M01S14748.ns2415  ---|          LDC    2R.         SAVE ORIGINAL VALUE
21239  M01S14749.ns2415  ---|          STM    PSEC
21240  M00S14750.pfm     +++|          AOD    T1
21241  M00S14751.pfm     +++|
21242  M00S14752.pfm     +++|*         STORE * AT * AT END OF MESSAGE.
21243  M00S14753.pfm     +++|
Line S14754 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21244  M01S14754.ns2415  ---| IDM5     LDD    T1          SAVE ADDRESS OF ORIGINAL END OF MESSAGE
21245  M01S14755.ns2415  ---|          SBN    1
21246  M01S14756.ns2415  ---|          STM    PSEB
21247  M01S14757.ns2415  ---|          LDC    2R A
Line S00277 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21248  M01S00277.ns2415  +++| IDM5     LDC    2R A
21249  M00S14758.pfm     +++|          STI    T1
21250  M00S14759.pfm     +++|          AOD    T1
21251  M00S14760.pfm     +++|          LDC    2RT
21252  M00S14761.pfm     +++|          STI    T1
21253  M00S14762.pfm     +++|          AOD    T1
21254  M00S14763.pfm     +++|
21255  M00S14764.pfm     +++|*         SET FET ADDRESS IN MESSAGE.
21256  M00S14765.pfm     +++|
21257  M00S14766.pfm     +++|          RJM    SFA         CONVERT FET ADDRESS
21258  M00S14767.pfm     +++|          SHN    14
21259  M00S14768.pfm     +++|          SBD    RA
21260  M00S14769.pfm     +++|          SHN    6
21261  M00S14770.pfm     +++|          STD    T2
21262  M00S14771.pfm     +++|          SHN    -14
21263  M00S14772.pfm     +++|          RJM    C2D         CONVERT DIGITS
21264  M00S14773.pfm     +++|          STI    T1
21265  M00S14774.pfm     +++|          AOD    T1
21266  M00S14775.pfm     +++|          LDD    T2
21267  M00S14776.pfm     +++|          SHN    -6
21268  M00S14777.pfm     +++|          RJM    C2D         CONVERT DIGITS
21269  M00S14778.pfm     +++|          STI    T1
21270  M00S14779.pfm     +++|          AOD    T1
21271  M00S14780.pfm     +++|          LDD    T2
21272  M00S14781.pfm     +++|          RJM    C2D         CONVERT DIGITS
21273  M00S14782.pfm     +++|          STI    T1
21274  M00S14783.pfm     +++|          AOD    T1
21275  M00S14784.pfm     +++|          LDC    2R.
21276  M00S14785.pfm     +++|          STI    T1
21277  M00S14786.pfm     +++|          AOD    T1
21278  M00S14787.pfm     +++|          LDN    0           SET ZERO BYTE
21279  M00S14788.pfm     +++|          STI    T1
21280  M00S14789.pfm     +++|
21281  M00S14790.pfm     +++|*         ISSUE MESSAGE.
21282  M00S14791.pfm     +++|
21283  M00S14792.pfm     +++| IDM6     LDD    T3          RESET MESSAGE ADDRESS
21284  M00S14793.pfm     +++|          SHN    14
21285  M00S14794.pfm     +++|          ADD    T4
21286  M00S14795.pfm     +++|          RJM    DFM         ISSUE MESSAGE
21287  M00S14796.pfm     +++|          LJM    IDMX        RETURN
21288  M00S14797.pfm     +++| MEC      SPACE  4,15
21289  M00S14798.pfm     +++|**        MEC - MODIFY ERROR CODES.
21290  M00S14799.pfm     +++|*
21291  M00S14800.pfm     +++|*         ENTRY  (P1) = ERROR CODE FOR POSSIBLE MODIFICATION.
21292  M00S14801.pfm     +++|*
21293  M00S14802.pfm     +++|*         EXIT   (P1) = ERROR CODE TO BE REPORTED IN THE *FET*.
Line S14803 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21294  M01S14803.242l642 ---|*
21295  M01S14804.242l642 ---|*         USES   P1.
21296  M00S14805.pfm     +++|
21297  M00S14806.pfm     +++|
Line S01795 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21298  M01S01795.242l642 +++|
21299  M01S01796.242l642 +++|*         CHANGE CODE WHICH REPORTS A WAIT FOR AN INACCESSIBLE
21300  M01S01797.242l642 +++|*         DEVICE TO *PF UTILITY ACTIVE*.
21301  M01S01798.242l642 +++|
21302  M01S01799.242l642 +++| MEC2     LMK    /ERRMSG/WID&/ERRMSG/FIA
21303  M01S01800.242l642 +++|          NJN    MECX        IF NOT *WID*, RETURN
21304  M01S01801.242l642 +++|          LDK    /ERRMSG/PFA CHANGE ERROR CODE TO *PFA*
21305  M01S01802.242l642 +++|          STD    P1
21306  M01S01803.242l642 +++|
21307  M00S14807.pfm     +++| MEC      SUBR               ENTRY/EXIT
21308  M00S14808.pfm     +++|          LDD    P1          CHECK FOR ERROR CODES TO MODIFY
21309  M00S14809.pfm     +++|          LMN    /ERRMSG/FDA
21310  M00S14810.pfm     +++|          ZJN    MEC1        IF *FDA* THEN MODIFY
21311  M00S14811.pfm     +++|          LMN    /ERRMSG/FIA&/ERRMSG/FDA
Line S14812 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21312  M01S14812.242l642 ---|          NJN    MECX        IF ERROR CODE NOT TO BE MODIFIED
Line S01804 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21313  M01S01804.242l642 +++|          NJN    MEC2        IF NOT *FIA*
21314  M00S14813.pfm     +++| MEC1     LDN    /ERRMSG/FNF CHANGE ERROR CODE TO *FNF*
21315  M00S14814.pfm     +++|          STD    P1
21316  M00S14815.pfm     +++|          UJN    MECX        RETURN
21317  M00S14816.pfm     +++| MFN      SPACE  4,10
21318  M00S14817.pfm     +++|**        MFN - MERGE FILE NAME WITH MESSAGE.
21319  M00S14818.pfm     +++|*
21320  M00S14819.pfm     +++|*         ENTRY  (A) = FIRST WORD ADDRESS OF MESSAGE.
21321  M00S14820.pfm     +++|*                (FN - FN+3) = FILE NAME.
21322  M00S14821.pfm     +++|*
21323  M00S14822.pfm     +++|*         EXIT   (A) = FIRST WORD ADDRESS OF MESSAGE.
21324  M00S14823.pfm     +++|*
21325  M00S14824.pfm     +++|*         USES   T1 - T3.
21326  M00S14825.pfm     +++|
21327  M00S14826.pfm     +++|
21328  M00S14827.pfm     +++| MFN      SUBR               ENTRY/EXIT
21329  M00S14828.pfm     +++|          STD    T1          SAVE MESSAGE ADDRESS
21330  M00S14829.pfm     +++|          LDC    MBUF        ASSEMBLY AREA
21331  M00S14830.pfm     +++|          STD    T2
21332  M00S14831.pfm     +++|          LDN    1R          BLANK FIRST CHARACTER
21333  M00S14832.pfm     +++|          STI    T2
21334  M00S14833.pfm     +++|          AOD    T2
21335  M00S14834.pfm     +++|          LDN    FN
21336  M00S14835.pfm     +++|          STD    T3
21337  M00S14836.pfm     +++|          LDD    FN+3        CLEAR TRAILING CONTROL INFORMATION
21338  M00S14837.pfm     +++|          SCN    77
21339  M00S14838.pfm     +++|          STD    FN+3
21340  M00S14839.pfm     +++| MFN1     LDI    T3          GET BYTE
21341  M00S14840.pfm     +++|          SHN    -6          UPPER CHARACTER
21342  M00S14841.pfm     +++|          ZJN    MFN2        IF END OF FILE NAME
21343  M00S14842.pfm     +++|          STI    T2
21344  M00S14843.pfm     +++|          AOD    T2
21345  M00S14844.pfm     +++|          LDI    T3          LOWER CHARACTER
21346  M00S14845.pfm     +++|          LPN    77
21347  M00S14846.pfm     +++|          ZJN    MFN2        IF END OF FILE NAME
21348  M00S14847.pfm     +++|          STI    T2
21349  M00S14848.pfm     +++|          AOD    T2
21350  M00S14849.pfm     +++|          AOD    T3
21351  M00S14850.pfm     +++|          UJN    MFN1        LOOP TO END OF FILE NAME
21352  M00S14851.pfm     +++|
21353  M00S14852.pfm     +++| MFN2     LDN    1R          INSERT SPACE
21354  M00S14853.pfm     +++|          STI    T2
21355  M00S14854.pfm     +++|          AOD    T2
21356  M00S14855.pfm     +++| MFN3     LDI    T1          UPPER MESSAGE CHARACTER
21357  M00S14856.pfm     +++|          SHN    -6
21358  M00S14857.pfm     +++|          STI    T2
21359  M00S14858.pfm     +++|          ZJN    MFN4        IF END OF MESSAGE
21360  M00S14859.pfm     +++|          AOD    T2
21361  M00S14860.pfm     +++|          LDI    T1          LOWER MESSAGE CHARACTER
21362  M00S14861.pfm     +++|          LPN    77
21363  M00S14862.pfm     +++|          STI    T2
21364  M00S14863.pfm     +++|          ZJN    MFN4        IF END OF MESSAGE
21365  M00S14864.pfm     +++|          AOD    T2
21366  M00S14865.pfm     +++|          AOD    T1
21367  M00S14866.pfm     +++|          UJN    MFN3        MOVE NEXT CHARACTER
21368  M00S14867.pfm     +++|
21369  M00S14868.pfm     +++| MFN4     STM    1,T2        SET END OF MESSAGE
21370  M00S14869.pfm     +++|          STM    2,T2
21371  M00S14870.pfm     +++|          LDC    MBUF
21372  M00S14871.pfm     +++|          STD    T1
21373  M00S14872.pfm     +++|          STD    T3
21374  M00S14873.pfm     +++| MFN5     LDI    T1
21375  M00S14874.pfm     +++|          ZJN    MFN6        IF END OF MESSAGE REACHED
21376  M00S14875.pfm     +++|          SHN    6
21377  M00S14876.pfm     +++|          LMM    1,T1
21378  M00S14877.pfm     +++|          STI    T3
21379  M00S14878.pfm     +++|          AOD    T3
21380  M00S14879.pfm     +++|          LDN    2
21381  M00S14880.pfm     +++|          RAD    T1
21382  M00S14881.pfm     +++|          UJN    MFN5        LOOP TO COMPLETE MESSAGE
21383  M00S14882.pfm     +++|
21384  M00S14883.pfm     +++| MFN6     STI    T3          SET END OF MESSAGE
21385  M00S14884.pfm     +++|          LDC    MBUF        EXIT WITH (A) = MESSAGE ADDRESS
21386  M00S14885.pfm     +++|          LJM    MFNX        RETURN
Line S01805 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21387  M01S01805.242l642 +++| PAF      SPACE  4,15
21388  M01S01806.242l642 +++|**        PAF - PROCESS PF ACTIVITY COUNT AND LOCAL FILE FNT.
21389  M01S01807.242l642 +++|*
21390  M01S01808.242l642 +++|*         ENTRY  (EPFA) = EST ORDINAL OF DEVICE IF PF ACTIVITY
21391  M01S01809.242l642 +++|*                         TO BE DECREMENTED.
21392  M01S01810.242l642 +++|*                (FNTA) = FNT ADDRESS OF LOCAL FILE.
21393  M01S01811.242l642 +++|*
21394  M01S01812.242l642 +++|*         EXIT   LOCAL FILE FNT SET COMPLETE.
21395  M01S01813.242l642 +++|*                PF ACTIVITY COUNT DECREMENTED IF IT WAS SET.
21396  M01S01814.242l642 +++|*
21397  M01S01815.242l642 +++|*         USES   CM - CM+4, FS - FS+4.
21398  M01S01816.242l642 +++|*
21399  M01S01817.242l642 +++|*         MACROS MONITOR.
21400  M01S01818.242l642 +++|
21401  M01S01819.242l642 +++|
21402  M01S01820.242l642 +++| PAF      SUBR               ENTRY/EXIT
21403  M01S01821.242l642 +++|
21404  M01S01822.242l642 +++|*         DECREMENT PF ACTIVITY COUNT.
21405  M01S01823.242l642 +++|
21406  M01S01824.242l642 +++|          LDM    EPFA        EST ORDINAL
21407  M01S01825.242l642 +++|          ZJN    PAF1        IF ACTIVITY NOT SET
21408  M01S01826.242l642 +++|          STD    CM+1
21409  M01S01827.242l642 +++|          LDN    DPAS        DECREMENT PF ACTIVITY COUNT
21410  M01S01828.242l642 +++|          STD    CM+3
21411  M01S01829.242l642 +++|          MONITOR  STBM
21412  M01S01830.242l642 +++|
21413  M01S01831.242l642 +++|*         SET LOCAL FILE FNT COMPLETE.
21414  M01S01832.242l642 +++|
21415  M01S01833.242l642 +++| PAF1     LDM    FNTA
21416  M01S01834.242l642 +++|          STD    FA
21417  M01S01835.242l642 +++|          ZJN    PAFX        IF NO LOCAL FILE FNT, RETURN
21418  M01S01836.242l642 +++|          NFA    FA,R
21419  M01S01837.242l642 +++|          ADN    FSTL
21420  M01S01838.242l642 +++|          CRD    FS
21421  M01S01839.242l642 +++|          LDD    FS+4        SET FST COMPLETE
21422  M01S01840.242l642 +++|          SCN    1
21423  M01S01841.242l642 +++|          ADN    1
21424  M01S01842.242l642 +++|          STD    FS+4
21425  M01S01843.242l642 +++|          NFA    FA,R
21426  M01S01844.242l642 +++|          ADN    FSTL
21427  M01S01845.242l642 +++|          CWD    FS
21428  M01S01846.242l642 +++|          UJN    PAFX        RETURN
21429  M00S14886.pfm     +++| PEA      SPACE  4,15
21430  M00S14887.pfm     +++|**        PEA - PROCESS ERRORS REQUIRING SPECIAL ACTION.
21431  M00S14888.pfm     +++|*
Line S14889 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21432  M01S14889.ns2415  ---|*         ENTRY  (P1) = ERROR CODE
Line S00278 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21433  M01S00278.ns2415  +++|*         ENTRY  (P1) = ERROR CODE.
21434  M00S14890.pfm     +++|*                (EP) = *EP* BOOLEAN FROM *FET*.
21435  M00S14891.pfm     +++|*                (SEPB) = EXIT CASE.
21436  M00S14892.pfm     +++|*
21437  M00S14893.pfm     +++|*         EXIT   IF THE USER IS NOT PROCESSING ERRORS;
Line S14894 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21438  M01S14894.ns2415  ---|*                THE *TKET* ERROR FLAG IS SET IN THE CONTROL POINT AREA
21439  M01S14895.ns2415  ---|*                FOR *PRL* ERROR CODE.
21440  M01S14896.ns2415  ---|*                THE *FLET* ERROR FLAG IS SET IN THE CONTROL POINT AREA
21441  M01S14897.ns2415  ---|*                FOR *LFL* ERROR CODE.
21442  M01S14898.ns2415  ---|*                THE *DPP* EXIT IS SET UP FOR A JOB ABORT.
Line S00279 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21443  M01S00279.ns2415  +++|*                  SET *TKET* ERROR FLAG IF *PRL* ERROR.
21444  M01S00280.ns2415  +++|*                  SET *FLET* ERROR FLAG IF *LFL* ERROR.
21445  M01S00281.ns2415  +++|*                  THE *STAJ* (ABORT JOB) STATUS BIT IS SET.
21446  M00S14899.pfm     +++|*
Line S14900 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21447  M01S14900.ns2415  ---|*         USES   CM - CM+4
21448  M01S14901.ns2415  ---|*
21449  M01S14902.ns2415  ---|*         CALLS  PSE.
Line S00282 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21450  M01S00282.ns2415  +++|*         USES   CM - CM+4.
21451  M00S14903.pfm     +++|*
21452  M00S14904.pfm     +++|*         MACROS MONITOR.
21453  M00S14905.pfm     +++|
21454  M00S14906.pfm     +++|
21455  M00S14907.pfm     +++| PEA      SUBR               ENTRY/EXIT
Line S14908 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21456  M01S14908.ns2415  ---|          RJM    PSE         PROCESS SPECIAL ERRORS
21457  M00S14909.pfm     +++|          LDD    EP
21458  M00S14910.pfm     +++|          NJN    PEAX        IF *EP* SPECIFIED
21459  M00S14911.pfm     +++|          LDD    P1          CHECK ERROR TYPE
21460  M00S14912.pfm     +++|          LMN    /ERRMSG/PRL
21461  M00S14913.pfm     +++|          NJN    PEA1        IF NOT TRACK LIMIT
21462  M00S14914.pfm     +++|          LDN    TKET        SET *TKET* ERROR FLAG
21463  M00S14915.pfm     +++|          STD    CM+1
21464  M00S14916.pfm     +++|          UJN    PEA2        SET TRACK LIMIT
21465  M00S14917.pfm     +++|
21466  M00S14918.pfm     +++| PEA1     LMN    /ERRMSG/LFL&/ERRMSG/PRL CHECK ERROR TYPE
21467  M00S14919.pfm     +++|          NJN    PEA3        IF NOT FILE LIMIT
21468  M00S14920.pfm     +++|          LDN    FLET        SET *FLET* ERROR FLAG
21469  M00S14921.pfm     +++|          STD    CM+1
21470  M00S14922.pfm     +++| PEA2     MONITOR CEFM
21471  M00S14923.pfm     +++|          UJN    PEAX        RETURN
21472  M00S14924.pfm     +++|
21473  M00S14925.pfm     +++| PEA3     LDM    SEPB
21474  M00S14926.pfm     +++|          NJN    PEAX        IF SPECIAL EXIT CASE
Line S14927 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21475  M01S14927.242l642 ---|          AOM    DPPA        SET TO ABORT CONTROL POINT
21476  M01S14928.242l642 ---|          LDN    PSNI
21477  M01S14929.242l642 ---|          STM    DPPB
Line S01847 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21478  M01S01847.242l642 +++|          LDK    STAJ        SET *ABORT JOB* STATUS BIT
21479  M01S01848.242l642 +++|          RAM    STAU
21480  M00S14930.pfm     +++|          UJN    PEAX        RETURN
21481  M00S14931.pfm     +++| PEM      SPACE  4,15
21482  M00S14932.pfm     +++|**        PEM - PROCESS ERROR MESSAGE.
21483  M00S14933.pfm     +++|*
21484  M00S14934.pfm     +++|*         ENTRY  (P1) = ERROR CODE.
21485  M00S14935.pfm     +++|*                (EP) = *EP* BOOLEAN FROM FET (0 OR 1).
21486  M00S14936.pfm     +++|*
21487  M00S14937.pfm     +++|*         EXIT   ERROR MESSAGE ISSUED BY TYPE.
21488  M00S14938.pfm     +++|*
21489  M00S14939.pfm     +++|*         USES   T1.
21490  M00S14940.pfm     +++|*
Line S14941 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21491  M01S14941.ns2415  ---|*         CALLS  DFM, GEA, IDM, MFN, PEA, PSE, REM, SEQ.
Line S00283 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21492  M01S00283.ns2415  +++|*         CALLS  DFM, GEA, IDM, MFN, PEA, REM, SEQ.
21493  M00S14942.pfm     +++|
21494  M00S14943.pfm     +++|
21495  M00S14944.pfm     +++| PEM      SUBR               ENTRY/EXIT
21496  M00S14945.pfm     +++|          LDD    P1
21497  M00S14946.pfm     +++|          ZJN    PEMX        IF NO ERROR (*RPFSTAT* REQUEST)
21498  M00S14947.pfm     +++|          LDM    ERRCLS,P1   ERROR TYPE OR CLASS
21499  M00S14948.pfm     +++|          STD    T1
21500  M00S14949.pfm     +++|          SHN    1           DETERMINE MESSAGE CODE BASE ADDRESS
21501  M00S14950.pfm     +++|          ADC    TDMO
21502  M00S14951.pfm     +++|          STM    PEMB        SET MESSAGE CODE ADDRESS
21503  M00S14952.pfm     +++|          LDM    PEMA,T1     ESTABLISH CASE OF MESSAGE TYPE
21504  M00S14953.pfm     +++|          STM    PEMA
21505  M00S14954.pfm     +++|          LJM    PEM1        TYPE = 0 (FILE NAME REQUIRED)
21506  M00S14955.pfm     +++| PEMA     EQU    *-1
21507  M00S14956.pfm     +++|          CON    PEM2        TYPE = 1 (ISSUE TO JOB DAYFILE ONLY)
21508  M00S14957.pfm     +++|          CON    PEM5        TYPE = 2 (SYSTEM ERROR)
21509  M00S14958.pfm     +++|          CON    PEM6        TYPE = 3 (NO MESSAGE ERROR)
21510  M00S14959.pfm     +++|
21511  M00S14960.pfm     +++|*         PROCESS TYPE 0 ERROR MESSAGE.
21512  M00S14961.pfm     +++|
21513  M00S14962.pfm     +++| PEM1     LDM    ERRMSG,P1   BASE ADDRESS OF MESSAGE
21514  M00S14963.pfm     +++|          RJM    MFN         MERGE FILENAME AND MESSAGE
21515  M00S14964.pfm     +++|          STM    ERRMSG,P1   SET NEW ERROR MESSAGE ADDRESS
21516  M00S14965.pfm     +++|
21517  M00S14966.pfm     +++|*         PROCESS TYPE 1 ERROR MESSAGE.
21518  M00S14967.pfm     +++|
21519  M00S14968.pfm     +++| PEM2     RJM    GEA         GET USER ERROR MESSAGE ADDRESS *EMRA*
21520  M00S14969.pfm     +++|          ZJN    PEM3        IF ERMSG AND *EP* NOT SPECIFIED
21521  M00S14970.pfm     +++|          LDM    ERRMSG,P1   SPECIFY MESSAGE ADDRESS
21522  M00S14971.pfm     +++|          RJM    REM         RETURN ERROR MESSAGE
Line S14972 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21523  M01S14972.ns2415  ---|          RJM    PSE         PROCESS SPECIAL ERRORS
21524  M00S14973.pfm     +++|          UJN    PEM4        RETURN
21525  M00S14974.pfm     +++|
21526  M00S14975.pfm     +++| PEM3     RJM    PEA         PROCESS ERRORS REQUIRING SPECIAL ACTION
21527  M00S14976.pfm     +++|          LDM    **,EP       GET MESSAGE OPTION
21528  M00S14977.pfm     +++| PEMB     EQU    *-1         (TABLE ADDRESS FOR MESSAGE TYPE)
21529  M00S14978.pfm     +++|          SHN    14          POSITION
21530  M00S14979.pfm     +++|          MJN    PEM4        IF NO MESSAGE TO ISSUE
21531  M00S14980.pfm     +++|          ADM    ERRMSG,P1   ADD MESSAGE ADDRESS
21532  M00S14981.pfm     +++|          RJM    IDM         ISSUE MESSAGE
21533  M00S14982.pfm     +++| PEM4     LJM    PEMX        RETURN
21534  M00S14983.pfm     +++|
21535  M00S14984.pfm     +++|*         PROCESS TYPE 2 ERROR MESSAGE.
21536  M00S14985.pfm     +++|*         SYSTEM ERROR - ISSUE *SYSTEM ERROR* TO JOB DAYFILE.
21537  M00S14986.pfm     +++|
Line S14987 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21538  M01S14987.ns2415  ---| PEM5     LDC    PEMD+CPON   SPECIFY DESTINATION
Line S00284 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21539  M01S00284.ns2415  +++| PEM5     LDC    PEMD+CPON   *SYSTEM ERROR*
21540  M00S14988.pfm     +++|          RJM    DFM
Line S14989 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21541  M01S14989.ns2415  ---|          RJM    SEQ         SET EST ORDINAL AND DEVICE NUMBERS
Line S00285 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21542  M01S00285.ns2415  +++|          RJM    SEQ         ISSUE ERROR LOG MESSAGE
21543  M00S14990.pfm     +++|          UJN    PEM2        COMPLETE ERROR PROCESSING
21544  M00S14991.pfm     +++|
21545  M00S14992.pfm     +++|*         PROCESS TYPE 3 ERROR MESSAGE.
21546  M00S14993.pfm     +++|
21547  M00S14994.pfm     +++| PEM6     LDM    ERRMSG,P1   SET MESSAGE DESTINATION ADDRESS
21548  M00S14995.pfm     +++|          STM    PEMC
21549  M00S14996.pfm     +++|          LDD    CP          READ MESSAGE AT CP AREA
21550  M00S14997.pfm     +++|          ADN    MS1W
21551  M00S14998.pfm     +++|          CRM    **,TR
21552  M00S14999.pfm     +++| PEMC     EQU    *-1
21553  M00S15000.pfm     +++|          LJM    PEM2        COMPLETE ERROR PROCESSING
21554  M00S15001.pfm     +++|
21555  M00S15002.pfm     +++| PEMD     DATA   C*SYSTEM ERROR.*
21556  M00S15003.pfm     +++| TDMO     SPACE  4,10
21557  M00S15004.pfm     +++|**        TDMO - TABLE OF DAYFILE MESSAGE OPTIONS.
21558  M00S15005.pfm     +++|*
21559  M00S15006.pfm     +++|*T        12/(OPTION IF CP ABORTING),12/(OPTION IF *EP* SET)
Figure

0111223(OPTION IF *EP* SET)(OPTION IF CP ABORTING)

21560  M00S15007.pfm     +++|*         BIT 5 IS SET IF NO MESSAGE IS TO BE ISSUED.
21561  M00S15008.pfm     +++|
21562  M00S15009.pfm     +++|
21563  M00S15010.pfm     +++| TDMO     BSS    0
21564  M00S15011.pfm     +++|          CON    0,CPON/10000B                   TYPE 0
21565  M00S15012.pfm     +++|          CON    0,CPON/10000B                   TYPE 1
21566  M00S15013.pfm     +++|          CON    NMSN/10000B,NMSN/10000B         TYPE 2
21567  M00S15014.pfm     +++|          CON    40B,40B                         TYPE 3
21568  M00S15015.pfm     +++| PPF      SPACE  4,15
21569  M00S15016.pfm     +++|**        PPF - PROCESS SPECIAL *PFM* FILES.
21570  M00S15017.pfm     +++|*
21571  M00S15018.pfm     +++|*         ENTRY  (FNTA) = LOCAL FILE FNT ADDRESS.
21572  M00S15019.pfm     +++|*                (ERRB) = 0 IF LOCAL FILE CREATED BY *PFM*.
21573  M00S15020.pfm     +++|*                (FNTB) = /PFM*PFN/ FNT ADDRESS.
21574  M00S15021.pfm     +++|*                (FNTC) = /PFM*ILK/ FNT ADDRESS.
21575  M00S15022.pfm     +++|*                (FNTD) = /PFM*APF/ FNT ADDRESS.
21576  M00S15023.pfm     +++|*
21577  M00S15024.pfm     +++|*         EXIT   FILES UNLOADED IF CREATED BY *PFM*.
21578  M00S15025.pfm     +++|*
21579  M00S15026.pfm     +++|*         CALLS  *0DF*.
21580  M00S15027.pfm     +++|
21581  M00S15028.pfm     +++|
21582  M00S15029.pfm     +++| PPF      SUBR               ENTRY/EXIT
Line S00012 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
21583  M01S00012.ns2358  +++|          LDN    1
21584  M01S00013.ns2358  +++|          STM    LOCF-1      SET *UNLOAD* OPTION FOR *0DF*
21585  M00S15030.pfm     +++|
21586  M00S15031.pfm     +++|*         PROCESS LOCAL FILE.
21587  M00S15032.pfm     +++|
21588  M00S15033.pfm     +++|          LDM    FNTA
21589  M00S15034.pfm     +++|          ZJN    PPF1        IF NO LOCAL FILE FNT
21590  M00S15035.pfm     +++|          STD    FA
21591  M00S15036.pfm     +++|          LDM    ERRB
21592  M00S15037.pfm     +++|          NJN    PPF1        IF LOCAL FILE NOT CREATED BY *PFM*
21593  M00S15038.pfm     +++| PPFA     LDN    0
21594  M00S15039.pfm     +++|*         LDN    1           (*SYOT* + *GET* + *FILE LENGTH ERROR*)
21595  M00S15040.pfm     +++|          NJN    PPF1        IF FILE SHOULD NOT BE RETURNED
Line S15041 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
21596  M01S15041.ns2358  ---|          LDN    1           *UNLOAD* FILE
21597  M01S15042.ns2358  ---|          STM    LOCF-1
21598  M00S15043.pfm     +++|          EXECUTE  0DF,LOCF
Line S01849 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21599  M01S01849.242l642 +++|          MJN    PPF1        IF DEVICE INACCESSIBLE
21600  M00S15044.pfm     +++|          LDN    0           CLEAR LOCAL FILE FNT ADDRESS
21601  M00S15045.pfm     +++|          STM    FNTA
21602  M00S15046.pfm     +++|
21603  M00S15047.pfm     +++|*         PROCESS /PFM*PFN/.
21604  M00S15048.pfm     +++|
21605  M00S15049.pfm     +++| PPF1     LDM    FNTB        GET FNT ADDRESS
21606  M00S15050.pfm     +++|          ZJN    PPF2        IF FILE NOT PRESENT
21607  M00S15051.pfm     +++|          STD    FA
Line S15052 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
21608  M01S15052.ns2358  ---|          LDN    1           *UNLOAD* FILE
21609  M01S15053.ns2358  ---|          STM    LOCF-1
21610  M00S15054.pfm     +++|          EXECUTE  0DF,LOCF
21611  M00S15055.pfm     +++|
21612  M00S15056.pfm     +++|*         PROCESS /PFM*ILK/.
21613  M00S15057.pfm     +++|
21614  M00S15058.pfm     +++| PPF2     LDM    FNTC        GET FNT ADDRESS
21615  M00S15059.pfm     +++|          ZJN    PPF3        IF FILE NOT PRESENT
21616  M00S15060.pfm     +++|          STD    FA
Line S15061 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
21617  M01S15061.ns2358  ---|          LDN    1           *UNLOAD* FILE
21618  M01S15062.ns2358  ---|          STM    LOCF-1
21619  M00S15063.pfm     +++|          EXECUTE  0DF,LOCF
21620  M00S15064.pfm     +++|
21621  M00S15065.pfm     +++|*         PROCESS /PFM*APF/.
21622  M00S15066.pfm     +++|
21623  M00S15067.pfm     +++| PPF3     LDM    FNTD        GET FNT ADDRESS
21624  M00S15068.pfm     +++|          ZJN    PPF4        IF FILE NOT PRESENT
21625  M00S15069.pfm     +++|          STD    FA
Line S15070 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
21626  M01S15070.ns2358  ---|          LDN    1           *UNLOAD* FILE
21627  M01S15071.ns2358  ---|          STM    LOCF-1
21628  M00S15072.pfm     +++|          EXECUTE  0DF,LOCF
21629  M00S15073.pfm     +++| PPF4     LJM    PPFX        RETURN
Line S15074 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21630  M01S15074.ns2415  ---| PSE      SPACE  4,10
21631  M01S15075.ns2415  ---|**        PSE - PROCESS SPECIAL ERROR MESSAGE.
21632  M01S15076.ns2415  ---|*
21633  M01S15077.ns2415  ---|*         ENTRY  (P1) = ERROR CODE.
21634  M01S15078.ns2415  ---|*                (P2) = EST ORDINAL.
21635  M01S15079.ns2415  ---|*                (PSEB) = ADDRESS OF ORIGINAL END OF MESSAGE.
21636  M01S15080.ns2415  ---|*                (PSEC) = ORIGINAL MESSAGE TERMINATOR.
21637  M01S15081.ns2415  ---|*                (PSEE) = *PSN* IF ERROR CAUSED ERROR IDLE.
21638  M01S15082.ns2415  ---|*
21639  M01S15083.ns2415  ---|*         USES   T1.
21640  M01S15084.ns2415  ---|*
21641  M01S15085.ns2415  ---|*         CALLS  SEQ.
21642  M01S15086.ns2415  ---|
21643  M01S15087.ns2415  ---|
21644  M01S15088.ns2415  ---| PSE      SUBR               ENTRY/EXIT
21645  M01S15089.ns2415  ---| PSEE     UJN    PSEX        RETURN
21646  M01S15090.ns2415  ---|*         PSN                (IF ERROR CAUSED ERROR IDLE)
21647  M01S15091.ns2415  ---|          LDM    ERRCLS,P1
21648  M01S15092.ns2415  ---|          SBN    2
21649  M01S15093.ns2415  ---|          ZJN    PSEX        IF ERROR LOG MESSAGE ALREADY ISSUED
21650  M01S15094.ns2415  ---|          LCN    6           ADJUST POINTER FOR *EQXXX,DNYY, * PREFIX
21651  M01S15095.ns2415  ---|          RAM    ERRMSG,P1
21652  M01S15096.ns2415  ---|          STD    T1          SAVE UPDATE MESSAGE ADDRESS
21653  M01S15097.ns2415  ---|          STM    PSEA
21654  M01S15098.ns2415  ---|          LDD    MA
21655  M01S15099.ns2415  ---|          CWM    PSED,ON
21656  M01S15100.ns2415  ---|          SBN    1
21657  M01S15101.ns2415  ---|          CRM    **,ON
21658  M01S15102.ns2415  ---| PSEA     EQU    *-1
21659  M01S15103.ns2415  ---|          LDC    2R,         ADD PREFIX/MESSAGE SEPARATOR
21660  M01S15104.ns2415  ---|          STM    5,T1
21661  M01S15105.ns2415  ---|          LDC    **          SET END-OF-MESSAGE ADDRESS
21662  M01S15106.ns2415  ---| PSEB     EQU    *-1
21663  M01S15107.ns2415  ---|          STD    T1
21664  M01S15108.ns2415  ---|          LDC    *           RESET END OF ORIGINAL MESSAGE
21665  M01S15109.ns2415  ---| PSEC     EQU    *-1
21666  M01S15110.ns2415  ---|          STI    T1
21667  M01S15111.ns2415  ---|          LDN    0
21668  M01S15112.ns2415  ---|          STM    1,T1
21669  M01S15113.ns2415  ---|          RJM    SEQ         SEND INFORMATION TO THE ERROR LOG
21670  M01S15114.ns2415  ---|          LJM    PSEX        RETURN
21671  M01S15115.ns2415  ---|
21672  M01S15116.ns2415  ---|
21673  M01S15117.ns2415  ---| PSED     DATA   10HEQXXX,DNYY
21674  M00S15118.pfm     +++| RCL      SPACE  4,15
21675  M00S15119.pfm     +++|**        RCL - RECALL PFM.
21676  M00S15120.pfm     +++|*
Line S15121 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21677  M01S15121.242l642 ---|*         EXIT   TO *DPP*.
21678  M01S15122.242l642 ---|*                INPUT REGISTER WRITTEN TO PP RECALL STACK.
21679  M01S15123.242l642 ---|*                (DPPF) CLEARED.
21680  M01S15124.242l642 ---|*
21681  M01S15125.242l642 ---|*         MACROS MONITOR.
Line S01850 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21682  M01S01850.242l642 +++|*         ENTRY  (P1) = ERROR CODE.
21683  M01S01851.242l642 +++|*                (PWRF) = RESTART FLAGS.
21684  M01S01852.242l642 +++|*
21685  M01S01853.242l642 +++|*         EXIT   (CN - CN+4) = INPUT REGISTER FOR *PFM* RECALL.
21686  M01S01854.242l642 +++|*                (FN - FN+4) = RECALL REQUEST FOR MONITOR.
21687  M01S01855.242l642 +++|*                (MP - MP+4) = PARAMETER WORD FOR *PFM* RECALL.
21688  M01S01856.242l642 +++|*                (AIPF, AIPF+1) = 0.
21689  M01S01857.242l642 +++|*                (STAU) = *STRP* BIT SET TO RECALL *PFM*.
Line S01858 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
21690  M02S01858.ns2414  ---|*                TO *3PT* TO RECALL *PFM*.
Line S00315 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
21691  M01S00315.ns2414  +++|*                TO *3PU* TO RECALL *PFM*.
21692  M00S15126.pfm     +++|
21693  M00S15127.pfm     +++|
21694  M00S15128.pfm     +++| RCL      BSS    0           ENTRY
21695  M00S15129.pfm     +++|          LDN    0           CLEAR PF ACCUMULATOR INCREMENT
Line S15130 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21696  M01S15130.242l642 ---|          STM    DPPF
21697  M01S15131.242l642 ---|          STM    DPPF-1
Line S01859 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21698  M01S01859.242l642 +++|          STM    AIPF
21699  M01S01860.242l642 +++|          STM    AIPF+1
21700  M00S15132.pfm     +++|          LDN    ZERL
Line S15133 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21701  M01S15133.242l642 ---|          CRD    CM
21702  M01S15134.242l642 ---|          LDD    IA          READ INPUT REQUEST REGISTER
21703  M01S15135.242l642 ---|          CRD    CN
21704  M01S15136.242l642 ---|          LDD    MA          RECALL REQUEST
21705  M01S15137.242l642 ---|          CWD    CN
21706  M01S15138.242l642 ---|          ADN    1
21707  M01S15139.242l642 ---|          CWD    CM          CLEAR PARAMETER WORD
21708  M01S15140.242l642 ---|          LDD    CN+1        CLEAR AUTO RECALL
21709  M01S15141.242l642 ---|          SCN    40
21710  M01S15142.242l642 ---|          STD    CN+1
21711  M01S15143.242l642 ---|          LDD    IA          REWRITE INPUT REGISTER
21712  M01S15144.242l642 ---|          CWD    CN
21713  M01S15145.242l642 ---|          LDC    4000+PTMF   SET TO RECALL WITH TIME SPECIFIED
21714  M01S15146.242l642 ---|          STD    CM+1
21715  M01S15147.242l642 ---|          LDC    250D        SET DELAY TO 250D MILLISECONDS
21716  M01S15148.242l642 ---|          STD    CM+4
21717  M01S15149.242l642 ---|          MONITOR  RECM
21718  M01S15150.242l642 ---|          LJM    DPP         DROP PP
Line S01861 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21719  M01S01861.242l642 +++|          CRD    FN          SET RECALL REQUEST
21720  M01S01862.242l642 +++|          CRD    MP          SET PARAMETER WORD
21721  M01S01863.242l642 +++|          LDM    PWRF        RESTART FLAGS
21722  M01S01864.242l642 +++|          STD    MP
21723  M01S01865.242l642 +++|          LDD    P1          ERROR CODE
21724  M01S01866.242l642 +++|          STD    MP+1
21725  M01S01867.242l642 +++|          LDD    IA          READ INPUT REQUEST REGISTER
21726  M01S01868.242l642 +++|          CRD    CN
21727  M01S01869.242l642 +++|          LDD    MP+1        CHECK ERROR CODE
21728  M01S01870.242l642 +++|          LMK    /ERRMSG/RTR
21729  M01S01871.242l642 +++|          NJN    RCL2        IF NOT RETRY REQUEST
21730  M01S01872.242l642 +++|          LDD    CC          COMMAND CODE
21731  M01S01873.242l642 +++|          LMN    CCRS
21732  M01S01874.242l642 +++|          NJN    RCL1        IF NOT *RPFSTAT* REQUEST
21733  M01S01875.242l642 +++|          LDD    CN+2        SET ORIGINAL COMMAND CODE IN REQUEST
21734  M01S01876.242l642 +++|          SCN    77
21735  M01S01877.242l642 +++|          LMM    PWCC
21736  M01S01878.242l642 +++|          STD    CN+2
21737  M01S01879.242l642 +++| RCL1     LDN    0
21738  M01S01880.242l642 +++|          UJN    RCL3        SET DELAY TO 0 MILLISECONDS
21739  M01S01881.242l642 +++|
21740  M01S01882.242l642 +++| RCL2     LDC    250D        SET DELAY TO 250D MILLISECONDS
21741  M01S01883.242l642 +++| RCL3     STD    FN+4
21742  M01S01884.242l642 +++|          LDC    PTMF        SET TIMED RECALL
21743  M01S01885.242l642 +++|          STD    FN+1
21744  M01S01886.242l642 +++|          LDK    STRP        SET *RECALL PFM* STATUS BIT
21745  M01S01887.242l642 +++|          RAM    STAU
Line S01888 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
21746  M02S01888.ns2414  ---|          EXECUTE  3PT       RECALL *PFM*
Line S00316 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
21747  M01S00316.ns2414  +++|          EXECUTE  3PU       RECALL *PFM*
21748  M00S15151.pfm     +++| REM      SPACE  4,10
21749  M00S15152.pfm     +++|**        REM - RETURN ERROR MESSAGE.
21750  M00S15153.pfm     +++|*
21751  M00S15154.pfm     +++|*         ENTRY  (A) = ADDRESS OF ERROR MESSAGE.
21752  M00S15155.pfm     +++|*                (EMRA - EMRA+1) ADDRESS FOR MESSAGE RETURN.
21753  M00S15156.pfm     +++|*
21754  M00S15157.pfm     +++|*         CALLS  NONE
21755  M00S15158.pfm     +++|*
21756  M00S15159.pfm     +++|*         USES   T1, T2, T3
21757  M00S15160.pfm     +++|
21758  M00S15161.pfm     +++|
21759  M00S15162.pfm     +++| REM      SUBR
21760  M00S15163.pfm     +++|          STM    REMA        SAVE MESSAGE ADDRESS
21761  M00S15164.pfm     +++|          STD    T1
21762  M00S15165.pfm     +++|          LDN    5           SET BYTES PER WORD
21763  M00S15166.pfm     +++|          STD    T2
21764  M00S15167.pfm     +++|          LDN    1
21765  M00S15168.pfm     +++|          STD    T3          INITIALIZE CM WORD COUNT
21766  M00S15169.pfm     +++|
21767  M00S15170.pfm     +++| REM1     LDI    T1          SEARCH FOR END OF MESSAGE
21768  M00S15171.pfm     +++|          ZJN    REM2        IF ZERO BYTE FOUND
21769  M00S15172.pfm     +++|          AOD    T1
21770  M00S15173.pfm     +++|          SOD    T2
21771  M00S15174.pfm     +++|          NJN    REM1        IF NOT FULL CM WORD
21772  M00S15175.pfm     +++|          AOD    T3
21773  M00S15176.pfm     +++|          LDN    5
21774  M00S15177.pfm     +++|          STD    T2          RESET BYTES PER WORD
21775  M00S15178.pfm     +++|          UJN    REM1        CONTINUE TO END OF MESSAGE
21776  M00S15179.pfm     +++|
21777  M00S15180.pfm     +++| REM2     AOD    T1          CLEAR REMAINDER OF MESSAGE TO FULL WORD
21778  M00S15181.pfm     +++|          SOD    T2
21779  M00S15182.pfm     +++|          ZJN    REM3        IF FULL CM WORD
21780  M00S15183.pfm     +++|          LDN    0
21781  M00S15184.pfm     +++|          STI    T1          CLEAR MESSAGE TAIL
21782  M00S15185.pfm     +++|          UJN    REM2        LOOP FOR FULL CM WORD
21783  M00S15186.pfm     +++|
21784  M00S15187.pfm     +++| REM3     LDM    EMRA        STORE MESSAGE
21785  M00S15188.pfm     +++|          LPN    37
21786  M00S15189.pfm     +++|          SHN    6
21787  M00S15190.pfm     +++|          ADD    RA
21788  M00S15191.pfm     +++|          SHN    6
21789  M00S15192.pfm     +++|          ADM    EMRA+1
21790  M00S15193.pfm     +++|          CWM    *,T3        SEND MESSAGE TO CENTRAL
21791  M00S15194.pfm     +++| REMA     EQU    *-1
21792  M00S15195.pfm     +++|          LJM    REMX        RETURN
21793  M00S15196.pfm     +++| SEQ      SPACE  4,12
21794  M00S15197.pfm     +++|**        SEQ - SET EQUIPMENT INFORMATION IN MESSAGE.
21795  M00S15198.pfm     +++|*
21796  M00S15199.pfm     +++|*         SETS THE DEVICE TYPE, EST ORDINAL AND DEVICE NUMBER INTO
21797  M00S15200.pfm     +++|*         THE ERROR MESSAGE AND ISSUES IT TO THE ERROR LOG.  ALSO
21798  M00S15201.pfm     +++|*         ISSUES TO THE ERROR LOG EITHER A MESSAGE SPECIFYING FAMILY,
21799  M00S15202.pfm     +++|*         FILE NAME AND USER INDEX, OR A MESSAGE SPECIFYING TRACK
21800  M00S15203.pfm     +++|*         AND SECTOR.
21801  M00S15204.pfm     +++|*
21802  M00S15205.pfm     +++|*         ENTRY  (CC) = COMMAND CODE.
21803  M00S15206.pfm     +++|*                (P1) = ERROR CODE.
21804  M00S15207.pfm     +++|*                (P2) = EST ORDINAL.
21805  M00S15208.pfm     +++|*                (ERRC) = TRACK (FOR *BCS* ERROR).
21806  M00S15209.pfm     +++|*                (ERRD) = SECTOR (FOR *BCS* ERROR).
21807  M00S15210.pfm     +++|*
21808  M00S15211.pfm     +++|*         CALLS  CFN, C2D, DFM.
21809  M00S15212.pfm     +++|*
21810  M00S15213.pfm     +++|*         USES   T2, T3, CM - CM+4.
21811  M00S15214.pfm     +++|*
21812  M00S15215.pfm     +++|*         MACROS SFA.
21813  M00S15216.pfm     +++|
21814  M00S15217.pfm     +++|
21815  M00S15218.pfm     +++| SEQ6     LDM    ERRMSG,P1   ISSUE MESSAGE TO ERRLOG
21816  M00S15219.pfm     +++|          ADC    ERLN
21817  M00S15220.pfm     +++|          RJM    DFM
21818  M00S15221.pfm     +++| SEQA     LDN    0
21819  M00S15222.pfm     +++|*         LDN    1           (EXTENDED MESSAGE REQUIRED)
21820  M00S15223.pfm     +++|          ZJN    SEQX        IF EXTENDED MESSAGE NOT REQUIRED
21821  M00S15224.pfm     +++|          LDC    SEQB+ERLN   ISSUE FM/PF/UI EXTENDED MESSAGE
21822  M00S15225.pfm     +++|*         LDC    SEQD+ERLN   (ISSUE TRACK/SECTOR EXTENDED MESSAGE)
21823  M00S15226.pfm     +++| SEQE     EQU    *-1
21824  M00S15227.pfm     +++|          RJM    DFM
Line S00286 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21825  M01S00286.ns2415  +++| SEQF     UJN    SEQX        RETURN
21826  M01S00287.ns2415  +++|*         PSN                (ERROR IDLE SET)
21827  M01S00288.ns2415  +++|          LDC    SEQG+ERLN   *EQXXX, ERROR IDLE SET.*
21828  M01S00289.ns2415  +++|          RJM    DFM
21829  M00S15228.pfm     +++|
21830  M00S15229.pfm     +++| SEQ      SUBR               ENTRY/EXIT
21831  M00S15230.pfm     +++|          LDD    P1
21832  M00S15231.pfm     +++|          LMN    /ERRMSG/RSE
21833  M00S15232.pfm     +++|          ZJN    SEQ6        IF RESEX ERROR
Line S15233 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21834  M01S15233.ns2415  ---|          LMN    /ERRMSG/ABT&/ERRMSG/RSE
21835  M01S15234.ns2415  ---|          ZJN    SEQ6        IF PFM ABORT
21836  M00S15235.pfm     +++|          AOM    SEQA        FLAG EXTENDED MESSAGE REQUIRED
21837  M00S15236.pfm     +++|          LDM    ERRMSG,P1   SET MESSAGE ADDRESS
21838  M00S15237.pfm     +++|          STD    T2
21839  M00S15238.pfm     +++|          LDD    P2          CONVERT UPPER TWO DIGITS OF EST ORDINAL
21840  M00S15239.pfm     +++|          SHN    -3
21841  M00S15240.pfm     +++|          RJM    C2D
21842  M00S15241.pfm     +++|          STM    1,T2
21843  M00S15242.pfm     +++|          STM    SEQB+1
21844  M00S15243.pfm     +++|          STM    SEQD+1
Line S00290 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21845  M01S00290.ns2415  +++|          STM    SEQG+1
21846  M00S15244.pfm     +++|          LDD    P2          CONVERT LOWER DIGIT OF EST ORDINAL
21847  M00S15245.pfm     +++|          LPN    7
21848  M00S15246.pfm     +++|          SHN    6
21849  M00S15247.pfm     +++|          ADC    2R0,
21850  M00S15248.pfm     +++|          STM    2,T2
21851  M00S15249.pfm     +++|          STM    SEQB+2
21852  M00S15250.pfm     +++|          STM    SEQD+2
Line S00291 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21853  M01S00291.ns2415  +++|          STM    SEQG+2
21854  M00S15251.pfm     +++|          SFA    EST,P2      READ EST ENTRY
21855  M00S15252.pfm     +++|          ADK    EQDE
21856  M00S15253.pfm     +++|          CRD    CM
Line S15254 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21857  M01S15254.ns2415  ---|          LDD    CM+3        SET EQUIPMENT TYPE
21858  M01S15255.ns2415  ---|          LPC    3777
21859  M01S15256.ns2415  ---|          STI    T2
21860  M01S15257.ns2415  ---|          STM    SEQB
21861  M01S15258.ns2415  ---|          STM    SEQD
21862  M00S15259.pfm     +++|          LDD    CM+4        READ PFGL WORD OF MST
21863  M00S15260.pfm     +++|          SHN    3
21864  M00S15261.pfm     +++|          ADN    PFGL
21865  M00S15262.pfm     +++|          CRD    CM
21866  M00S15263.pfm     +++|          LDD    CM+3        CONVERT DEVICE NUMBER
21867  M00S15264.pfm     +++|          RJM    C2D
21868  M00S15265.pfm     +++|          STM    4,T2
21869  M00S15266.pfm     +++|          LDD    P1
21870  M00S15267.pfm     +++|          LMN    /ERRMSG/BCS
21871  M00S15268.pfm     +++|          NJN    SEQ1        IF NOT *BAD CATALOG/PERMIT SECTOR*
21872  M00S15269.pfm     +++|          LJM    SEQ5        PROCESS TRACK/SECTOR ERROR MESSAGE
21873  M00S15270.pfm     +++|
21874  M00S15271.pfm     +++|*         SET UP *EQXXX, FM= ,PF= ,UI= .* MESSAGE.
21875  M00S15272.pfm     +++|
21876  M00S15273.pfm     +++| SEQ1     LDN    CM          COPY FAMILY NAME
21877  M00S15274.pfm     +++|          STD    T3
21878  M00S15275.pfm     +++|          LDC    SEQB+5      COPY NAME TO BUFFER
21879  M00S15276.pfm     +++|          RJM    CPN
21880  M00S15277.pfm     +++|          LDD    CC
21881  M00S15278.pfm     +++|          LMN    CCCT
21882  M00S15279.pfm     +++|          NJN    SEQ2        IF NOT CATLIST ERROR
21883  M00S15280.pfm     +++|          LDD    FN
21884  M00S15281.pfm     +++|          NJN    SEQ2        IF FILE NAME DEFINED
21885  M00S15282.pfm     +++|          LDC    SEQC        SET FILE NAME TO *PERMITS*
21886  M00S15283.pfm     +++|          UJN    SEQ4        SET *PERMITS* ADDRESS
21887  M00S15284.pfm     +++|
Line S15285 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21888  M01S15285.ns2415  ---| SEQ2     LDM    PFFN        SET PF NAME
Line S00292 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21889  M01S00292.ns2415  +++| SEQ2     LDM    PFFN        CHECK PERMANENT FILE NAME
21890  M00S15286.pfm     +++|          ZJN    SEQ3        IF NOT SPECIFIED IN FET
Line S15287 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21891  M01S15287.ns2415  ---|          LDC    PFFN        SET ADDRESS
21892  M01S15288.ns2415  ---|          UJN    SEQ4        SET P. F. NAME ADDRESS
Line S00293 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21893  M01S00293.ns2415  +++|          LDC    PFFN        SET ADDRESS OF PERMANENT FILE NAME
21894  M01S00294.ns2415  +++|          UJN    SEQ4        SET ADDRESS
21895  M00S15289.pfm     +++|
Line S15290 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21896  M01S15290.ns2415  ---| SEQ3     LDN    FN          SET FNT NAME
Line S00295 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21897  M01S00295.ns2415  +++| SEQ3     LDN    FN          SET ADDRESS OF LOCAL FILE NAME
21898  M00S15291.pfm     +++| SEQ4     STD    T3
21899  M00S15292.pfm     +++|          LDC    SEQB+13
21900  M00S15293.pfm     +++|          RJM    CPN
21901  M00S15294.pfm     +++|          LDD    UI+1        COPY USER INDEX
21902  M00S15295.pfm     +++|          RJM    C2D
21903  M00S15296.pfm     +++|          STM    SEQB+23
21904  M00S15297.pfm     +++|          LDD    UI+1
21905  M00S15298.pfm     +++|          SHN    -6
21906  M00S15299.pfm     +++|          RJM    C2D
21907  M00S15300.pfm     +++|          STM    SEQB+22
21908  M00S15301.pfm     +++|          LDD    UI
21909  M00S15302.pfm     +++|          RJM    C2D
21910  M00S15303.pfm     +++|          STM    SEQB+21
21911  M00S15304.pfm     +++|          LJM    SEQ6        ISSUE MESSAGES
21912  M00S15305.pfm     +++|
21913  M00S15306.pfm     +++|*         SET UP *EQXXX, TK= ,SC= .* MESSAGE.
21914  M00S15307.pfm     +++|
21915  M00S15308.pfm     +++| SEQ5     LDM    ERRC        CONVERT TRACK NUMBER
21916  M00S15309.pfm     +++|          SHN    -6
21917  M00S15310.pfm     +++|          RJM    C2D
21918  M00S15311.pfm     +++|          STM    SEQD+5
21919  M00S15312.pfm     +++|          LDM    ERRC
21920  M00S15313.pfm     +++|          RJM    C2D
21921  M00S15314.pfm     +++|          STM    SEQD+6
21922  M00S15315.pfm     +++|          LDM    ERRD        CONVERT SECTOR NUMBER
21923  M00S15316.pfm     +++|          SHN    -6
21924  M00S15317.pfm     +++|          RJM    C2D
21925  M00S15318.pfm     +++|          STM    SEQD+11
21926  M00S15319.pfm     +++|          LDM    ERRD
21927  M00S15320.pfm     +++|          RJM    C2D
21928  M00S15321.pfm     +++|          STM    SEQD+12
21929  M00S15322.pfm     +++|          LDN    SEQD-SEQB   FORCE TRACK/SECTOR OF EXTENDED MESSAGE
21930  M00S15323.pfm     +++|          RAM    SEQE
21931  M00S15324.pfm     +++|          LJM    SEQ6        ISSUE MESSAGES
21932  M00S15325.pfm     +++|
21933  M00S15326.pfm     +++| SEQB     DATA   C*EQXXX, FM=       , PF=       , UI=      .*
21934  M00S15327.pfm     +++| SEQC     DATA   C*PERMITS*
21935  M00S15328.pfm     +++| SEQD     DATA   C*EQXXX, TK=    ,SC=    .*
Line S00296 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
21936  M01S00296.ns2415  +++| SEQG     DATA   C*EQXXX, ERROR IDLE SET.*
Line S15329 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21937  M01S15329.271l716 ---| STE      SPACE  4,15
21938  M01S15330.271l716 ---|**        STE - SET TIME AND EVENT.
21939  M01S15331.271l716 ---|*
21940  M01S15332.271l716 ---|*         ENTRY  (ERRC) = FOLDED EVENT FOR ROLLOUT.
21941  M01S15333.271l716 ---|*                (ERRD) = ROLLOUT TIME.
21942  M01S15334.271l716 ---|*                (ERRE) = EST ORDINAL FOR EVENT.
21943  M01S15335.271l716 ---|*
21944  M01S15336.271l716 ---|*         EXIT   EVENT SET IN CONTROL POINT AREA AT *TERW*.
21945  M01S15337.271l716 ---|*                (E1CA) SET FOR SCHEDULER ROLLOUT IF NO EVENT SET.
21946  M01S15338.271l716 ---|*
21947  M01S15339.271l716 ---|*         USES   CM - CM+4.
21948  M01S15340.271l716 ---|
21949  M01S15341.271l716 ---|
21950  M01S15342.271l716 ---| STE      SUBR               ENTRY/EXIT
21951  M01S15343.271l716 ---|          LDM    ERRC
21952  M01S15344.271l716 ---|          ADM    ERRD
21953  M01S15345.271l716 ---|          ADM    ERRE
21954  M01S15346.271l716 ---|          NJN    STE1        IF EVENT SPECIFIED
21955  M01S15347.271l716 ---|          ISTORE E1CA,(LDN ROSR)  FORCE SCHEDULER ROLLOUT
21956  M01S15348.271l716 ---|          UJN    STEX        RETURN
21957  M01S15349.271l716 ---|
21958  M01S15350.271l716 ---| STE1     LDD    CP          READ TIME EVENT ROLLOUT WORD *TERW*
21959  M01S15351.271l716 ---|          ADN    TERW
21960  M01S15352.271l716 ---|          CRD    CM
21961  M01S15353.271l716 ---|          LDD    CM+2        SET TIME
21962  M01S15354.271l716 ---|          SCN    77
21963  M01S15355.271l716 ---|          SHN    3
21964  M01S15356.271l716 ---|          LMM    ERRD
21965  M01S15357.271l716 ---|          SHN    22-3
21966  M01S15358.271l716 ---|          STD    CM+2
21967  M01S15359.271l716 ---|          SHN    -6
21968  M01S15360.271l716 ---|          SCN    77
21969  M01S15361.271l716 ---|          LMM    ERRE        SET EST ORDINAL
21970  M01S15362.271l716 ---|          STD    CM+3
21971  M01S15363.271l716 ---|          LDM    ERRC        SET FOLDED EVENT
21972  M01S15364.271l716 ---|          STD    CM+4
21973  M01S15365.271l716 ---|          LDD    CP          WRITE TIME EVENT ROLLOUT WORD *TERW*
21974  M01S15366.271l716 ---|          ADN    TERW
21975  M01S15367.271l716 ---|          CWD    CM
21976  M01S15368.271l716 ---|          LJM    STEX        RETURN
21977  M00S15369.pfm     +++| UFF      SPACE  4,15
21978  M00S15370.pfm     +++|**        UFF - UPDATE FET FIELDS.
21979  M00S15371.pfm     +++|*
21980  M00S15372.pfm     +++|*         ENTRY  (P1) = ERROR CODE.
21981  M00S15373.pfm     +++|*
Line S15374 Modification History
M01 (Removed by) pfm22
Seq #  *Modification Id* Act 
----------------------------+
21982  M01S15374.pfm22   ---|*         EXIT   (FET+0) UPDATED WITH ERROR CODE AND COMPLETE BIT.
21983  M01S15375.pfm22   ---|*                (FET+CFCN) HAS RANDOM INDEX REWOUND IF THE *FET* IS
21984  M01S15376.pfm22   ---|*                RANDOM.
Line S00120 Modification History
M01 (Added by) pfm22
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21985  M02S00120.242l642 ---|*         EXIT   TO *TRP1* WITH (CM - CM+4) = UPDATED FET+0 AND
21986  M02S00121.242l642 ---|*                (FN - FN+4) = FET+1.
21987  M02S00122.242l642 ---|*                TO *DPP*, IF FET ADDRESS NOT VALID.
Line S15377 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21988  M01S15377.242l642 ---|*
21989  M01S15378.242l642 ---|*         USES   CM - CM+4, FN - FN+4, P0, T1, T2.
21990  M01S15379.242l642 ---|*
21991  M01S15380.242l642 ---|*         CALLS  DPP, MEC, SFA.
Line S01889 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
21992  M01S01889.242l642 +++|*         EXIT   TO *3RT*.
21993  M01S01890.242l642 +++|*                (FN - FN+4) = FET + 0 WITH ERROR STATUS SET.
21994  M01S01891.242l642 +++|*                (FS - FS+4) = FET + 1.
21995  M01S01892.242l642 +++|*                (STAU) = *STDS* FLAG SET TO DROP PP.
21996  M01S01893.242l642 +++|*
21997  M01S01894.242l642 +++|*         USES   T1, T2.
21998  M01S01895.242l642 +++|*
Line S01896 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
21999  M02S01896.ns2414  ---|*         CALLS  MEC, SFA, *3PT*.
Line S00317 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
22000  M01S00317.ns2414  +++|*         CALLS  MEC, SFA, *3PU*.
22001  M00S15381.pfm     +++|
22002  M00S15382.pfm     +++|
22003  M00S15383.pfm     +++| UFF      BSS    0           ENTRY
22004  M00S15384.pfm     +++|          RJM    MEC         MODIFY ERROR CODE IF NEEDED
22005  M00S15385.pfm     +++|          RJM    SFA         READ FIRST WORD OF *FET*
Line S00123 Modification History
M01 (Added by) pfm22
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22006  M02S00123.242l642 ---|          ZJP    DPP         IF NO FET ADDRESS
Line S15386 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22007  M01S15386.242l642 ---|          CRD    CM
Line S00124 Modification History
M01 (Added by) pfm22
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22008  M02S00124.242l642 ---|          ADN    1
22009  M02S00125.242l642 ---|          CRD    FN          READ FET+1
Line S01897 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22010  M01S01897.242l642 +++|          ZJN    UFF1        IF NO FET ADDRESS
22011  M01S01898.242l642 +++|          CRD    FN
22012  M01S01899.242l642 +++|          ADN    1           READ FET + 1
22013  M01S01900.242l642 +++|          CRD    FS
22014  M00S15387.pfm     +++|          LDD    P1          FORM MSB OF ERROR CODE
22015  M00S15388.pfm     +++|          SHN    -2
22016  M00S15389.pfm     +++|          STD    T2
22017  M00S15390.pfm     +++|          LDD    P1          FORM LSB OF ERROR CODE
22018  M00S15391.pfm     +++|          LPN    3
22019  M00S15392.pfm     +++|          SHN    13-1
22020  M00S15393.pfm     +++|          ADN    1           SET COMPLETE BIT
22021  M00S15394.pfm     +++|          STD    T1
Line S15395 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22022  M01S15395.242l642 ---|          LDD    CM+3        MERGE WITH LOWER FILE NAME
Line S01901 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22023  M01S01901.242l642 +++|          LDD    FN+3        MERGE WITH END OF FILE NAME
22024  M00S15396.pfm     +++|          SCN    77
22025  M00S15397.pfm     +++|          ADD    T2
Line S15398 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22026  M01S15398.242l642 ---|          STD    CM+3
22027  M01S15399.242l642 ---|          LDD    CM+4
Line S01902 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22028  M01S01902.242l642 +++|          STD    FN+3
22029  M01S01903.242l642 +++|          LDD    FN+4
22030  M00S15400.pfm     +++|          LPC    1776        CLEAR COMPLETE AND ERROR CODE BITS
22031  M00S15401.pfm     +++|          ADD    T1
Line S15402 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22032  M01S15402.242l642 ---|          STD    CM+4
Line S15403 Modification History
M01 (Removed by) pfm22
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22033  M02S15403.242l642 ---|          RJM    SFA         WRITE TO CENTRAL
22034  M02S15404.242l642 ---|          CWD    CM
22035  M02S15405.242l642 ---|          ADN    1           READ (FET+1)
22036  M02S15406.242l642 ---|          CRD    FN
22037  M02S15407.242l642 ---|          LDD    FN+1        CHECK RANDOM BIT
22038  M02S15408.242l642 ---|          SHN    21-13
22039  M02S15409.242l642 ---|          PJN    UFF1        IF NOT RANDOM FET
22040  M02S15410.242l642 ---|          LDN    ZERL        CLEAR CM
22041  M02S15411.242l642 ---|          CRD    CM
22042  M02S15412.242l642 ---|          LDD    HN          SET RANDOM INDEX REWOUND
22043  M02S15413.242l642 ---|          STD    CM+2
22044  M02S15414.242l642 ---|          RJM    SFA
22045  M02S15415.242l642 ---|          ADN    CFCN
22046  M02S15416.242l642 ---|          CWD    CM
22047  M02S15417.242l642 ---| UFF1     LJM    DPP         EXIT
Line S00126 Modification History
M01 (Added by) pfm22
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22048  M02S00126.242l642 ---|          LJM    TRP1        UPDATE FET AND EXIT
Line S01904 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22049  M01S01904.242l642 +++|          STD    FN+4
22050  M01S01905.242l642 +++| UFF1     LDK    STDS        SET *DROP PP* STATUS BIT
22051  M01S01906.242l642 +++|          RAM    STAU
Line S01907 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
22052  M02S01907.ns2414  ---|          EXECUTE  3PT       DROP PP
Line S00318 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
22053  M01S00318.ns2414  +++|          EXECUTE  3PU       DROP PP
22054  M00S15418.pfm     +++| WCM      SPACE  4,15
22055  M00S15419.pfm     +++|**        WCM - WRITE CONTROL POINT MESSAGE.
22056  M00S15420.pfm     +++|*
22057  M00S15421.pfm     +++|*         ENTRY  (P1) = ERROR CODE.
22058  M00S15422.pfm     +++|*
22059  M00S15423.pfm     +++|*         EXIT   MESSAGE WRITTEN TO *MS2W* OF JOB CONTROL POINT.
22060  M00S15424.pfm     +++|*
22061  M00S15425.pfm     +++|*         USES   T1.
22062  M00S15426.pfm     +++|*
22063  M00S15427.pfm     +++|*         CALLS  MFN.
22064  M00S15428.pfm     +++|
22065  M00S15429.pfm     +++|
22066  M00S15430.pfm     +++| WCM      SUBR               ENTRY/EXIT
22067  M00S15431.pfm     +++|          LDM    ERRCLS,P1   CHECK MESSAGE TYPE
22068  M00S15432.pfm     +++|          NJN    WCM1        IF NOT TYPE 0 MESSAGE
22069  M00S15433.pfm     +++|          LDM    ERRMSG,P1   MERGE FILE NAME WITH MESSAGE
22070  M00S15434.pfm     +++|          RJM    MFN
22071  M00S15435.pfm     +++|          UJN    WCM2        SETUP TO WRITE MESSAGE
22072  M00S15436.pfm     +++|
22073  M00S15437.pfm     +++| WCM1     LDM    ERRMSG,P1
22074  M00S15438.pfm     +++| WCM2     STM    WCMA        SET FOR MESSAGE COPY TO *MS2W*
22075  M00S15439.pfm     +++|          ADN    5*3-1       FORCE END OF LINE
22076  M00S15440.pfm     +++|          STM    WCMB+1
22077  M00S15441.pfm     +++|          LDN    0
22078  M00S15442.pfm     +++| WCMB     STM    *
22079  M00S15443.pfm     +++|          LDD    CP          SET DESTINATION ADDRESS
22080  M00S15444.pfm     +++|          ADN    MS2W
22081  M00S15445.pfm     +++|          CWM    *,TR        COPY MESSAGE TO *MS2W* OF JOB
22082  M00S15446.pfm     +++| WCMA     EQU    *-1
22083  M00S15447.pfm     +++|          UJN    WCMX        RETURN
22084  M00S15448.pfm     +++|          TITLE  ERROR MESSAGES.
22085  M00S15449.pfm     +++|**        ERROR MESSAGES.
22086  M00S15450.pfm     +++|*
22087  M00S15451.pfm     +++|*         FORMAT (FIRST WORD), ERROR DESTINATION FLAG.
22088  M00S15452.pfm     +++|*                (SECOND WORD), FIRST WORD ADDRESS OF MESSAGE.
22089  M00S15453.pfm     +++|*
22090  M00S15454.pfm     +++|*         CONTENTS OF FIRST WORD.
22091  M00S15455.pfm     +++|*                0, SEND FILE NAME MESSAGE TO CONTROL POINT DAYFILE.
22092  M00S15456.pfm     +++|*                1, SEND MESSAGE TO CONTROL POINT DAYFILE.
22093  M00S15457.pfm     +++|*                2, SEND MESSAGE TO CONTROL POINT DAYFILE AND ERRORLOG.
22094  M00S15458.pfm     +++|
22095  M00S15459.pfm     +++|
22096  M00S15460.pfm     +++|          LIST   -R
22097  M00S15461.pfm     +++|
22098  M00S15462.pfm     +++| MXER     EQU    /ERRMSG/MXER
22099  M00S15463.pfm     +++| ERRCLS   INDEX
22100  M00S15464.pfm     +++|
22101  M00S15465.pfm     +++| FBS      ERRMSG 0,(BUSY.)
22102  M00S15466.pfm     +++| FNF      ERRMSG 0,(NOT FOUND.)
22103  M00S15467.pfm     +++| EFL      ERRMSG 0,(EMPTY.)
22104  M00S15468.pfm     +++| NMS      ERRMSG 0,(NOT ON MASS STORAGE.)
22105  M00S15469.pfm     +++| FAP      ERRMSG 0,(ALREADY PERMANENT.)
22106  M00S15470.pfm     +++| IFT      ERRMSG 0,(INCORRECT FILE TYPE.)
22107  M00S15471.pfm     +++|
22108  M00S15472.pfm     +++| FNE      ERRMSG 1,( FILE NAME ERROR.)
22109  M00S15473.pfm     +++| IUA      ERRMSG 1,( USER ACCESS NOT VALID.)
22110  M00S15474.pfm     +++| IDR      ERRMSG 1,( INCORRECT DEVICE REQUEST.)
22111  M00S15475.pfm     +++| FTL      ERRMSG 1,( FILE TOO LONG.)
22112  M00S15476.pfm     +++| ILR      ERRMSG 1,( PFM INCORRECT REQUEST.)
22113  M00S15477.pfm     +++| PFN      ERRMSG 1,( DEVICE UNAVAILABLE.)
22114  M00S15478.pfm     +++| DAD      ERRMSG 1,( DIRECT ACCESS DEVICE ERROR.)
22115  M00S15479.pfm     +++| PFA      ERRMSG 1,( PF UTILITY ACTIVE.)
22116  M00S15480.pfm     +++| DTE      ERRMSG 1,( DATA TRANSFER ERROR.)
22117  M00S15481.pfm     +++| COF      ERRMSG 1,( TOO MANY PERMANENT FILES.)
22118  M00S15482.pfm     +++| COS      ERRMSG 1,( TOO MUCH INDIRECT ACCESS FILE SPACE.)
22119  M00S15483.pfm     +++| SPN      ERRMSG 1,( PRUS REQUESTED UNAVAILABLE.)
22120  M00S15484.pfm     +++| IOE      ERRMSG 1,( I/O SEQUENCE ERROR.)
22121  M00S15485.pfm     +++| LFL      ERRMSG 1,( LOCAL FILE LIMIT.)
22122  M00S15486.pfm     +++| PRL      ERRMSG 1,( PRU LIMIT.)
22123  M00S15487.pfm     +++| PLE      ERRMSG 1,( PERMIT LIMIT EXCEEDED.)
22124  M00S15488.pfm     +++| PAE      ERRMSG 1,( PFM ARGUMENT ERROR.)
22125  M00S15489.pfm     +++| RSE      ERRMSG 2,( RESEX FAILURE.)
22126  M00S15490.pfm     +++| TKL      ERRMSG 2,(EQXXX,DNYY, TRACK LIMIT.)
22127  M00S15491.pfm     +++| FLE      ERRMSG 2,(EQXXX,DNYY, FILE LENGTH ERROR.)
22128  M00S15492.pfm     +++| RIN      ERRMSG 2,(EQXXX,DNYY, RANDOM INDEX ERROR.)
22129  M00S15493.pfm     +++| DAF      ERRMSG 2,(EQXXX,DNYY, DIRECT ACCESS FILE ERROR.)
22130  M00S15494.pfm     +++| RPE      ERRMSG 2,(EQXXX,DNYY, REPLACE ERROR.)
Line S15495 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
22131  M01S15495.ns2415  ---| ABT      ERRMSG 2,( PFM ABORTED.)
Line S00297 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
22132  M01S00297.ns2415  +++| ABT      ERRMSG 2,(EQXXX,DNYY, PFM ABORTED.)
22133  M00S15496.pfm     +++| MSE      ERRMSG 2,(EQXXX,DNYY, MASS STORAGE ERROR.)
22134  M00S15497.pfm     +++| EDA      ERRMSG 1,( ERROR IN FILE DATA.)
22135  M00S15498.pfm     +++| EPT      ERRMSG 1,( ERROR IN PERMIT DATA.)
22136  M00S15499.pfm     +++| EDP      ERRMSG 1,( DATA/PERMIT ERRORS.)
22137  M00S15500.pfm     +++| FLC      ERRMSG 1,( EOI CHANGED BY RECOVERY.)
22138  M00S15501.pfm     +++| NEM      ERRMSG 3,(                              )
22139  M00S15502.pfm     +++| RS2      ERRMSG 1,()        RESERVED
22140  M00S15503.pfm     +++| RS3      ERRMSG 1,()        RESERVED
22141  M00S15504.pfm     +++| RS4      ERRMSG 1,()        RESERVED
Line S15505 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
22142  M01S15505.ns2415  ---| FSE      ERRMSG 1,( FILE BOI/EOI/UI MISMATCH.)
Line S00298 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
22143  M01S00298.ns2415  +++| FSE      ERRMSG 2,(EQXXX,DNYY, FILE BOI/EOI/UI MISMATCH.)
22144  M00S15506.pfm     +++| SSE      ERRMSG 2,(EQXXX,DNYY, SYSTEM SECTOR ERROR.)
22145  M00S15507.pfm     +++| BCS      ERRMSG 2,(EQXXX,DNYY, BAD CATALOG/PERMIT SECTOR.)
Line S00299 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
22146  M01S00299.ns2415  +++| TNR      ERRMSG 2,(EQXXX,DNYY, TRACK NOT RESERVED.)
22147  M00S15508.pfm     +++| PPE      ERRMSG 0,(PERMANENT ERROR.)
22148  M00S15509.pfm     +++| PSI      ERRMSG 0,(STAGE INITIATED.)
Line S15510 Modification History
M01 (Removed by) ns2722
Seq #  *Modification Id* Act 
----------------------------+
22149  M01S15510.ns2722  ---| PWE      ERRMSG 0,(WAITING ALTERNATE STORAGE EXEC.)
Line S00017 Modification History
M01 (Added by) ns2722
Seq #  *Modification Id* Act 
----------------------------+
22150  M01S00017.ns2722  +++| PWE      ERRMSG 0,(WAITING FOR SUBSYSTEM.)
22151  M00S15511.pfm     +++| FIN      ERRMSG 0,(INTERLOCKED.)
22152  M00S15512.pfm     +++| FDA      ERRMSG 0,(IS DIRECT ACCESS.)
22153  M00S15513.pfm     +++| FIA      ERRMSG 0,(IS INDIRECT ACCESS.)
22154  M00S15514.pfm     +++| FEO      ERRMSG 0,(IS EXECUTE ONLY.)
22155  M00S15515.pfm     +++| SGD      ERRMSG 1,( PF STAGING DISABLED.)
22156  M00S15516.pfm     +++| IPA      ERRMSG 1,( INCORRECT PFC ADDRESS.)
22157  M00S15517.pfm     +++| PVE      ERRMSG 1,( PFC VERIFICATION ERROR.)
22158  M00S15518.pfm     +++| FND      ERRMSG 1,( FILE NOT DISK RESIDENT.)
22159  M00S15519.pfm     +++| INA      ERRMSG 1,()  INTERLOCK NOT AVAILABLE (NO MESSAGE)
Line S15520 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22160  M01S15520.253l688 ---| AIO      ERRMSG 1,( ALTERNATE IMAGE OBSOLETE.)
Line S01095 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
22161  M01S01095.253l688 +++| AIO      ERRMSG 1,( NO ALTERNATE STORAGE COPY OF FILE.)
22162  M00S15521.pfm     +++| ASE      ERRMSG 1,( ALTERNATE STORAGE ERROR.)
22163  M00S15522.pfm     +++| FTF      ERRMSG 1,( FNT FULL.)
22164  M00S15523.pfm     +++| ICU      ERRMSG 1,( INCORRECT CATALOG UPDATE.)
22165  M00S15524.pfm     +++| PEA      ERRMSG 1,( PFM EXCESS ACTIVITY.)
22166  M00S15525.pfm     +++| NVX      ERRMSG 1,( NOT VALIDATED TO SET XD/XT.)
22167  M00S15526.pfm     +++| DEM      ERRMSG 1,( XD/XT EXCEEDS MAXIMUM.)
22168  M00S15527.pfm     +++| JCA      ERRMSG 1,( JOB CANNOT ACCESS FILE.)
22169  M00S15528.pfm     +++| LNJ      ERRMSG 1,( ACCESS LEVEL NOT VALID FOR JOB.)
22170  M00S15529.pfm     +++| WDP      ERRMSG 1,( WRITE-DOWN OF DATA PROHIBITED.)
22171  M00S15530.pfm     +++| CNJ      ERRMSG 1,( ACCESS CATEGORIES NOT VALID FOR JOB.)
22172  M00S15531.pfm     +++| LNP      ERRMSG 1,( ACCESS LEVEL NOT VALID ON PF DEVICE.)
22173  M00S15532.pfm     +++| NVD      ERRMSG 1,( NOT VALID TO DOWNGRADE DATA.)
22174  M00S15533.pfm     +++| NTD      ERRMSG 0,(- NO TEMP DEVICE FOUND.)
22175  M00S15534.pfm     +++| LNF      ERRMSG 1,( ACCESS LEVEL NOT VALID FOR FILE.)
22176  M00S15535.pfm     +++| TPE      ERRMSG 0,(TEMPORARY ERROR, TRY LATER.)
22177  M00S15536.pfm     +++| WNF      ERRMSG 1,( WAITING FOR NFL.)
Line S01908 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22178  M01S01908.242l642 +++| WID      ERRMSG 1,( WAITING - INACCESSIBLE DEVICE.)
22179  M01S01909.242l642 +++| RTR      ERRMSG 3,()  REQUEST BEING RETRIED BY PFM (NO MESSAGE)
Line S00019 Modification History
M01 (Added by) ns2631
Seq #  *Modification Id* Act 
----------------------------+
22180  M01S00019.ns2631  +++| ECD      ERRMSG 1,( ERROR IN CATLIST CONTINUATION DATA.)
22181  M01S00020.ns2631  +++|
22182  M00S15537.pfm     +++|          INDEX  MXER
22183  M00S15538.pfm     +++|
22184  M00S15539.pfm     +++|
22185  M00S15540.pfm     +++| ERRMSG   INDEX
22186  M00S15541.pfm     +++| ERRMT    HERE
22187  M00S15542.pfm     +++|          INDEX  MXER
22188  M00S15543.pfm     +++|
Line S15544 Modification History
M01 (Removed by) pfm39
Seq #  *Modification Id* Act 
----------------------------+
22189  M01S15544.pfm39   ---|          LIST   R
Line S00111 Modification History
M01 (Added by) pfm39
Seq #  *Modification Id* Act 
----------------------------+
22190  M01S00111.pfm39   +++|          LIST   *
22191  M00S15545.pfm     +++|
22192  M00S15546.pfm     +++|          USE    LITERALS
22193  M00S15547.pfm     +++|          SPACE  4,10
22194  M00S15548.pfm     +++|*         COMMON DECKS.
22195  M00S15549.pfm     +++|
22196  M00S15550.pfm     +++|
22197  M00S15551.pfm     +++|*CALL     COMPACS
22198  M00S15552.pfm     +++|*CALL     COMPCTI
22199  M00S15553.pfm     +++|*CALL     COMPC2D
22200  M00S15554.pfm     +++|*CALL     COMPSES
22201  M00S15555.pfm     +++|*CALL     COMPTGB
22202  M00S15556.pfm     +++|
22203  M00S15557.pfm     +++|
22204  M00S15558.pfm     +++|*         ACCOUNT FILE MESSAGE BUFFER.
22205  M00S15559.pfm     +++|
22206  M00S15560.pfm     +++| SVM      DATA   C*MPNF, *
22207  M00S15561.pfm     +++|          BSSZ   14
22208  M00S15562.pfm     +++|
22209  M00S15563.pfm     +++| SVMA     DATA   2H,         MESSAGE SEPARATOR
22210  M00S15564.pfm     +++|          CON    0           END OF STRING
22211  M00S15565.pfm     +++| SVMB     DATA   2H.         MESSAGE TERMINATOR
22212  M00S15566.pfm     +++|          CON    0
22213  M00S15567.pfm     +++|          SPACE  4,10
22214  M00S15568.pfm     +++| LOCF     EQU    *+5         ZERO LEVEL OVERLAY ADDRESS
22215  M00S15569.pfm     +++|          ERRNG  BFMS-LOCF-ZDFL   *0DF* OVERFLOW
22216  M00S15570.pfm     +++|          TITLE  OVERLAYABLE SUBROUTINES.
22217  M00S15571.pfm     +++| CAD      SPACE  4,10
22218  M00S15572.pfm     +++|**        CAD - CHECK FOR ACCESS DENIED.
22219  M00S15573.pfm     +++|*
22220  M00S15574.pfm     +++|*         ENTRY  (P1) = ERROR MESSAGE.
22221  M00S15575.pfm     +++|*                (PFPN) = OPTIONAL PACK NAME.
22222  M00S15576.pfm     +++|*                (PFOU) = ALTERNATE USER NAME.
22223  M00S15577.pfm     +++|*
22224  M00S15578.pfm     +++|*         EXIT   *MPNF* ACCOUNT FILE MESSAGE ISSUED ON *FNF* ERRORS.
22225  M00S15579.pfm     +++|*
22226  M00S15580.pfm     +++|*         CALLS  ACS, DFM, SFN.
22227  M00S15581.pfm     +++|*
22228  M00S15582.pfm     +++|*         USES   T1, FN - FN+4.
22229  M00S15583.pfm     +++|
22230  M00S15584.pfm     +++|
22231  M00S15585.pfm     +++| CAD      SUBR               ENTRY/EXIT
22232  M00S15586.pfm     +++|          LDD    P1
22233  M00S15587.pfm     +++|          LMN    /ERRMSG/FNF
22234  M00S15588.pfm     +++|          NJN    CADX        IF NOT * FILE NOT FOUND.*
22235  M00S15589.pfm     +++|          LDM    PFOU
22236  M00S15590.pfm     +++|          ZJN    CADX        IF NOT AN ALTERNATE USER
22237  M00S15591.pfm     +++|          LDD    MA          SAVE FN - FN+4
22238  M00S15592.pfm     +++|          CWD    FN
22239  M00S15593.pfm     +++|          CRM    CADA,ON
22240  M00S15594.pfm     +++|          LDM    PFFN        GET PERMANENT FILE NAME
22241  M00S15595.pfm     +++|          ZJN    CAD1        IF PF NAME NOT SPECIFIED
22242  M00S15596.pfm     +++|          LDN    PFFN-PFSN
22243  M00S15597.pfm     +++| CAD1     ADC    PFSN
22244  M00S15598.pfm     +++|          RJM    SFN
22245  M00S15599.pfm     +++|          LDC    SVM+3       INITIALIZE MESSAGE POINTER FOR ACS CALLS
22246  M00S15600.pfm     +++|          STD    T1
22247  M00S15601.pfm     +++|          LDN    FN          INSERT FILE NAME IN MESSAGE BUFFER
22248  M00S15602.pfm     +++|          RJM    ACS
22249  M00S15603.pfm     +++|          LDC    SVMA        APPEND COMMA SEPARATOR
22250  M00S15604.pfm     +++|          RJM    ACS
22251  M00S15605.pfm     +++|          LDC    PFOU        SET USER NAME IN MESSAGE BUFFER
22252  M00S15606.pfm     +++|          RJM    SFN
22253  M00S15607.pfm     +++|          LDN    FN
22254  M00S15608.pfm     +++|          RJM    ACS
22255  M00S15609.pfm     +++|          LDC    SVMA        APPEND COMMA SEPARATOR
22256  M00S15610.pfm     +++|          RJM    ACS
22257  M00S15611.pfm     +++|          LDM    PFPN        CHECK FOR PACK NAME
22258  M00S15612.pfm     +++|          ZJN    CAD2        IF NO PACK NAME
22259  M00S15613.pfm     +++|          LDC    PFPN        SET PACK NAME IN MESSAGE BUFFER
22260  M00S15614.pfm     +++|          RJM    SFN
22261  M00S15615.pfm     +++|          LDN    FN
22262  M00S15616.pfm     +++|          RJM    ACS
22263  M00S15617.pfm     +++| CAD2     LDC    SVMB        APPEND MESSAGE TERMINATOR
22264  M00S15618.pfm     +++|          RJM    ACS
22265  M00S15619.pfm     +++|          LDC    SVM+ACFN    ISSUE DAYFILE MESSAGE
22266  M00S15620.pfm     +++|          RJM    DFM
22267  M00S15621.pfm     +++|          LDC    CADA        RESTORE FILE NAME
22268  M00S15622.pfm     +++|          RJM    SFN
22269  M00S15623.pfm     +++|          LJM    CADX        RETURN
22270  M00S15624.pfm     +++|
22271  M00S15625.pfm     +++|
22272  M00S15626.pfm     +++| CADA     BSSZ   5           FILE NAME
22273  M00S15627.pfm     +++| CAI      SPACE  4,15
Line S15628 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22274  M01S15628.242l642 ---|**        CAI - CLEAR ALLOCATION INTERLOCKS.
Line S01910 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22275  M01S01910.242l642 +++|**        CAI - CLEAR ALLOCATION AND *DAPF* INTERLOCKS.
22276  M00S15629.pfm     +++|*
22277  M00S15630.pfm     +++|*         ENTRY  (EQ) = MASTER DEVICE EST ORDINAL.
22278  M00S15631.pfm     +++|*                (AILK) = CATALOG/PERMIT ALLOCATION INTERLOCK TRACK.
Line S01911 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22279  M01S01911.242l642 +++|*                (DAIF) = DIRECT ACCESS FILE INTERLOCK FLAG.
22280  M00S15632.pfm     +++|*                (IAIF) = INDIRECT ALLOCATION INTERLOCK FLAG.
Line S01912 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22281  M01S01912.242l642 +++|*                (PFEQ) = DIRECT ACCESS FILE EST ORDINAL.
22282  M01S01913.242l642 +++|*                (PFFT) = DIRECT ACCESS FILE FIRST TRACK.
22283  M00S15633.pfm     +++|*
22284  M00S15634.pfm     +++|*         EXIT   ALLOCATION INTERLOCKS CLEARED.
Line S01914 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22285  M01S01914.242l642 +++|*                DIRECT ACCESS FILE INTERLOCK CLEARED.
22286  M00S15635.pfm     +++|*
22287  M00S15636.pfm     +++|*         USES   T5.
22288  M00S15637.pfm     +++|*
22289  M00S15638.pfm     +++|*         CALLS  CTI.
22290  M00S15639.pfm     +++|
22291  M00S15640.pfm     +++|
22292  M00S15641.pfm     +++| CAI      SUBR               ENTRY/EXIT
22293  M00S15642.pfm     +++|          LDD    EQ
22294  M00S15643.pfm     +++|          ADC    4000        SET CHECKPOINT VIA *STBM*
22295  M00S15644.pfm     +++|          STD    T5
22296  M00S15645.pfm     +++|          LDM    AILK
22297  M00S15646.pfm     +++|          ZJN    CAI1        IF NO CATALOG/PERMIT ALLOCATION INTERLOCK
22298  M00S15647.pfm     +++|          RJM    CTI         CLEAR TRACK INTERLOCK
22299  M00S15648.pfm     +++| CAI1     LDM    IAIF
Line S15649 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22300  M01S15649.242l642 ---|          ZJN    CAIX        IF INDIRECT ALLOCATION INTERLOCK NOT SET
Line S01915 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22301  M01S01915.242l642 +++|          ZJN    CAI2        IF INDIRECT ALLOCATION INTERLOCK NOT SET
22302  M00S15650.pfm     +++|          LDM    DVLW
22303  M00S15651.pfm     +++|          RJM    CTI         CLEAR INDIRECT ALLOCATION INTERLOCK
Line S00218 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
22304  M01S00218.pfm54   +++|          LDN    0           CLEAR INDIRECT ALLOCATION INTERLOCK FLAG
22305  M01S00219.pfm54   +++|          STM    IAIF
Line S01916 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22306  M01S01916.242l642 +++| CAI2     LDM    DAIF
22307  M01S01917.242l642 +++|          ZJN    CAIX        IF DIRECT ACCESS FILE INTERLOCK NOT SET
22308  M01S01918.242l642 +++|          LDM    PFEQ
Line S01919 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2638
Seq #  *Modification Id* Act 
----------------------------+
22309  M02S01919.ns2638  ---|          ADC    4000        SET CHECKPOINT VIA *STBM*
Line S00001 Modification History
M01 (Added by) ns2638
Seq #  *Modification Id* Act 
----------------------------+
22310  M01S00001.ns2638  +++|          ADC    6000        CHECKPOINT + NO HANG ON UNRESERVED TRACK
Line S01920 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22311  M01S01920.242l642 +++|          STD    T5
22312  M01S01921.242l642 +++|          LDM    PFFT
22313  M01S01922.242l642 +++|          RJM    CTI         CLEAR DIRECT ACCESS FILE INTERLOCK
Line S15652 Modification History
M01 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
22314  M01S15652.pfm54   ---|          UJN    CAIX        RETURN
Line S00220 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
22315  M01S00220.pfm54   +++|          UJP    CAIX        RETURN
22316  M00S15653.pfm     +++| CEI      SPACE  4,15
22317  M00S15654.pfm     +++|**        CEI - CHECK FOR ERROR IDLE REQUIRED.
22318  M00S15655.pfm     +++|*
Line S15656 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22319  M01S15656.242l642 ---|*         ENTRY  (P1) = ERROR CODE.
Line S01923 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22320  M01S01923.242l642 +++|*         ENTRY  (P0) = ERROR IDLE FLAG.
22321  M01S01924.242l642 +++|*                (P1) = ERROR CODE.
22322  M00S15657.pfm     +++|*                (P2) = EST ORDINAL.
22323  M00S15658.pfm     +++|*
22324  M00S15659.pfm     +++|*         EXIT   ERROR IDLE STATUS SET ON DEVICE IF APPROPRIATE.
Line S01925 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
22325  M02S01925.ns2415  ---|*                (PSEE) = PRESET TO FORCE ERROR LOG MESSAGE IF
22326  M02S01926.ns2415  ---|*                         ERROR IDLE SET.
Line S00300 Modification History
M01 (Added by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
22327  M01S00300.ns2415  +++|*                (SEQF) = PRESET TO FORCE *EQXXX, ERROR IDLE SET.*
22328  M01S00301.ns2415  +++|*                         MESSAGE IF ERROR IDLE SET.
22329  M00S15660.pfm     +++|*
22330  M00S15661.pfm     +++|*         USES   T5.
22331  M00S15662.pfm     +++|*
22332  M00S15663.pfm     +++|*         CALLS  SES.
22333  M00S15664.pfm     +++|*
22334  M00S15665.pfm     +++|*         MACROS SMSTF.
22335  M00S15666.pfm     +++|
22336  M00S15667.pfm     +++|
22337  M00S15668.pfm     +++| CEI      SUBR               ENTRY/EXIT
Line S01927 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
22338  M01S01927.242l642 +++|          LDD    P0
Line S01928 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
22339  M02S01928.ns2415  ---|          NJN    CEI1        IF ERROR IDLE REQUESTED ON MESSAGE
Line S15669 Modification History
M01 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
22340  M01S15669.ns2415  ---|          LDD    P1          CHECK ERROR NEEDING ERROR IDLE
22341  M01S15670.ns2415  ---|          LMN    /ERRMSG/BCS
Line S15671 Modification History
M01 (Removed by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
22342  M02S15671.ns2415  ---|          ZJN    CEI1        IF *BAD CATALOG/PERMIT SECTOR.*
Line S15672 Modification History
M01 (Removed by) ns2266
M02 (Removed by) 242l642
M03 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
22343  M03S15672.ns2415  ---|          LMN    /ERRMSG/DTE&/ERRMSG/BCS
22344  M03S15673.ns2415  ---|          ZJN    CEI1        IF *DATA TRANSFER ERROR*
22345  M03S15674.ns2415  ---|          LMN    /ERRMSG/DAF&/ERRMSG/DTE
Line S00001 Modification History
M01 (Added by) ns2266
M02 (Removed by) 242l642
M03 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
22346  M03S00001.ns2415  ---|          LMN    /ERRMSG/DAF&/ERRMSG/BCS
Line S15675 Modification History
M01 (Removed by) 242l642
M02 (Removed by) ns2415
Seq #  *Modification Id* Act 
----------------------------+
22347  M02S15675.ns2415  ---|          ZJN    CEI1        IF *DIRECT ACCESS FILE ERROR*
22348  M02S15676.ns2415  ---|          LMN    /ERRMSG/FSE&/ERRMSG/DAF
22349  M02S15677.ns2415  ---|          ZJN    CEI1        IF *FILE BOI/EOI/UI MISMATCH*
22350  M02S15678.ns2415  ---|          LMN    /ERRMSG/FLE&/ERRMSG/FSE
22351  M02S15679.ns2415  ---|          ZJN    CEI1        IF *FILE LENGTH ERROR*
22352  M02S15680.ns2415  ---|          LMN    /ERRMSG/MSE&/ERRMSG/FLE
22353  M02S15681.ns2415  ---|          ZJN    CEI1        IF *MASS STORAGE ERROR*
22354  M02S15682.ns2415  ---|          LMN    /ERRMSG/SSE&/ERRMSG/MSE
22355  M02S15683.ns2415  ---|          NJN    CEIX        IF NOT *SYSTEM SECTOR ERROR*
Proceed to Part 16
cdc/nos2.source/opl.opl871/deck/pfm.015.txt ยท Last modified: by 127.0.0.1