10 Modifications

Seq #  *Modification Id* Act 
----------------------------+
02751  M01S01148.comcpfs +++|
02752  M01S01149.comcpfs +++| CISA     DIS    5,             FILE      USER     ACCESS      LAST A
02753  M01S01150.comcpfs +++|          DIS    2,CCESS       DEVICE
02754  M01S01151.comcpfs +++| CISB     DIS    5,             NAME      INDEX    COUNT     DATE
02755  M01S01152.comcpfs +++|          DIS    2,   TIME     NUMBER
02756  M01S01153.comcpfs +++|          SPACE  4,10
02757  M01S01154.comcpfs +++|*         SUMMARY FILE DATA LOCATIONS AND ASSEMBLY BUFFER.
02758  M01S01155.comcpfs +++|

Seq #  *Modification Id* Act 
----------------------------+
02759  M02S01156.286l859 ---| AFID     DATA   0LARCFILE   ARCHIVE FILE BLOCK IDENTIFIER

Seq #  *Modification Id* Act 
----------------------------+
02760  M02S01157.286l859 ---| DSID     DATA   0LDEVSTAT   DEVICE STATUS BLOCK IDENTIFIER

Seq #  *Modification Id* Act 
----------------------------+
02761  M02S01158.286l859 ---| CIID     DATA   0LCIR       CIR BLOCK IDENTIFIER

Seq #  *Modification Id* Act 
----------------------------+
02762  M02S01159.286l859 ---| CEID     DATA   0LCATE      CATALOG ENTRIES BLOCK IDENTIFIER
02763  M01S01497.286l859 +++| TSBI     IVFD               TABLE OF SUMMARY FILE BLOCK IDENTIFIERS
02764  M01S01498.286l859 +++|          IVFD   /COMSPFS/SYSB,(60/0LSYSTEM)   SYSTEM
02765  M01S01499.286l859 +++|          IVFD   /COMSPFS/DSSB,(60/0LDEVSTAT)  DEVICE STATUS
02766  M01S01500.286l859 +++|          IVFD   /COMSPFS/AFSB,(60/0LARCFILE)  ARCHIVE FILE
02767  M01S01501.286l859 +++|          IVFD   /COMSPFS/CISB,(60/0LCIR)      CIR
02768  M01S01502.286l859 +++|          IVFD   /COMSPFS/CESB,(60/0LCATE)     CATALOG ENTRIES
02769  M01S01503.286l859 +++|          IVFD   /COMSPFS/MXSB,(60/0)          TERMINATOR WORD
02770  M01S01504.286l859 +++|          IVFD   /COMSPFS/MXSB+1
02771  M01S01505.286l859 +++|
02772  M01S01160.comcpfs +++| CFBI     DATA   0LSYSTEM    BLOCK CONTROL WORD IDENTIFIER
02773  M01S01161.comcpfs +++|
02774  M01S01162.comcpfs +++| SABI     CON    SABF        ASSEMBLY BUFFER IN POINTER
02775  M01S01163.comcpfs +++|
02776  M01S01164.comcpfs +++| SBCW     BSSZ   1           BLOCK CONTROL WORD
02777  M01S01165.comcpfs +++|
02778  M01S01166.comcpfs +++| SABF     BSSZ   SABFL       SUMMARY FILE BLOCK ASSEMBLY BUFFER
02779  M01S01506.286l859 +++|          SPACE  4,10
02780  M01S01507.286l859 +++|**        OUTPUT FILE FETS.
02781  M01S01508.286l859 +++|
02782  M01S01509.286l859 +++|
02783  M01S01510.286l859 +++| O        BSS    0           OUTPUT FILE
02784  M01S01511.286l859 +++| OUTPUT   FILEB  OUTB,OUTBL,FET=10
02785  M01S01512.286l859 +++|
02786  M01S01513.286l859 +++| SU       BSS    0           SUMMARY FILE
02787  M01S01514.286l859 +++| SUMMARY  FILEB  SUMB,SUMBL,FET=10
02788  M01S01515.286l859 +++|
02789  M01S01516.286l859 +++| PF       BSS    0           PROCESSED FILES LIST
02790  M01S01517.286l859 +++| ZZZZZGA  FILEB  PFLB,PFLBL,FET=10
02791  M01S01518.286l859 +++|          TITLE  COMCPFS - MERGE SORT INTERFACE ROUTINES.
02792  M01S01519.286l859 +++| ISF      SPACE  4,10
02793  M01S01520.286l859 +++|**        ISF - INITIALIZE SORT FILES.
02794  M01S01521.286l859 +++|*
02795  M01S01522.286l859 +++|*         EXIT   SORT FILES INITIALIZED FOR WRITE.
02796  M01S01523.286l859 +++|*
02797  M01S01524.286l859 +++|*         USES   X - 6.
02798  M01S01525.286l859 +++|*                A - 6.
02799  M01S01526.286l859 +++|*
02800  M01S01527.286l859 +++|*         MACROS WRITE.
02801  M01S01528.286l859 +++|
02802  M01S01529.286l859 +++|
02803  M01S01530.286l859 +++| ISF      SUBR               ENTRY/EXIT
02804  M01S01531.286l859 +++|          REWIND S1
02805  M01S01532.286l859 +++|          REWIND S2
02806  M01S01533.286l859 +++|          WRITE  S1,*
02807  M01S01534.286l859 +++|          WRITE  S2,*
02808  M01S01535.286l859 +++|          SX6    S1
02809  M01S01536.286l859 +++|          SA6    SFFA        SET SORT FILE FET ADDRESS
02810  M01S01537.286l859 +++|          EQ     ISFX        RETURN
02811  M01S01538.286l859 +++| WSB      SPACE  4,20
02812  M01S01539.286l859 +++|**        WSB - SORT ENTRIES AND WRITE SORT BUFFER TO FILE.
02813  M01S01540.286l859 +++|*
02814  M01S01541.286l859 +++|*         ENTRY  (X0) = SORT KEY MASK.
02815  M01S01542.286l859 +++|*                (X1) = LENGTH OF SORT KEY.
02816  M01S01543.286l859 +++|*                (B4) = FIRST WORD OF KEY (FIRST WORD OF ENTRY = 1).
02817  M01S01544.286l859 +++|*                (B5) = ENTRY LENGTH.
02818  M01S01545.286l859 +++|*                (B6) = LWA+1 OF ENTRIES IN *SRTB*.
02819  M01S01546.286l859 +++|*
02820  M01S01547.286l859 +++|*         EXIT   OUTPUT FILE FET POINTERS SWAPPED IF OUTPUT WRITTEN.
02821  M01S01548.286l859 +++|*
02822  M01S01549.286l859 +++|*         USES   X - 2, 5, 6.
02823  M01S01550.286l859 +++|*                A - 2, 6.
02824  M01S01551.286l859 +++|*                B - 2, 3, 7.
02825  M01S01552.286l859 +++|*
02826  M01S01553.286l859 +++|*         CALLS  GMS.
02827  M01S01554.286l859 +++|*
02828  M01S01555.286l859 +++|*         MACROS WRITEW.
02829  M01S01556.286l859 +++|
02830  M01S01557.286l859 +++|
02831  M01S01558.286l859 +++| WSB      SUBR               ENTRY/EXIT
02832  M01S01559.286l859 +++|
02833  M01S01560.286l859 +++|*         SORT ENTRIES IN BUFFER.
02834  M01S01561.286l859 +++|
02835  M01S01562.286l859 +++|          SB3    SRTB
02836  M01S01563.286l859 +++|          SX5    B6-B3       LENGTH OF ENTRIES IN SORT BUFFER
02837  M01S01564.286l859 +++|          SX2    B5          SET ENTRY LENGTH
02838  M01S01565.286l859 +++|          IX2    X5/X2       COUNT OF ENTRIES IN BUFFER
02839  M01S01566.286l859 +++|          SB6    X2          SET ENTRY COUNT
02840  M01S01567.286l859 +++|          SB2    B0          SET CHARACTER SORT
02841  M01S01568.286l859 +++|          SB3    B0          SET ASCENDING SORT
02842  M01S01569.286l859 +++|          SB7    SRTB        SET BUFFER ADDRESS
02843  M01S01570.286l859 +++|          RJ     GMS         SORT TABLE
02844  M01S01571.286l859 +++|
02845  M01S01572.286l859 +++|*         TOGGLE OUTPUT FET POINTERS AND WRITE BLOCK.
02846  M01S01573.286l859 +++|
02847  M01S01574.286l859 +++|          SA2    SFFA        GET FET ADDRESS
02848  M01S01575.286l859 +++|          SX6    S1&S2
02849  M01S01576.286l859 +++|          BX6    X2-X6       SET NEXT FET ADDRESS
02850  M01S01577.286l859 +++|          SA6    A2          UPDATE CURRENT SORT FILE
02851  M01S01578.286l859 +++|          WRITEW X2,SRTB,X5  WRITE BLOCK TO SORT FILE
02852  M01S01579.286l859 +++|          EQ     WSBX        RETURN
02853  M01S01580.286l859 +++|          SPACE  4,10
02854  M01S01581.286l859 +++|**        SORT WORKING BUFFERS.
02855  M01S01582.286l859 +++|
02856  M01S01583.286l859 +++|
02857  M01S01584.286l859 +++| SW1B     BSSZ   NWCS        WORKING BUFFER 1
02858  M01S01585.286l859 +++| SW2B     BSSZ   NWCS        WORKING BUFFER 2
02859  M01S01167.comcpfs +++|          TITLE  COMCPFS - COMMON GENERAL SUBROUTINES.
02860  M01S01168.comcpfs +++| DFN      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
02861  M02S01169.286l859 ---|**        DFN - DISPLAY FILE NAME AND SET MESSAGE PARAMETERS.
02862  M01S01586.286l859 +++|**        DFN - DISPLAY FILE NAME AND USER INDEX IN STATUS MESSAGE.
02863  M01S01170.comcpfs +++|*
02864  M01S01171.comcpfs +++|*         ENTRY  (X1) = FILE NAME AND USER INDEX.

Seq #  *Modification Id* Act 
----------------------------+
02865  M02S01172.286l859 ---|*                (X2) = ADDRESS OF MESSAGE DESCRIPTION STRING.
02866  M01S01587.286l859 +++|*                (X2) = MESSAGE VERB LEFT JUSTIFIED WITH BLANK FILL.
02867  M01S01173.comcpfs +++|*
02868  M01S01174.comcpfs +++|*         EXIT   FILE NAME AND USER INDEX OF FILE BEING PROCESSED

Seq #  *Modification Id* Act 
----------------------------+
02869  M02S01175.286l859 ---|*                DISPLAYED ON THE *K* AND *B* DISPLAYS.

Seq #  *Modification Id* Act 
----------------------------+
02870  M02S01176.286l859 ---|*                (MPFN) = FILE NAME.

Seq #  *Modification Id* Act 
----------------------------+
02871  M02S01177.286l859 ---|*                (MPUI) = USER INDEX.
02872  M01S01588.286l859 +++|*                  DISPLAYED ON THE *B* AND *K* DISPLAYS.
02873  M01S01178.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
02874  M02S01179.286l859 ---|*         USES   X - 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
02875  M02S01180.286l859 ---|*                A - 3, 6, 7.
02876  M01S01589.286l859 +++|*         USES   X - 1, 2, 3, 6.
02877  M01S01590.286l859 +++|*                A - 3, 6.
02878  M01S01181.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
02879  M02S01182.286l859 ---|*         MACROS EDITS, MESSAGE, MOVE.
02880  M01S01591.286l859 +++|*         CALLS  COD, SFN.
02881  M01S01592.286l859 +++|*
02882  M01S01593.286l859 +++|*         MACROS MESSAGE, MOVE.
02883  M01S01183.comcpfs +++|
02884  M01S01184.comcpfs +++|
02885  M01S01185.comcpfs +++| DFN      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
02886  M02S01186.286l859 ---|          MX7    42

Seq #  *Modification Id* Act 
----------------------------+
02887  M02S01187.286l859 ---|          BX6    X7*X1

Seq #  *Modification Id* Act 
----------------------------+
02888  M02S01188.286l859 ---|          BX7    -X7*X1

