Deck PFLOAD Part 001

34 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00838  M02S00002.pfloa19 ---|*         *THE RIGHT SCREEN LISTS YOUR OPTIONS.*
00839  M02S00003.pfloa19 ---|*         THE END OF A SET OF INCREMENTAL DUMP TAPES HAS BEEN
00840  M02S00004.pfloa19 ---|*         ENCOUNTERED AND THE *OP=V* OPTION HAS NOT BEEN SELECTED.
00841  M02S00005.pfloa19 ---|*         THE FOLLOWING CHOICES ARE DISPLAYED ON THE RIGHT SCREEN.

Seq #  *Modification Id* Act 
----------------------------+
00842  M01S00440.pfloa19 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00843  M02S00441.pfloa19 ---|*                IF THE OPERATOR RESPONDS WITH SOMETHING
00844  M02S00442.pfloa19 ---|*                OTHER THAN THE ABOVE CHOICES, THE MESSAGE
00845  M02S00443.pfloa19 ---|*                *ILLEGAL OPTION - REENTER* IS ISSUED TO THE
00846  M02S00444.pfloa19 ---|*                *K* DISPLAY.

Seq #  *Modification Id* Act 
----------------------------+
00847  M03S00138.pfloa19 ---|*         ENTER  E   TO TERMINATE LOADING.
00848  M03S00139.pfloa19 ---|*                L   TO LIST REMAINING FILES.
00849  M03S00140.pfloa19 ---|*                GO  TO RESUME INCREMENTAL LOAD.

Seq #  *Modification Id* Act 
----------------------------+
00850  M02S00006.pfloa19 ---|*                     TRANSITION OPTIONS

Seq #  *Modification Id* Act 
----------------------------+
00851  M02S00141.pfloa19 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00852  M03S00142.pfloa19 ---|*         IF THE OPERATOR RESPONDS WITH SOMETHING OTHER THAN THE

Seq #  *Modification Id* Act 
----------------------------+
00853  M04S00143.pfloa19 ---|*         ABOVE CHOICES, THE MESSAGE *ILLEGAL OPTION - REENTER* IS

Seq #  *Modification Id* Act 
----------------------------+
00854  M03S00008.pfloa19 ---|*         ABOVE CHOICES, THE MESSAGE *INCORRECT OPTION - REENTER* IS

Seq #  *Modification Id* Act 
----------------------------+
00855  M02S00007.pfloa19 ---|*         ENTER K.TO.
00856  M02S00008.pfloa19 ---|*
00857  M02S00009.pfloa19 ---|*         TO            DESCRIPTION
00858  M02S00010.pfloa19 ---|*
00859  M02S00011.pfloa19 ---|*         E         TERMINATE LOADING.
00860  M02S00012.pfloa19 ---|*         L         LIST REMAINING FILES.
00861  M02S00013.pfloa19 ---|*         GO        RESUME INCREMENTAL LOAD.
00862  M02S00014.pfloa19 ---|*
00863  M02S00015.pfloa19 ---|*         IF THE OPERATOR RESPONDS WITH SOMETHING OTHER THAN THE ABOVE
00864  M02S00016.pfloa19 ---|*         CHOICES, THE MESSAGE *INCORRECT OPTION - SEE RIGHT SCREEN*

Seq #  *Modification Id* Act 
----------------------------+
00865  M02S00144.pfloa19 ---|*         IS ISSUED TO THE *K* DISPLAY.

Seq #  *Modification Id* Act 
----------------------------+
00866  M01S00008.pfloa19 +++|*         *END OF LOAD FILE - SEE RIGHT SCREEN.*

Seq #  *Modification Id* Act 
----------------------------+
00867  M02S00009.286l859 ---|*         THE END OF AN INCREMENTAL LOAD FILE HAS BEEN ENCOUNTERED.
00868  M02S00010.286l859 ---|*         THE *K* DISPLAY RIGHT SCREEN DISPLAYS THE OPTIONS AVAILABLE
00869  M02S00011.286l859 ---|*         TO THE OPERATOR.  THESE INCLUDE TERMINATION OF THE LOAD,
00870  M02S00012.286l859 ---|*         LISTING THE REMAINING FILES FROM THE CATALOG IMAGE RECORD,
00871  M02S00013.286l859 ---|*         OR SPECIFICATION OF THE VSN OF THE NEXT TAPE IN THE
00872  M02S00014.286l859 ---|*         INCREMENTAL LOAD SEQUENCE.

Seq #  *Modification Id* Act 
----------------------------+
00873  M01S00445.286l859 ---|          SPACE  4,10
00874  M01S00446.286l859 ---|***       ERRLOG MESSAGES.
00875  M00S00447.pfload  ---|*
00876  M01S00448.286l859 ---|*         ANY OF THE ABOVE MESSAGES SENT TO THE ERRLOG AS WELL AS
00877  M01S00449.286l859 ---|*         TO THE DAYFILE, ARE REFORMATTED AS FOLLOWS -
00878  M01S00450.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00879  M02S00451.286l859 ---|*         *EQ_EE,DN_DD,SSSS--SSSS.*

Seq #  *Modification Id* Act 
----------------------------+
00880  M02S00145.286l859 ---|*         *EQ_EEE,DN_DD,SSSS--SSSS.*

Seq #  *Modification Id* Act 
----------------------------+
00881  M01S00452.286l859 ---|*
00882  M01S00453.286l859 ---|*         WHERE -
00883  M01S00454.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00884  M02S00455.286l859 ---|*         EE IS THE EQUIPMENT.

Seq #  *Modification Id* Act 
----------------------------+
00885  M02S00146.286l859 ---|*         EEE IS THE EST ORDINAL.

Seq #  *Modification Id* Act 
----------------------------+
00886  M01S00456.286l859 ---|*         DD IS THE DEVICE NUMBER.
00887  M01S00457.286l859 ---|*         SSSS--SSSS IS THE MESSAGE DESCRIPTION STRING STRIPPED OF
00888  M01S00458.286l859 ---|*                    ITS APPENDED PARAMETER LIST.
00889  M01S00459.286l859 ---|*
00890  M01S00460.286l859 ---|*         EXAMPLE -
00891  M01S00461.286l859 ---|*
00892  M01S00462.286l859 ---|*         THE DAYFILE MESSAGE -

Seq #  *Modification Id* Act 
----------------------------+
00893  M02S00463.286l859 ---|*         * PFLOAD - ERROR IDLE SET,FM=FFFFFFF,DN=DD,EQ=EE,...*

Seq #  *Modification Id* Act 
----------------------------+
00894  M02S00147.286l859 ---|*         * PFLOAD - ERROR IDLE SET,FM=FFFFFFF,DN_DD,EQ_EEE,...*

Seq #  *Modification Id* Act 
----------------------------+
00895  M01S00464.286l859 ---|*
00896  M01S00465.286l859 ---|*         BECOMES THE ERRLOG MESSAGE -

Seq #  *Modification Id* Act 
----------------------------+
00897  M02S00466.286l859 ---|*         *EQ_EE,DN_DD, PFLOAD - ERROR IDLE SET.*
00898  M02S00467.286l859 ---|*
00899  M02S00468.286l859 ---|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00900  M02S00148.286l859 ---|*         *EQ_EEE,DN_DD,PFLOAD - ERROR IDLE SET.*

Seq #  *Modification Id* Act 
----------------------------+
00901  M01S00179.286l859 +++|*                THE END OF AN INCREMENTAL LOAD FILE HAS BEEN
00902  M01S00180.286l859 +++|*                ENCOUNTERED.  THE *K* DISPLAY RIGHT SCREEN DISPLAYS
00903  M01S00181.286l859 +++|*                THE OPTIONS AVAILABLE TO THE OPERATOR.  THESE INCLUDE
00904  M01S00182.286l859 +++|*                TERMINATION OF THE LOAD, LISTING THE REMAINING FILES
00905  M01S00183.286l859 +++|*                FROM THE CATALOG IMAGE RECORD, OR SPECIFICATION OF THE
00906  M01S00184.286l859 +++|*                VSN OF THE NEXT TAPE IN THE INCREMENTAL LOAD SEQUENCE.

Seq #  *Modification Id* Act 
----------------------------+
00907  M01S00149.ns22000 +++| COMMON   SPACE  4,10
00908  M01S00150.ns22000 +++|**        COMMON DECKS.
00909  M01S00151.ns22000 +++|
00910  M01S00152.ns22000 +++|
00911  M00S00469.pfload  +++|*CALL     COMCCMD

Seq #  *Modification Id* Act 
----------------------------+
00912  M01S00017.241l630 +++|*CALL     COMCDCM
00913  M00S00470.pfload  +++|*CALL     COMCMAC
00914  M00S00471.pfload  +++|          QUAL   COMSACC
00915  M00S00472.pfload  +++|*CALL     COMSACC
00916  M00S00473.pfload  +++|          QUAL   *

Seq #  *Modification Id* Act 
----------------------------+
00917  M01S00008.ns2697  +++|*CALL     COMSCPS

Seq #  *Modification Id* Act 
----------------------------+
00918  M01S00153.ns22000 +++|*CALL     COMSDSP
00919  M00S00474.pfload  +++|*CALL     COMSLFD
00920  M00S00475.pfload  +++|*CALL     COMSLFM
00921  M01S00154.ns22000 +++|*CALL     COMSMLS
00922  M00S00476.pfload  +++|*CALL     COMSMST
00923  M00S00477.pfload  +++|          QUAL   MTX
00924  M00S00478.pfload  +++|*CALL     COMSMTX
00925  M00S00479.pfload  +++|          QUAL   *
00926  M00S00480.pfload  +++|*CALL     COMSPFM

Seq #  *Modification Id* Act 
----------------------------+
00927  M01S00015.253l688 +++|          LIST   X
00928  M00S00481.pfload  +++|*CALL     COMSPFS
00929  M01S00016.253l688 +++|          LIST   *
00930  M00S00482.pfload  +++|*CALL     COMSPFU
00931  M00S00483.pfload  +++|*CALL     COMSPRD

Seq #  *Modification Id* Act 
----------------------------+
00932  M01S00185.286l859 +++|*CALL     COMSRPV

Seq #  *Modification Id* Act 
----------------------------+
00933  M01S00155.ns22000 +++|*CALL     COMSSFM

Seq #  *Modification Id* Act 
----------------------------+
00934  M01S00484.286l859 ---|          TITLE  MACROS.

Seq #  *Modification Id* Act 
----------------------------+
00935  M02S00485.286l859 ---|**        MACROS.

Seq #  *Modification Id* Act 
----------------------------+
00936  M03S00156.286l859 ---|*         MACROS.

