Deck PFU Part 004

22 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00193 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06036  M01S00193.ns22000 +++|*         EXIT   TO *PPR*, AFTER *DPPM*.
06037  M01S00194.ns22000 +++|*                ERROR MESSAGE ISSUED TO DAYFILE.
06038  M00S05200.pfu     +++|*                FILE SET COMPLETE.
06039  M00S05201.pfu     +++|*                FET SET COMPLETE.
06040  M00S05202.pfu     +++|*                *PFU* ACTIVE FLAG CLEARED IN CENTRAL PROGRAM IF SET.
06041  M00S05203.pfu     +++|*
06042  M00S05204.pfu     +++|*         USES   CM+1.
06043  M00S05205.pfu     +++|*
06044  M00S05206.pfu     +++|*         CALLS  CAU, CFS, IDM, SFC.
06045  M00S05207.pfu     +++|*
06046  M00S05208.pfu     +++|*         MACROS MONITOR.
06047  M00S05209.pfu     +++|
06048  M00S05210.pfu     +++|
06049  M00S05211.pfu     +++|*ERP      SUBR               ENTRY/EXIT
06050  M00S05212.pfu     +++|          RJM    IDM         ISSUE DAYFILE MESSAGE
Line S05213 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06051  M01S05213.ns22000 ---|          LDM    ERRA        CHECK IF ERROR FLAG DETECTED
Line S00195 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06052  M01S00195.ns22000 +++|          LDD    P1          CHECK IF ERROR FLAG DETECTED
06053  M00S05214.pfu     +++|          LMN    ECEFD
06054  M00S05215.pfu     +++|          ZJN    ERP1        IF ERROR FLAG DETECTED
Line S00001 Modification History
M01 (Added by) pfu6
Seq #  *Modification Id* Act 
----------------------------+
06055  M01S00001.pfu6    +++|          LMN    ECRFD&ECEFD
06056  M01S00002.pfu6    +++|          ZJN    ERP1        IF ROLLOUT FLAG DETECTED
06057  M00S05216.pfu     +++|          LDN    PPET        SET PP ABORT ERROR FLAG
06058  M00S05217.pfu     +++|          STD    CM+1
06059  M00S05218.pfu     +++|          MONITOR  CEFM
06060  M00S05219.pfu     +++| ERP1     RJM    SFC         SET FILE COMPLETE
06061  M00S05220.pfu     +++|          RJM    CFS         COMPLETE FET STATUS
06062  M00S05221.pfu     +++|          RJM    CAU         CLEAR *PFU* ACTIVE FLAG
Line S05222 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06063  M01S05222.ns22000 ---|          UJN    ERPX        RETURN
Line S00196 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06064  M01S00196.ns22000 +++|          MONITOR  DPPM      DROP PP
06065  M01S00197.ns22000 +++|          LJM    PPR         EXIT TO PP RESIDENT
06066  M00S05223.pfu     +++|          TITLE  TABLE OF ERROR MESSAGES.
06067  M00S05224.pfu     +++| TOEM     SPACE  4,10
06068  M00S05225.pfu     +++|**        TOEM - TABLE OF ERROR MESSAGES.
06069  M00S05226.pfu     +++|*
06070  M00S05227.pfu     +++|*         ONE WORD ENTRIES INDEXED BY ERROR CODE.  ENTRY IS THE ADDRESS
06071  M00S05228.pfu     +++|*         OF THE ERROR MESSAGE IN *Z* CODE.  MESSAGES NOT TERMINATED
06072  M00S05229.pfu     +++|*         WITH A PERIOD WILL HAVE THE FILE NAME AND FET ADDRESS
06073  M00S05230.pfu     +++|*         APPENDED TO THEM.
06074  M00S05231.pfu     +++|
06075  M00S05232.pfu     +++|
06076  M00S05233.pfu     +++| TOEM     EQU    *           TABLE OF ERROR MESSAGES
06077  M00S05234.pfu     +++|          QUAL
06078  M00S05235.pfu     +++|          LOC    0
06079  M00S05236.pfu     +++| ECBAE    CON    =Z*BUFFER ARGUMENT ERROR ON *
06080  M00S05237.pfu     +++| ECBCW    CON    =Z*BUFFER CTL WORD ERROR ON *
06081  M00S05238.pfu     +++| ECCNF    CON    =Z*CATALOG TRACK NOT FOUND.*
06082  M00S05239.pfu     +++| ECDFN    CON    =Z*DUPLICATE FILE, *
06083  M00S05240.pfu     +++| ECDNF    CON    =Z*ALTERNATE DEVICE NOT FOUND.*
06084  M00S05241.pfu     +++| ECEFD    CON    =Z*CONTROL POINT ERROR FLAG DETECTED *
06085  M00S05242.pfu     +++| ECFNF    CON    =Z*FILE NOT FOUND, *
06086  M00S05243.pfu     +++| ECIAC    CON    =Z*TRACK INTERLOCK CLEAR ON *
06087  M00S05244.pfu     +++| ECIAS    CON    =Z*TRACK INTERLOCK SET ON *
06088  M00S05245.pfu     +++| ECIOS    CON    =Z*I/O SEQUENCE ERROR ON *
06089  M00S05246.pfu     +++| ECNDS    CON    =Z*NO DEVICE SPECIFIED.*
06090  M00S05247.pfu     +++| ECNSJ    CON    =Z*NOT SPECIAL SYSTEM JOB.*
06091  M00S05248.pfu     +++| ECPAR    CON    =Z*PARAMETER ERROR.*
Line S00007 Modification History
M01 (Added by) pfu3
Seq #  *Modification Id* Act 
----------------------------+
06092  M01S00007.pfu3    +++| ECRFD    CON    =Z*ROLLOUT FLAG DETECTED.*
Line S00027 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06093  M01S00027.274l797 +++| ECITD    CON    =Z*TDAM REQUEST ERROR.*
06094  M00S05249.pfu     +++|          LOC    *O
06095  M00S05250.pfu     +++|          QUAL   *
06096  M00S05251.pfu     +++|          TITLE  ERROR PROCESSOR SUBROUTINES.
06097  M00S05252.pfu     +++| IDM      SPACE  4,15
06098  M00S05253.pfu     +++|**        IDM - ISSUE DAYFILE MESSAGES.
06099  M00S05254.pfu     +++|*
Line S05255 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06100  M01S05255.ns22000 ---|*         ENTRY  (ERRA) = ERROR CODE.
Line S00198 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06101  M01S00198.ns22000 +++|*         ENTRY  (P1) = ERROR CODE.
06102  M00S05256.pfu     +++|*                (FN - FN+3) = FILE NAME.
06103  M00S05257.pfu     +++|*                (IR+3 - IR+4) = FET ADDRESS.
Line S05258 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06104  M01S05258.ns22000 ---|*                (CM - CM+4) = CONTENTS OF CONTROL POINT AREA WORD
06105  M01S05259.ns22000 ---|*                                *STSW*, IF ERROR CODE = *ECEFD*.
06106  M00S05260.pfu     ---|*
06107  M00S05261.pfu     ---|*         EXIT   ERROR MESSAGE ISSUED TO DAYFILE.
06108  M00S05262.pfu     ---|*
06109  M01S05263.ns22000 ---|*         USES   FN+3, T1, T2.
Line S00199 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06110  M01S00199.ns22000 +++|*         USES   FN+3, T1, CM - CM+4.
06111  M00S05264.pfu     +++|*
06112  M00S05265.pfu     +++|*         CALLS  ACS, ANS, DFM.
06113  M00S05266.pfu     +++|
06114  M00S05267.pfu     +++|
06115  M00S05268.pfu     +++| IDM      SUBR               ENTRY/EXIT
06116  M00S05269.pfu     +++|          LDC    STRB        SET STRING BUFFER ADDRESS
06117  M00S05270.pfu     +++|          STD    T1
06118  M00S05271.pfu     +++|          LDN    0           SET END OF LINE BYTE
06119  M00S05272.pfu     +++|          STI    T1
06120  M00S05273.pfu     +++|          LDC    =Z* PFU - * SET MESSAGE PREFIX
06121  M00S05274.pfu     +++|          RJM    ACS
Line S05275 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06122  M01S05275.ns22000 ---|          LDM    ERRA        APPEND ERROR MESSAGE
06123  M01S05276.ns22000 ---|          STD    T2
06124  M01S05277.ns22000 ---|          LDM    TOEM,T2
Line S00200 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06125  M01S00200.ns22000 +++|          LDM    TOEM,P1     APPEND ERROR MESSAGE
06126  M00S05278.pfu     +++|          RJM    ACS
06127  M00S05279.pfu     +++|          LDI    T1          CHECK LAST BYTE
06128  M00S05280.pfu     +++|          SHN    14
06129  M00S05281.pfu     +++|          NJN    IDM1        IF NOT END OF LINE BYTE
06130  M00S05282.pfu     +++|          LDM    -1,T1
06131  M00S05283.pfu     +++| IDM1     LPN    77          CHECK TERMINATOR
06132  M00S05284.pfu     +++|          LMN    1R.
06133  M00S05285.pfu     +++|          ZJN    IDM4        IF TERMINATED WITH PERIOD
Line S05286 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06134  M01S05286.ns22000 ---|          LDM    ERRA
06135  M01S05287.ns22000 ---|          LMC    ECEFD
Line S00201 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06136  M01S00201.ns22000 +++|          LDD    P1
06137  M01S00202.ns22000 +++|          LMK    ECEFD
06138  M00S05288.pfu     +++|          NJN    IDM2        IF NOT CPA ERROR FLAG DETECTION MESSAGE
06139  M01S00203.ns22000 +++|          LDD    CP          GET ERROR FLAG
06140  M01S00204.ns22000 +++|          ADK    STSW
06141  M01S00205.ns22000 +++|          CRD    CM
06142  M00S05289.pfu     +++|          LDD    CM+1        GET CPA ERROR FLAGS FROM *STSW*
06143  M00S05290.pfu     +++|          UJN    IDM3        APPEND TO MESSAGE
06144  M00S05291.pfu     +++|
06145  M00S05292.pfu     +++| IDM2     LDD    FN+3        CLEAR EIGHTH CHARACTER OF FILE NAME
06146  M00S05293.pfu     +++|          SCN    77
06147  M00S05294.pfu     +++|          STD    FN+3
06148  M00S05295.pfu     +++|          LDN    FN          APPEND FILE NAME
06149  M00S05296.pfu     +++|          RJM    ACS
06150  M00S05297.pfu     +++|          LDC    =Z* AT *    APPEND * AT *
06151  M00S05298.pfu     +++|          RJM    ACS
06152  M00S05299.pfu     +++|          LDD    IR+3        APPEND FET ADDRESS
06153  M00S05300.pfu     +++|          SHN    14
06154  M00S05301.pfu     +++|          LMD    IR+4
06155  M00S05302.pfu     +++| IDM3     RJM    ANS
06156  M00S05303.pfu     +++|          LDC    =Z*.*       APPEND *.*
06157  M00S05304.pfu     +++|          RJM    ACS
06158  M00S05305.pfu     +++| IDM4     LDC    STRB        ISSUE ERROR MESSAGE
06159  M00S05306.pfu     +++|          RJM    DFM
06160  M00S05307.pfu     +++|          LJM    IDMX        RETURN
06161  M00S05308.pfu     +++|          SPACE  4,10
06162  M00S05309.pfu     +++|*         COMMON DECKS.
06163  M00S05310.pfu     +++|
06164  M00S05311.pfu     +++|
06165  M00S05312.pfu     +++|*CALL     COMPACS
06166  M00S05313.pfu     +++|*CALL     COMPANS
06167  M00S05314.pfu     +++|          SPACE  4,10
06168  M00S05315.pfu     +++|*         BUFFERS.
06169  M00S05316.pfu     +++|
06170  M00S05317.pfu     +++|
06171  M00S05318.pfu     +++|          USE    BUFFERS
06172  M00S05319.pfu     +++| STRB     EQU    *           STRING BUFFER
06173  M00S05320.pfu     +++| STRBL    EQU    STRB+80D/2+1  LWA+1 OF STRING BUFFER
06174  M00S05321.pfu     +++|          ERRNG  7777-STRBL  STRING BUFFER OVERFLOW
06175  M00S05322.pfu     +++|          SPACE  4,10
06176  M00S05323.pfu     +++|          OVERFLOW  OVLA     CHECK FOR OVERLAY OVERFLOW
06177  M00S05324.pfu     +++|          SPACE  4,10
06178  M01S00206.ns22000 +++|          TTL    PFU - PF UTILITY PROCESSOR.
06179  M00S05325.pfu     +++|          END