Seq #  *Modification Id* Act 
----------------------------+
02889  M02S01189.286l859 ---|          SA6    MPFN        SET FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
02890  M02S01190.286l859 ---|          SA7    MPUI        SET USER INDEX

Seq #  *Modification Id* Act 
----------------------------+
02891  M02S01191.286l859 ---|          EDITS  MSDF,X2     GENERATE FILE PROCESSING MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
02892  M02S01192.286l859 ---|          MESSAGE  X5,1      DISPLAY MESSAGE ON *B* AND *K* DISPLAY
02893  M01S01594.286l859 +++|          BX6    X2
02894  M01S01595.286l859 +++|          SA6    MSGB        SET MESSAGE VERB
02895  M01S01596.286l859 +++|          MX6    -18
02896  M01S01597.286l859 +++|          BX2    -X6*X1      USER INDEX
02897  M01S01598.286l859 +++|          BX1    X6*X1       FILE NAME
02898  M01S01599.286l859 +++|          RJ     SFN         SPACE FILL FILE NAME
02899  M01S01600.286l859 +++|          LX6    -6
02900  M01S01601.286l859 +++|          SA6    A6+1        SET FILE NAME
02901  M01S01602.286l859 +++|          BX1    X2
02902  M01S01603.286l859 +++|          RJ     COD         CONVERT USER INDEX
02903  M01S01604.286l859 +++|          LX6    24
02904  M01S01605.286l859 +++|          SA6    A6+B1       SET USER INDEX
02905  M01S01606.286l859 +++|          SX6    B0
02906  M01S01607.286l859 +++|          SA6    A6+B1       TERMINATE MESSAGE
02907  M01S01608.286l859 +++|          MESSAGE  MSGB,1    DISPLAY MESSAGE ON *B* DISPLAY
02908  M01S01193.comcpfs +++|          SA3    IDSA+/COMSPFS/ADMS

Seq #  *Modification Id* Act 
----------------------------+
02909  M02S01194.286l859 ---|          MOVE   3,X5,X3
02910  M01S01609.286l859 +++|          MOVE   3,MSGB,X3   SET MESSAGE IN *K* DISPLAY
02911  M01S01195.comcpfs +++|          EQ     DFNX        RETURN
02912  M01S01196.comcpfs +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
02913  M02S01197.286l859 ---|*         GLOBAL DATA LOCATIONS.
02914  M01S01610.286l859 +++|**        GLOBAL DATA LOCATIONS.
02915  M01S01198.comcpfs +++|
02916  M01S01199.comcpfs +++|

Seq #  *Modification Id* Act 
----------------------------+
02917  M02S01200.286l859 ---| PCOF     BSSZ   1           PFC ONLY FILE FLAG
02918  M01S01611.286l859 +++|*         FILE COUNT ACCUMULATORS.  THE ORDER OF THE LOCATIONS FROM
02919  M01S01612.286l859 +++|*         *PSAC* TO *PSACL* MUST MATCH THE ORDER OF THE FLAGS IN THE
02920  M01S01613.286l859 +++|*         PROCESSING STATUS JOB CONTROL REGISTER AND CANNOT BE CHANGED.
02921  M01S01614.286l859 +++|
02922  M01S01615.286l859 +++| PSAC     BSS    0           START OF FILE COUNT ACCUMULATORS
02923  M01S01616.286l859 +++| PRFC     CON    0           FILES PROCESSED COUNT
02924  M01S01617.286l859 +++| PEFC     CON    0           PROCESSED WITH ERRORS FILE COUNT
02925  M01S01618.286l859 +++| SEFC     CON    0           SKIPPED WITH ERRORS FILE COUNT
02926  M01S01619.286l859 +++| POFC     CON    0           PFC ONLY FILE COUNT
02927  M01S01620.286l859 +++| STFC     CON    0           COUNT OF DUMPED FILES STAGED
02928  M01S01621.286l859 +++| PPFC     CON    0           FILES POST PROCESSED
02929  M01S01622.286l859 +++| NPFC     CON    0           FILES NOT POST PROCESSED
02930  M01S01623.286l859 +++| PSACL    EQU    *-PSAC      LENGTH OF ACCUMULATORS FOR STATUS FLAGS
02931  M01S01624.286l859 +++|
02932  M01S01625.286l859 +++| FLST     CON    0           FILE STATUS WORD
02933  M01S01201.comcpfs +++| SYSS     CON    0           SYSTEM SECURITY MODE

Seq #  *Modification Id* Act 
----------------------------+
02934  M02S01202.286l859 ---| COM$     ENDIF
02935  M01S01203.comcpfs +++|          SPACE  4,10
02936  M01S01204.comcpfs +++| PFA$     IF     DEF,PFA$

Seq #  *Modification Id* Act 
----------------------------+
02937  M02S01205.286l859 ---| PLP      SPACE  4,20
02938  M01S01626.286l859 +++|          TITLE  COMCPFS - PFLOAD/PFAM ARCHIVE FILE ROUTINES.
02939  M01S01627.286l859 +++| BST      SPACE  4,15
02940  M01S01628.286l859 +++|**        BST - BUILD SUBFAMILY DEVICE TABLE.
02941  M01S01629.286l859 +++|*
02942  M01S01630.286l859 +++|*         ENTRY  (A0) = ADDRESS OF ARCHIVE FILE LABEL.
02943  M01S01631.286l859 +++|*
02944  M01S01632.286l859 +++|*         EXIT   MASTER DEVICE INDICES AND CATALOG TRACK MASKS SET IN
02945  M01S01633.286l859 +++|*                  *SFDT*.
02946  M01S01634.286l859 +++|*
02947  M01S01635.286l859 +++|*
02948  M01S01636.286l859 +++|*         USES   X - 1, 4, 6.
02949  M01S01637.286l859 +++|*                A - 1, 6.
02950  M01S01638.286l859 +++|*                B - 2, 3, 4.
02951  M01S01639.286l859 +++|
02952  M01S01640.286l859 +++|
02953  M01S01641.286l859 +++| BST      SUBR               ENTRY/EXIT
02954  M01S01642.286l859 +++|          SB2    10B         INITIALIZE SUBFAMILY INDEX
02955  M01S01643.286l859 +++| BST1     SB2    B2-1        DECREMENT SUBFAMILY INDEX
02956  M01S01644.286l859 +++|          NG     B2,BSTX     IF ALL SUBFAMILIES PROCESSED
02957  M01S01645.286l859 +++|          SA1    A0+/COMSPFS/D0AL-1
02958  M01S01646.286l859 +++|          SX4    10000B
02959  M01S01647.286l859 +++|          SB3    10B         INITIALIZE DEVICE ORDINAL
02960  M01S01648.286l859 +++|          LX4    X4,B2       SET SUBFAMILY MASK BIT
02961  M01S01649.286l859 +++| BST2     SA1    A1+B1       GET DEVICE DESCRIPTIONS FROM ARCHIVE LABEL
02962  M01S01650.286l859 +++|          SB4    3
02963  M01S01651.286l859 +++|          LX1    20
02964  M01S01652.286l859 +++| BST3     SB3    B3-B1       DECREMENT ARCHIVE FILE DEVICE ORDINAL
02965  M01S01653.286l859 +++|          SB4    B4-B1
02966  M01S01654.286l859 +++|          NG     B3,BST1     IF ALL DEVICES CHECKED
02967  M01S01655.286l859 +++|          ZR     B4,BST2     IF END OF DEVICES IN WORD
02968  M01S01656.286l859 +++|          LX1    -20
02969  M01S01657.286l859 +++|          BX6    X4*X1
02970  M01S01658.286l859 +++|          ZR     X6,BST3     IF NOT MASTER DEVICE FOR SUBFAMILY
02971  M01S01659.286l859 +++|          MX6    -12
02972  M01S01660.286l859 +++|          BX6    -X6*X1      NUMBER OF CATALOG TRACKS
02973  M01S01661.286l859 +++|          SX1    B3+
02974  M01S01662.286l859 +++|          SX6    X6-1        CATALOG TRACK MASK
02975  M01S01663.286l859 +++|          LX1    24          ARCHIVE FILE DEVICE ORDINAL
02976  M01S01664.286l859 +++|          BX6    X1+X6
02977  M01S01665.286l859 +++|          SA6    SFDT+B2     SET DEVICE ORDINAL AND CATALOG TRACK MASK
02978  M01S01666.286l859 +++|          EQ     BST1        PROCESS NEXT SUBFAMILY
02979  M01S01667.286l859 +++| PLP      SPACE  4,15
02980  M01S01206.comcpfs +++|**        PLP - PROCESS ARCHIVE FILE LABEL PARAMETERS.
02981  M01S01207.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
02982  M02S01208.286l859 ---|*         ENTRY  (X0) = ADDRESS OF ARCHIVE FILE LABEL IF LABEL FOUND.

Seq #  *Modification Id* Act 
----------------------------+
02983  M02S01209.286l859 ---|*                (X0) = 0 IF ARCHIVE FILE LABEL NOT FOUND.
02984  M01S01668.286l859 +++|*         ENTRY  (A0) = ADDRESS OF ARCHIVE FILE LABEL IF LABEL FOUND.
02985  M01S01669.286l859 +++|*                (A0) = 0 IF ARCHIVE FILE LABEL NOT FOUND.
02986  M01S01210.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
02987  M02S01211.286l859 ---|*         EXIT   DATE, TIME, AND FAMILY OR PACK NAME FROM ARCHIVE FILE

Seq #  *Modification Id* Act 
----------------------------+
02988  M02S01212.286l859 ---|*                  LABEL SET IN OUTPUT FILE HEADER IF ARCHIVE LABEL

Seq #  *Modification Id* Act 
----------------------------+
02989  M02S01213.286l859 ---|*                  FOUND.

Seq #  *Modification Id* Act 
----------------------------+
02990  M02S01214.286l859 ---|*                LABEL NOT FOUND MESSAGE SET IN OUTPUT FILE HEADER IF

Seq #  *Modification Id* Act 
----------------------------+
02991  M02S01215.286l859 ---|*                  ARCHIVE FILE LABEL NOT FOUND.
02992  M01S01670.286l859 +++|*         EXIT   ARCHIVE FILE LABEL PARAMETERS SET IN *AFIB*.
02993  M01S01671.286l859 +++|*                (AFDM) = ARCHIVE FILE DUMP MASK IF LAST ARCHIVE FILE.
02994  M01S01672.286l859 +++|*                DEVICE POSITION AND CATALOG TRACK INFORMATION SET FROM
02995  M01S01673.286l859 +++|*                  ARCHIVE LABEL IF LAST ARCHIVE FILE AND USER INDEX
02996  M01S01674.286l859 +++|*                  SELECTIONS ARE PRESENT.
02997  M01S01216.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
02998  M02S01217.286l859 ---|*         USES   X - 0, 1, 2, 6, 7.
02999  M01S01675.286l859 +++|*         USES   X - 1, 2, 6, 7.
03000  M01S01218.comcpfs +++|*                A - 1, 2, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03001  M02S01219.286l859 ---|*                B - 2, 3, 5.
03002  M01S01220.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
03003  M02S01221.286l859 ---|*         CALLS  FAB, MWA, REC, SNM, VDT, ZTB.

Seq #  *Modification Id* Act 
----------------------------+
03004  M02S01222.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
03005  M02S01223.286l859 ---|*         MACROS MOVE.
03006  M01S01676.286l859 +++|*         CALLS  BST, OAL, REC, SUM, VDT.
03007  M01S01224.comcpfs +++|
03008  M01S01225.comcpfs +++|
03009  M01S01677.286l859 +++|*         OUTPUT ARCHIVE FILE LABEL PARAMETERS.
03010  M01S01678.286l859 +++|
03011  M01S01679.286l859 +++| PLP6     RJ     OAL         OUTPUT ARCHIVE LABEL PARAMETERS
03012  M01S01680.286l859 +++|
03013  M01S01226.comcpfs +++| PLP      SUBR               ENTRY/EXIT
03014  M01S01227.comcpfs +++|

Seq #  *Modification Id* Act 
----------------------------+
03015  M02S01228.286l859 ---|*         SET LABEL PARAMETERS IN OUTPUT FILE HEADER.
03016  M01S01681.286l859 +++|*         BUILD ARCHIVE FILE IDENTIFIER BLOCK.
03017  M01S01229.comcpfs +++|