Seq #  *Modification Id* Act 
----------------------------+
00937  M02S00486.286l859 ---| BOOL     SPACE  4,30
00938  M02S00487.286l859 ---|**        BOOL - BOOLEAN EXPRESSION DEFINITION.
00939  M02S00488.286l859 ---|*
00940  M02S00489.286l859 ---|*         BOOL   BEXP
00941  M02S00490.286l859 ---|*
00942  M02S00491.286l859 ---|*         BEXP = BOOLEAN EXPRESSION.
00943  M02S00492.286l859 ---|*              = BT1.
00944  M02S00493.286l859 ---|*                OR (BT1,BT2,...).  (COMMAS INDICATE THE LOGICAL .OR.
00945  M02S00494.286l859 ---|*                OPERATION.)
00946  M02S00495.286l859 ---|*         BT1,BT2,... = BOOLEAN TERMS.
00947  M02S00496.286l859 ---|*                     = BE1.
00948  M02S00497.286l859 ---|*                       OR (BE1,BE2,...).  (COMMAS INDICATE THE
00949  M02S00498.286l859 ---|*                       LOGICAL .AND. OPERATION.)
00950  M02S00499.286l859 ---|*         BE1,BE2,... = BOOLEAN ELEMENTS.
00951  M02S00500.286l859 ---|*                     = CEXP = ABSOLUTE EVALUATABLE COMPASS EXPRESSION
00952  M02S00501.286l859 ---|*                       (PREVIOUSLY DEFINED SYMBOLS ONLY).
00953  M02S00502.286l859 ---|*
00954  M02S00503.286l859 ---|*                THE COMPASS EXPRESSIONS (*CEXP*) ARE USED TO REPRESENT
00955  M02S00504.286l859 ---|*         BOOLEAN VARIABLES.  THE ABSOLUTE VALUE OF AN EXPRESSION
00956  M02S00505.286l859 ---|*         INDICATES A BIT NUMBER WITHIN A 60 BIT WORD WHICH REPRESENTS
00957  M02S00506.286l859 ---|*         A DESIRED BOOLEAN VARIABLE.  IF AN EXPRESSION IS NEGATIVE THE
00958  M02S00507.286l859 ---|*         VARIABLE WILL BE COMPLEMENTED BEFORE IT IS USED.  IN NORMAL
00959  M02S00508.286l859 ---|*         USAGE AN EXPRESSION WOULD SIMPLY BE A SYMBOL FOR AN
00960  M02S00509.286l859 ---|*         UNCOMPLEMENTED VARIABLE AND A SYMBOL PRECEEDED BY A MINUS
00961  M02S00510.286l859 ---|*         SIGN FOR A COMPLEMENTED VARIABLE.  PRECEEDING THE CALL TO THE
00962  M02S00511.286l859 ---|*         *BOOL* MACRO THE SYMBOL WOULD BE EQUATED TO THE BIT NUMBER
00963  M02S00512.286l859 ---|*         WHICH IS TO REPRESENT THE VARIABLE.
00964  M02S00513.286l859 ---|*
00965  M02S00514.286l859 ---|*                THE FOLLOWING EXAMPLE CLARIFIES THE USE OF THE *BOOL*
00966  M02S00515.286l859 ---|*         MACRO.  ASSUME THAT THE *EXCLUSIVE OR* FUNCTION OF TWO
00967  M02S00516.286l859 ---|*         VARIABLES IS TO BE REPRESENTED.  A FORTRAN EXPRESSION FOR
00968  M02S00517.286l859 ---|*         THIS OPERATION WOULD BE AS FOLLOWS.
00969  M02S00518.286l859 ---|*
00970  M02S00519.286l859 ---|*         C = (A .AND. B) .OR. (.NOT. A .AND. .NOT. B)
00971  M02S00520.286l859 ---|*
00972  M02S00521.286l859 ---|*         THE FORTRAN REPRESENTATION OF THE *EXCLUSIVE OR* FUNCTION
00973  M02S00522.286l859 ---|*         SHOWN ABOVE WOULD BE IMPLEMENTED USING THE *BOOL* MACRO
00974  M02S00523.286l859 ---|*         AS FOLLOWS.
00975  M02S00524.286l859 ---|*
00976  M02S00525.286l859 ---|* A       EQU    0           USE BIT ZERO FOR VARIABLE *A*
00977  M02S00526.286l859 ---|* B       EQU    1           USE BIT ONE FOR VARIABLE *B*
00978  M02S00527.286l859 ---|* C       BOOL   ((A,B),(-A,-B))
00979  M02S00528.286l859 ---|*
00980  M02S00529.286l859 ---|*         THE CODE GENERATED AT ADDRESS *C* WOULD BE THE INTERNAL
00981  M02S00530.286l859 ---|*         REPRESENTATION OF THE *EXCLUSIVE OR* FUNCTION.
00982  M02S00531.286l859 ---|*
00983  M02S00532.286l859 ---|*                EACH BOOLEAN TERM (2 IN THIS EXAMPLE) OF AN EXPRESSION
00984  M02S00533.286l859 ---|*         GENERATES TWO WORDS OF CODE.  THE FIRST WORD IS A VARIABLE
00985  M02S00534.286l859 ---|*         SELECT MASK WHICH HAS A BIT SET FOR EACH VARIABLE APPEARING
00986  M02S00535.286l859 ---|*         IN THE TERM.  THE SECOND WORD IS A VARIABLE COMPLEMENT MASK
00987  M02S00536.286l859 ---|*         WHICH HAS A BIT SET FOR EACH VARIABLE THAT APPEARS IN THE
00988  M02S00537.286l859 ---|*         TERM IN UNCOMPLEMENTED FORM.  THE CODE GENERATED BY THE
00989  M02S00538.286l859 ---|*         *BOOL* MACRO IS TERMINATED BY A ZERO WORD.  THE INTERNAL
00990  M02S00539.286l859 ---|*         CODE PRODUCED BY THE *EXCLUSIVE OR* EXAMPLE WOULD BE.
00991  M02S00540.286l859 ---|*
00992  M02S00541.286l859 ---|* C       VFD    58/0,1/1,1/1  *A* AND *B* SELECTED
00993  M02S00542.286l859 ---|*         VFD    58/0,1/1,1/1  *A* AND *B* NOT COMPLEMENTED
00994  M02S00543.286l859 ---|*         VFD    58/0,1/1,1/1  *A* AND *B* SELECTED
00995  M02S00544.286l859 ---|*         VFD    58/0,1/0,1/0  *A* AND *B* COMPLEMENTED
00996  M02S00545.286l859 ---|*         VFD    60/0          TERMINATION FLAG
00997  M02S00546.286l859 ---|
00998  M02S00547.286l859 ---|
00999  M02S00548.286l859 ---|          PURGMAC BOOL
01000  M02S00549.286l859 ---| BOOL     MACRO  PAR
01001  M02S00550.286l859 ---|          IRP    PAR
01002  M02S00551.286l859 ---| .2       MICRO  1,, 0
01003  M02S00552.286l859 ---| .3       MICRO  1,,
01004  M02S00553.286l859 ---| TERM     ECHO   0,P=(PAR)
01005  M02S00554.286l859 ---| .1       SET    P
01006  M02S00555.286l859 ---| SIGN     IFPL   .1
01007  M02S00556.286l859 ---| .1       DECMIC .1
01008  M02S00557.286l859 ---| .2       MICRO  1,, ".2"+1S".1"
01009  M02S00558.286l859 ---| SIGN     ELSE
01010  M02S00559.286l859 ---| .1       DECMIC -.1
01011  M02S00560.286l859 ---| .3       MICRO  1,, ".3"+1S".1"
01012  M02S00561.286l859 ---| SIGN     ENDIF
01013  M02S00562.286l859 ---| TERM     ENDD
01014  M02S00563.286l859 ---|          CON    ".2"".3"
01015  M02S00564.286l859 ---|          CON    ".2"
01016  M02S00565.286l859 ---|          IRP
01017  M02S00566.286l859 ---|          CON    0

Seq #  *Modification Id* Act 
----------------------------+
01018  M03S00567.286l859 ---|          ENDM

Seq #  *Modification Id* Act 
----------------------------+
01019  M03S00157.286l859 ---| BOOL     ENDM

Seq #  *Modification Id* Act 
----------------------------+
01020  M02S00568.286l859 ---| COMPFET  SPACE  4,10
01021  M02S00569.286l859 ---|**        COMPFET - COMPLETE FETS.
01022  M02S00570.286l859 ---|*
01023  M02S00571.286l859 ---|*         COMPFET  (PAR)
01024  M02S00572.286l859 ---|*
01025  M02S00573.286l859 ---|*         PAR = LIST OF FET ADDRESSES TO SET COMPLETE.
01026  M02S00574.286l859 ---|*
01027  M02S00575.286l859 ---|*         USES   X - 1, 2, 6.
01028  M02S00576.286l859 ---|*                A - 1, 6.
01029  M02S00577.286l859 ---|
01030  M02S00578.286l859 ---|
01031  M02S00579.286l859 ---|          PURGMAC  COMPFET
01032  M02S00580.286l859 ---| COMPFET  MACRO  PAR
01033  M02S00581.286l859 ---|          SX2    B1
01034  M02S00582.286l859 ---|          IRP    PAR
01035  M02S00583.286l859 ---|          SA1    PAR
01036  M02S00584.286l859 ---|          BX6    X1+X2
01037  M02S00585.286l859 ---|          SA6    A1
01038  M02S00586.286l859 ---|          IRP

Seq #  *Modification Id* Act 
----------------------------+
01039  M03S00587.286l859 ---|          ENDM

Seq #  *Modification Id* Act 
----------------------------+
01040  M03S00158.286l859 ---| COMPFET  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01041  M01S00588.286l859 ---| CWREAD   SPACE  4,20
01042  M01S00589.286l859 ---|**        CWREAD - CONTROL WORD READ WORDS.
01043  M01S00590.286l859 ---|*
01044  M01S00591.286l859 ---|*         CWREAD FET,BUF,BUFL
01045  M01S00592.286l859 ---|*
01046  M01S00593.286l859 ---|*         FET = FET ADDRESS FOR FILE.
01047  M01S00594.286l859 ---|*         BUF = WORKING BUFFER ADDRESS.
01048  M01S00595.286l859 ---|*         BUFL = LENGTH OF WORKING BUFFER.
01049  M01S00596.286l859 ---|*
01050  M01S00597.286l859 ---|*         *BUFL* WORDS ARE TRANSFERRED FROM THE CIRCULAR BUFFER TO THE
01051  M01S00598.286l859 ---|*         WORKING BUFFER *BUF*.  BUFFER CONTROL WORDS ARE REMOVED AS
01052  M01S00599.286l859 ---|*         NECESSARY.
01053  M01S00600.286l859 ---|*
01054  M01S00601.286l859 ---|*         USES   X - 2.
01055  M01S00602.286l859 ---|*                B - 6, 7.
01056  M01S00603.286l859 ---|*
01057  M01S00604.286l859 ---|*         CALLS  CWR.
01058  M01S00605.286l859 ---|
01059  M01S00606.286l859 ---|
01060  M01S00607.286l859 ---|          PURGMAC CWREAD
01061  M01S00608.286l859 ---| CWREAD   MACRO  FET,BUF,BUFL

Seq #  *Modification Id* Act 
----------------------------+
01062  M02S00017.286l859 ---|          MACREF CWREAD

Seq #  *Modification Id* Act 
----------------------------+
01063  M01S00609.286l859 ---|          R=     B6,BUF
01064  M01S00610.286l859 ---|          R=     B7,BUFL
01065  M01S00611.286l859 ---|          R=     X2,FET
01066  M01S00612.286l859 ---|          RJ     CWR

Seq #  *Modification Id* Act 
----------------------------+
01067  M02S00613.286l859 ---|          ENDM

Seq #  *Modification Id* Act 
----------------------------+
01068  M02S00159.286l859 ---| CWREAD   ENDM

Seq #  *Modification Id* Act 
----------------------------+
01069  M01S00186.286l859 +++|*CALL     COMSVER

Seq #  *Modification Id* Act 
----------------------------+
01070  M01S00614.253l688 ---| EDITS    SPACE  4,20
01071  M01S00615.253l688 ---|**        EDITS - EDIT MESSAGE STRING.
01072  M01S00616.253l688 ---|*
01073  M01S00617.253l688 ---|*         EDITS  S,T
01074  M01S00618.253l688 ---|*
01075  M01S00619.253l688 ---|*         S = ADDRESS OF MESSAGE PARAMETER SKELETON TO BE EDITED.
01076  M01S00620.253l688 ---|*         T = MESSAGE DESCRIPTION STRING ADDRESS (0 OR BLANK IF NONE).
01077  M01S00621.253l688 ---|*
01078  M01S00622.253l688 ---|*         USES   X - 6.
01079  M01S00623.253l688 ---|*                B - 6.
01080  M01S00624.253l688 ---|*
01081  M01S00625.253l688 ---|*         CALLS  EDS.
01082  M01S00626.253l688 ---|
01083  M01S00627.253l688 ---|
01084  M01S00628.253l688 ---|          PURGMAC EDITS
01085  M01S00629.253l688 ---| EDITS    MACRO  S,T
01086  M01S00630.253l688 ---|          R=     B6,S
01087  M01S00631.253l688 ---| .1       IFC    NE,$T$$
01088  M01S00632.253l688 ---|          R=     X6,T
01089  M01S00633.253l688 ---| .1       ELSE
01090  M01S00634.253l688 ---|          SX6    B0+
01091  M01S00635.253l688 ---| .1       ENDIF
01092  M01S00636.253l688 ---|          RJ     EDS         EDIT STRING