Seq #  *Modification Id* Act 
----------------------------+
03018  M02S01230.286l859 ---|          ZR     X0,PLP2     IF ARCHIVE FILE LABEL NOT FOUND

Seq #  *Modification Id* Act 
----------------------------+
03019  M02S01231.286l859 ---|          MOVE   2,PLPA,PGTB+1

Seq #  *Modification Id* Act 
----------------------------+
03020  M02S01232.286l859 ---|          SA1    X0+/COMSPFS/DAAL  SET LABEL DATE

Seq #  *Modification Id* Act 
----------------------------+
03021  M02S01233.286l859 ---|          SA2    X0+/COMSPFS/TIAL  SET LABEL TIME

Seq #  *Modification Id* Act 
----------------------------+
03022  M02S01234.286l859 ---|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
03023  M02S01235.286l859 ---|          BX7    X2

Seq #  *Modification Id* Act 
----------------------------+
03024  M02S01236.286l859 ---|          SA6    PGAD        SET ARCHIVE FILE DATE

Seq #  *Modification Id* Act 
----------------------------+
03025  M02S01237.286l859 ---|          SA7    PGAT        SET ARCHIVE FILE TIME

Seq #  *Modification Id* Act 
----------------------------+
03026  M02S01238.286l859 ---|          SA1    X0+/COMSPFS/FMAL

Seq #  *Modification Id* Act 
----------------------------+
03027  M02S01239.286l859 ---|          SB2    1R?

Seq #  *Modification Id* Act 
----------------------------+
03028  M02S01240.286l859 ---|          SB3    PGAF        SET ASSEMBLY ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03029  M02S01241.286l859 ---|          SB5    -PLPB

Seq #  *Modification Id* Act 
----------------------------+
03030  M02S01242.286l859 ---|          NZ     X1,PLP1     IF FAMILY NAME PRESENT

Seq #  *Modification Id* Act 
----------------------------+
03031  M02S01243.286l859 ---|          SA1    X0+/COMSPFS/PNAL  USE PACK NAME

Seq #  *Modification Id* Act 
----------------------------+
03032  M02S01244.286l859 ---|          SB5    -PLPC

Seq #  *Modification Id* Act 
----------------------------+
03033  M02S01245.286l859 ---| PLP1     MX6    42

Seq #  *Modification Id* Act 
----------------------------+
03034  M02S01246.286l859 ---|          BX1    X6*X1

Seq #  *Modification Id* Act 
----------------------------+
03035  M02S01247.286l859 ---|          RJ     SNM         SET FAMILY OR PACK NAME

Seq #  *Modification Id* Act 
----------------------------+
03036  M02S01248.286l859 ---|          SA1    PGAF+1      BLANK FILL FAMILY OR PACK NAME

Seq #  *Modification Id* Act 
----------------------------+
03037  M02S01249.286l859 ---|          RJ     ZTB

Seq #  *Modification Id* Act 
----------------------------+
03038  M02S01250.286l859 ---|          SA6    PGAF+1

Seq #  *Modification Id* Act 
----------------------------+
03039  M02S01251.286l859 ---|          SA1    PGAF+2

Seq #  *Modification Id* Act 
----------------------------+
03040  M02S01252.286l859 ---|          RJ     ZTB

Seq #  *Modification Id* Act 
----------------------------+
03041  M02S01253.286l859 ---|          SA6    PGAF+2

Seq #  *Modification Id* Act 
----------------------------+
03042  M02S01254.286l859 ---|          EQ     PLP3        CHECK SUMMARY FILE

Seq #  *Modification Id* Act 
----------------------------+
03043  M02S01255.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03044  M02S01256.286l859 ---| PLP2     MOVE   8,PLPD,PGTB+1  SET LABEL NOT FOUND MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
03045  M02S01257.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03046  M02S01258.286l859 ---|*         BUILD SUMMARY FILE ARCHIVE FILE IDENTIFIER BLOCK.

Seq #  *Modification Id* Act 
----------------------------+
03047  M02S01259.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03048  M02S01260.286l859 ---| PLP3     SA1    CPAR+/COMSPFS/CPSU

Seq #  *Modification Id* Act 
----------------------------+
03049  M02S01261.286l859 ---|          ZR     X1,PLPX     IF SUMMARY FILE NOT SELECTED

Seq #  *Modification Id* Act 
----------------------------+
03050  M02S01262.286l859 ---|          ZR     X0,PLP4     IF ARCHIVE FILE LABEL NOT FOUND

Seq #  *Modification Id* Act 
----------------------------+
03051  M02S01263.286l859 ---|          SA1    X0+/COMSPFS/FMAL  SET FAMILY OR PACK NAME

Seq #  *Modification Id* Act 
----------------------------+
03052  M02S01264.286l859 ---|          SA2    X0+/COMSPFS/PNAL
03053  M01S01682.286l859 +++|          SX1    A0+
03054  M01S01683.286l859 +++|          ZR     X1,PLP1     IF ARCHIVE FILE LABEL NOT FOUND
03055  M01S01684.286l859 +++|          SA1    A0+/COMSPFS/FMAL  SET FAMILY OR PACK NAME
03056  M01S01685.286l859 +++|          SA2    A0+/COMSPFS/PNAL
03057  M01S01265.comcpfs +++|          MX7    42
03058  M01S01266.comcpfs +++|          BX6    X7*X1
03059  M01S01267.comcpfs +++|          BX7    X7*X2

Seq #  *Modification Id* Act 
----------------------------+
03060  M02S01268.286l859 ---|          SA6    PLPE
03061  M01S01686.286l859 +++|          SA6    AFIB
03062  M01S01269.comcpfs +++|          SA7    A6+B1

Seq #  *Modification Id* Act 
----------------------------+
03063  M02S01270.286l859 ---|          SA1    X0+/COMSPFS/TIAL

Seq #  *Modification Id* Act 
----------------------------+
03064  M02S01271.286l859 ---|          SA2    X0+/COMSPFS/DAAL
03065  M01S01687.286l859 +++|          SA1    A0+/COMSPFS/TIAL
03066  M01S01688.286l859 +++|          SA2    A0+/COMSPFS/DAAL
03067  M01S01272.comcpfs +++|          BX6    X1          SAVE TIME

Seq #  *Modification Id* Act 
----------------------------+
03068  M02S01273.286l859 ---|          SA6    PLPF
03069  M01S01689.286l859 +++|          SA6    PLPA
03070  M01S01274.comcpfs +++|          RJ     REC         REMOVE EDIT CHARACTERS FROM DATE
03071  M01S01275.comcpfs +++|          SX2    B0+         SET DATE CONVERSION
03072  M01S01276.comcpfs +++|          RJ     VDT         CONVERT DATE TO PACKED FORMAT

Seq #  *Modification Id* Act 
----------------------------+
03073  M02S01277.286l859 ---|          NG     X6,PLP4     IF ERROR IN DATE
03074  M01S01690.286l859 +++|          NG     X6,PLP1     IF ERROR IN DATE
03075  M01S01278.comcpfs +++|          LX6    18

Seq #  *Modification Id* Act 
----------------------------+
03076  M02S01279.286l859 ---|          SA6    PLPE+2

Seq #  *Modification Id* Act 
----------------------------+
03077  M02S01280.286l859 ---|          SA2    PLPF
03078  M01S01691.286l859 +++|          SA6    AFIB+2
03079  M01S01692.286l859 +++|          SA2    PLPA
03080  M01S01281.comcpfs +++|          RJ     REC         REMOVE EDIT CHARACTERS FROM TIME
03081  M01S01282.comcpfs +++|          SX2    B1+         SET TIME CONVERSION
03082  M01S01283.comcpfs +++|          RJ     VDT         CONVERT TIME TO PACKED FORMAT

Seq #  *Modification Id* Act 
----------------------------+
03083  M02S01284.286l859 ---|          NG     X6,PLP4     IF ERROR IN TIME

Seq #  *Modification Id* Act 
----------------------------+
03084  M02S01285.286l859 ---|          SA1    PLPE+2      MERGE PACKED DATE AND TIME
03085  M01S01693.286l859 +++|          NG     X6,PLP1     IF ERROR IN TIME
03086  M01S01694.286l859 +++|          SA1    AFIB+2      MERGE PACKED DATE AND TIME
03087  M01S01286.comcpfs +++|          BX6    X6+X1
03088  M01S01287.comcpfs +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
03089  M02S01288.286l859 ---|          EQ     PLP5        WRITE BLOCK TO FILE
03090  M01S01695.286l859 +++|          EQ     PLP2        PROCESS DEVICE PARAMETERS
03091  M01S01289.comcpfs +++|

Seq #  *Modification Id* Act 
----------------------------+
03092  M02S01290.286l859 ---| PLP4     SX6    B0+         CLEAR ALL INFORMATION IN BLOCK

Seq #  *Modification Id* Act 
----------------------------+
03093  M02S01291.286l859 ---|          SA6    PLPE

Seq #  *Modification Id* Act 
----------------------------+
03094  M02S01292.286l859 ---|          SA6    PLPE+1

Seq #  *Modification Id* Act 
----------------------------+
03095  M02S01293.286l859 ---|          SA6    PLPE+2

Seq #  *Modification Id* Act 
----------------------------+
03096  M02S01294.286l859 ---| PLP5     RJ     FAB         FLUSH ASSEMBLY BUFFER

Seq #  *Modification Id* Act 
----------------------------+
03097  M02S01295.286l859 ---|          SA1    AFID        SET ARCHIVE FILE BLOCK IDENTIFIER

Seq #  *Modification Id* Act 
----------------------------+
03098  M02S01296.286l859 ---|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
03099  M02S01297.286l859 ---|          SA6    CFBI

Seq #  *Modification Id* Act 
----------------------------+
03100  M02S01298.286l859 ---|          SX1    3           SET BLOCK WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
03101  M02S01299.286l859 ---|          SX2    PLPE        SET DATA ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03102  M02S01300.286l859 ---|          SX0    3           SET NUMBER OF WORDS TO ALLOCATE

Seq #  *Modification Id* Act 
----------------------------+
03103  M02S01301.286l859 ---|          RJ     MWA         MOVE DATA TO ASSEMBLY BUFFER

Seq #  *Modification Id* Act 
----------------------------+
03104  M02S01302.286l859 ---|          EQ     PLPX        RETURN
03105  M01S01696.286l859 +++| PLP1     SX6    B0          CLEAR ALL INFORMATION IN BLOCK
03106  M01S01697.286l859 +++|          SA6    AFIB
03107  M01S01698.286l859 +++|          SA6    A6+B1
03108  M01S01699.286l859 +++|          SA6    A6+B1
03109  M01S01700.286l859 +++|          EQ     PLP6        OUTPUT LABEL PARAMETERS
03110  M01S01303.comcpfs +++|
03111  M01S01701.286l859 +++|*         PROCESS *PFDUMP* DEVICE PARAMETERS.  IF A SUBFAMILY USER
03112  M01S01702.286l859 +++|*         INDEX IS SELECTED, NO DEVICE POSITION WILL BE SET SINCE
03113  M01S01703.286l859 +++|*         *MSS* AND *MSE* CATALOGS ARE NOT DUMPED IN DEVICE ORDER.
03114  M01S01304.comcpfs +++|

Seq #  *Modification Id* Act 
----------------------------+
03115  M02S01305.286l859 ---| PLPA     DATA   20HARCHIVE FILE CREATED

Seq #  *Modification Id* Act 
----------------------------+
03116  M02S01306.286l859 ---| PLPB     DATA   C*ARCHIVE FAMILY = ???????.*

Seq #  *Modification Id* Act 
----------------------------+
03117  M02S01307.286l859 ---| PLPC     DATA   C*ARCHIVE PACK NAME = ???????.*

Seq #  *Modification Id* Act 
----------------------------+
03118  M02S01308.286l859 ---| PLPD     DATA   80HARCHIVE FILE LABEL NOT FOUND.

Seq #  *Modification Id* Act 
----------------------------+
03119  M02S01309.286l859 ---| PLPE     BSSZ   3           ARCHIVE FILE IDENTIFIER BLOCK

Seq #  *Modification Id* Act 
----------------------------+
03120  M02S01310.286l859 ---| PLPF     CON    0           ARCHIVE FILE TIME
03121  M01S01704.286l859 +++| PLP2     SA1    CPAR+/COMSPFS/CPNB
03122  M01S01705.286l859 +++|          SX1    X1-2
03123  M01S01706.286l859 +++|          PL     X1,PLP6     IF NOT LAST ARCHIVE FILE
03124  M01S01707.286l859 +++|          SA1    /COMSPFS/FISP
03125  M01S01708.286l859 +++|          ZR     X1,PLP3     IF NO FILE SELECTIONS
03126  M01S01709.286l859 +++|          RJ     SUM         SET MASK FOR REMAINING FILE SELECTIONS
03127  M01S01710.286l859 +++|          SX6    X4+
03128  M01S01711.286l859 +++|          SA6    FLSM        SET FILE SELECTION MASK
03129  M01S01712.286l859 +++| PLP3     SA1    A0+/COMSPFS/MAAL
03130  M01S01713.286l859 +++|          MX6    -8
03131  M01S01714.286l859 +++|          BX6    -X6*X1
03132  M01S01715.286l859 +++|          SA6    AFDM        SET DUMP MASK
03133  M01S01716.286l859 +++|          LX1    59-35
03134  M01S01717.286l859 +++|          PL     X1,PLP6     IF DEVICE INFORMATION NOT PRESENT
03135  M01S01718.286l859 +++|          SA1    /COMSPFS/FISP
03136  M01S01719.286l859 +++|          ZR     X1,PLP6     IF NO USER INDEX SELECTIONS
03137  M01S01720.286l859 +++|          RJ     BST         BUILD SUBFAMILY DEVICE TABLE
03138  M01S01721.286l859 +++|          SA1    /COMSPFS/FISP
03139  M01S01722.286l859 +++|          SB5    X1          SET SELECTIONS TABLE ADDRESS
03140  M01S01723.286l859 +++|          SX5    B0          INITIALIZE DEVICE PARAMETERS
03141  M01S01724.286l859 +++| PLP4     SA1    B5          GET NEXT ENTRY
03142  M01S01725.286l859 +++|          SX7    377770B
03143  M01S01726.286l859 +++|          BX6    X5
03144  M01S01727.286l859 +++|          ZR     X1,PLP5     IF END OF ENTRIES
03145  M01S01728.286l859 +++|          BX6    X7*X1
03146  M01S01729.286l859 +++|          LX1    59-17
03147  M01S01730.286l859 +++|          SX6    X6-SBUI
03148  M01S01731.286l859 +++|          NG     X1,PLP4     IF PROCESSED FILE NAME ENTRY
03149  M01S01732.286l859 +++|          ZR     X6,PLP6     IF SUBFAMILY USER INDEX
03150  M01S01733.286l859 +++|          LX1    18
03151  M01S01734.286l859 +++|          MX2    -3
03152  M01S01735.286l859 +++|          BX2    -X2*X1      SUBFAMILY
03153  M01S01736.286l859 +++|          SA2    SFDT+X2
03154  M01S01737.286l859 +++|          LX1    -3
03155  M01S01738.286l859 +++|          SX3    X2          CATALOG TRACK MASK
03156  M01S01739.286l859 +++|          BX1    X3*X1       CATALOG TRACK
03157  M01S01740.286l859 +++|          BX2    -X3*X2      ARCHIVE FILE DEVICE ORDINAL
03158  M01S01741.286l859 +++|          BX2    X2+X1       DEVICE ORDINAL AND CATALOG TRACK
03159  M01S01742.286l859 +++|          SB5    B5+B1       ADVANCE ENTRY ADDRESS
03160  M01S01743.286l859 +++|          IX1    X5-X2
03161  M01S01744.286l859 +++|          PL     X1,PLP4     IF PREVIOUS UI POSITION NOT BEFORE CURRENT
03162  M01S01745.286l859 +++|          BX5    X2          UPDATE DEVICE PARAMETERS
03163  M01S01746.286l859 +++|          EQ     PLP4        GET NEXT ENTRY
03164  M01S01747.286l859 +++|
03165  M01S01748.286l859 +++| PLP5     SA6    MXDC        SET MAXIMUM DEVICE AND CATALOG TRACK
03166  M01S01749.286l859 +++|          EQ     PLP6        OUTPUT LABEL PARAMETERS
03167  M01S01750.286l859 +++|
03168  M01S01751.286l859 +++|
03169  M01S01752.286l859 +++| PLPA     CON    0           ARCHIVE FILE TIME
03170  M01S01311.comcpfs +++| REC      SPACE  4,10
03171  M01S01312.comcpfs +++|**        REC - REMOVE EDIT CHARACTERS FROM DATE OR TIME.
03172  M01S01313.comcpfs +++|*
03173  M01S01314.comcpfs +++|*         ENTRY  (X2) = DATE IN YY/MM/DD. FORMAT OR TIME IN HH.MM.SS.
03174  M01S01315.comcpfs +++|*                       FORMAT.
03175  M01S01316.comcpfs +++|*
03176  M01S01317.comcpfs +++|*         EXIT   (X1) = DATE IN YYMMDD FORMAT OR TIME IN HHMMSS FORMAT
03177  M01S01318.comcpfs +++|*                       (LEFT JUSTIFIED).
03178  M01S01319.comcpfs +++|*
03179  M01S01320.comcpfs +++|*         USES   X - 1, 2, 6, 7.
03180  M01S01321.comcpfs +++|
03181  M01S01322.comcpfs +++|
03182  M01S01323.comcpfs +++| REC      SUBR               ENTRY/EXIT
03183  M01S01324.comcpfs +++|          MX6    12
03184  M01S01325.comcpfs +++|          LX2    6
03185  M01S01326.comcpfs +++|          BX1    X6*X2       YY OR HH
03186  M01S01327.comcpfs +++|          LX2    6
03187  M01S01328.comcpfs +++|          LX6    -12
03188  M01S01329.comcpfs +++|          BX7    X6*X2
03189  M01S01330.comcpfs +++|          BX1    X1+X7       YYMM OR HHMM
03190  M01S01331.comcpfs +++|          LX2    6
03191  M01S01332.comcpfs +++|          LX6    -12
03192  M01S01333.comcpfs +++|          BX7    X6*X2
03193  M01S01334.comcpfs +++|          BX1    X1+X7       YYMMDD OR HHMMSS
03194  M01S01335.comcpfs +++|          EQ     RECX        RETURN
03195  M01S01753.286l859 +++| SFDT     SPACE  4,10
03196  M01S01754.286l859 +++|**        SFDT - SUBFAMILY MASTER DEVICE TABLE.
03197  M01S01755.286l859 +++|*
03198  M01S01756.286l859 +++|*         INDEXED BY SUBFAMILY (BITS 0 - 2 OF USER INDEX).
03199  M01S01757.286l859 +++|*
03200  M01S01758.286l859 +++|*         ENTRY FORMAT -
03201  M01S01759.286l859 +++|*
03202  M01S01760.286l859 +++|*         24/ 0,12/ DO,24/ CTM.
03203  M01S01761.286l859 +++|*
03204  M01S01762.286l859 +++|*         DO = MASTER DEVICE ORDINAL ON ARCHIVE FILE (ORDER IN WHICH
03205  M01S01763.286l859 +++|*              FILES CATALOGED ON DEVICE WERE DUMPED).
03206  M01S01764.286l859 +++|*         CTM = CATALOG TRACK MASK.
03207  M01S01765.286l859 +++|
03208  M01S01766.286l859 +++|
03209  M01S01767.286l859 +++| SFDT     BSSZ   10B         SUBFAMILY DEVICE TABLE
03210  M01S01768.286l859 +++|          SPACE  4,10
03211  M01S01769.286l859 +++|
03212  M01S01770.286l859 +++|
03213  M01S01771.286l859 +++| AFDM     CON    377B        ARCHIVE FILE DUMP MASK
03214  M01S01772.286l859 +++| FLSM     CON    377B        FILE SELECTIONS MASK
03215  M01S01773.286l859 +++| MXDC     CON    0           MAXIMUM DEVICE AND CATALOG TRACK SELECTED
03216  M01S01336.comcpfs +++| PFA$     ENDIF
03217  M01S01337.comcpfs +++|          SPACE  4,10
03218  M01S01774.286l859 +++| PFR$     IF     DEF,PFR$
03219  M01S01775.286l859 +++|          TITLE  COMCPFS - ARCHIVE FILE READ ROUTINES.
03220  M01S01776.286l859 +++| CWR      SPACE  4,60
03221  M01S01777.286l859 +++|**        CWR - CONTROL WORD READ WORDS.
03222  M01S01778.286l859 +++|*
03223  M01S01779.286l859 +++|*         ENTRY  (X2) = FET ADDRESS.
03224  M01S01780.286l859 +++|*                (B6) = FWA OF WORKING BUFFER.
03225  M01S01781.286l859 +++|*                (B7) = WORD COUNT OF WORKING BUFFER.
03226  M01S01782.286l859 +++|*                (X2+CWSW) = 0 FOR FIRST CALL.
03227  M01S01783.286l859 +++|*                          = CONTENTS AT EXIT FROM PREVIOUS CALL,
03228  M01S01784.286l859 +++|*                            OTHERWISE.
03229  M01S01785.286l859 +++|*
03230  M01S01786.286l859 +++|*         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.
03231  M01S01787.286l859 +++|*                     = (B6) FOR EOR DETECTED ON FILE.
03232  M01S01788.286l859 +++|*                     = -1 FOR EOF DETECTED ON FILE.
03233  M01S01789.286l859 +++|*                     = -2 FOR EOI DETECTED ON FILE.
03234  M01S01790.286l859 +++|*                (X2) = FET ADDRESS.
03235  M01S01791.286l859 +++|*                (X7) = 0 IF NO ERROR DETECTED.
03236  M01S01792.286l859 +++|*                     = ERROR CODE FROM FET IF ERROR DETECTED.
03237  M01S01793.286l859 +++|*                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO
03238  M01S01794.286l859 +++|*                       WORKING BUFFER.
03239  M01S01795.286l859 +++|*                (B7) = WORD COUNT REMAINING TO BE TRANSFERRED.
03240  M01S01796.286l859 +++|*
03241  M01S01797.286l859 +++|*                *CWSW* IS A STATUS WORD USED BY *CWR* TO UNPACK
03242  M01S01798.286l859 +++|*                CONTROL WORD BLOCKS.  THIS WORD SHOULD BE CLEARED BY
03243  M01S01799.286l859 +++|*                THE CALLER BEFORE THE FIRST CALL TO *CWR*.  WHEN AN
03244  M01S01800.286l859 +++|*                EOR/EOF TERMINATION STATUS IS INDICATED BY *CWR* AS A
03245  M01S01801.286l859 +++|*                RESULT OF DETECTING A SHORT BLOCK IN THE BUFFER,
03246  M01S01802.286l859 +++|*                *CWSW* WILL BE NON-ZERO.  SUBSEQUENT CALLS TO *CWR*
03247  M01S01803.286l859 +++|*                WILL THEN CONTINUE TO INDICATE EOR/EOF TERMINATION
03248  M01S01804.286l859 +++|*                STATUS UNTIL *CWSW* IS AGAIN CLEARED BY THE CALLER.
03249  M01S01805.286l859 +++|*                THUS THE CLEARING OF *CWSW* IS ANALOGOUS TO THE USE
03250  M01S01806.286l859 +++|*                OF THE *READ* MACRO TO ADVANCE PAST EOR/EOF WHEN
03251  M01S01807.286l859 +++|*                USING *CIO* BUFFER READ OPERATIONS.
03252  M01S01808.286l859 +++|*
03253  M01S01809.286l859 +++|*                BEFORE THE FIRST CALL TO *CWR* OR FOLLOWING THE
03254  M01S01810.286l859 +++|*                DETECTION OF EOF/EOI IN THE FET STATUS FIELD, THE
03255  M01S01811.286l859 +++|*                *READCW* MACRO MUST BE ISSUED TO INITIATE A CONTROL
03256  M01S01812.286l859 +++|*                WORD READ OPERATION.  IF THE READ IS TO EOF
03257  M01S01813.286l859 +++|*                (*READCW   FET,17B*), AN EOF TERMINATION STATUS
03258  M01S01814.286l859 +++|*                INDICATES THAT AN EOF WAS DETECTED IN THE FET AND A
03259  M01S01815.286l859 +++|*                NEW READ MUST BE ISSUED IN ADDITION TO CLEARING *CWSW*
03260  M01S01816.286l859 +++|*                IN ORDER TO ADVANCE PAST EOF.  IF THE READ IS TO EOI
03261  M01S01817.286l859 +++|*                (*READCW   FET,0*), AN EOF TERMINATION STATUS
03262  M01S01818.286l859 +++|*                INDICATES THAT AN EOF BLOCK WAS DETECTED IN THE BUFFER
03263  M01S01819.286l859 +++|*                AND THAT ONLY *CWSW* NEED BE CLEARED TO ADVANCE PAST
03264  M01S01820.286l859 +++|*                EOF.
03265  M01S01821.286l859 +++|*
03266  M01S01822.286l859 +++|*                NOTE THAT THE FIRST TIME (X7) INDICATES AN ERROR, NO
03267  M01S01823.286l859 +++|*                BAD DATA WILL BE TRANSFERRED TO THE WORKING BUFFER.
03268  M01S01824.286l859 +++|*                SUBSEQUENT CALLS WILL CONTINUE TO INDICATE THE ERROR
03269  M01S01825.286l859 +++|*                BY THE (X7) AND WILL TRANSFER BAD DATA IF AVAILABLE.
03270  M01S01826.286l859 +++|*                IN ALL ERROR CASES (X1) WILL INDICATE EOR/EOF/EOI
03271  M01S01827.286l859 +++|*                STATUS AND (B6) AND (B7) WILL INDICATE WORKING BUFFER
03272  M01S01828.286l859 +++|*                STATUS AS FOR NON-ERROR CASES.  IN ERROR CASES,
03273  M01S01829.286l859 +++|*                HOWEVER, EVEN THOUGH (X1) MAY BE ZERO INDICATING
03274  M01S01830.286l859 +++|*                TRANSFER COMPLETE, (B6) OR (B7) MUST BE ANALYZED TO
03275  M01S01831.286l859 +++|*                DETERMINE HOW MUCH DATA WAS ACTUALLY TRANSFERRED TO
03276  M01S01832.286l859 +++|*                THE WORKING BUFFER.
03277  M01S01833.286l859 +++|*
03278  M01S01834.286l859 +++|*         USES   X - 1, 3, 4, 6, 7.
03279  M01S01835.286l859 +++|*                A - 1, 3, 4, 6, 7.
03280  M01S01836.286l859 +++|*                B - 5, 6, 7.
03281  M01S01837.286l859 +++|*
03282  M01S01838.286l859 +++|*         MACROS READW, RECALL.
03283  M01S01839.286l859 +++|
03284  M01S01840.286l859 +++|
03285  M01S01841.286l859 +++|*         SET ERROR STATUS CODE.
03286  M01S01842.286l859 +++|
03287  M01S01843.286l859 +++| CWR11    PL     X3,CWRX     IF CURRENT BLOCK NOT BAD
03288  M01S01844.286l859 +++|          BX4    X1          SAVE TERMINATION STATUS
03289  M01S01845.286l859 +++|          RECALL X2          WAIT FOR FILE NOT BUSY
03290  M01S01846.286l859 +++|          SA1    X2          GET ERROR CODE FROM FET
03291  M01S01847.286l859 +++|          SX3    36000B
03292  M01S01848.286l859 +++|          BX7    X3*X1
03293  M01S01849.286l859 +++|          SX1    X4          RESTORE TERMINATION STATUS
03294  M01S01850.286l859 +++|          LX7    -10
03295  M01S01851.286l859 +++|
03296  M01S01852.286l859 +++| CWR      SUBR               ENTRY/EXIT
03297  M01S01853.286l859 +++|
03298  M01S01854.286l859 +++|*         TRANSFER DATA TO WORKING BUFFER.
03299  M01S01855.286l859 +++|
03300  M01S01856.286l859 +++| CWR1     SA3    X2+CWSW     GET CONTROL WORD STATUS
03301  M01S01857.286l859 +++|          BX7    X7-X7       CLEAR ERROR STATUS
03302  M01S01858.286l859 +++|          SX1    B0          SET TRANSFER COMPLETE STATUS
03303  M01S01859.286l859 +++|          ZR     B7,CWR11    IF WORKING BUFFER FULL
03304  M01S01860.286l859 +++|          SB5    X3-1
03305  M01S01861.286l859 +++|          LE     B5,CWR3     IF CURRENT BLOCK EMPTY
03306  M01S01862.286l859 +++|          SX6    B7-B5       SET REMAINING WORKING BUFFER LENGTH
03307  M01S01863.286l859 +++|          GE     B7,B5,CWR2  IF BLOCK WILL FIT IN BUFFER
03308  M01S01864.286l859 +++|          BX6    X6-X6
03309  M01S01865.286l859 +++|          SB5    B7          SET TO FILL BUFFER
03310  M01S01866.286l859 +++| CWR2     SA6    CWRA        SAVE REMAINING WORKING BUFFER LENGTH
03311  M01S01867.286l859 +++|          SX1    B5          UPDATE BLOCK WORD COUNT
03312  M01S01868.286l859 +++|          IX7    X3-X1
03313  M01S01869.286l859 +++|          SA7    A3
03314  M01S01870.286l859 +++|          READW  X2,B6,B5    TRANSFER DATA TO WORKING BUFFER
03315  M01S01871.286l859 +++|          SA1    CWRA        RESTORE WORKING BUFFER LENGTH
03316  M01S01872.286l859 +++|          SB7    B7+X1
03317  M01S01873.286l859 +++|          EQ     CWR1        FILL REMAINDER OF WORKING BUFFER
03318  M01S01874.286l859 +++|
03319  M01S01875.286l859 +++|*         SAVE WORKING BUFFER PARAMETERS.
03320  M01S01876.286l859 +++|
03321  M01S01877.286l859 +++| CWR3     SX6    B7          SAVE WORKING BUFFER LENGTH
03322  M01S01878.286l859 +++|          SX7    B6          SAVE WORKING BUFFER ADDRESS
03323  M01S01879.286l859 +++|          SA6    CWRA
03324  M01S01880.286l859 +++|          SA7    A6+B1
03325  M01S01881.286l859 +++|          LX3    -18
03326  M01S01882.286l859 +++|          ZR     B5,CWR9     IF SECOND CONTROL WORD LEFT
03327  M01S01883.286l859 +++|
03328  M01S01884.286l859 +++|*         PROCESS FIRST CONTROL WORD.
03329  M01S01885.286l859 +++|
03330  M01S01886.286l859 +++| CWR4     SA4    CWRC
03331  M01S01887.286l859 +++|          PL     X4,CWR5     IF LAST BLOCK NOT BAD
03332  M01S01888.286l859 +++|          RECALL X2
03333  M01S01889.286l859 +++|          SA3    X2          CLEAR ERROR STATUS
03334  M01S01890.286l859 +++|          SX6    36000B
03335  M01S01891.286l859 +++|          BX6    -X6*X3
03336  M01S01892.286l859 +++|          SA6    A3
03337  M01S01893.286l859 +++| CWR5     READW  X2,CWRB,1   READ FIRST CONTROL WORD
03338  M01S01894.286l859 +++|          SA3    CWRA        RESTORE WORKING BUFFER LENGTH
03339  M01S01895.286l859 +++|          SA4    A3+B1       RESTORE WORKING BUFFER ADDRESS
03340  M01S01896.286l859 +++|          SB5    B7          SAVE TRANSFER COMPLETE STATUS
03341  M01S01897.286l859 +++|          SB7    X3
03342  M01S01898.286l859 +++|          SB6    X4
03343  M01S01899.286l859 +++|          NZ     B5,CWR7     IF CONTROL WORD NOT READ
03344  M01S01900.286l859 +++|          SA1    CWRB        BLOCK SIZE = BYTE COUNT / 5
03345  M01S01901.286l859 +++|          SX6    5
03346  M01S01902.286l859 +++|          SX3    X1
03347  M01S01903.286l859 +++|          PX3    X3
03348  M01S01904.286l859 +++|          PX6    X6
03349  M01S01905.286l859 +++|          NX6    X6
03350  M01S01906.286l859 +++|          FX7    X3/X6
03351  M01S01907.286l859 +++|          UX7,B5 X7
03352  M01S01908.286l859 +++|          LX7    X7,B5
03353  M01S01909.286l859 +++|          MX4    1           SAVE ERROR FLAG
03354  M01S01910.286l859 +++|          BX3    X4*X1
03355  M01S01911.286l859 +++|          LX1    -36         GET PRU SIZE
03356  M01S01912.286l859 +++|          SX6    X7+B1       ALLOW FOR SECOND CONTROL WORD
03357  M01S01913.286l859 +++|          SX1    X1
03358  M01S01914.286l859 +++|          IX7    X7-X1       CHECK FOR SHORT BLOCK
03359  M01S01915.286l859 +++|          BX6    X3+X6
03360  M01S01916.286l859 +++|          ZR     X7,CWR6     IF FULL BLOCK
03361  M01S01917.286l859 +++|          LX4    18-59       SET SHORT BLOCK FLAG
03362  M01S01918.286l859 +++|          BX6    X6+X4
03363  M01S01919.286l859 +++| CWR6     SA4    X2+CWSW     GET OLD STATUS WORD
03364  M01S01920.286l859 +++|          SA6    CWRC
03365  M01S01921.286l859 +++|          SA6    A4          SAVE NEW STATUS WORD
03366  M01S01922.286l859 +++|          BX6    X4-X6
03367  M01S01923.286l859 +++|          PL     X6,CWR1     IF NO CHANGE IN BLOCK STATUS
03368  M01S01924.286l859 +++|          BX1    X1-X1       SET TRANSFER COMPLETE STATUS
03369  M01S01925.286l859 +++|          EQ     CWR11       GET ERROR STATUS
03370  M01S01926.286l859 +++|
03371  M01S01927.286l859 +++|*         PROCESS EOF/EOI AND FET ERROR CODE STATUS.
03372  M01S01928.286l859 +++|
03373  M01S01929.286l859 +++| CWR7     SX3    X1+3
03374  M01S01930.286l859 +++|          ZR     X3,CWR8     IF READ ERROR
03375  M01S01931.286l859 +++|          BX7    X7-X7       CLEAR ERROR STATUS
03376  M01S01932.286l859 +++|          EQ     CWRX        RETURN
03377  M01S01933.286l859 +++|
03378  M01S01934.286l859 +++| CWR8     BX6    X6-X6       CLEAR STATUS WORD
03379  M01S01935.286l859 +++|          BX1    X1-X1
03380  M01S01936.286l859 +++|          SA6    X2+CWSW
03381  M01S01937.286l859 +++|          EQ     CWRX        RETURN
03382  M01S01938.286l859 +++|
03383  M01S01939.286l859 +++|*         PROCESS SECOND CONTROL WORD.
03384  M01S01940.286l859 +++|
03385  M01S01941.286l859 +++| CWR9     SX4    X3-2
03386  M01S01942.286l859 +++|          PL     X4,CWR10    IF SECOND CONTROL WORD ALREADY READ
03387  M01S01943.286l859 +++|          READW  X2,CWRB,1   READ SECOND CONTROL WORD
03388  M01S01944.286l859 +++|          SA3    X2+CWSW     CHECK SHORT BLOCK STATUS
03389  M01S01945.286l859 +++|          LX3    -18
03390  M01S01946.286l859 +++|          SX6    X3
03391  M01S01947.286l859 +++|          ZR     X6,CWR4     IF NOT SHORT BLOCK
03392  M01S01948.286l859 +++|          SA4    B6-B1       GET END OF RECORD LEVEL NUMBER
03393  M01S01949.286l859 +++|          IX3    X3+X6
03394  M01S01950.286l859 +++|          AX4    48
03395  M01S01951.286l859 +++|          IX6    X3+X4       SAVE LEVEL NUMBER IN STATUS WORD
03396  M01S01952.286l859 +++|          LX6    18
03397  M01S01953.286l859 +++|          SA6    A3
03398  M01S01954.286l859 +++| CWR10    SB5    X4-17B
03399  M01S01955.286l859 +++|          SA4    CWRA        RESTORE WORKING BUFFER LENGTH
03400  M01S01956.286l859 +++|          LX3    18
03401  M01S01957.286l859 +++|          SA1    A4+B1       RESTORE WORKING BUFFER ADDRESS
03402  M01S01958.286l859 +++|          SB7    X4
03403  M01S01959.286l859 +++|          BX7    X7-X7       CLEAR ERROR STATUS
03404  M01S01960.286l859 +++|          SB6    X1
03405  M01S01961.286l859 +++|          NZ     B5,CWR11    IF NOT LEVEL 17B END OF RECORD
03406  M01S01962.286l859 +++|          SX1    -B1         SET EOF STATUS
03407  M01S01963.286l859 +++|          EQ     CWR11       SET ERROR STATUS CODE
03408  M01S01964.286l859 +++|
03409  M01S01965.286l859 +++|
03410  M01S01966.286l859 +++| CWRA     BSSZ   2           WORKING BUFFER PARAMETER STORAGE
03411  M01S01967.286l859 +++| CWRB     CON    0           CONTROL WORD BUFFER
03412  M01S01968.286l859 +++| CWRC     CON    0           STATUS WORD FROM LAST BLOCK
03413  M01S01969.286l859 +++| PFR$     ENDIF
03414  M01S01970.286l859 +++|          SPACE  4,10
03415  M01S01971.286l859 +++| DVA$     IF     DEF,DVA$
03416  M01S01972.286l859 +++|          TITLE  COMCPFS - PERMANENT FILE DEVICE ACCESS ROUTINES.
03417  M01S01973.286l859 +++| SEI      SPACE  4,15
03418  M01S01974.286l859 +++|**        SEI - SET ERROR IDLE STATUS ON MASTER DEVICE.
03419  M01S01975.286l859 +++|*
03420  M01S01976.286l859 +++|*         ENTRY  (B2) = ERROR LOG MESSAGE ADDRESS.
03421  M01S01977.286l859 +++|*                (MAEQ) = MASTER DEVICE EST ORDINAL.
03422  M01S01978.286l859 +++|*
03423  M01S01979.286l859 +++|*         EXIT   ERROR IDLE STATUS SET ON MASTER DEVICE.
03424  M01S01980.286l859 +++|*                ERROR IDLE MESSAGE ISSUED TO ERROR LOG.
03425  M01S01981.286l859 +++|*
03426  M01S01982.286l859 +++|*         USES   X - 1, 4, 6.
03427  M01S01983.286l859 +++|*                A - 1, 6.
03428  M01S01984.286l859 +++|*                B - 2, 3, 5.
03429  M01S01985.286l859 +++|*
03430  M01S01986.286l859 +++|*         CALLS  COD, SNM.
03431  M01S01987.286l859 +++|*
03432  M01S01988.286l859 +++|*         MACROS CALLPFU, MESSAGE.
03433  M01S01989.286l859 +++|
03434  M01S01990.286l859 +++|
03435  M01S01991.286l859 +++| SEI      SUBR               ENTRY/EXIT
03436  M01S01992.286l859 +++|          SA1    MAEQ        GET MASTER DEVICE EST ORDINAL
03437  M01S01993.286l859 +++|          SX6    1           SET COMPLETION STATUS
03438  M01S01994.286l859 +++|          LX1    48
03439  M01S01995.286l859 +++|          BX6    X1+X6
03440  M01S01996.286l859 +++|          SA6    SEIA
03441  M01S01997.286l859 +++|          CALLPFU  A6,CTEI,R SET ERROR IDLE STATUS
03442  M01S01998.286l859 +++|          SA1    MAEQ
03443  M01S01999.286l859 +++|          SX1    X1+1000B    FORCE CONVERSION OF LEADING ZEROES
03444  M01S02000.286l859 +++|          SB5    -B2         SET TEMPLATE ADDRESS FOR *SNM*
03445  M01S02001.286l859 +++|          RJ     COD         CONVERT EST ORDINAL
03446  M01S02002.286l859 +++|          MX6    18
03447  M01S02003.286l859 +++|          LX4    6
03448  M01S02004.286l859 +++|          BX1    X6*X4       EST ORDINAL
03449  M01S02005.286l859 +++|          SB2    1R?
03450  M01S02006.286l859 +++|          SB3    MSGB        SET ASSEMBLY ADDRESS
03451  M01S02007.286l859 +++|          RJ     SNM         SET EST ORDINAL IN MESSAGE
03452  M01S02008.286l859 +++|          MESSAGE  MSGB,4    ISSUE ERROR LOG MESSAGE
03453  M01S02009.286l859 +++|          EQ     SEIX        RETURN
03454  M01S02010.286l859 +++|
03455  M01S02011.286l859 +++|
03456  M01S02012.286l859 +++| SEIA     BSS    1           *PFU* PARAMETER WORD
03457  M01S02013.286l859 +++|          SPACE  4,10
03458  M01S02014.286l859 +++|*         ERROR LOG MESSAGES.
03459  M01S02015.286l859 +++|
03460  M01S02016.286l859 +++|
03461  M01S02017.286l859 +++| ELWC     DATA   C*EQ??? ERROR IDLE SET - PF CATALOG WRITE ERROR.*
03462  M01S02018.286l859 +++| ELLI     DATA   C*EQ??? ERROR IDLE SET - INDIRECT PF LENGTH ERROR.*
03463  M01S02019.286l859 +++| ELWP     DATA   C*EQ??? ERROR IDLE SET - PF PERMITS WRITE ERROR.*
03464  M01S02020.286l859 +++|          SPACE  4,10
03465  M01S02021.286l859 +++|*         GLOBAL DATA LOCATIONS.
03466  M01S02022.286l859 +++|
03467  M01S02023.286l859 +++|
03468  M01S02024.286l859 +++| FMPN     BSSZ   1           FAMILY NAME OR PACK NAME
03469  M01S02025.286l859 +++| MASK     BSSZ   1           FILE SELECTION MASK
03470  M01S02026.286l859 +++| SXUF     BSSZ   1           *SYSTEMX* ONLY UI ON SUBFAMILY 7 FLAG
03471  M01S02027.286l859 +++|          SPACE  4,10
03472  M01S02028.286l859 +++|*         *GETPFP*, *SETPFP* PARAMETER BLOCKS.
03473  M01S02029.286l859 +++|
03474  M01S02030.286l859 +++|
03475  M01S02031.286l859 +++| SPAR     BSSZ   3           MODIFIED PERMANENT FILE PARAMETERS
03476  M01S02032.286l859 +++| GPAR     BSSZ   3           ORIGINAL PERMANENT FILE PARAMETERS
03477  M01S02033.286l859 +++|          SPACE  4,10
03478  M01S02034.286l859 +++|*         CATALOG FILE PARAMETER WORDS.
03479  M01S02035.286l859 +++|
03480  M01S02036.286l859 +++|
03481  M01S02037.286l859 +++|*T PDWD   42/ PN, 6/, 12/ EQ