Seq #  *Modification Id* Act 
----------------------------+
01093  M02S00637.253l688 ---|          ENDM
01094  M02S00638.253l688 ---|          TITLE  PROGRAM CONSTANTS
01095  M02S00639.253l688 ---|**        PROGRAM CONSTANTS
01096  M02S00640.253l688 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01097  M02S00160.253l688 ---| EDITS    ENDM

Seq #  *Modification Id* Act 
----------------------------+
01098  M01S00161.ns22000 +++|          TITLE  PROGRAM CONSTANTS.
01099  M01S00162.ns22000 +++|*         PROGRAM CONSTANTS.
01100  M00S00641.pfload  +++|

Seq #  *Modification Id* Act 
----------------------------+
01101  M01S00187.286l859 +++| NDEV     EQU    10B         MAXIMUM NUMBER OF MASTER DEVICES ON *CIR*
01102  M01S00188.286l859 +++| NWCD     EQU    201B        NUMBER WORDS/CIR DIRECTORY
01103  M00S00642.pfload  +++|

Seq #  *Modification Id* Act 
----------------------------+
01104  M01S00643.ns22000 ---| FCEC     EQU    4           FILE ERROR CODE FIELD
01105  M01S00644.ns22000 ---| FEDT     EQU    1           FILE DATA ERROR CODE
01106  M01S00645.ns22000 ---| FEPM     EQU    2           FILE PERMIT ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
01107  M01S00163.ns22000 +++|*         BUFFER LENGTHS.
01108  M01S00164.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
01109  M01S00646.274l797 ---| MBUFL    EQU    4041B       MAIN BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01110  M01S00001.274l797 +++| MBUFL    EQU    30061B      MAIN BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01111  M01S00647.286l859 ---| CBUFL    EQU    101B*20+1   CATALOG BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01112  M01S00189.286l859 +++| MXCBS    EQU    20          MAXIMUM CATALOG BUFFER SECTOR COUNT
01113  M01S00190.286l859 +++| CBUFL    EQU    101B*MXCBS+1   CATALOG BUFFER LENGTH
01114  M00S00648.pfload  +++| PBUFL    EQU    101B*20+1   PERMIT BUFFER LENGTH
01115  M00S00649.pfload  +++| DBUFL    EQU    6001B       DATA BUFFER LENGTH
01116  M00S00650.pfload  +++| OUTBL    EQU    1001B       OUTPUT BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01117  M01S00651.253l688 ---| TLBFL    EQU    NWTL        TAPE LABEL BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01118  M01S00018.253l688 +++| TLBFL    EQU    /COMSPFS/AFLBL  TAPE LABEL BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01119  M01S00652.ns22000 ---| MSTTL    EQU    2*NMSD+2    *MST* TABLE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01120  M02S00165.286l859 ---| MSTTL    EQU    2*MSMX+2    MST TABLE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01121  M01S00653.253l688 ---| EDBFL    EQU    9           EDIT STRING BUFFER LENGTH
01122  M01S00654.253l688 ---| FLBFL    EQU    100B/NWCE*200  FILE LIST BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01123  M02S00019.ns2697  ---| FLBFL    EQU    100B/NWCE*1000  FILE LIST BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01124  M01S00009.ns2697  +++| FLBFL    EQU    100B/NWCE*2000  FILE LIST BUFFER LENGTH
01125  M00S00655.pfload  +++| FLCBL    EQU    1001B       FILE LIST CIRCULAR BUFFER LENGTH
01126  M00S00656.pfload  +++| CWBFL    EQU    1           CONTROL WORD BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01127  M01S00191.286l859 +++| MSFBL    EQU    10001B      *COMCMSF* SORT FILES BUFFER LENGTH
01128  M01S00192.286l859 +++| PFLBL    EQU    1001B       PROCESSED FILES FILE BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01129  M01S00020.253l688 +++| SABFL    EQU    1000B       SUMMARY FILE ASSEMBLY BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01130  M01S00193.286l859 +++| SRTBL    EQU    20000B      SORT BUFFER LENGTH
01131  M00S00657.pfload  +++| SSBFL    EQU    100B        SYSTEM SECTOR BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01132  M01S00021.253l688 +++| SUMBL    EQU    1001B       SUMMARY FILE BUFFER LENGTH
01133  M00S00658.pfload  +++| TDBFL    EQU    511         TEMPORARY DATA BUFFER LENGTH
01134  M00S00659.pfload  +++| CIBFL    EQU    3001B       CATALOG IMAGE BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01135  M01S00194.286l859 +++| CIRTL    EQU    NWCD*NDEV+1 *CIR* CATALOG TRACK DIRECTORY LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01136  M01S00022.253l688 +++| LBUFL    EQU    1001B       LIST CIR ENTRIES OUTPUT BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01137  M01S00010.ns2697  +++| PFMBL    EQU    NWCE+1      *PFM* CATLIST BUFFER LENGTH
01138  M00S00660.pfload  +++| DSPBL    EQU    7           *DSP* PARAMETER BLOCK LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01139  M01S00002.274l797 +++| ODEBL    EQU    20B         OPTICAL DISK EXTENSION BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01140  M01S00166.ns22000 +++|
01141  M01S00167.ns22000 +++|*         MISCELLANEOUS CONSTANTS.
01142  M01S00168.ns22000 +++|
01143  M01S00169.ns22000 +++| CWSW     EQU    5           CONTROL WORD STATUS WORD IN FET
01144  M01S00170.ns22000 +++| FEDT     EQU    1           FILE DATA ERROR CODE
01145  M01S00171.ns22000 +++| FEPM     EQU    2           FILE PERMIT ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
01146  M01S00661.286l859 ---| NDEV     EQU    10B         NUMBER CATALOG IMAGE DEVICES
01147  M01S00662.286l859 ---| NWCD     EQU    201B        NUMBER WORDS/CIR DIRECTORY
01148  M00S00663.pfload  ---| DLSS     EQU    4           DATA LINKAGE SYSTEM SECTOR CODE
01149  M00S00664.pfload  ---| DLEI     EQU    2           DATA LINKAGE EOI CODE
01150  M00S00665.pfload  ---| DLEF     EQU    1           DATA LINKAGE EOF CODE

Seq #  *Modification Id* Act 
----------------------------+
01151  M01S00195.286l859 +++| NCES     EQU    100B/NWCE   NUMBER OF CATALOG ENTRIES PER SECTOR

Seq #  *Modification Id* Act 
----------------------------+
01152  M02S00172.286l859 ---| PELM     EQU    77B         CONSECUTIVE PARITY ERROR LIMIT

Seq #  *Modification Id* Act 
----------------------------+
01153  M01S00173.ns22000 +++|
01154  M01S00174.ns22000 +++|*         *COMSPFS* EQUIVALENCES.
01155  M01S00175.ns22000 +++|
01156  M00S00666.pfload  +++| CPAR     EQU    /COMSPFS/CPL
01157  M00S00667.pfload  +++| IDSA     EQU    /COMSPFS/PADR
01158  M00S00668.pfload  +++| LBWD     EQU    /COMSPFS/LBWD

Seq #  *Modification Id* Act 
----------------------------+
01159  M02S00176.286l859 ---| CPPP     EQU    /COMSPFS/PPPT
01160  M02S00177.286l859 ---| LNPP     EQU    CPPP+/COMSPFS/PPLN  LINE NUMBER
01161  M02S00178.286l859 ---| PDFE     EQU    CPPP+/COMSPFS/PPPD  PRINT DENSITY FORMAT EFFECTOR
01162  M00S00669.pfload  ---|