Figure PDWD

03482  M01S02038.286l859 +++|*         PN = PACKNAME FOR AN AUXILIARY DEVICE.
03483  M01S02039.286l859 +++|*            = 0 FOR A FAMILY DEVICE.
03484  M01S02040.286l859 +++|*         EQ = EST ORDINAL OF A FAMILY DEVICE.
03485  M01S02041.286l859 +++|*            = 0 FOR AN AUXILIARY DEVICE.
03486  M01S02042.286l859 +++|
03487  M01S02043.286l859 +++| PDWD     BSS    1           PF DESCRIPTION WORD
03488  M01S02044.286l859 +++| MSTT     SPACE  4,20
03489  M01S02045.286l859 +++|**        MSTT - TABLE OF MST INFORMATION.
03490  M01S02046.286l859 +++|*
03491  M01S02047.286l859 +++|*         2 WORD ENTRIES, TERMINATED WITH A PAIR OF ZERO WORDS.
03492  M01S02048.286l859 +++|*
03493  M01S02049.286l859 +++|*T MSTT   12/ DATA,12/ CATS,12/ PETS,9/ NCTR,9/ EQ,6/ DN

Figure MSTT

03494  M01S02050.286l859 +++|*T MSTT+1 12/ MSTA,12/ SL,6/ AL,12/ MN,1/,1/0,8/ SM,8/ DM

Figure MSTT+1

03495  M01S02051.286l859 +++|*
03496  M01S02052.286l859 +++|*         DATA = FIRST TRACK OF INDIRECT DATA CHAIN.
03497  M01S02053.286l859 +++|*         CATS = FIRST CATALOG TRACK.
03498  M01S02054.286l859 +++|*         PETS = FIRST TRACK OF PERMIT CHAIN.
03499  M01S02055.286l859 +++|*         NCTR = NUMBER OF CATALOG TRACKS.
03500  M01S02056.286l859 +++|*         EQ = EST ORDINAL OF DEVICE.
03501  M01S02057.286l859 +++|*         DN = DEVICE NUMBER.
03502  M01S02058.286l859 +++|*         MSTA = MST ADDRESS / 10B
03503  M01S02059.286l859 +++|*         SL = SECTOR LIMIT.
03504  M01S02060.286l859 +++|*         AL = ACCESS LEVEL LIMITS.
03505  M01S02061.286l859 +++|*         MN = EQUIPMENT MNEMONIC.
03506  M01S02062.286l859 +++|*         SM = SECONDARY MASK (DIRECT ACCESS FILES).
03507  M01S02063.286l859 +++|*         DM = DEVICE MASK (INDIRECT ACCESS FILES AND CATALOGS).
03508  M01S02064.286l859 +++|
03509  M01S02065.286l859 +++|
03510  M01S02066.286l859 +++| MSTT     BSSZ   2*MSMX+2    MST TABLE
03511  M01S02067.286l859 +++| TMDA     SPACE  4,10
03512  M01S02068.286l859 +++|**        TMDA - TABLE OF MASTER DEVICE ADDRESSES.
03513  M01S02069.286l859 +++|*
03514  M01S02070.286l859 +++|*         INDEXED BY SUBFAMILY (LOWER 3 BITS OF USER INDEX).
03515  M01S02071.286l859 +++|*
03516  M01S02072.286l859 +++|*T TMDA   60/ *MSTT* ADDRESS OF MASTER DEVICE

Figure TMDA

03517  M01S02073.286l859 +++|
03518  M01S02074.286l859 +++|
03519  M01S02075.286l859 +++| TMDA     BSSZ   8
03520  M01S02076.286l859 +++|          SPACE  4,10
03521  M01S02077.286l859 +++|*         *MSS*/*MSE* ENVIRONMENT FLAGS.
03522  M01S02078.286l859 +++|
03523  M01S02079.286l859 +++|
03524  M01S02080.286l859 +++| ASFF     BSSZ   1           *MSE* ENVIRONMENT FLAG
03525  M01S02081.286l859 +++| MSSF     BSSZ   1           *MSS* ENVIRONMENT FLAG
03526  M01S02082.286l859 +++| DVA$     ENDIF
03527  M01S02083.286l859 +++|          SPACE  4,10
03528  M01S01338.comcpfs +++| PFD$     IF     DEF,PFD$
03529  M01S01339.comcpfs +++|          TITLE  COMCPFS - *PFDUMP*/*PFDM* CATALOG FILE ACCESS ROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
03530  M02S01340.286l859 ---| PCE      SPACE  4,25

Seq #  *Modification Id* Act 
----------------------------+
03531  M02S01341.286l859 ---|**        PCE - PROCESS CATALOG FILE ERRORS.

Seq #  *Modification Id* Act 
----------------------------+
03532  M02S01342.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
03533  M02S01343.286l859 ---|*         ENTRY  (B3) = FWA OF CATALOG ENTRIES.

Seq #  *Modification Id* Act 
----------------------------+
03534  M02S01344.286l859 ---|*                (B3) = 0 IF NO SECTOR READ DUE TO ERROR.