Seq #  *Modification Id* Act 
----------------------------+
01163  M01S00179.ns22000 +++|*         *SETPFP*/*GETPFP* FLAG CONSTANTS.
01164  M01S00180.ns22000 +++|
01165  M00S00670.pfload  +++| FMPR     EQU    10B         FAMILY NAME PARAMETER FLAG
01166  M00S00671.pfload  +++| PKPR     EQU    4           PACKNAME PARAMETER FLAG

Seq #  *Modification Id* Act 
----------------------------+
01167  M01S00672.ns22000 ---| UNPR     EQU    2           USER NUMBER PARAMETER FLAG

Seq #  *Modification Id* Act 
----------------------------+
01168  M01S00181.ns22000 +++| UNPR     EQU    2           USER NAME PARAMETER FLAG
01169  M00S00673.pfload  +++| UIPR     EQU    1           USER INDEX PARAMETER FLAG

Seq #  *Modification Id* Act 
----------------------------+
01170  M01S00674.ns22000 ---| FRDC     EQU    20B         *DSP* DISPOSITION CODE FLAG
01171  M01S00675.ns22000 ---| ERP1$    EQU    1           SELECT *COMCCIO* ERROR PROCESSING OPTION
01172  M01S00676.ns22000 ---| PELM     EQU    77B         CONSECUTIVE PARITY ERROR LIMIT
01173  M01S00677.ns22000 ---|          EJECT

Seq #  *Modification Id* Act 
----------------------------+
01174  M01S00182.ns22000 +++|          TITLE  RESERVED LOCATIONS.
01175  M00S00678.pfload  +++|          ORG    /COMSPFS/OVLB
01176  M00S00679.pfload  +++|
01177  M00S00680.pfload  +++|

Seq #  *Modification Id* Act 
----------------------------+
01178  M01S00681.ns22000 ---|*         RESERVED LOCATIONS

Seq #  *Modification Id* Act 
----------------------------+
01179  M01S00183.ns22000 +++|*         RESERVED LOCATIONS.
01180  M00S00682.pfload  +++|
01181  M00S00683.pfload  +++|
01182  M00S00684.pfload  +++| PFLRL    BSS    0
01183  M00S00685.pfload  +++|

Seq #  *Modification Id* Act 
----------------------------+
01184  M01S00686.ns22000 ---|*PDWD     42/PN,6/EQ,12/0
01185  M01S00687.ns22000 ---|*         PN = PACKNAME FOR AN AUXILIARY DEVICE.
01186  M01S00688.ns22000 ---|*            = 0 FOR A FAMILY DEVICE.
01187  M01S00689.ns22000 ---|*         EQ = EQUIPMENT NUMBER OF A FAMILY DEVICE.
01188  M01S00690.ns22000 ---|*            = 0 FOR AN AUXILIARY DEVICE.
01189  M00S00691.pfload  ---|
01190  M01S00692.ns22000 ---| PDWD     BSS    1           PF DESCRIPTION WORD
01191  M01S00693.ns22000 ---| MAEQ     BSSZ   1           MASTER EQUIPMENT NUMBER
01192  M01S00694.ns22000 ---| MASK     BSSZ   1           P.F. EQUIPMENT MASK
01193  M01S00695.ns22000 ---| MMSK     BSSZ   1           CURRENT MASTER MASK
01194  M01S00696.ns22000 ---| MDDS     BSSZ   1           MASTER DEVICE DESCRIPTION (SEE TMDD)
01195  M01S00697.ns22000 ---| LENA     BSSZ   1           LENGTH ACCUMULATOR
01196  M01S00698.ns22000 ---| CCTR     BSSZ   1           CURRENT CATALOG TRACK
01197  M01S00699.ns22000 ---| CEWF     BSS    1           CATALOG ENTRIES WRITTEN FLAG
01198  M01S00700.ns22000 ---| CSWC     BSS    1           CATALOG SECTOR WORD COUNT
01199  M01S00701.ns22000 ---| FLOF     BSS    1           FILE LIST OVERFLOW FLAG
01200  M01S00702.ns22000 ---| FLPT     BSS    1           FILE LIST POINTER
01201  M01S00703.ns22000 ---| BFCA     BSS    1           BAD FILE CATALOG ADDRESS
01202  M01S00704.ns22000 ---| DAEQ     BSSZ   1           DAF EQUIPMENT NUMBER
01203  M01S00705.ns22000 ---| SACD     BSS    1           SKELETON ADDRESS FOR CATALOG DESCRIPTION
01204  M01S00706.ns22000 ---| SADD     BSS    1           SKELETON ADDRESS FOR DEVICE DESCRIPTION
01205  M01S00707.ns22000 ---| SKER     BSSZ   1           SKIP TO EOR FLAG
01206  M01S00708.ns22000 ---| PECT     BSSZ   1           CONSECUTIVE PARITY ERROR COUNT
01207  M01S00709.ns22000 ---| PFCO     BSS    1           PFC ONLY FLAG

Seq #  *Modification Id* Act 
----------------------------+
01208  M01S00184.ns22000 +++| ACEA     DATA   77000B      END OF ARCHIVE FILE CONTROL WORD
01209  M00S00710.pfload  +++| AFLI     VFD    60/0LPFDUMP ARCHIVE FILE LABEL IDENTIFIER

Seq #  *Modification Id* Act 
----------------------------+
01210  M01S00711.ns22000 ---| ACEA     DATA   77000B      END OF ARCHIVE FILE CONTROL WORD
01211  M01S00712.ns22000 ---| RICT     DATA   1           RANDOM INDEX COUNTER

Seq #  *Modification Id* Act 
----------------------------+
01212  M01S00185.ns22000 +++| ANCE     CON    0           ADDRESS OF NEW CATALOG ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
01213  M01S00196.286l859 +++| AREF     CON    0           ARCHIVE FILE READ ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01214  M01S00186.ns22000 +++| BFCA     CON    0           BAD FILE CATALOG ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01215  M02S00187.286l859 ---| BFSP     CON    0           BOOLEAN FILE SELECTION PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
01216  M01S00197.286l859 +++| CBFO     CON    1           CATALOG BUFFER ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
01217  M01S00188.ns22000 +++| CCTR     CON    0           CURRENT CATALOG TRACK
01218  M01S00189.ns22000 +++| CEWF     CON    0           CATALOG ENTRIES WRITTEN FLAG

Seq #  *Modification Id* Act 
----------------------------+
01219  M01S00198.286l859 +++| CIFC     CON    0           *CIR* REMAINING FILE COUNT

Seq #  *Modification Id* Act 
----------------------------+
01220  M01S00190.ns22000 +++| CSWC     CON    0           CATALOG SECTOR WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
01221  M02S00191.ns2697  ---| DAEQ     CON    0           DAPF EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
01222  M02S00192.286l859 ---| DPCT     CON    0           DEVICE POSITION AND CATALOG TRACK
01223  M02S00193.286l859 ---|*                            45/0,3/DEVICE POSITION,12/CATALOG TRACK

Seq #  *Modification Id* Act 
----------------------------+
01224  M01S00199.286l859 +++| DDMA     CON    0           DESTINATION DEVICE *MSTT* ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01225  M02S00194.253l688 ---| ELFG     CON    0           ERRLOG FLAG

Seq #  *Modification Id* Act 
----------------------------+
01226  M01S00195.ns22000 +++| EOLF     CON    0           END OF LOAD FLAG

Seq #  *Modification Id* Act 
----------------------------+
01227  M02S00196.286l859 ---| FERC     CON    0           FILE ERROR COUNT

Seq #  *Modification Id* Act 
----------------------------+
01228  M01S00197.ns22000 +++| FLOF     CON    0           FILE LIST OVERFLOW FLAG
01229  M01S00198.ns22000 +++| FLPT     CON    0           FILE LIST POINTER

Seq #  *Modification Id* Act 
----------------------------+
01230  M02S00199.286l859 ---| FPRF     CON    0           FILES PROCESSED FLAG

Seq #  *Modification Id* Act 
----------------------------+
01231  M01S00713.286l859 ---| FSAD     CON    0           ALTERNATE DEVICE FILE SELECTION
01232  M01S00714.286l859 ---| FSSA     CON    0           SECONDARY ALTERNATE DEVICE SELECTION
01233  M01S00715.286l859 ---| FSSD     CON    0           SINGLE DEVICE FILE SELECTION

Seq #  *Modification Id* Act 
----------------------------+
01234  M01S00716.ns22000 ---| BFSP     CON    0           BOOLEAN FILE SELECTION PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
01235  M01S00200.ns22000 +++| INCF     CON    0           INCREMENTAL LOAD FLAG
01236  M00S00717.pfload  +++| IPFF     CON    0           INCOMPLETE PERMANENT FILE FLAG

Seq #  *Modification Id* Act 
----------------------------+
01237  M01S00718.ns22000 ---| ANCE     BSS    1           ADDRESS OF NEW CATALOG ENTRIES
01238  M01S00719.ns22000 ---| ZOPF     BSSZ   1           OP=Z SELECTION FLAG
01239  M01S00720.ns22000 ---| UDAT     BSSZ   1           UTILITY CONTROL DATE UPDATE FLAG

Seq #  *Modification Id* Act 
----------------------------+
01240  M02S00201.253l688 ---| LNAC     CON    0           LINE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01241  M01S00202.ns22000 +++| MAEQ     CON    0           MASTER DEVICE EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
01242  M02S00203.286l859 ---| MASK     CON    0           P.F. EQUIPMENT MASK

Seq #  *Modification Id* Act 
----------------------------+
01243  M02S00204.ns2697  ---| MDDS     CON    0           MASTER DEVICE DESCRIPTION (SEE *TMDD*)

Seq #  *Modification Id* Act 
----------------------------+
01244  M01S00205.ns22000 +++| MMSK     CON    0           CURRENT MASTER MASK
01245  M01S00206.ns22000 +++| NCTR     CON    0           NUMBER OF CATALOG TRACKS

Seq #  *Modification Id* Act 
----------------------------+
01246  M02S00001.pfloa19 ---| NLRF     CON    0           NO LABEL READ FLAG

Seq #  *Modification Id* Act 
----------------------------+
01247  M01S00207.ns22000 +++| PAFL     CON    0           *PFU* ACTIVE FLAG

Seq #  *Modification Id* Act 
----------------------------+
01248  M02S00208.253l688 ---| PAGE     CON    1           PAGE CONTROL

Seq #  *Modification Id* Act 
----------------------------+
01249  M02S00209.286l859 ---| PDWD     CON    0           PF DESCRIPTION WORD
01250  M02S00210.286l859 ---|*                            42/ PN,6/,12/ EQ
01251  M02S00211.286l859 ---|*                            PN = PACKNAME FOR AN AUXILIARY DEVICE.
01252  M02S00212.286l859 ---|*                               = 0 FOR A FAMILY DEVICE.
01253  M02S00213.286l859 ---|*                            EQ = EST ORDINAL OF A FAMILY DEVICE.
01254  M02S00214.286l859 ---|*                               = 0 FOR AN AUXILIARY DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
01255  M01S00721.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01256  M01S00722.ns22000 ---|*T SPAR   42/ FAMILY NAME,6/ ST,8/ 0,4/ FG

Figure SPAR

01257  M01S00723.ns22000 ---|*T,       42/ PACKNAME,18/ 0

Figure

01258  M01S00724.ns22000 ---|*T,       42/ USER NUMBER,18/ USER INDEX

Figure

01259  M01S00725.ns22000 ---|*         ST = REPLY STATUS OF FAMILY NAME.
01260  M01S00726.ns22000 ---|*                0 - IF FAMILY NAME SET.
01261  M01S00727.ns22000 ---|*                1 - IF FAMILY NOT FOUND.
01262  M01S00728.ns22000 ---|*         FG = FLAGS FOR PARAMETERS TO SET.
01263  M01S00729.ns22000 ---|*                1 - USER INDEX.
01264  M01S00730.ns22000 ---|*                2 - USER NUMBER.
01265  M01S00731.ns22000 ---|*                4 - PACKNAME.
01266  M01S00732.ns22000 ---|*                10B - FAMILY NAME.

Seq #  *Modification Id* Act 
----------------------------+
01267  M02S00215.286l859 ---| PECT     CON    0           CONSECUTIVE PARITY ERROR COUNT

Seq #  *Modification Id* Act 
----------------------------+
01268  M01S00216.ns22000 +++| PFCO     CON    0           PFC ONLY FLAG
01269  M01S00217.ns22000 +++| RCWF     CON    0           CONTROL WORD RE-USE FLAG
01270  M01S00218.ns22000 +++| RICT     CON    0           RANDOM INDEX COUNTER

Seq #  *Modification Id* Act 
----------------------------+
01271  M02S00219.286l859 ---| SACD     CON    0           SKELETON ADDRESS FOR CATALOG DESCRIPTION
01272  M02S00220.286l859 ---| SADD     CON    0           SKELETON ADDRESS FOR DEVICE DESCRIPTION

Seq #  *Modification Id* Act 
----------------------------+
01273  M02S00221.253l688 ---| SEMF     CON    0           ERROR MESSAGE ISSUED FLAG

Seq #  *Modification Id* Act 
----------------------------+
01274  M02S00222.ns2697  ---| SFNA     CON    0           SELECTED FILE NAME ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01275  M01S00223.ns22000 +++| SKER     CON    0           SKIP TO EOR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01276  M02S00224.253l688 ---| SYSM     CON    0           SYSTEM SECURITY MODE

Seq #  *Modification Id* Act 
----------------------------+
01277  M02S00225.286l859 ---| TYPE     CON    0           FILE TYPE LOADED

Seq #  *Modification Id* Act 
----------------------------+
01278  M01S00226.ns22000 +++| UDAT     CON    0           UTILITY CONTROL DATE UPDATE FLAG

Seq #  *Modification Id* Act 
----------------------------+
01279  M02S00004.pfloa19 ---| VSNP     CON    0           VSN FROM LABEL (FOR *OP=V*)

Seq #  *Modification Id* Act 
----------------------------+
01280  M01S00227.ns22000 +++|
01281  M01S00228.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
01282  M02S00229.286l859 ---|*         FILE COUNTS.
01283  M02S00230.286l859 ---|
01284  M02S00231.286l859 ---| ERNU     CON    0           COUNT OF FILES WITH ERRORS
01285  M02S00232.286l859 ---| DFNU     CON    0           COUNT OF DIRECT ACCESS FILES LOADED
01286  M02S00233.286l859 ---| IDNU     CON    0           COUNT OF INDIRECT ACCESS FILES LOADED

Seq #  *Modification Id* Act 
----------------------------+
01287  M01S00733.286l859 ---|
01288  M01S00734.286l859 ---| SPAR     BSSZ   3           SET USER PERMANENT FILE PARAMETER BLOCK
01289  M01S00735.286l859 ---| GPAR     BSSZ   3           GET USER PERMANENT FILE PARAMETER BLOCK

Seq #  *Modification Id* Act 
----------------------------+
01290  M01S00200.286l859 +++| TFST     BSSZ   NCES*MXCBS  FILE STATUS TABLE

Seq #  *Modification Id* Act 
----------------------------+
01291  M01S00736.ns22000 ---|
01292  M01S00737.ns22000 ---|
01293  M01S00738.ns22000 ---|*         DISPLAYED MESSAGE CONSTANTS

Seq #  *Modification Id* Act 
----------------------------+
01294  M01S00234.ns22000 +++|          TITLE  MESSAGE CONSTANTS.
01295  M01S00235.ns22000 +++|*         DISPLAYED MESSAGE CONSTANTS.
01296  M00S00739.pfload  +++|
01297  M00S00740.pfload  +++|

Seq #  *Modification Id* Act 
----------------------------+
01298  M01S00741.286l859 ---| MSGA     DATA   30HLOADING

Seq #  *Modification Id* Act 
----------------------------+
01299  M01S00201.286l859 +++| MSGA     DATA   10HLOADING

Seq #  *Modification Id* Act 
----------------------------+
01300  M01S00742.253l688 ---| MSGB     DATA   40C1         *PFLOAD    YY/MM/DD. HH.MM.SS.
01301  M00S00743.pfload  ---| MSGC     DATA   40C PFLOAD DEVICE       FAM/PACK

Seq #  *Modification Id* Act 
----------------------------+
01302  M01S00744.286l859 ---| MSGD     DATA   30C*P. F. DEVICE        LOADED.

Seq #  *Modification Id* Act 
----------------------------+
01303  M01S00745.253l688 ---| MSGE     DATA   30HREADING

Seq #  *Modification Id* Act 
----------------------------+
01304  M02S00023.286l859 ---| MSGE     DATA   30HSKIPPING

Seq #  *Modification Id* Act 
----------------------------+
01305  M01S00202.286l859 +++| MSGE     DATA   10HSKIPPING

Seq #  *Modification Id* Act 
----------------------------+
01306  M02S00018.pfloa19 ---| MSGH     DATA   40HEND OF INCREMENTAL LOAD FILE.

Seq #  *Modification Id* Act 
----------------------------+
01307  M01S00015.pfloa19 +++| MSGH     DATA   40HEND OF LOAD FILE - SEE RIGHT SCREEN.

Seq #  *Modification Id* Act 
----------------------------+
01308  M01S00746.ns22000 ---| MSGF     DATA   C* PFLOAD - PARITY ERR FILENAM  USERIN.*

Seq #  *Modification Id* Act 
----------------------------+
01309  M02S00747.ns22000 ---| MSGG     DATA   C* PFLOAD - STATUS ERR FILENAM  USERIN.*

Seq #  *Modification Id* Act 
----------------------------+
01310  M01S00748.ns22000 ---| MSGH     DATA   C* PFLOAD - TAPE ERROR FILENAM  USERIN.*

Seq #  *Modification Id* Act 
----------------------------+
01311  M01S00749.253l688 ---| MSGI     DATA   30C  LOADING FROM       TO     .
01312  M00S00750.pfload  ---| MSGJ     DATA   30C SETTING UTILITY INTERLOCK.
01313  M00S00751.pfload  ---| MSGK     DATA   30C CLEARING UTILITY INTERLOCK.

Seq #  *Modification Id* Act 
----------------------------+
01314  M01S00752.ns22000 ---| MSGL     DATA   C* PERMITS MISSING.*

Seq #  *Modification Id* Act 
----------------------------+
01315  M02S00236.pfloa19 ---| MSGP     DATA   40C PFLOAD - ASSIGN TAPE.
01316  M02S00237.pfloa19 ---| MSGQ     DATA   40C PFLOAD - LABEL BAD, ASSIGN NEW TAPE.

Seq #  *Modification Id* Act 
----------------------------+
01317  M02S00019.pfloa19 ---| MSGS     DATA   40HTHE RIGHT SCREEN LISTS YOUR OPTIONS.
01318  M02S00020.pfloa19 ---| MSGT     DATA   40HINCORRECT OPTION - SEE RIGHT SCREEN.

Seq #  *Modification Id* Act 
----------------------------+
01319  M01S00016.pfloa19 +++| MSGP     DATA   40CENTERED VSN TOO LONG.
01320  M01S00017.pfloa19 +++| MSGQ     DATA   40CNO VSN ENTERED.
01321  M01S00018.pfloa19 +++| MSGT     DATA   40HINCORRECT OPTION.
01322  M01S00019.pfloa19 +++| MSGV     DATA   40CARCHIVE LABEL BAD, SELECT NEW VSN.

Seq #  *Modification Id* Act 
----------------------------+
01323  M01S00203.286l859 +++| MSGW     DATA   C*$REQUEST K DISPLAY.*

Seq #  *Modification Id* Act 
----------------------------+
01324  M01S00238.ns22000 +++| BLNK     DATA   40H

Seq #  *Modification Id* Act 
----------------------------+
01325  M02S00239.286l859 ---|          SPACE  4,10
01326  M02S00240.286l859 ---|*         DAYFILE MESSAGE CONSTANTS.
01327  M02S00241.286l859 ---|
01328  M02S00242.286l859 ---|
01329  M02S00243.286l859 ---| MSGF     DATA   C* PFLOAD - NO FILES PROCESSED.*
01330  M02S00244.286l859 ---| MSGG     DATA   C* CHECK DAYFILE FOR ERRORS.*

Seq #  *Modification Id* Act 
----------------------------+
01331  M01S00753.286l859 ---| MSGM     DATA   C* PFLOAD ABORTED.*

Seq #  *Modification Id* Act 
----------------------------+
01332  M02S00754.286l859 ---| MSGN     DATA   C* TAPE PARITY ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
01333  M02S00245.286l859 ---| MSGN     DATA   C* PFLOAD - TAPE PARITY ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
01334  M01S00755.286l859 ---| MSGO     DATA   C* PFLOAD - ARCHIVE FILE FORMAT ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
01335  M02S00756.286l859 ---| MSGP     DATA   40C PFLOAD - ASSIGN TAPE.
01336  M02S00757.286l859 ---| MSGQ     DATA   40C PFLOAD - LABEL BAD, ASSIGN NEW TAPE.
01337  M02S00758.286l859 ---| MSGR     DATA   40C PFLOAD - EXCESSIVE PARITY ERRORS.

Seq #  *Modification Id* Act 
----------------------------+
01338  M02S00246.286l859 ---| MSGR     DATA   C* PFLOAD - EXCESSIVE PARITY ERRORS.*

Seq #  *Modification Id* Act 
----------------------------+
01339  M02S00020.286l859 ---| MSGU     DATA   C* PFLOAD - ERROR IN ARCHIVE FILE LABEL.*
01340  M02S00021.286l859 ---| MSGW     DATA   C*$REQUEST K DISPLAY.*
01341  M00S00759.pfload  ---|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01342  M01S00760.ns22000 ---|**        MESSAGE PARAMETER SKELETONS.

Seq #  *Modification Id* Act 
----------------------------+
01343  M02S00247.253l688 ---|*         MESSAGE PARAMETER SKELETONS.
01344  M02S00248.253l688 ---|*
01345  M02S00249.253l688 ---|*         SEE ROUTINE *EDS* FOR DOCUMENTATION ON MESSAGE FORMAT.

Seq #  *Modification Id* Act 
----------------------------+
01346  M01S00761.253l688 ---|
01347  M01S00762.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
01348  M02S00763.253l688 ---| MSCT     DATA   C*$,FM=$00Z,DN$021,CT$102,EQ$031,T$063,S$073.*
01349  M02S00764.253l688 ---| MSFM     DATA   C*$,FM=$00Z,DN$021,EQ$031,T$063,S$073.*

Seq #  *Modification Id* Act 
----------------------------+
01350  M02S00250.253l688 ---| MSCT     DATA   C*$,FM=$00Z,DN$021,CT$102,EQ$032,T$063,S$073.*
01351  M02S00251.253l688 ---| MSFM     DATA   C*$,FM=$00Z,DN$021,EQ$032,T$063,S$073.*

Seq #  *Modification Id* Act 
----------------------------+
01352  M01S00765.253l688 ---| MSFN     DATA   C*$,FN=$04Z,UI=$05Z.*
01353  M01S00766.253l688 ---| MSNI     DATA   C*$,$129$139.*

Seq #  *Modification Id* Act 
----------------------------+
01354  M02S00767.253l688 ---| MSPN     DATA   C*$,PN=$01Z,EQ$031,T$063,S$073.*

Seq #  *Modification Id* Act 
----------------------------+
01355  M02S00252.253l688 ---| MSPN     DATA   C*$,PN=$01Z,EQ$032,T$063,S$073.*

Seq #  *Modification Id* Act 
----------------------------+
01356  M01S00768.253l688 ---|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01357  M01S00769.ns22000 ---|**        MESSAGE DESCRIPTION STRINGS.

Seq #  *Modification Id* Act 
----------------------------+
01358  M02S00253.286l859 ---|*         MESSAGE DESCRIPTION STRINGS.

Seq #  *Modification Id* Act 
----------------------------+
01359  M01S00204.286l859 +++|*         ERROR MESSAGES.
01360  M00S00770.pfload  +++|
01361  M00S00771.pfload  +++|

Seq #  *Modification Id* Act 
----------------------------+
01362  M01S00772.286l859 ---| MES1     DATA   C* PFLOAD - CATALOG READ ERROR*
01363  M01S00773.286l859 ---| MES2     DATA   C* PFLOAD - CATALOG WRITE ERROR*
01364  M01S00774.286l859 ---| MES3     DATA   C* PFLOAD - PERMIT WRITE ERROR*

Seq #  *Modification Id* Act 
----------------------------+
01365  M02S00775.286l859 ---| MES4     DATA   C* PFLOAD - DAF WRITE ERROR*
01366  M02S00776.286l859 ---| MES5     DATA   C* PFLOAD - IAF WRITE ERROR*

Seq #  *Modification Id* Act 
----------------------------+
01367  M02S00254.286l859 ---| MES4     DATA   C* PFLOAD - DAPF WRITE ERROR*
01368  M02S00255.286l859 ---| MES5     DATA   C* PFLOAD - IAPF WRITE ERROR*

Seq #  *Modification Id* Act 
----------------------------+
01369  M02S00777.286l859 ---| MES6     DATA   C* PFLOAD - ILLEGAL NAME/INDEX*

Seq #  *Modification Id* Act 
----------------------------+
01370  M02S00009.286l859 ---| MES6     DATA   C* PFLOAD - INCORRECT NAME/INDEX*

Seq #  *Modification Id* Act 
----------------------------+
01371  M01S00778.286l859 ---| MES7     DATA   C* PFLOAD - TRACK LIMIT*
01372  M01S00779.286l859 ---| MES8     DATA   C* PFLOAD - ERROR IDLE DETECTED*
01373  M01S00780.286l859 ---| MES9     DATA   C* PFLOAD - SYSTEM SECTOR TRUNCATED*
01374  M01S00781.286l859 ---| MES10    DATA   C* PFLOAD - SYSTEM SECTOR TOO LONG*
01375  M01S00782.286l859 ---| MES11    DATA   C* PFLOAD - ERROR IDLE SET*

Seq #  *Modification Id* Act 
----------------------------+
01376  M02S00020.286l859 ---| MES12    DATA   C* PFLOAD - ALTERNATE DEVICE NOT FOUND*
01377  M02S00021.286l859 ---| MES13    DATA   C* PFLOAD - NO SPACE FOR FILE*

Seq #  *Modification Id* Act 
----------------------------+
01378  M02S00256.286l859 ---| MES14    DATA   C* PFLOAD - NO DEVICE FOR FILE*
01379  M02S00257.286l859 ---| MES15    DATA   C* PFLOAD - PARITY ERROR*
01380  M02S00258.286l859 ---| MES16    DATA   C* PFLOAD - TAPE ERROR*
01381  M02S00259.286l859 ---| MES17    DATA   C* PFLOAD - PERMITS MISSING*
01382  M02S00260.286l859 ---| MES18    DATA   C* PFLOAD - PERMITS PRESENT THAT SHOULD NOT BE*
01383  M02S00261.286l859 ---| MES19    DATA   C* PFLOAD - FILE TRUNCATED*
01384  M02S00262.286l859 ---| MES20    DATA   C* PFLOAD - MISSING EOR*
01385  M02S00263.286l859 ---| MES21    DATA   C* PFLOAD - PFC INCONSISTENT WITH ARCHIVE CONTENTS*
01386  M02S00264.286l859 ---| MES22    DATA   C* PFLOAD - NO EOI FOR FILE*

Seq #  *Modification Id* Act 
----------------------------+
01387  M02S00011.286l859 ---| MES23    DATA   C* PFLOAD - ERROR ON FILE PURGE*

Seq #  *Modification Id* Act 
----------------------------+
01388  M01S00205.286l859 +++| ERAB     DATA   C* ARCHIVE FILE BLOCK ERROR, FN=???????, UI=!!!!!!.*
01389  M01S00206.286l859 +++| ERAL     DATA   C* ERROR IN ARCHIVE FILE LABEL.*
01390  M01S00207.286l859 +++| ERAN     DATA   C* ALTERNATE DEVICE NOT FOUND, FN=???????, UI=!!!!!!.*
01391  M01S00208.286l859 +++| ERAR     DATA   C* ARCHIVE FILE READ ERROR, FN=???????, UI=!!!!!!.*
01392  M01S00209.286l859 +++| ERCR     DATA   C* CATALOG READ ERROR, FN=???????, UI=!!!!!!.*
01393  M01S00210.286l859 +++| ERCW     DATA   C* CATALOG WRITE ERROR, FN=???????, UI=!!!!!!.*
01394  M01S00211.286l859 +++| ERDW     DATA   C* DATA WRITE ERROR, FN=???????, UI=!!!!!!.*
01395  M01S00212.286l859 +++| EREO     DATA   C* FILE LOAD SUPPRESSED BY ERROR OPTION, FN=???????, UI
01396  M01S00213.286l859 +++|,=!!!!!!.*
01397  M01S00214.286l859 +++| ERER     DATA   C* MISSING EOR, FN=???????, UI=!!!!!!.*
01398  M01S00215.286l859 +++| ERFT     DATA   C* FILE TRUNCATED, FN=???????, UI=!!!!!!.*
01399  M01S00216.286l859 +++| ERID     DATA   C* ERROR IDLE DETECTED, FN=???????, UI=!!!!!!.*
01400  M01S00217.286l859 +++| ERIN     DATA   C* INCORRECT NAME/INDEX, FN=???????, UI=!!!!!!.*
01401  M01S00218.286l859 +++| ERIS     DATA   C* ERROR IDLE SET, FN=???????, UI=!!!!!!.*
01402  M01S00219.286l859 +++| ERND     DATA   C* NO DEVICE FOR FILE ACCESS LEVEL, FN=???????, UI=!!!!
01403  M01S00220.286l859 +++|,!!.*
01404  M01S00221.286l859 +++| ERNE     DATA   C* NO EOI FOR FILE, FN=???????, UI=!!!!!!.*
01405  M01S00222.286l859 +++| ERNS     DATA   C* NO SPACE FOR FILE, FN=???????, UI=!!!!!!.*
01406  M01S00223.286l859 +++| ERPE     DATA   C* ERROR ON FILE PURGE, FN=???????, UI=!!!!!!.*
01407  M01S00224.286l859 +++| ERPW     DATA   C* PERMIT WRITE ERROR, FN=???????, UI=!!!!!!.*
01408  M01S00225.286l859 +++| ERTL     DATA   C* TRACK LIMIT, FN=???????, UI=!!!!!!.*

Seq #  *Modification Id* Act 
----------------------------+
01409  M01S00265.ns22000 +++|          SPACE  4,10
01410  M01S00266.ns22000 +++|*         FILE COUNT MESSAGES.
01411  M01S00267.ns22000 +++|
01412  M01S00268.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
01413  M02S00269.286l859 ---| ERMS     DATA   C* XXXXX FILES WITH ERRORS.*
01414  M02S00270.286l859 ---| DFMS     DATA   C* XXXXX DIRECT ACCESS FILES LOADED.*
01415  M02S00271.286l859 ---| IDMS     DATA   C* XXXXX INDIRECT ACCESS FILES LOADED.*
01416  M02S00272.286l859 ---|
01417  M02S00273.286l859 ---| ER1M     DATA   C*     1 FILE WITH ERRORS.*
01418  M02S00274.286l859 ---| DF1M     DATA   C*     1 DIRECT ACCESS FILE LOADED.*
01419  M02S00275.286l859 ---| ID1M     DATA   C*     1 INDIRECT ACCESS FILE LOADED.*

Seq #  *Modification Id* Act 
----------------------------+
01420  M01S00226.286l859 +++| LDMS     DATA   C* ?????? FILE! LOADED.*
01421  M01S00227.286l859 +++| SEMS     DATA   C* ?????? FILE! SKIPPED WITH ERRORS.*
01422  M01S00228.286l859 +++| LEMS     DATA   C* ?????? FILE! LOADED WITH DATA ERRORS.*
01423  M01S00229.286l859 +++|          SPACE  4,10
01424  M01S00230.286l859 +++|*         INFORMATIVE MESSAGES.
01425  M01S00231.286l859 +++|
01426  M01S00232.286l859 +++|
01427  M01S00233.286l859 +++| AEMS     DATA   C* READ ERRORS ENCOUNTERED ON ARCHIVE FILE.*

Seq #  *Modification Id* Act 
----------------------------+
01428  M01S00783.253l688 ---| TMSP     SPACE  4,10
01429  M01S00784.253l688 ---|**        TMSP - TABLE OF MESSAGE PARAMETER SKELETON PARAMETERS.
01430  M01S00785.253l688 ---|*
01431  M01S00786.253l688 ---|*         THE ASSOCIATED NUMERICAL VALUE FROM THE *LOC* IS USED IN THE
01432  M01S00787.253l688 ---|*         SKELETONS TO SPECIFY THE PARAMETER.
01433  M01S00788.253l688 ---|*
01434  M01S00789.253l688 ---|*         1/CONVERSION NEEDED,1/DECIMAL PARAMETER,58/ADDRESS OF VALUE
01435  M01S00790.253l688 ---|
01436  M01S00791.253l688 ---|
01437  M01S00792.253l688 ---| TMSP     BSS    0
01438  M01S00793.253l688 ---|          LOC    0
01439  M01S00794.253l688 ---|          VFD    1/0,1/0,58/MPFM  FAMILY NAME
01440  M01S00795.253l688 ---|          VFD    1/0,1/0,58/MPPN  PACKNAME
01441  M01S00796.253l688 ---|          VFD    1/1,1/0,58/MPDN  DEVICE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01442  M02S00797.253l688 ---|          VFD    1/1,1/0,58/MPEQ  EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01443  M02S00276.253l688 ---|          VFD    1/1,1/0,58/MPEQ  EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
01444  M01S00798.253l688 ---|          VFD    1/0,1/0,58/MPFN  FILE NAME
01445  M01S00799.253l688 ---|          VFD    1/1,1/0,58/MPUI  USER INDEX
01446  M01S00800.253l688 ---|          VFD    1/1,1/0,58/MPTK  TRACK
01447  M01S00801.253l688 ---|          VFD    1/1,1/0,58/MPSC  SECTOR
01448  M01S00802.253l688 ---|          VFD    1/1,1/0,58/MPCT  CATALOG TRACK
01449  M01S00803.253l688 ---|          VFD    1/1,1/1,58/MPPR  PRU NUMBER
01450  M01S00804.253l688 ---|          VFD    1/1,1/0,58/MPUH  UPPER HALF OCTAL WORD
01451  M01S00805.253l688 ---|          VFD    1/1,1/0,58/MPLH  LOWER HALF OCTAL WORD
01452  M01S00806.253l688 ---|
01453  M01S00807.253l688 ---|          ERRPL  *-101B      IF MORE THAN 2 CHARACTERS NECESSARY
01454  M01S00808.253l688 ---|          LOC    *O
01455  M01S00809.253l688 ---|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01456  M02S00810.253l688 ---|**        MESSAGE PARAMETERS.

Seq #  *Modification Id* Act 
----------------------------+
01457  M02S00277.253l688 ---|*         MESSAGE PARAMETERS.

Seq #  *Modification Id* Act 
----------------------------+
01458  M01S00811.253l688 ---|
01459  M01S00812.253l688 ---|
01460  M01S00813.253l688 ---| MPFM     BSS    1           FAMILY NAME
01461  M01S00814.253l688 ---| MPPN     BSS    1           PACK NAME
01462  M01S00815.253l688 ---| MPDN     BSS    1           DEVICE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01463  M02S00816.253l688 ---| MPEQ     BSS    1           EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01464  M02S00278.253l688 ---| MPEQ     BSS    1           EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
01465  M01S00817.253l688 ---| MPFN     BSS    1           FILE NAME
01466  M01S00818.253l688 ---| MPUI     BSS    1           USER INDEX
01467  M01S00819.253l688 ---| MPTK     BSS    1           TRACK
01468  M01S00820.253l688 ---| MPSC     BSS    1           SECTOR
01469  M01S00821.253l688 ---| MPCT     BSS    1           CATALOG TRACK
01470  M01S00822.253l688 ---| MPPR     BSS    1           PRU NUMBER
01471  M01S00823.253l688 ---| MPUH     BSS    1           UPPER HALF OF OCTAL WORD
01472  M01S00824.253l688 ---| MPLH     BSS    1           LOWER HALF OF OCTAL WORD

Seq #  *Modification Id* Act 
----------------------------+
01473  M01S00825.ns22000 ---|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01474  M01S00279.ns22000 +++|          TITLE  FETS.
01475  M00S00826.pfload  +++|*         FETS.
01476  M00S00827.pfload  +++|
01477  M00S00828.pfload  +++|
01478  M00S00829.pfload  +++| CATS     BSS    0           CATALOG TRACKS
01479  M00S00830.pfload  +++| ZZZZZG1  FILEB  CBUF,CBUFL,FET=10D
01480  M00S00831.pfload  +++|
01481  M00S00832.pfload  +++| PETS     BSS    0           PERMIT ENTRIES
01482  M00S00833.pfload  +++| ZZZZZG2  FILEB  PBUF,PBUFL,FET=10D
01483  M00S00834.pfload  +++|
01484  M00S00835.pfload  +++| DATA     BSS    0           FILE DATA
01485  M00S00836.pfload  +++| ZZZZZG3  FILEB  DBUF,DBUFL,FET=10D
01486  M00S00837.pfload  +++|
01487  M00S00838.pfload  +++| T        BSS    0           ARCHIVE FILE
01488  M00S00839.pfload  +++| TAPE     FILEB  MBUF,MBUFL,EPR,FET=14D
01489  M00S00840.pfload  +++|          ORG    TAPE+8
01490  M00S00841.pfload  +++|          VFD    1/0,1/1,58/0
01491  M00S00842.pfload  +++|          ORG    TAPE+14

Seq #  *Modification Id* Act 
----------------------------+
01492  M01S00003.274l797 +++|
01493  M01S00004.274l797 +++| ODEB     BSSZ   ODEBL       OPTICAL DISK EXTENSION BUFFER
01494  M00S00843.pfload  +++|
01495  M00S00844.pfload  +++| CIRF     BSS    0           CATALOG IMAGE RECORD
01496  M00S00845.pfload  +++| ZZZZZG4  RFILEB CIBF,CIBFL,FET=10D
01497  M00S00846.pfload  +++|

Seq #  *Modification Id* Act 
----------------------------+
01498  M01S00847.286l859 ---| S1       BSS    0           FILE LIST OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
01499  M01S00234.286l859 +++| FO       BSS    0           FILE LIST OVERFLOW
01500  M00S00848.pfload  +++| ZZZZZG5  FILEB  FLCB,FLCBL,FET=10D
01501  M00S00849.pfload  +++|

Seq #  *Modification Id* Act 
----------------------------+
01502  M01S00850.ns2697  ---| P        BSS    0           PURGE FET FOR OP=R
01503  M01S00851.ns2697  ---| PURG     FILEB  CBUF,1,EPR,FET=13

Seq #  *Modification Id* Act 
----------------------------+
01504  M01S00012.ns2697  +++| P        BSS    0           PURGE, CATLIST FET FOR OP=R
01505  M01S00013.ns2697  +++| PURG     FILEB  PFMB,PFMBL,EPR,FET=13

Seq #  *Modification Id* Act 
----------------------------+
01506  M01S00852.286l859 ---|
01507  M01S00853.286l859 ---| O        BSS    0           OUTPUT
01508  M01S00854.286l859 ---| OUTPUT   FILEB  OUTB,OUTBL,FET=10D

Seq #  *Modification Id* Act 
----------------------------+
01509  M02S00024.286l859 ---|
01510  M02S00025.286l859 ---| SU       BSS    0           SUMMARY FILE
01511  M02S00026.286l859 ---| SUMMARY  FILEB  SUMB,SUMBL,FET=10D

Seq #  *Modification Id* Act 
----------------------------+
01512  M01S00027.253l688 +++|
01513  M01S00028.253l688 +++| LCIR     BSS    0           OUTPUT
01514  M01S00029.253l688 +++| ZZZZZG6  FILEB  LBUF,LBUFL,FET=10D
01515  M00S00855.pfload  +++|
01516  M00S00856.pfload  +++| UIFT     FILEB  0,0,(FET=10) FET TO CONTROL UTILITY INTERLOCK
01517  M00S00857.pfload  +++| UIFL     BSSZ   1           UTILITY INTERLOCK FLAG
01518  M00S00858.pfload  +++|
01519  M00S00859.pfload  +++|
01520  M00S00860.pfload  +++|**        NOTE - THE STATUS PORTION OF THE *CATS*, *PETS*, AND *DATA*
01521  M00S00861.pfload  +++|*         FETS ARE USED IN THE FOLLOWING MANNER.
01522  M00S00862.pfload  +++|*
01523  M00S00863.pfload  +++|*T,       42/ FILENAME,14/0,1/ C,1/ R,1/ W,1/ F

Figure

01524  M00S00864.pfload  +++|*
01525  M00S00865.pfload  +++|*         C = COMPLETION OF LOAD (*DATA*).
01526  M00S00866.pfload  +++|*         R = FORCED READ - FILL BUFFER (*CATS*).
01527  M00S00867.pfload  +++|*         W = FORCED WRITE - EMPTY BUFFER (ALL FILES).
01528  M00S00868.pfload  +++|*         F = *PFU* FINISHED.

Seq #  *Modification Id* Act 
----------------------------+
01529  M01S00869.ns22000 ---|          TITLE  MAIN LOOP
01530  M01S00870.ns22000 ---|**        MAIN LOOP.

Seq #  *Modification Id* Act 
----------------------------+
01531  M01S00280.ns22000 +++|          TITLE  MAIN LOOP.
01532  M01S00281.ns22000 +++|*         MAIN LOOP.
01533  M00S00871.pfload  +++|
01534  M00S00872.pfload  +++|
01535  M00S00873.pfload  +++| PFL      RJ     PRS         PRESET PROGRAM
01536  M00S00874.pfload  +++|
01537  M00S00875.pfload  +++|*         CHECK FOR END OF LOAD.
01538  M00S00876.pfload  +++|
01539  M00S00877.pfload  +++| PFL1     RJ     CEL         CHECK FOR END OF LOAD
01540  M00S00878.pfload  +++|          ZR     X6,PFL2     IF NOT END OF LOAD
01541  M00S00879.pfload  +++|          RJ     EOL         PROCESS END OF LOAD

Seq #  *Modification Id* Act 
----------------------------+
01542  M02S00282.286l859 ---|          RJ     FCM         ISSUE FILE COUNTS

Seq #  *Modification Id* Act 
----------------------------+
01543  M01S00880.286l859 ---|          ENDRUN

Seq #  *Modification Id* Act 
----------------------------+
01544  M01S00235.286l859 +++|          EQ     END         TERMINATE
01545  M00S00881.pfload  +++|
01546  M00S00882.pfload  +++| PFL2     RJ     PCB         PROCESS CATALOG BLOCK

Seq #  *Modification Id* Act 
----------------------------+
01547  M01S00883.ns22000 ---|          ZR     X6,PFL1     IF FILE NOT TO BE LOADED

Seq #  *Modification Id* Act 
----------------------------+
01548  M02S00283.286l859 ---|          ZR     X6,PFL15    IF FILE NOT TO BE LOADED

Seq #  *Modification Id* Act 
----------------------------+
01549  M01S00236.286l859 +++|          ZR     X6,PFL1     IF FILE NOT TO BE LOADED
01550  M00S00884.pfload  +++|
01551  M00S00885.pfload  +++|*         CHECK FOR PERMIT ENTRIES.
01552  M00S00886.pfload  +++|
01553  M00S00887.pfload  +++|          RJ     RCW         READ CONTROL WORD
01554  M00S00888.pfload  +++|          SX1    X1+2

Seq #  *Modification Id* Act 
----------------------------+
01555  M01S00889.ns22000 ---|          ZR     X1,PFL1     IF PARITY ERROR

Seq #  *Modification Id* Act 
----------------------------+
01556  M02S00284.286l859 ---|          ZR     X1,PFL15    IF PARITY ERROR

Seq #  *Modification Id* Act 
----------------------------+
01557  M01S00237.286l859 +++|          ZR     X1,PFL1     IF READ ERROR
01558  M00S00890.pfload  +++|          SX5    X3-2        BLOCK CODE
01559  M00S00891.pfload  +++|          SA4    TCBF+FCRI   CATALOG PERMIT RANDOM INDEX
01560  M00S00892.pfload  +++|          LX4    24
01561  M00S00893.pfload  +++|          MX0    36
01562  M00S00894.pfload  +++|          BX4    -X0*X4

Seq #  *Modification Id* Act 
----------------------------+
01563  M01S00895.286l859 ---|          NZ     X5,PFL5     IF NO PERMITS ON ARCHIVE FLE

Seq #  *Modification Id* Act 
----------------------------+
01564  M01S00238.286l859 +++|          NZ     X5,PFL5     IF NO PERMITS ON ARCHIVE FILE
01565  M00S00896.pfload  +++|          NZ     X4,PFL4     IF PERMIT RANDOM INDEX PRESENT

Seq #  *Modification Id* Act 
----------------------------+
01566  M01S00897.ns22000 ---|          SX5    =C* PERMITS PRESENT THAT SHOULD NOT BE.*

Seq #  *Modification Id* Act 
----------------------------+
01567  M02S00285.286l859 ---|          EDITS  MSFN,MES18  * PERMITS PRESENT THAT SHOULD NOT BE.*

Seq #  *Modification Id* Act 
----------------------------+
01568  M02S00898.286l859 ---|          RJ     SEM
01569  M02S00899.286l859 ---| PFL3     SX5    MSGH        * TAPE ERROR LFN UI*

Seq #  *Modification Id* Act 
----------------------------+
01570  M02S00286.286l859 ---| PFL3     RJ     SEM         SEND ERROR MESSAGE
01571  M02S00287.286l859 ---|          RJ     AEC         ADVANCE ERROR COUNT
01572  M02S00288.286l859 ---|          EDITS  MSFN,MES16  * PFLOAD - TAPE ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
01573  M01S00900.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01574  M01S00239.286l859 +++| PFL3     SA1    TCBF+FCUI
01575  M01S00240.286l859 +++|          SB2    ERAB        * ARCHIVE FILE BLOCK ERROR ...*
01576  M01S00241.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE
01577  M00S00901.pfload  +++|          RJ     SER         SKIP TO END OF RECORD

Seq #  *Modification Id* Act 
----------------------------+
01578  M01S00902.ns22000 ---|          EQ     PFL1

Seq #  *Modification Id* Act 
----------------------------+
01579  M02S00289.286l859 ---|          EQ     PFL15       FILE NOT TO BE LOADED

Seq #  *Modification Id* Act 
----------------------------+
01580  M01S00242.286l859 +++|          EQ     PFL1        FILE NOT TO BE LOADED
01581  M00S00903.pfload  +++|
01582  M00S00904.pfload  +++|*         PROCESS PERMITS.
01583  M00S00905.pfload  +++|
01584  M00S00906.pfload  +++| PFL4     RJ     PPB         PROCESS PERMIT BLOCK

Seq #  *Modification Id* Act 
----------------------------+
01585  M01S00907.ns22000 ---|          ZR     X6,PFL1     IF FILE NOT TO BE LOADED

Seq #  *Modification Id* Act 
----------------------------+
01586  M02S00290.286l859 ---|          ZR     X6,PFL15    IF FILE NOT TO BE LOADED

Seq #  *Modification Id* Act 
----------------------------+
01587  M01S00243.286l859 +++|          ZR     X6,PFL1     IF FILE NOT TO BE LOADED
01588  M00S00908.pfload  +++|          EQ     PFL6        PROCESS DATA
01589  M00S00909.pfload  +++|
01590  M00S00910.pfload  +++| PFL5     ZR     X4,PFL7     IF NO PERMITS IN CATALOG

Seq #  *Modification Id* Act 
----------------------------+
01591  M01S00911.ns22000 ---|          SX5    MSGL        SEND MISSING PERMITS MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01592  M02S00291.286l859 ---|          EDITS  MSFN,MES17  * PFLOAD - PERMITS MISSING.*

Seq #  *Modification Id* Act 
----------------------------+
01593  M02S00912.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
01594  M02S00913.286l859 ---|          EQ     PFL3        TAPE ERROR

Seq #  *Modification Id* Act 
----------------------------+
01595  M02S00292.286l859 ---|          EQ     PFL3        TAPE ERROR

Seq #  *Modification Id* Act 
----------------------------+
01596  M01S00244.286l859 +++|          EQ     PFL3        PROCESS ARCHIVE FILE ERROR
01597  M00S00914.pfload  +++|
01598  M00S00915.pfload  +++|*         PROCESS DATA.
01599  M00S00916.pfload  +++|
01600  M00S00917.pfload  +++| PFL6     RJ     RCW         READ CONTROL WORD
01601  M00S00918.pfload  +++| PFL7     SA1    PFCO        *PFC ONLY* FLAG
01602  M00S00919.pfload  +++|          NG     X3,PFL10    IF PHYSICAL EOR ON ARCHIVE MEDIUM
01603  M00S00920.pfload  +++|          BX5    X3
01604  M00S00921.pfload  +++|          SX3    X3-3
01605  M00S00922.pfload  +++|          BX4    X1+X3
01606  M00S00923.pfload  +++|          NG     X4,PFL8     IF NO DATA BLOCK PRESENT
01607  M00S00924.pfload  +++|          ZR     X4,PFL11    IF DATA PRESENT AND *PFC ONLY*
01608  M00S00925.pfload  +++|          ZR     X3,PFL10    IF DATA PRESENT
01609  M00S00926.pfload  +++| PFL8     NZ     X1,PFL11    IF NO DATA AND NOT *PFC ONLY*
01610  M00S00927.pfload  +++| PFL9     RJ     WCE         WRITE CATALOG ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01611  M01S00928.ns22000 ---|          EQ     PFL1        CHECK FOR END OF LOAD

Seq #  *Modification Id* Act 
----------------------------+
01612  M02S00293.286l859 ---|          SA1    TYPE
01613  M02S00294.286l859 ---|          PL     X1,PFL13    IF INDIRECT ACCESS FILE
01614  M02S00295.286l859 ---|          SA1    DFNU        SET DIRECT ACCESS FILE COUNT
01615  M02S00296.286l859 ---|          EQ     PFL14       INCREMENT FILE COUNT

Seq #  *Modification Id* Act 
----------------------------+
01616  M01S00245.286l859 +++|          EQ     PFL1        CHECK FOR END OF LOAD
01617  M00S00929.pfload  +++|
01618  M00S00930.pfload  +++| PFL10    ZR     X1,PFL9     IF PFC ONLY
01619  M00S00931.pfload  +++|          RJ     PDB         PROCESS DATA BLOCK
01620  M00S00932.pfload  +++|          NZ     X6,PFL9     IF FILE TO BE LOADED

Seq #  *Modification Id* Act 
----------------------------+
01621  M01S00933.ns22000 ---|          EQ     PFL1        CHECK FOR END OF LOAD

Seq #  *Modification Id* Act 
----------------------------+
01622  M02S00297.286l859 ---|          EQ     PFL15       SET LOADING ERROR

Seq #  *Modification Id* Act 
----------------------------+
01623  M01S00246.286l859 +++|          EQ     PFL1        CHECK FOR END OF LOAD
01624  M00S00934.pfload  +++|
01625  M00S00935.pfload  +++| PFL11    NG     X5,PFL12    IF ARCHIVE MEDIUM AT EOR/EOF/EOI
01626  M00S00936.pfload  +++|          RJ     SER         SKIP TO EOR

Seq #  *Modification Id* Act 
----------------------------+
01627  M01S00937.ns22000 ---| PFL12    SX5    =C* PFC INCONSISTENT WITH ARCHIVE CONTENTS.*

Seq #  *Modification Id* Act 
----------------------------+
01628  M02S00298.286l859 ---| PFL12    EDITS  MSFN,MES21  * PFC INCONSISTENT WITH ARCHIVE CONTENTS.*

Seq #  *Modification Id* Act 
----------------------------+
01629  M01S00938.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01630  M02S00939.286l859 ---|          SX5    MSGH

Seq #  *Modification Id* Act 
----------------------------+
01631  M02S00299.286l859 ---|          EDITS  MSFN,MES16  * PFLOAD - TAPE ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
01632  M01S00940.286l859 ---|          RJ     SEM

Seq #  *Modification Id* Act 
----------------------------+
01633  M02S00941.286l859 ---|          EQ     PFL1        CHECK FOR END OF LOAD

Seq #  *Modification Id* Act 
----------------------------+
01634  M02S00300.286l859 ---|          RJ     AEC         ADVANCE ERROR COUNT
01635  M02S00301.286l859 ---|          EQ     PFL15       CHECK FOR FILE ERRORS
01636  M02S00302.286l859 ---|
01637  M02S00303.286l859 ---| PFL13    SA1    IDNU        SET INDIRECT ACCESS FILE COUNT
01638  M02S00304.286l859 ---| PFL14    SX6    B1
01639  M02S00305.286l859 ---|          IX6    X1+X6       ADVANCE FILE COUNT
01640  M02S00306.286l859 ---|          SA6    A1+
01641  M02S00307.286l859 ---| PFL15    SA1    FERC        FILE ERROR COUNT
01642  M02S00308.286l859 ---|          ZR     X1,PFL1     IF NO FILE ERRORS
01643  M02S00309.286l859 ---|          SA2    ERNU
01644  M02S00310.286l859 ---|          BX6    X6-X6       CLEAR FILE ERROR COUNT
01645  M02S00311.286l859 ---|          SX7    X2+B1       INCREMENT ERROR COUNT
01646  M02S00312.286l859 ---|          SA6    A1
01647  M02S00313.286l859 ---|          SA7    A2

Seq #  *Modification Id* Act 
----------------------------+
01648  M01S00247.286l859 +++| PFL12    SA1    TCBF+FCUI
01649  M01S00248.286l859 +++|          SB2    ERAB        * ARCHIVE FILE BLOCK ERROR ...*
01650  M01S00249.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01651  M01S00314.ns22000 +++|          EQ     PFL1        CHECK FOR END OF LOAD

Seq #  *Modification Id* Act 
----------------------------+
01652  M01S00942.ns22000 ---|          TITLE  SUBROUTINES

Seq #  *Modification Id* Act 
----------------------------+
01653  M01S00315.ns22000 +++|          TITLE  SUBROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
01654  M01S00943.pfloa19 ---| AAF      SPACE  4,20
01655  M01S00944.pfloa19 ---|**        AAF - ASSIGN ARCHIVE FILE.
01656  M01S00945.pfloa19 ---|*
01657  M01S00946.pfloa19 ---|*         EXIT   ARCHIVE FILE ASSIGNED.
01658  M01S00947.pfloa19 ---|*                OLD ARCHIVE FILE UNLOADED.
01659  M01S00948.pfloa19 ---|*                ARCHIVE FILE LABEL PROCESSED.
01660  M01S00949.pfloa19 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01661  M02S00950.pfloa19 ---|*         USES   X - 1, 4, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
01662  M02S00005.pfloa19 ---|*         USES   X - 0, 1, 4, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
01663  M01S00951.pfloa19 ---|*                A - 1, 4, 5, 6.
01664  M01S00952.pfloa19 ---|*
01665  M01S00953.pfloa19 ---|*         CALLS  PAL.
01666  M01S00954.pfloa19 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01667  M02S00955.pfloa19 ---|*         MACROS LABEL, MOVE, READCW, UNLOAD.

Seq #  *Modification Id* Act 
----------------------------+
01668  M02S00001.pfloa19 ---|*         MACROS LABEL, MESSAGE, MOVE, READCW, UNLOAD.

Seq #  *Modification Id* Act 
----------------------------+
01669  M01S00956.pfloa19 ---|
01670  M01S00957.pfloa19 ---|
01671  M01S00958.pfloa19 ---| AAF      SUBR               ENTRY/EXIT
01672  M01S00959.pfloa19 ---|          SA1    AAFA
01673  M01S00960.pfloa19 ---|          SX6    B1          SET NOT FIRST CALL FLAG
01674  M01S00961.pfloa19 ---|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
01675  M02S00962.pfloa19 ---|          ZR     X1,AAF2     IF FIRST CALL

Seq #  *Modification Id* Act 
----------------------------+
01676  M02S00006.pfloa19 ---|          ZR     X1,AAF3     IF FIRST CALL

Seq #  *Modification Id* Act 
----------------------------+
01677  M01S00963.pfloa19 ---|          UNLOAD TAPE,R      UNLOAD OLD ARCHIVE TAPE

Seq #  *Modification Id* Act 
----------------------------+
01678  M03S00316.pfloa19 ---|          SA1    X2+B1       SET IN=OUT=FIRST
01679  M03S00317.pfloa19 ---|          SX6    X1
01680  M03S00318.pfloa19 ---|          SA6    A1+B1
01681  M03S00319.pfloa19 ---|          SA6    A6+B1

Seq #  *Modification Id* Act 
----------------------------+
01682  M02S00964.pfloa19 ---|          SA5    IDSA+/COMSPFS/ADE1  DISPLAY TAPE REQUEST MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01683  M02S00021.pfloa19 ---|          SA5    IDSA+/COMSPFS/ADER  DISPLAY TAPE REQUEST MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01684  M01S00965.pfloa19 ---|          MOVE   4,MSGP,X5   * PFLOAD - ASSIGN TAPE.*
01685  M01S00966.pfloa19 ---| AAF1     SA4    TAPE+1      CLEAR DEVICE TYPE
01686  M01S00967.pfloa19 ---|          MX6    -48
01687  M01S00968.pfloa19 ---|          SX5    B1          CLEAR ERROR PROCESSING BIT
01688  M01S00969.pfloa19 ---|          BX4    -X6*X4
01689  M01S00970.pfloa19 ---|          LX5    44
01690  M01S00971.pfloa19 ---|          BX6    -X5*X4
01691  M01S00972.pfloa19 ---|          SA6    A4

Seq #  *Modification Id* Act 
----------------------------+
01692  M02S00973.pfloa19 ---|          LABEL  TAPE        REQUEST ARCHIVE FILE

Seq #  *Modification Id* Act 
----------------------------+
01693  M02S00007.pfloa19 ---|          SA1    CPAR+/COMSPFS/CPOP
01694  M02S00008.pfloa19 ---|          LX1    59-51
01695  M02S00009.pfloa19 ---|          PL     X1,AAF2     IF *OP=V* NOT SELECTED
01696  M02S00010.pfloa19 ---|          MX0    36
01697  M02S00011.pfloa19 ---|          SA1    VSNP        SET VSN IN FET
01698  M02S00012.pfloa19 ---|          BX6    X0*X1
01699  M02S00013.pfloa19 ---|          SA6    TAPE+9
01700  M02S00014.pfloa19 ---|          SX6    B0+         CLEAR UNUSED FET WORDS
01701  M02S00015.pfloa19 ---|          SA6    A6+B1
01702  M02S00016.pfloa19 ---|          SA6    A6+B1
01703  M02S00017.pfloa19 ---|          SA6    A6+B1
01704  M02S00018.pfloa19 ---|          SA6    A6+B1
01705  M02S00019.pfloa19 ---| AAF2     LABEL  TAPE        REQUEST ARCHIVE FILE

Seq #  *Modification Id* Act 
----------------------------+
01706  M01S00974.pfloa19 ---|          SA4    A4          SET ERROR PROCESSING BIT
01707  M01S00975.pfloa19 ---|          BX6    X5+X4
01708  M01S00976.pfloa19 ---|          SA6    A4

Seq #  *Modification Id* Act 
----------------------------+
01709  M02S00977.pfloa19 ---|          SA5    IDSA+/COMSPFS/ADE1  CLEAR TAPE REQUEST MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01710  M02S00022.pfloa19 ---|          SA5    IDSA+/COMSPFS/ADER  CLEAR TAPE REQUEST MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01711  M01S00978.pfloa19 ---|          MOVE   4,BLNK,X5

Seq #  *Modification Id* Act 
----------------------------+
01712  M02S00979.pfloa19 ---| AAF2     READCW TAPE,17B    INTIATE CONTROL WORD READ

Seq #  *Modification Id* Act 
----------------------------+
01713  M03S00020.pfloa19 ---| AAF3     READCW TAPE,17B    INITIATE CONTROL WORD READ

Seq #  *Modification Id* Act 
----------------------------+
01714  M02S00001.pfloa19 ---| AAF3     RECALL TAPE
01715  M02S00002.pfloa19 ---|          SA1    X2+B1       SET IN=OUT=FIRST
01716  M02S00003.pfloa19 ---|          SX6    X1
01717  M02S00004.pfloa19 ---|          SA6    A1+B1
01718  M02S00005.pfloa19 ---|          SA6    A6+B1
01719  M02S00006.pfloa19 ---|          READCW X2,17B      INITIATE CONTROL WORD READ

Seq #  *Modification Id* Act 
----------------------------+
01720  M01S00980.pfloa19 ---|          BX6    X6-X6       CLEAR CONTROL WORD STATUS WORD
01721  M01S00981.pfloa19 ---|          SA6    TAPE+CWSW
01722  M01S00982.pfloa19 ---|          RJ     PAL         CHECK ARCHIVE LABEL
01723  M01S00983.pfloa19 ---|          ZR     X6,AAFX     IF ARCHIVE LABEL GOOD

Seq #  *Modification Id* Act 
----------------------------+
01724  M02S00984.pfloa19 ---|          SA5    IDSA+/COMSPFS/ADE1  DISPLAY BAD LABEL TAPE REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01725  M02S00023.pfloa19 ---|          SA5    IDSA+/COMSPFS/ADER  DISPLAY BAD LABEL TAPE REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01726  M01S00985.pfloa19 ---|          MOVE   4,MSGQ,X5   * PFLOAD - LABEL BAD, ASSIGN NEW TAPE.*

Seq #  *Modification Id* Act 
----------------------------+
01727  M02S00002.pfloa19 ---|          MESSAGE  MSGQ      * PFLOAD - LABEL BAD, ASSIGN NEW TAPE.*

Seq #  *Modification Id* Act 
----------------------------+
01728  M01S00986.pfloa19 ---|          UNLOAD TAPE,R      UNLOAD BAD ARCHIVE FILE
01729  M01S00987.pfloa19 ---|          EQ     AAF1        REQUEST NEW ARCHIVE FILE
01730  M01S00988.pfloa19 ---|

Seq #  *Modification Id* Act 
----------------------------+
01731  M02S00030.pfloa19 ---|

Seq #  *Modification Id* Act 
----------------------------+
01732  M02S00989.pfloa19 ---| AAFA     BSSZ   1           NOT FIRST CALL FLAG
01733  M02S00990.pfloa19 ---|

Seq #  *Modification Id* Act 
----------------------------+
01734  M02S00320.pfloa19 ---| AAFA     CON    0           NOT FIRST CALL FLAG

Seq #  *Modification Id* Act 
----------------------------+
01735  M01S00991.286l859 ---| ABT      SPACE  4,25
01736  M01S00992.286l859 ---|**        ABT - ABORT PROCESSOR.
01737  M01S00993.286l859 ---|*
01738  M01S00994.286l859 ---|*         ENTRY  (UIFL) = UTILITY INTERLOCK FLAG.
01739  M01S00995.286l859 ---|*                (PAFL) = UTILITY PROCESSOR ACTIVITY FLAG.
01740  M01S00996.286l859 ---|*                (IPFF) = INCOMPLETE PERMANENT FILE FLAG.

Seq #  *Modification Id* Act 
----------------------------+
01741  M02S00997.286l859 ---|*                ABTE = ENTRY POINT FOR REPRIEVE PROCESSING.
01742  M02S00998.286l859 ---|*                ABT = ENTRY POINT FOR *PFLOAD* DETECTED ERROR.

Seq #  *Modification Id* Act 
----------------------------+
01743  M02S00031.286l859 ---|*                TO *ABT2*, IF *REPRIEVE* OF ERROR EXIT.

Seq #  *Modification Id* Act 
----------------------------+
01744  M01S00250.286l859 +++| APR      SPACE  4,15
01745  M01S00251.286l859 +++|**        APR - ABORT PROCESSOR.
01746  M00S00999.pfload  +++|*
01747  M00S01000.pfload  +++|*         EXIT   ANY INCOMPLETE PERMANENT FILE DELETED.
01748  M00S01001.pfload  +++|*                COMPLETE PERMANENT FILES FLUSHED TO MASS STORAGE.
01749  M00S01002.pfload  +++|*                UTILITY PROCESSOR DROPPED.
01750  M00S01003.pfload  +++|*                UTILITY INTERLOCK CLEAR.
01751  M00S01004.pfload  +++|*                PERMANENT FILE PARAMETERS RESTORED.
01752  M00S01005.pfload  +++|*                *PFLOAD* SYSTEM FILES RETURNED.

Seq #  *Modification Id* Act 
----------------------------+
01753  M02S00032.286l859 ---|*                OUTPUT FILES FLUSHED.

Proceed to Part 2