Seq #  *Modification Id* Act 
----------------------------+
03535  M02S01345.286l859 ---|*                (B6) = LWA+1 OF CATALOG ENTRIES.

Seq #  *Modification Id* Act 
----------------------------+
03536  M02S01346.286l859 ---|*                (X6) = *CIO* TRAILER CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
03537  M02S01347.286l859 ---|*                       (IF (B3)=0, CONTROL WORD FOR LAST SECTOR READ).

Seq #  *Modification Id* Act 
----------------------------+
03538  M02S01348.286l859 ---|*                (X7) = CATALOG FET ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
03539  M02S01349.286l859 ---|*                (CPAR+/COMSPFS/CPDN) = MASTER DEVICE NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
03540  M02S01350.286l859 ---|*                (MPCT) = CURRENT CATALOG TRACK.

Seq #  *Modification Id* Act 
----------------------------+
03541  M02S01351.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
03542  M02S01352.286l859 ---|*         EXIT   ERROR MESSAGES ISSUED FOR EACH OF THE AFFECTED

Seq #  *Modification Id* Act 
----------------------------+
03543  M02S01353.286l859 ---|*                  CATALOG ENTRIES.

Seq #  *Modification Id* Act 
----------------------------+
03544  M02S01354.286l859 ---|*                FET ERROR STATUS CLEARED FROM CATALOG FET.

Seq #  *Modification Id* Act 
----------------------------+
03545  M02S01355.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
03546  M02S01356.286l859 ---|*         USES   X - 1, 2, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03547  M02S01357.286l859 ---|*                A - 1, 2, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03548  M02S01358.286l859 ---|*                B - 3, 6.

Seq #  *Modification Id* Act 
----------------------------+
03549  M02S01359.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
03550  M02S01360.286l859 ---|*         CALLS  SEM.

Seq #  *Modification Id* Act 
----------------------------+
03551  M02S01361.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
03552  M02S01362.286l859 ---|*         MACROS EDITS.

Seq #  *Modification Id* Act 
----------------------------+
03553  M02S01363.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03554  M02S01364.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03555  M02S01365.286l859 ---| PCE      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
03556  M02S01366.286l859 ---|          SA7    PCEA        SAVE FET ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03557  M02S01367.286l859 ---|          SX7    B3+         SAVE FWA

Seq #  *Modification Id* Act 
----------------------------+
03558  M02S01368.286l859 ---|          SA7    PCEB

Seq #  *Modification Id* Act 
----------------------------+
03559  M02S01369.286l859 ---|          SX7    B6+         SAVE LWA+1

Seq #  *Modification Id* Act 
----------------------------+
03560  M02S01370.286l859 ---|          SA7    PCEC

Seq #  *Modification Id* Act 
----------------------------+
03561  M02S01371.286l859 ---|          MX3    -12         SET SECTOR NUMBER

Seq #  *Modification Id* Act 
----------------------------+
03562  M02S01372.286l859 ---|          BX7    -X3*X6

Seq #  *Modification Id* Act 
----------------------------+
03563  M02S01373.286l859 ---|          NZ     B3,PCE1     IF SECTOR READ

Seq #  *Modification Id* Act 
----------------------------+
03564  M02S01374.286l859 ---|          SX7    X7+B1       INCREMENT SECTOR NUMBER

Seq #  *Modification Id* Act 
----------------------------+
03565  M02S01375.286l859 ---|          BX7    -X3*X7

Seq #  *Modification Id* Act 
----------------------------+
03566  M02S01376.286l859 ---| PCE1     SA7    MPSC

Seq #  *Modification Id* Act 
----------------------------+
03567  M02S01377.286l859 ---|          LX6    11-23       SET TRACK NUMBER

Seq #  *Modification Id* Act 
----------------------------+
03568  M02S01378.286l859 ---|          BX7    -X3*X6

Seq #  *Modification Id* Act 
----------------------------+
03569  M02S01379.286l859 ---|          SA7    MPTK

Seq #  *Modification Id* Act 
----------------------------+
03570  M02S01380.286l859 ---|          LX6    11-23       SET EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
03571  M02S01381.286l859 ---|          BX7    -X3*X6

Seq #  *Modification Id* Act 
----------------------------+
03572  M02S01382.286l859 ---|          SA7    MPEQ

Seq #  *Modification Id* Act 
----------------------------+
03573  M02S01383.286l859 ---|          SA1    CPAR+/COMSPFS/CPDN  SET DEVICE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
03574  M02S01384.286l859 ---|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
03575  M02S01385.286l859 ---|          SA6    MPDN

Seq #  *Modification Id* Act 
----------------------------+
03576  M02S01386.286l859 ---|          SA1    MPPN

Seq #  *Modification Id* Act 
----------------------------+
03577  M02S01387.286l859 ---|          SB6    MSPN        SET PACK NAME SKELETON

Seq #  *Modification Id* Act 
----------------------------+
03578  M02S01388.286l859 ---|          NZ     X1,PCE2     IF PACK NAME SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
03579  M02S01389.286l859 ---|          SB6    MSCT        SET CATALOG TRACK SKELETON

Seq #  *Modification Id* Act 
----------------------------+
03580  M02S01390.286l859 ---| PCE2     EDITS  B6,MECR     GENERATE CATALOG READ ERROR MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
03581  M02S01391.286l859 ---|          SX6    B1+         SET ERRLOG FLAG

Seq #  *Modification Id* Act 
----------------------------+
03582  M02S01392.286l859 ---|          SA6    ELFG

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

Seq #  *Modification Id* Act 
----------------------------+
03584  M02S01394.286l859 ---|          SA1    PCEB        INITIALIZE CATALOG ENTRY INDEX

Seq #  *Modification Id* Act 
----------------------------+
03585  M02S01395.286l859 ---|          SB3    X1+

Seq #  *Modification Id* Act 
----------------------------+
03586  M02S01396.286l859 ---|          ZR     B3,PCE5     IF NO SECTOR READ DUE TO ERROR

Seq #  *Modification Id* Act 
----------------------------+
03587  M02S01397.286l859 ---| PCE3     SA1    B3+FCUI     SET USER INDEX

Seq #  *Modification Id* Act 
----------------------------+
03588  M02S01398.286l859 ---|          MX3    -18

Seq #  *Modification Id* Act 
----------------------------+
03589  M02S01399.286l859 ---|          BX6    -X3*X1

Seq #  *Modification Id* Act 
----------------------------+
03590  M02S01400.286l859 ---|          BX7    X3*X1       SET FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
03591  M02S01401.286l859 ---|          ZR     X6,PCE4     IF NULL CATALOG ENTRY (HOLE)

Seq #  *Modification Id* Act 
----------------------------+
03592  M02S01402.286l859 ---|          SA6    MPUI

Seq #  *Modification Id* Act 
----------------------------+
03593  M02S01403.286l859 ---|          SA7    MPFN

Seq #  *Modification Id* Act 
----------------------------+
03594  M02S01404.286l859 ---|          EDITS  MSFN,MECR   GENERATE MESSAGE WITH FILE NAME

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

Seq #  *Modification Id* Act 
----------------------------+
03596  M02S01406.286l859 ---| PCE4     SA1    PCEB        INCREMENT CATALOG ENTRY INDEX

Seq #  *Modification Id* Act 
----------------------------+
03597  M02S01407.286l859 ---|          SA2    PCEC

Seq #  *Modification Id* Act 
----------------------------+
03598  M02S01408.286l859 ---|          SB3    X1+NWCE

Seq #  *Modification Id* Act 
----------------------------+
03599  M02S01409.286l859 ---|          SX6    B3+

Seq #  *Modification Id* Act 
----------------------------+
03600  M02S01410.286l859 ---|          SA6    PCEB        SAVE INDEX

Seq #  *Modification Id* Act 
----------------------------+
03601  M02S01411.286l859 ---|          SB6    X2+

Seq #  *Modification Id* Act 
----------------------------+
03602  M02S01412.286l859 ---|          LT     B3,B6,PCE3  IF MORE CATALOG ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
03603  M02S01413.286l859 ---| PCE5     SA2    PCEA        CLEAR FET ERROR STATUS

Seq #  *Modification Id* Act 
----------------------------+
03604  M02S01414.286l859 ---|          SA2    X2+

Seq #  *Modification Id* Act 
----------------------------+
03605  M02S01415.286l859 ---|          SX7    36000B

Seq #  *Modification Id* Act 
----------------------------+
03606  M02S01416.286l859 ---|          BX6    -X7*X2

Seq #  *Modification Id* Act 
----------------------------+
03607  M02S01417.286l859 ---|          BX7    X7-X7       CLEAR DETAILED ERROR STATUS

Seq #  *Modification Id* Act 
----------------------------+
03608  M02S01418.286l859 ---|          SA6    A2+

Seq #  *Modification Id* Act 
----------------------------+
03609  M02S01419.286l859 ---|          SA7    A2+6

Seq #  *Modification Id* Act 
----------------------------+
03610  M02S01420.286l859 ---|          EQ     PCEX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
03611  M02S01421.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03612  M02S01422.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03613  M02S01423.286l859 ---| PCEA     BSS    1           FET ADDRESS SAVE AREA

Seq #  *Modification Id* Act 
----------------------------+
03614  M02S01424.286l859 ---| PCEB     BSS    1           FWA OF CATALOG ENTRIES - SAVE AREA

Seq #  *Modification Id* Act 
----------------------------+
03615  M02S01425.286l859 ---| PCEC     BSS    1           LWA+1 OF CATALOG ENTRIES - SAVE AREA
03616  M01S01426.comcpfs +++| PCI      SPACE  4,15
03617  M01S01427.comcpfs +++|**        PCI - PROCESS CATALOG TRACK INTERLOCK.
03618  M01S01428.comcpfs +++|*
03619  M01S01429.comcpfs +++|*         ENTRY  (X6) = ADDRESS OF FET TO PROCESS INTERLOCK WITH.
03620  M01S01430.comcpfs +++|*                (X7) = *PFU* FUNCTION CODE TO PROCESS INTERLOCK WITH.
03621  M01S01431.comcpfs +++|*
03622  M01S01432.comcpfs +++|*         EXIT   *PFU* CALLED TO PROCESS INTERLOCK.
03623  M01S01433.comcpfs +++|*                INTERLOCK MESSAGE POSTED AT LINE 2 OF THE CONTROL
03624  M01S01434.comcpfs +++|*                POINT AND ON THE *K* DISPLAY BEFORE INTERLOCKING
03625  M01S01435.comcpfs +++|*                AND CLEARED AFTER.
03626  M01S01436.comcpfs +++|*
03627  M01S01437.comcpfs +++|*         USES   X - 1, 2, 3.
03628  M01S01438.comcpfs +++|*                A - 1, 2, 3, 6, 7.
03629  M01S01439.comcpfs +++|*
03630  M01S01440.comcpfs +++|*         MACROS CALLPFU, MESSAGE, MOVE, RECALL.
03631  M01S01441.comcpfs +++|
03632  M01S01442.comcpfs +++|
03633  M01S01443.comcpfs +++| PCI      SUBR               ENTRY/EXIT
03634  M01S01444.comcpfs +++|          SA6    PCIA        SAVE FET ADDRESS
03635  M01S01445.comcpfs +++|          SA7    PCIB        SAVE *PFU* FUNCTION CODE
03636  M01S01446.comcpfs +++|          RECALL X6          WAIT FOR FET NON BUSY
03637  M01S01447.comcpfs +++|          SA3    IDSA+/COMSPFS/ADM1
03638  M01S01448.comcpfs +++|          MOVE   4,MEWC,X3   *WAIT FOR CATALOG INTERLOCK.*
03639  M01S01449.comcpfs +++|          MESSAGE  MEWC,2,R
03640  M01S01450.comcpfs +++|          SA2    PCIA        GET FET ADDRESS
03641  M01S01451.comcpfs +++|          SA1    PCIB        GET *PFU* FUNCTION CODE
03642  M01S01452.comcpfs +++|          CALLPFU  X2,X1,R   PROCESS CATALOG TRACK INTERLOCK
03643  M01S01453.comcpfs +++|          SA3    IDSA+/COMSPFS/ADM1
03644  M01S01454.comcpfs +++|          MOVE   4,MENL,X3   CLEAR INTERLOCK MESSAGE
03645  M01S01455.comcpfs +++|          MESSAGE  (=C**),2,R
03646  M01S01456.comcpfs +++|          EQ     PCIX        RETURN
03647  M01S01457.comcpfs +++|
03648  M01S01458.comcpfs +++|
03649  M01S01459.comcpfs +++| PCIA     BSS    1           TEMPORARY FET ADDRESS STORAGE
03650  M01S01460.comcpfs +++| PCIB     BSS    1           TEMPORARY *PFU* FUNCTION CODE STORAGE

Seq #  *Modification Id* Act 
----------------------------+
03651  M02S01461.286l859 ---| RCE      SPACE  4,30

Seq #  *Modification Id* Act 
----------------------------+
03652  M02S01462.286l859 ---|**        RCE - READ CATALOG ENTRIES.
03653  M01S02084.286l859 +++| RCS      SPACE  4,20
03654  M01S02085.286l859 +++|**        RCS - READ CATALOG SECTOR.
03655  M01S01463.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
03656  M02S01464.286l859 ---|*         IF THE CATALOG ENTRIES BEING READ ARE IN 8-WORD FORMAT

Seq #  *Modification Id* Act 
----------------------------+
03657  M02S01465.286l859 ---|*         AND *PF8$* IS DEFINED, THEY ARE CONVERTED TO 16-WORD

Seq #  *Modification Id* Act 
----------------------------+
03658  M02S01466.286l859 ---|*         FORMAT.  WHEN SUCH A CONVERSION OCCURS, THE ENTRY

Seq #  *Modification Id* Act 
----------------------------+
03659  M02S01467.286l859 ---|*         POINTERS (REGISTERS B3 AND B6) REFERENCE THE CATALOG

Seq #  *Modification Id* Act 
----------------------------+
03660  M02S01468.286l859 ---|*         CONVERSION BUFFER *CCBUF* INSTEAD OF THE CATALOG READ

Seq #  *Modification Id* Act 
----------------------------+
03661  M02S01469.286l859 ---|*         BUFFER *CBUF*.
03662  M01S02086.286l859 +++|*         ENTRY  (X2) = FET ADDRESS.
03663  M01S01470.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
03664  M02S01471.286l859 ---|*         ENTRY  (X2) = CATALOG FILE FET ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
03665  M02S01472.286l859 ---|*                (CFMT) = CATALOG ENTRY FORMAT CODE IF *PF8$* DEFINED.

Seq #  *Modification Id* Act 
----------------------------+
03666  M02S01473.286l859 ---|*                       = 0, IF  8-WORD FORMAT.

Seq #  *Modification Id* Act 
----------------------------+
03667  M02S01474.286l859 ---|*                       = 1, IF 16-WORD FORMAT.
03668  M01S02087.286l859 +++|*         EXIT   (X1) = 0 IF SECTOR READ WITHOUT ERROR.
03669  M01S02088.286l859 +++|*                (X1) .GT. 0 IF EOR, EOF, OR EOI ENCOUNTERED OR READ
03670  M01S02089.286l859 +++|*                     ERROR WITH NO DATA TRANSFERRED.
03671  M01S02090.286l859 +++|*                (X1) .LT. 0 IF SECTOR READ WITH ERROR IN DATA.
03672  M01S02091.286l859 +++|*                CATALOG ENTRIES IN *CSBF* IF DATA READ.
03673  M01S02092.286l859 +++|*                (CSTC) = CATALOG SECTOR TRAILING CONTROL WORD IF DATA
03674  M01S02093.286l859 +++|*                         READ.
03675  M01S02094.286l859 +++|*                (CSLW) = LWA+1 OF LAST ENTRY IN *CSBF* IF DATA READ.
03676  M01S01475.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
03677  M02S01476.286l859 ---|*         EXIT   (B3) = FWA OF CATALOG ENTRIES.

Seq #  *Modification Id* Act 
----------------------------+
03678  M02S01477.286l859 ---|*                (B6) = LWA+1 OF CATALOG ENTRIES.

Seq #  *Modification Id* Act 
----------------------------+
03679  M02S01478.286l859 ---|*                (CFTS) = NEW CATALOG FILE TERMINATION STATUS.

Seq #  *Modification Id* Act 
----------------------------+
03680  M02S01479.286l859 ---|*                      = 0, IF NOT END OF CATALOG TRACK.

Seq #  *Modification Id* Act 
----------------------------+
03681  M02S01480.286l859 ---|*                      = 1, IF END OF CATALOG TRACK.

Seq #  *Modification Id* Act 
----------------------------+
03682  M02S01481.286l859 ---|*                (CSCW) = LIST OF *CIO* TRAILER CONTROL WORDS FOR

Seq #  *Modification Id* Act 
----------------------------+
03683  M02S01482.286l859 ---|*                       CATALOG SECTORS CURRENTLY IN CATALOG BUFFER.
03684  M01S02095.286l859 +++|*         USES   X - 1, 3, 4, 5, 6, 7.
03685  M01S02096.286l859 +++|*                A - 1, 2, 3, 4, 6, 7.
03686  M01S02097.286l859 +++|*                B - 2, 6, 7.
03687  M01S01483.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
03688  M02S01484.286l859 ---|*         USES   X - 0, 1, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03689  M02S01485.286l859 ---|*                A - 1, 2, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03690  M02S01486.286l859 ---|*                B - 3, 6.
03691  M01S02098.286l859 +++|*         CALLS  SFE.
03692  M01S01487.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
03693  M02S01488.286l859 ---|*         CALLS  CCF, PCE.

Seq #  *Modification Id* Act 
----------------------------+
03694  M02S01489.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
03695  M02S01490.286l859 ---|*         MACROS READO, READW.
03696  M01S02099.286l859 +++|*         MACROS RECALL, READW.
03697  M01S01491.comcpfs +++|
03698  M01S01492.comcpfs +++|

Seq #  *Modification Id* Act 
----------------------------+
03699  M02S01493.286l859 ---| RCE      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
03700  M02S01494.286l859 ---|          BX6    X2          SAVE CATALOG FET ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03701  M02S01495.286l859 ---|          SA6    RCEA

Seq #  *Modification Id* Act 
----------------------------+
03702  M02S01496.286l859 ---|          BX6    X6-X6       CLEAR END OF CATALOG TRACK FLAG

Seq #  *Modification Id* Act 
----------------------------+
03703  M02S01497.286l859 ---|          SA6    CFTS
03704  M01S02100.286l859 +++| RCS      SUBR               ENTRY/EXIT
03705  M01S02101.286l859 +++|          READW  X2,RCSA,1   READ LEADING CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
03706  M02S02102.cpfs2   ---|          SX6    X1+         SAVE STATUS
03707  M01S00011.cpfs2   +++|          SX4    B1          PRESET FATAL ERROR
03708  M01S00012.cpfs2   +++|          SX6    X1          SAVE STATUS
03709  M01S02103.286l859 +++|          SX1    X1+3
03710  M01S02104.286l859 +++|          SB2    ERCR        * CATALOG READ ERROR ...*
03711  M01S02105.286l859 +++|          ZR     X1,RCS1     IF READ ERROR
03712  M01S02106.286l859 +++|          NZ     X6,RCSX     IF EOR, EOF, OR EOI
03713  M01S02107.286l859 +++|          SA3    RCSA
03714  M01S02108.286l859 +++|          SX6    5
03715  M01S02109.286l859 +++|          SX3    X3          SECTOR LENGTH IN BYTES
03716  M01S02110.286l859 +++|          IX3    X3/X6       SECTOR LENGTH IN WORDS
03717  M01S02111.286l859 +++|          MX6    -4
03718  M01S02112.286l859 +++|          SX7    CSBF+X3
03719  M01S02113.286l859 +++|          BX6    -X6*X3
03720  M01S02114.286l859 +++|          ERRNZ  NWCE-20B
03721  M01S02115.286l859 +++|          SB2    ERCB        * CATALOG SECTOR BAD ...*
03722  M01S02116.286l859 +++|          NZ     X6,RCS1     IF LENGTH NOT MULTIPLE OF *NWCE*
03723  M01S02117.286l859 +++|          SA7    CSLW        SET LWA+1 OF ENTRIES IN *CSBF*
03724  M01S02118.286l859 +++|          READW  X2,CSBF,X3  READ DATA
03725  M01S02119.286l859 +++|          READW  X2,CSTC,1   READ TRAILING CONTROL WORD
03726  M01S02120.286l859 +++|*         SX1    B0          SET READ COMPLETE STATUS
03727  M01S02121.286l859 +++|          SA4    RCSA
03728  M01S02122.286l859 +++|          PL     X4,RCSX     IF NO ERROR IN SECTOR DATA
03729  M01S00013.cpfs2   +++|          SB2    ERCR        * CATALOG READ ERROR ...*
03730  M01S01498.comcpfs +++|

Seq #  *Modification Id* Act 
----------------------------+
03731  M02S01499.286l859 ---|*         INITIALIZE READ CONTROLS.

Seq #  *Modification Id* Act 
----------------------------+
03732  M02S02123.cpfs2   ---|*         PROCESS READ ERROR WITH DATA TRANSFERRED.
03733  M01S00014.cpfs2   +++|*         CLEAR ERROR CODE IN FET.
03734  M01S01500.comcpfs +++|

Seq #  *Modification Id* Act 
----------------------------+
03735  M02S01501.286l859 ---|          SX6    CBUF        FWA OF BUFFER (IN)

Seq #  *Modification Id* Act 
----------------------------+
03736  M02S01502.286l859 ---|          SA6    RCEB

Seq #  *Modification Id* Act 
----------------------------+
03737  M02S01503.286l859 ---|          SX6    CBUFL       BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
03738  M02S01504.286l859 ---|          SA6    RCEC

Seq #  *Modification Id* Act 
----------------------------+
03739  M02S01505.286l859 ---|          SX6    CSCW        FWA OF *CIO* TRAILER CONTROL WORD LIST

Seq #  *Modification Id* Act 
----------------------------+
03740  M02S01506.286l859 ---|          SA6    RCED

Seq #  *Modification Id* Act 
----------------------------+
03741  M02S01507.286l859 ---|          SA1    CWNP

Seq #  *Modification Id* Act 
----------------------------+
03742  M02S01508.286l859 ---|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
03743  M02S01509.286l859 ---|          NZ     X6,RCE5     IF UNPROCESSED CONTROL WORD LEFTOVER

Seq #  *Modification Id* Act 
----------------------------+
03744  M02S02124.cpfs2   ---|          RECALL X2          WAIT *CIO* COMPLETE
03745  M01S00015.cpfs2   +++| RCS1     RECALL X2          WAIT *CIO* COMPLETE
03746  M01S02125.286l859 +++|          SA1    X2
03747  M01S02126.286l859 +++|          SX6    36000B
03748  M01S02127.286l859 +++|          BX6    -X6*X1      CLEAR ERROR CODE IN FET STATUS
03749  M01S02128.286l859 +++|          SX7    B0
03750  M01S02129.286l859 +++|          SA6    X2
03751  M01S02130.286l859 +++|          SA7    X2+6        CLEAR DETAILED ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
03752  M02S02131.cpfs2   ---|          SB2    ERCR        * CATALOG READ ERROR ...*

Seq #  *Modification Id* Act 
----------------------------+
03753  M02S02132.cpfs2   ---|          EQ     RCS2        ISSUE ERROR MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
03754  M02S01510.cpfs2   ---|

Seq #  *Modification Id* Act 
----------------------------+
03755  M03S01511.cpfs2   ---|*         READ *CIO* HEADER CONTROL WORD.

Seq #  *Modification Id* Act 
----------------------------+
03756  M02S02133.cpfs2   ---|*         SET FATAL ERROR.

Seq #  *Modification Id* Act 
----------------------------+
03757  M02S01512.cpfs2   ---|

Seq #  *Modification Id* Act 
----------------------------+
03758  M03S01513.cpfs2   ---| RCE1     READO  X2          READ *CIO* HEADER CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
03759  M03S01514.cpfs2   ---|          ZR     X1,RCE4     IF NOT END OF CATALOG TRACK

Proceed to Part 4