Common COMCPFS Part 001

10 Modifications

Seq #  *Modification Id* Act 
----------------------------+

Seq #  *Modification Id* Act 
----------------------------+
00726  M02S00485.286l859 ---|          AX3    X3,B7

Seq #  *Modification Id* Act 
----------------------------+
00727  M02S00486.286l859 ---|          PL     B2,EDS12    IF LEFT CIRCULAR SHIFT

Seq #  *Modification Id* Act 
----------------------------+
00728  M02S00487.286l859 ---|          SB2    B2+60       INSURE LEFT SHIFT

Seq #  *Modification Id* Act 
----------------------------+
00729  M02S00488.286l859 ---| EDS12    LX6    X6,B2

Seq #  *Modification Id* Act 
----------------------------+
00730  M02S00489.286l859 ---|          BX1    X3*X6

Seq #  *Modification Id* Act 
----------------------------+
00731  M02S00490.286l859 ---|          EQ     EDS16       RESTORE REGISTERS

Seq #  *Modification Id* Act 
----------------------------+
00732  M02S00491.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00733  M02S00492.286l859 ---|*         PROCESS DISPLAY CODED PARAMETER.

Seq #  *Modification Id* Act 
----------------------------+
00734  M02S00493.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00735  M02S00494.286l859 ---| EDS13    SA2    EDSB

Seq #  *Modification Id* Act 
----------------------------+
00736  M02S00495.286l859 ---|          SB5    EDBFL-1     SET MAXIMUM WORDS POSSIBLE

Seq #  *Modification Id* Act 
----------------------------+
00737  M02S00496.286l859 ---|          ZR     X2,EDS16    IF TO TAKE WHAT IS GIVEN IN *C* FORMAT

Seq #  *Modification Id* Act 
----------------------------+
00738  M02S00497.286l859 ---|          RJ     ZTB         CONVERT ZEROS TO BLANKS

Seq #  *Modification Id* Act 
----------------------------+
00739  M02S00498.286l859 ---|          SB3    10

Seq #  *Modification Id* Act 
----------------------------+
00740  M02S00499.286l859 ---|          BX1    X6

Seq #  *Modification Id* Act 
----------------------------+
00741  M02S00500.286l859 ---|          SB5    B1          SET ONE WORD MAXIMUM

Seq #  *Modification Id* Act 
----------------------------+
00742  M02S00501.286l859 ---| EDS14    SX7    1R          CHECK FOR FIRST NON-BLANK CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
00743  M02S00502.286l859 ---|          LX7    -6

Seq #  *Modification Id* Act 
----------------------------+
00744  M02S00503.286l859 ---|          MX0    6

Seq #  *Modification Id* Act 
----------------------------+
00745  M02S00504.286l859 ---|          BX6    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
00746  M02S00505.286l859 ---|          BX3    X6-X7

Seq #  *Modification Id* Act 
----------------------------+
00747  M02S00506.286l859 ---|          NZ     X3,EDS15    IF NON-BLANK FOUND

Seq #  *Modification Id* Act 
----------------------------+
00748  M02S00507.286l859 ---|          SB3    B3-B1

Seq #  *Modification Id* Act 
----------------------------+
00749  M02S00508.286l859 ---|          LX1    6           SHIFT TO CHECK NEXT CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
00750  M02S00509.286l859 ---|          NZ     B3,EDS14    IF NOT ALL CHARACTERS CHECKED

Seq #  *Modification Id* Act 
----------------------------+
00751  M02S00510.286l859 ---| EDS15    NG     X2,EDS16    IF TO BE LEFT JUSTIFIED WITH BLANK FILL

Seq #  *Modification Id* Act 
----------------------------+
00752  M02S00511.286l859 ---|          SB7    X2          FORM MASK

Seq #  *Modification Id* Act 
----------------------------+
00753  M02S00512.286l859 ---|          MX3    1

Seq #  *Modification Id* Act 
----------------------------+
00754  M02S00513.286l859 ---|          AX3    X3,B7

Seq #  *Modification Id* Act 
----------------------------+
00755  M02S00514.286l859 ---|          BX1    X3*X1       GET SPECIFIED NUMBER OF CHARACTERS

Seq #  *Modification Id* Act 
----------------------------+
00756  M02S00515.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00757  M02S00516.286l859 ---|*         INSERT PARAMETER VALUE INTO MESSAGE.

Seq #  *Modification Id* Act 
----------------------------+
00758  M02S00517.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00759  M02S00518.286l859 ---| EDS16    SA2    EDSC        RESTORE REGISTERS SAVED

Seq #  *Modification Id* Act 
----------------------------+
00760  M02S00519.286l859 ---|          BX7    X2

Seq #  *Modification Id* Act 
----------------------------+
00761  M02S00520.286l859 ---|          SA2    A2+B1

Seq #  *Modification Id* Act 
----------------------------+
00762  M02S00521.286l859 ---|          SA4    X2

Seq #  *Modification Id* Act 
----------------------------+
00763  M02S00522.286l859 ---|          SA3    A2+B1

Seq #  *Modification Id* Act 
----------------------------+
00764  M02S00523.286l859 ---|          BX4    X3

Seq #  *Modification Id* Act 
----------------------------+
00765  M02S00524.286l859 ---|          SA2    A3+B1

Seq #  *Modification Id* Act 
----------------------------+
00766  M02S00525.286l859 ---|          SB3    X2+

Seq #  *Modification Id* Act 
----------------------------+
00767  M02S00526.286l859 ---|          SA3    A2+1

Seq #  *Modification Id* Act 
----------------------------+
00768  M02S00527.286l859 ---|          SB4    X3

Seq #  *Modification Id* Act 
----------------------------+
00769  M02S00528.286l859 ---|          SB2    10          SET MAXIMUM CHARACTERS TO TRANSFER

Seq #  *Modification Id* Act 
----------------------------+
00770  M02S00529.286l859 ---|          MX0    -6

Seq #  *Modification Id* Act 
----------------------------+
00771  M02S00530.286l859 ---| EDS17    SB2    B2-B1

Seq #  *Modification Id* Act 
----------------------------+
00772  M02S00531.286l859 ---|          PL     B2,EDS18    IF NOT END OF WORD

Seq #  *Modification Id* Act 
----------------------------+
00773  M02S00532.286l859 ---|          SB5    B5-B1

Seq #  *Modification Id* Act 
----------------------------+
00774  M02S00533.286l859 ---|          ZR     B5,EDS1     IF ALL CHARACTERS TRANSFERRED

Seq #  *Modification Id* Act 
----------------------------+
00775  M02S00534.286l859 ---|          SA1    A1+1        GET NEXT WORD

Seq #  *Modification Id* Act 
----------------------------+
00776  M02S00535.286l859 ---|          SB2    9

Seq #  *Modification Id* Act 
----------------------------+
00777  M02S00536.286l859 ---| EDS18    LX1    6           GET NEXT CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
00778  M02S00537.286l859 ---|          BX2    -X0*X1

Seq #  *Modification Id* Act 
----------------------------+
00779  M02S00538.286l859 ---|          ZR     X2,EDS1     IF ALL NON-ZERO CHARACTERS TRANSFERRED

Seq #  *Modification Id* Act 
----------------------------+
00780  M02S00539.286l859 ---|          SB6    B1+

Seq #  *Modification Id* Act 
----------------------------+
00781  M02S00540.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00782  M02S00541.286l859 ---|*         INSERT CHARACTER INTO NEW MESSAGE.

Seq #  *Modification Id* Act 
----------------------------+
00783  M02S00542.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00784  M02S00543.286l859 ---| EDS19    LX7    6           ENTER CHARACTER INTO NEW MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
00785  M02S00544.286l859 ---|          BX7    X7+X2

Seq #  *Modification Id* Act 
----------------------------+
00786  M02S00545.286l859 ---|          SB4    B4-1        DECREMENT NEW MESSAGE CHARACTER COUNT

Seq #  *Modification Id* Act 
----------------------------+
00787  M02S00546.286l859 ---|          GT     B4,EDS20    IF NEW MESSAGE WORD NOT FULL

Seq #  *Modification Id* Act 
----------------------------+
00788  M02S00547.286l859 ---|          SX6    A0-EDBF-EDBFL+2

Seq #  *Modification Id* Act 
----------------------------+
00789  M02S00548.286l859 ---|          ZR     X6,EDS21    IF END OF MESSAGE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00790  M02S00549.286l859 ---|          SA7    A0+         SAVE NEW MESSAGE WORD

Seq #  *Modification Id* Act 
----------------------------+
00791  M02S00550.286l859 ---|          SA0    A0+B1

Seq #  *Modification Id* Act 
----------------------------+
00792  M02S00551.286l859 ---|          BX7    X7-X7

Seq #  *Modification Id* Act 
----------------------------+
00793  M02S00552.286l859 ---|          SB4    10          RESET CHARACTER COUNT

Seq #  *Modification Id* Act 
----------------------------+
00794  M02S00553.286l859 ---| EDS20    ZR     B6,EDS1     IF NON-REPLACEMENT CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
00795  M02S00554.286l859 ---|          NG     B6,EDS3     IF ERROR TYPE MESSAGE REPLACEMENT

Seq #  *Modification Id* Act 
----------------------------+
00796  M02S00555.286l859 ---|          EQ     EDS17       INSERT NEXT PARAMETER CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
00797  M02S00556.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00798  M02S00557.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00799  M02S00558.286l859 ---| EDSA     CON    0           ERROR TYPE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00800  M02S00559.286l859 ---| EDSB     CON    0           CONVERTED FORMAT CONTROL CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
00801  M02S00560.286l859 ---| EDSC     BSS    5           REGISTER SAVE AREA

Seq #  *Modification Id* Act 
----------------------------+
00802  M02S00561.286l859 ---| EDSD     DATA   10L0000000000

Seq #  *Modification Id* Act 
----------------------------+
00803  M02S00562.286l859 ---| SEM      SPACE  4,20
00804  M01S00241.286l859 +++| IFC      SPACE  4,25
00805  M01S00242.286l859 +++|**        IFC - ISSUE FILE COUNT MESSAGES.
00806  M01S00243.286l859 +++|*
00807  M01S00244.286l859 +++|*         ENTRY  (A5) = ADDRESS OF FIRST MESSAGE CONTROL TABLE ENTRY.
00808  M01S00245.286l859 +++|*                (X5) = FIRST MESSAGE CONTROL TABLE ENTRY.
00809  M01S00246.286l859 +++|*
00810  M01S00247.286l859 +++|*         EXIT   FILE COUNT MESSAGES ISSUED TO DAYFILE.
00811  M01S00248.286l859 +++|*
00812  M01S00249.286l859 +++|*         USES   X - 1, 5, 6.
00813  M01S00250.286l859 +++|*                A - 1, 5.
00814  M01S00251.286l859 +++|*                B - 2, 3, 5.
00815  M01S00252.286l859 +++|*
00816  M01S00253.286l859 +++|*         CALLS  CDD, SNM.
00817  M01S00254.286l859 +++|*
00818  M01S00255.286l859 +++|*         MACROS MESSAGE.
00819  M01S00256.286l859 +++|*
00820  M01S00257.286l859 +++|*         MESSAGE CONTROL TABLE FORMAT -
00821  M01S00258.286l859 +++|*
00822  M01S00259.286l859 +++|*         1/ ZR,1/ SS,22/ ,18/ MS,18/ CT
00823  M01S00260.286l859 +++|*
00824  M01S00261.286l859 +++|*         ZR = ISSUE MESSAGE IF COUNT = 0.
00825  M01S00262.286l859 +++|*         SS = SUPRESS LEADING SPACES IN CONVERTED COUNT.
00826  M01S00263.286l859 +++|*         MS = ADDRESS OF MESSAGE.
00827  M01S00264.286l859 +++|*         CT = ADDRESS OF COUNT.
00828  M01S00265.286l859 +++|
00829  M01S00266.286l859 +++|
00830  M01S00267.286l859 +++| IFC      SUBR               ENTRY/EXIT
00831  M01S00268.286l859 +++| IFC1     ZR     X5,IFCX     IF NO MORE MESSAGES
00832  M01S00269.286l859 +++|          SA1    X5+         GET FILE COUNT
00833  M01S00270.286l859 +++|          NZ     X1,IFC2     IF COUNT .NE. 0
00834  M01S00271.286l859 +++|          PL     X5,IFC6     IF NOT TO ISSUE MESSAGE
00835  M01S00272.286l859 +++| IFC2     RJ     CDD         CONVERT COUNT
00836  M01S00273.286l859 +++|          LX5    59-58
00837  M01S00274.286l859 +++|          MX1    1
00838  M01S00275.286l859 +++|          SB3    60
00839  M01S00276.286l859 +++|          NG     X5,IFC4     IF TO SUPRESS LEADING SPACES
00840  M01S00277.286l859 +++|          SB2    36          SET FIELD WIDTH
00841  M01S00278.286l859 +++| IFC4     SB3    B3-B2
00842  M01S00279.286l859 +++|          SB2    B2-1
00843  M01S00280.286l859 +++|          LX6    B3
00844  M01S00281.286l859 +++|          AX1    B2
00845  M01S00282.286l859 +++|          LX5    -19
00846  M01S00283.286l859 +++|          BX1    X1*X6
00847  M01S00284.286l859 +++|          SB5    X5          MESSAGE ADDRESS
00848  M01S00285.286l859 +++|          SB2    1R?
00849  M01S00286.286l859 +++|          RJ     SNM         SET COUNT IN MESSAGE
00850  M01S00287.286l859 +++|          LX5    18
00851  M01S00288.286l859 +++|          SA2    X5          RESET COUNT
00852  M01S00289.286l859 +++|          SX1    1RS
00853  M01S00290.286l859 +++|          LX1    -6
00854  M01S00291.286l859 +++|          SX6    1
00855  M01S00292.286l859 +++|          IX6    X2-X6
00856  M01S00293.286l859 +++|          NZ     X6,IFC5     IF COUNT .NE. 1
00857  M01S00294.286l859 +++|          SX1    0
00858  M01S00295.286l859 +++| IFC5     SB2    1R!
00859  M01S00296.286l859 +++|          RJ     SNM         SET SINGULAR OR PLURAL MESSAGE
00860  M01S00297.286l859 +++|          MESSAGE  B5
00861  M01S00298.286l859 +++| IFC6     SA5    A5+B1       GET NEXT ADDRESS
00862  M01S00299.286l859 +++|          EQ     IFC1        PROCESS NEXT MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
00863  M02S00300.cpfs2   ---| SDE      SPACE  4,10
00864  M01S00001.cpfs2   +++| SDE      SPACE  4,15
00865  M01S00301.286l859 +++|**        SDE - SEND FILE ERROR MESSAGE WITH DEVICE NUMBER.
00866  M01S00302.286l859 +++|*
00867  M01S00303.286l859 +++|*         ENTRY  (X1) = FILE NAME AND USER INDEX.
00868  M01S00304.286l859 +++|*                (X2) = DEVICE NUMBER.
00869  M01S00305.286l859 +++|*                (B2) = MESSAGE TEMPLATE ADDRESS.
00870  M01S00306.286l859 +++|*
00871  M01S00307.286l859 +++|*         EXIT   ERROR MESSAGE ISSUED.
00872  M01S00308.286l859 +++|*
00873  M01S00309.286l859 +++|*         USES   X - 1, 6.
00874  M01S00310.286l859 +++|*                A - 1, 6.

Seq #  *Modification Id* Act 
----------------------------+
00875  M02S00311.cpfs2   ---|*                B - 2, 5.
00876  M01S00002.cpfs2   +++|*                B - 2.
00877  M01S00312.286l859 +++|*
00878  M01S00313.286l859 +++|*         CALLS  COD, SEM, SNM.
00879  M01S00314.286l859 +++|
00880  M01S00315.286l859 +++|
00881  M01S00316.286l859 +++| SDE      SUBR               ENTRY/EXIT
00882  M01S00317.286l859 +++|          SX6    X2+
00883  M01S00318.286l859 +++|          SA6    SDEA        SAVE DEVICE NUMBER
00884  M01S00319.286l859 +++|          RJ     SFU         SET FILE NAME AND USER INDEX
00885  M01S00320.286l859 +++|          SA1    SDEA
00886  M01S00321.286l859 +++|          RJ     COD         CONVERT DEVICE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00887  M02S00322.cpfs2   ---|          BX1    X4
00888  M01S00003.cpfs2   +++|          SB2    B2-B1
00889  M01S00004.cpfs2   +++|          MX6    1
00890  M01S00005.cpfs2   +++|          AX6    B2          SET DIGITS MASK
00891  M01S00006.cpfs2   +++|          BX1    X6*X4       REMOVE TRAILING BLANKS
00892  M01S00323.286l859 +++|          SB2    1R+

Seq #  *Modification Id* Act 
----------------------------+
00893  M02S00324.cpfs2   ---|          SB5    MSGB
00894  M01S00325.286l859 +++|          RJ     SNM         SET DEVICE NUMBER IN MESSAGE
00895  M01S00326.286l859 +++|          SB2    MSGB        SET MESSAGE ADDRESS
00896  M01S00327.286l859 +++|          RJ     SEM         SEND ERROR MESSAGE
00897  M01S00328.286l859 +++|          EQ     SDEX        RETURN
00898  M01S00329.286l859 +++|
00899  M01S00330.286l859 +++|
00900  M01S00331.286l859 +++| SDEA     CON    0           DEVICE NUMBER
00901  M01S00332.286l859 +++| SEM      SPACE  4,15
00902  M01S00563.comcpfs +++|**        SEM - SEND ERROR MESSAGE.
00903  M01S00564.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
00904  M02S00565.286l859 ---|*         ENTRY  (X5) = MESSAGE ADDRESS.
00905  M01S00333.286l859 +++|*         ENTRY  (B2) = MESSAGE ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
00906  M02S00566.286l859 ---|*                (ELFG) = 0, IF MESSAGE NOT TO BE INCLUDED IN ERRLOG.

Seq #  *Modification Id* Act 
----------------------------+
00907  M02S00567.286l859 ---|*                       = 1, IF MESSAGE TO BE INCLUDED IN ERRLOG.
00908  M01S00568.comcpfs +++|*
00909  M01S00569.comcpfs +++|*         EXIT   MESSAGE SENT TO DAYFILE.
00910  M01S00570.comcpfs +++|*                IF *LO=E*, MESSAGE SENT TO OUTPUT FILE.

Seq #  *Modification Id* Act 
----------------------------+
00911  M02S00571.286l859 ---|*                IF (ELFG) = 1, MESSAGE SENT TO ERRLOG.

Seq #  *Modification Id* Act 
----------------------------+
00912  M02S00572.286l859 ---|*                (ELFG) = 0.
00913  M01S00573.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
00914  M02S00574.286l859 ---|*         USES   X - 0, 1, 6.

Seq #  *Modification Id* Act 
----------------------------+
00915  M02S00575.286l859 ---|*                A - 1, 6.
00916  M01S00334.286l859 +++|*         USES   X - 1, 6.
00917  M01S00335.286l859 +++|*                A - 1.
00918  M01S00576.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
00919  M02S00577.286l859 ---|*         CALLS  ALN, BEL.
00920  M01S00336.286l859 +++|*         CALLS  ALN.
00921  M01S00578.comcpfs +++|*

Seq #  *Modification Id* Act 
----------------------------+
00922  M02S00579.286l859 ---|*         MACROS MESSAGE, WRITEC, WRITEH.
00923  M01S00337.286l859 +++|*         MACROS MESSAGE, MOVE, WRITEC, WRITEH.
00924  M01S00580.comcpfs +++|
00925  M01S00581.comcpfs +++|
00926  M01S00582.comcpfs +++| SEM      SUBR               ENTRY/EXIT
00927  M01S00338.286l859 +++|          SX1    B2-MSGB
00928  M01S00339.286l859 +++|          ZR     X1,SEM1     IF MESSAGE ALREADY IN BUFFER
00929  M01S00340.286l859 +++|          MOVE   8,B2,MSGB   MOVE MESSAGE TO BUFFER
00930  M01S00341.286l859 +++| SEM1     MESSAGE  MSGB      ISSUE DAYFILE MESSAGE
00931  M01S00583.comcpfs +++|          SA1    CPAR+/COMSPFS/CPLO

Seq #  *Modification Id* Act 
----------------------------+
00932  M02S00584.286l859 ---|          LX1    2

Seq #  *Modification Id* Act 
----------------------------+
00933  M02S00585.286l859 ---|          PL     X1,SEM1     IF LO = E NOT SPECIFIED
00934  M01S00342.286l859 +++|          LX1    59-57
00935  M01S00343.286l859 +++|          PL     X1,SEMX     IF LO = E NOT SPECIFIED
00936  M01S00344.286l859 +++|          SA1    O
00937  M01S00345.286l859 +++|          AX1    18
00938  M01S00346.286l859 +++|          ZR     X1,SEMX     IF OUTPUT FILE NOT INITIALIZED
00939  M01S00586.comcpfs +++|          SX6    2           ALLOCATE TWO LINES

Seq #  *Modification Id* Act 
----------------------------+
00940  M02S00587.286l859 ---|          SX0    OUTPUT      SET OUTPUT FILE FET ADDRESS
00941  M01S00588.comcpfs +++|          RJ     ALN

Seq #  *Modification Id* Act 
----------------------------+
00942  M02S00589.286l859 ---|          WRITEH OUTPUT,BLAN,1  PRINT ERROR MESSAGE
00943  M01S00347.286l859 +++|          WRITEH O,BLAN,1    WRITE MESSAGE TO OUTPUT FILE

Seq #  *Modification Id* Act 
----------------------------+
00944  M02S00590.286l859 ---|          WRITEC X2,X5
00945  M01S00348.286l859 +++|          WRITEC X2,MSGB

Seq #  *Modification Id* Act 
----------------------------+
00946  M02S00591.286l859 ---| SEM1     MESSAGE  X5

Seq #  *Modification Id* Act 
----------------------------+
00947  M02S00592.286l859 ---|          SA1    ELFG

Seq #  *Modification Id* Act 
----------------------------+
00948  M02S00593.286l859 ---|          ZR     X1,SEM2     IF ERRLOG ENTRY NOT DESIRED

Seq #  *Modification Id* Act 
----------------------------+
00949  M02S00594.286l859 ---|          RJ     BEL         BUILD ERRLOG MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
00950  M02S00595.286l859 ---|          MESSAGE  X5,4

Seq #  *Modification Id* Act 
----------------------------+
00951  M02S00596.286l859 ---|          BX6    X6-X6       CLEAR ERRLOG FLAG

Seq #  *Modification Id* Act 
----------------------------+
00952  M02S00597.286l859 ---|          SA6    ELFG

Seq #  *Modification Id* Act 
----------------------------+
00953  M02S00598.286l859 ---| SEM2     SX6    B1+         SET ERROR MESSAGE ISSUED FLAG

Seq #  *Modification Id* Act 
----------------------------+
00954  M02S00599.286l859 ---|          SA6    EMIF
00955  M01S00600.comcpfs +++|          EQ     SEMX        RETURN
00956  M01S00349.286l859 +++| SFE      SPACE  4,10
00957  M01S00350.286l859 +++|**        SFE - SEND ERROR MESSAGE WITH FILE NAME AND USER INDEX.
00958  M01S00351.286l859 +++|*
00959  M01S00352.286l859 +++|*         ENTRY  (X1) = FILE NAME AND USER INDEX.
00960  M01S00353.286l859 +++|*                (B2) = MESSAGE TEMPLATE ADDRESS.
00961  M01S00354.286l859 +++|*
00962  M01S00355.286l859 +++|*         USES   B - 2.
00963  M01S00356.286l859 +++|*
00964  M01S00357.286l859 +++|*         CALLS  SEM, SFU.
00965  M01S00358.286l859 +++|
00966  M01S00359.286l859 +++|
00967  M01S00360.286l859 +++| SFE      SUBR               ENTRY/EXIT
00968  M01S00361.286l859 +++|          RJ     SFU         SET FILE NAME AND USER INDEX
00969  M01S00362.286l859 +++|          SB2    MSGB        SET MESSAGE ADDRESS
00970  M01S00363.286l859 +++|          RJ     SEM         SEND ERROR MESSAGE
00971  M01S00364.286l859 +++|          EQ     SFEX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00972  M02S00365.cpfs2   ---| SFU      SPACE  4,10
00973  M01S00007.cpfs2   +++| SFU      SPACE  4,15
00974  M01S00366.286l859 +++|**        SFU - SET FILE NAME AND USER INDEX IN MESSAGE.
00975  M01S00367.286l859 +++|*
00976  M01S00368.286l859 +++|*         ENTRY  (B2) = MESSAGE TEMPLATE ADDRESS.
00977  M01S00369.286l859 +++|*                (X1) = FILE NAME AND USER INDEX.
00978  M01S00370.286l859 +++|*
00979  M01S00371.286l859 +++|*         EXIT   MESSAGE WITH FILE NAME AND USER INDEX IN *MSGB*.
00980  M01S00008.cpfs2   +++|*                (B5) = *MSGB*.
00981  M01S00372.286l859 +++|*
00982  M01S00373.286l859 +++|*         USES   X - 1, 6, 7.
00983  M01S00374.286l859 +++|*                A - 1.
00984  M01S00375.286l859 +++|*                B - 2, 3, 5.
00985  M01S00376.286l859 +++|*
00986  M01S00377.286l859 +++|*         CALLS  COD, SNM.
00987  M01S00378.286l859 +++|
00988  M01S00379.286l859 +++|
00989  M01S00380.286l859 +++| SFU      SUBR               ENTRY/EXIT
00990  M01S00381.286l859 +++|          MX6    -18
00991  M01S00382.286l859 +++|          BX7    -X6*X1      USER INDEX
00992  M01S00383.286l859 +++|          BX1    X6*X1       FILE NAME
00993  M01S00384.286l859 +++|          SB5    -B2         SET TEMPLATE ADDRESS
00994  M01S00385.286l859 +++|          SA7    SFUA        SAVE USER INDEX
00995  M01S00386.286l859 +++|          SB2    1R?
00996  M01S00387.286l859 +++|          SB3    MSGB        SET ASSEMBLY AREA ADDRESS
00997  M01S00388.286l859 +++|          RJ     SNM         SET FILE NAME IN MESSAGE
00998  M01S00389.286l859 +++|          SA1    SFUA
00999  M01S00390.286l859 +++|          RJ     COD         CONVERT USER INDEX
01000  M01S00009.cpfs2   +++|          SB2    B2-B1
01001  M01S00391.286l859 +++|          MX6    1
01002  M01S00392.286l859 +++|          AX6    B2          SET DIGITS MASK
01003  M01S00010.cpfs2   +++|          BX1    X6*X4       REMOVE TRAILING BLANKS
01004  M01S00393.286l859 +++|          SB2    1R!
01005  M01S00394.286l859 +++|          SB5    MSGB

Seq #  *Modification Id* Act 
----------------------------+
01006  M02S00395.cpfs2   ---|          BX1    X6*X4       REMOVE TRAILING BLANKS
01007  M01S00396.286l859 +++|          RJ     SNM         SET USER INDEX IN MESSAGE
01008  M01S00397.286l859 +++|          EQ     SFUX        RETURN
01009  M01S00398.286l859 +++|
01010  M01S00399.286l859 +++|
01011  M01S00400.286l859 +++| SFUA     CON    0           USER INDEX
01012  M01S00601.comcpfs +++|          SPACE  4,10
01013  M01S00602.comcpfs +++|*         MESSAGE CONTROL FLAGS AND EDIT STRING BUFFER.
01014  M01S00603.comcpfs +++|
01015  M01S00604.comcpfs +++|

Seq #  *Modification Id* Act 
----------------------------+
01016  M02S00605.286l859 ---| ELFG     BSSZ   1           ISSUE MESSAGE TO ERROR LOG FLAG

Seq #  *Modification Id* Act 
----------------------------+
01017  M02S00606.286l859 ---| EMIF     BSSZ   1           ERROR MESSAGE ISSUED TO DAYFILE FLAG

Seq #  *Modification Id* Act 
----------------------------+
01018  M02S00607.286l859 ---| EDBF     BSSZ   9           EDIT STRING BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01019  M02S00608.286l859 ---| EDBFL    EQU    *-EDBF      EDIT STRING BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01020  M02S00609.286l859 ---|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01021  M02S00610.286l859 ---|**        MESSAGE PARAMETER SKELETONS.

Seq #  *Modification Id* Act 
----------------------------+
01022  M02S00611.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01023  M02S00612.286l859 ---|*         SEE ROUTINE *EDS* FOR DOCUMENTATION ON MESSAGE FORMAT.

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

Seq #  *Modification Id* Act 
----------------------------+
01025  M02S00614.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01026  M02S00615.286l859 ---| MSCT     DATA   C*$,FM=$00Z,DN$021,CT$102,EQ$032,T$063,S$073.*

Seq #  *Modification Id* Act 
----------------------------+
01027  M02S00616.286l859 ---| MSDF     DATA   C*$ $046$05B*

Seq #  *Modification Id* Act 
----------------------------+
01028  M02S00001.286l859 ---| MSFF     DATA   C*$,FN=$04Z,UI=$05Z,FM=$00Z.*

Seq #  *Modification Id* Act 
----------------------------+
01029  M02S00617.286l859 ---| MSFM     DATA   C*$,FM=$00Z,DN$021,EQ$032,T$063,S$073.*

Seq #  *Modification Id* Act 
----------------------------+
01030  M02S00618.286l859 ---| MSFN     DATA   C*$,FN=$04Z,UI=$05Z.*

Seq #  *Modification Id* Act 
----------------------------+
01031  M02S00619.286l859 ---| MSMD     DATA   C*$,FN=$04Z,UI=$05Z,DN$021.*

Seq #  *Modification Id* Act 
----------------------------+
01032  M02S00620.286l859 ---| MSNI     DATA   C*$,$129$139.*

Seq #  *Modification Id* Act 
----------------------------+
01033  M02S00621.286l859 ---| MSPN     DATA   C*$,PN=$01Z,EQ$032,T$063,S$073.*

Seq #  *Modification Id* Act 
----------------------------+
01034  M02S00622.286l859 ---| MSPR     DATA   C*$,FN=$04Z,UI=$05Z,PRU=$11Z.*

Seq #  *Modification Id* Act 
----------------------------+
01035  M02S00623.286l859 ---| TMSP     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01036  M02S00624.286l859 ---|**        TMSP - TABLE OF MESSAGE PARAMETER SKELETON PARAMETERS.

Seq #  *Modification Id* Act 
----------------------------+
01037  M02S00625.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01038  M02S00626.286l859 ---|*         THE ASSOCIATED NUMERICAL VALUE FROM THE *LOC* IS USED IN THE

Seq #  *Modification Id* Act 
----------------------------+
01039  M02S00627.286l859 ---|*         SKELETONS TO SPECIFY THE PARAMETER.

Seq #  *Modification Id* Act 
----------------------------+
01040  M02S00628.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01041  M02S00629.286l859 ---|*         1/CONVERSION NEEDED,1/DECIMAL PARAMETER,58/ADDRESS OF VALUE

Seq #  *Modification Id* Act 
----------------------------+
01042  M02S00630.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01043  M02S00631.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01044  M02S00632.286l859 ---| TMSP     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
01045  M02S00633.286l859 ---|          LOC    0

Seq #  *Modification Id* Act 
----------------------------+
01046  M02S00634.286l859 ---|          VFD    1/0,1/0,58/MPFM  FAMILY NAME

Seq #  *Modification Id* Act 
----------------------------+
01047  M02S00635.286l859 ---|          VFD    1/0,1/0,58/MPPN  PACKNAME

Seq #  *Modification Id* Act 
----------------------------+
01048  M02S00636.286l859 ---|          VFD    1/1,1/0,58/MPDN  DEVICE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01049  M02S00637.286l859 ---|          VFD    1/1,1/0,58/MPEQ  EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
01050  M02S00638.286l859 ---|          VFD    1/0,1/0,58/MPFN  FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
01051  M02S00639.286l859 ---|          VFD    1/1,1/0,58/MPUI  USER INDEX

Seq #  *Modification Id* Act 
----------------------------+
01052  M02S00640.286l859 ---|          VFD    1/1,1/0,58/MPTK  TRACK

Seq #  *Modification Id* Act 
----------------------------+
01053  M02S00641.286l859 ---|          VFD    1/1,1/0,58/MPSC  SECTOR

Seq #  *Modification Id* Act 
----------------------------+
01054  M02S00642.286l859 ---|          VFD    1/1,1/0,58/MPCT  CATALOG TRACK

Seq #  *Modification Id* Act 
----------------------------+
01055  M02S00643.286l859 ---|          VFD    1/1,1/1,58/MPPR  PRU NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01056  M02S00644.286l859 ---|          VFD    1/1,1/0,58/MPUH  UPPER HALF OCTAL WORD

Seq #  *Modification Id* Act 
----------------------------+
01057  M02S00645.286l859 ---|          VFD    1/1,1/0,58/MPLH  LOWER HALF OCTAL WORD

Seq #  *Modification Id* Act 
----------------------------+
01058  M02S00646.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01059  M02S00647.286l859 ---|          ERRPL  *-101B      IF MORE THAN 2 CHARACTERS NECESSARY

Seq #  *Modification Id* Act 
----------------------------+
01060  M02S00648.286l859 ---|          LOC    *O

Seq #  *Modification Id* Act 
----------------------------+
01061  M02S00649.286l859 ---|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01062  M02S00650.286l859 ---|*         MESSAGE PARAMETERS.

Seq #  *Modification Id* Act 
----------------------------+
01063  M02S00651.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01064  M02S00652.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01065  M02S00653.286l859 ---| MPFM     BSS    1           FAMILY NAME

Seq #  *Modification Id* Act 
----------------------------+
01066  M02S00654.286l859 ---| MPPN     BSS    1           PACK NAME

Seq #  *Modification Id* Act 
----------------------------+
01067  M02S00655.286l859 ---| MPDN     BSS    1           DEVICE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01068  M02S00656.286l859 ---| MPEQ     BSS    1           EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
01069  M02S00657.286l859 ---| MPFN     BSS    1           FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
01070  M02S00658.286l859 ---| MPUI     BSS    1           USER INDEX

Seq #  *Modification Id* Act 
----------------------------+
01071  M02S00659.286l859 ---| MPTK     BSS    1           TRACK

Seq #  *Modification Id* Act 
----------------------------+
01072  M02S00660.286l859 ---| MPSC     BSS    1           SECTOR

Seq #  *Modification Id* Act 
----------------------------+
01073  M02S00661.286l859 ---| MPCT     BSS    1           CATALOG TRACK

Seq #  *Modification Id* Act 
----------------------------+
01074  M02S00662.286l859 ---| MPPR     BSS    1           PRU NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01075  M02S00663.286l859 ---| MPUH     BSS    1           UPPER HALF OF OCTAL WORD

Seq #  *Modification Id* Act 
----------------------------+
01076  M02S00664.286l859 ---| MPLH     BSS    1           LOWER HALF OF OCTAL WORD
01077  M01S00401.286l859 +++| MSGB     BSSZ   9           MESSAGE ASSEMBLY BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01078  M02S00665.286l859 ---|          TITLE  COMCPFS - OUTPUT FILE ROUTINES.
01079  M01S00402.286l859 +++|          TITLE  COMCPFS - OUTPUT AND SUMMARY FILE MAIN ROUTINES.
01080  M01S00403.286l859 +++|          SPACE  4,10
01081  M01S00404.286l859 +++|**        ASSEMBLY CONSTANTS.
01082  M01S00405.286l859 +++|
01083  M01S00406.286l859 +++|
01084  M01S00407.286l859 +++| NWCI     EQU    2           NUMBER OF WORDS IN CIR ENTRY
01085  M01S00408.286l859 +++| CFP      SPACE  4,20
01086  M01S00409.286l859 +++|**        CFP - COUNT FILE PROCESSED.
01087  M01S00410.286l859 +++|*
01088  M01S00411.286l859 +++|*         ENTRY  (A0) = CATALOG ENTRY ADDRESS.
01089  M01S00412.286l859 +++|*                (FLST) = FILE STATUS WORD.
01090  M01S00413.286l859 +++|*
01091  M01S00414.286l859 +++|*         EXIT   FILE COUNTS UPDATED.
01092  M01S00415.286l859 +++|*                CATALOG DATA WRITTEN TO OUTPUT FILE IF UNSORTED OUTPUT
01093  M01S00416.286l859 +++|*                  SELECTED.
01094  M01S00417.286l859 +++|*                CATALOG DATA WRITTEN TO SUMMARY FILE IF SELECTED.
01095  M01S00418.286l859 +++|*                CATALOG DATA WRITTEN TO SORT INPUT FILE IF SORTED OR
01096  M01S00419.286l859 +++|*                  STATISTICAL OUTPUT SELECTED.
01097  M01S00420.286l859 +++|*
01098  M01S00421.286l859 +++|*         USES   X - 0, 1, 2, 3, 6, 7.
01099  M01S00422.286l859 +++|*                A - 1, 2, 3, 6.
01100  M01S00423.286l859 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01101  M02S00424.ns2790  ---|*         CALLS  MWA, WCO.
01102  M01S00001.ns2790  +++|*         CALLS  MWA.
01103  M01S00425.286l859 +++|*
01104  M01S00426.286l859 +++|*         MACROS WRITEW.
01105  M01S00427.286l859 +++|
01106  M01S00428.286l859 +++|
01107  M01S00429.286l859 +++| CFP      SUBR               ENTRY/EXIT
01108  M01S00430.286l859 +++|
01109  M01S00431.286l859 +++|*         UPDATE FILE COUNTS.
01110  M01S00432.286l859 +++|
01111  M01S00433.286l859 +++|          SA1    FLST
01112  M01S00434.286l859 +++|          SA2    PRFC
01113  M01S00435.286l859 +++|          SA3    POFC
01114  M01S00436.286l859 +++|          SX7    B1
01115  M01S00437.286l859 +++|          MX4    -2
01116  M01S00438.286l859 +++|          LX1    59-0
01117  M01S00439.286l859 +++|          IX6    X2+X7       COUNT FILE PROCESSED
01118  M01S00440.286l859 +++|          BX4    -X4*X1      EXTRACT FILE PROCESSING ERROR FLAGS
01119  M01S00441.286l859 +++|          SA6    A2
01120  M01S00442.286l859 +++|          PL     X1,CFP1     IF NOT PFC ONLY FILE
01121  M01S00443.286l859 +++|          IX6    X3+X7       COUNT PFC ONLY FILE
01122  M01S00444.286l859 +++|          SA6    A3
01123  M01S00445.286l859 +++| CFP1     ZR     X4,CFP2     IF NO PROCESSING ERRORS
01124  M01S00446.286l859 +++|          SA2    PEFC
01125  M01S00447.286l859 +++|          IX6    X2+X7       COUNT PROCESSING ERROR
01126  M01S00448.286l859 +++|          SA6    PEFC
01127  M01S00449.286l859 +++|

Seq #  *Modification Id* Act 
----------------------------+
01128  M02S00450.ns2790  ---|*         WRITE OUTPUT FILE.
01129  M01S00002.ns2790  +++|*         WRITE SUMMARY FILE.
01130  M01S00451.286l859 +++|

Seq #  *Modification Id* Act 
----------------------------+
01131  M02S00452.ns2790  ---| CFP2     SA1    UFOF

Seq #  *Modification Id* Act 
----------------------------+
01132  M02S00453.ns2790  ---|          ZR     X1,CFP3     IF UNSORTED FILE LIST NOT SELECTED

Seq #  *Modification Id* Act 
----------------------------+
01133  M02S00454.ns2790  ---|          RJ     WCO         WRITE CATALOG DATA TO OUTPUT FILE

Seq #  *Modification Id* Act 
----------------------------+
01134  M02S00455.ns2790  ---|

Seq #  *Modification Id* Act 
----------------------------+
01135  M02S00456.ns2790  ---|*         WRITE SUMMARY FILE.

Seq #  *Modification Id* Act 
----------------------------+
01136  M02S00457.ns2790  ---|

Seq #  *Modification Id* Act 
----------------------------+
01137  M02S00458.ns2790  ---| CFP3     SA1    CPAR+/COMSPFS/CPSU

Seq #  *Modification Id* Act 
----------------------------+
01138  M02S00459.ns2790  ---|          ZR     X1,CFP4     IF NO SUMMARY FILE
01139  M01S00003.ns2790  +++| CFP2     SA1    CPAR+/COMSPFS/CPSU
01140  M01S00004.ns2790  +++|          ZR     X1,CFP3     IF NO SUMMARY FILE
01141  M01S00460.286l859 +++|          SX2    A0          SET DATA ADDRESS
01142  M01S00461.286l859 +++|          SX1    NWCE        SET WORD COUNT
01143  M01S00462.286l859 +++|          SX0    X1+B1       ALLOCATE ENTRY PLUS CONTROL WORD
01144  M01S00463.286l859 +++|          RJ     MWA         MOVE CATALOG ENTRY TO ASSEMBLY BUFFER
01145  M01S00464.286l859 +++|          SX1    B1          SET WORD COUNT
01146  M01S00465.286l859 +++|          SX2    FLST        SET STATUS WORD ADDRESS
01147  M01S00466.286l859 +++|          SX0    B0          SET CONTINUATION STATUS
01148  M01S00467.286l859 +++|          RJ     MWA         MOVE STATUS WORD TO ASSEMBLY BUFFER
01149  M01S00468.286l859 +++|
01150  M01S00469.286l859 +++|*         WRITE PROCESSED FILE LIST.
01151  M01S00470.286l859 +++|

Seq #  *Modification Id* Act 
----------------------------+
01152  M02S00471.ns2790  ---| CFP4     SA1    CASF
01153  M01S00005.ns2790  +++| CFP3     SA1    CPAR+/COMSPFS/CPLO
01154  M01S00472.286l859 +++|          SA2    A0+FCUI

Seq #  *Modification Id* Act 
----------------------------+
01155  M02S00473.ns2790  ---|          ZR     X1,CFPX     IF CATALOG SORT NOT REQUIRED
01156  M01S00006.ns2790  +++|          SX6    4400B
01157  M01S00007.ns2790  +++|          LX6    48
01158  M01S00008.ns2790  +++|          BX1    X6*X1
01159  M01S00009.ns2790  +++|          ZR     X1,CFPX     IF *T* OR *S* LIST OPTION NOT SELECTED
01160  M01S00474.286l859 +++|          LX2    -18         POSITION USER INDEX FOR SORT
01161  M01S00475.286l859 +++|          BX6    X2
01162  M01S00476.286l859 +++|          SA6    A2
01163  M01S00477.286l859 +++|          WRITEW PF,A0,NWCE  WRITE CATALOG ENTRY
01164  M01S00478.286l859 +++|          WRITEW X2,FLST,1   WRITE STATUS WORD
01165  M01S00010.ns2790  +++|          WRITEW X2,PRFC,1   WRITE SEQUENCE NUMBER
01166  M01S00001.cpfs3   +++|          SA2    A0+FCUI
01167  M01S00479.286l859 +++|          SX6    1
01168  M01S00480.286l859 +++|          SA6    FPSF        SET FILE PROCESSED
01169  M01S00002.cpfs3   +++|          LX2    18
01170  M01S00003.cpfs3   +++|          BX6    X2          RESTORE FILE NAME AND USER INDEX
01171  M01S00004.cpfs3   +++|          SA6    A2
01172  M01S00481.286l859 +++|          EQ     CFPX        RETURN
01173  M01S00482.286l859 +++| OAL      SPACE  4,20
01174  M01S00483.286l859 +++|**        OAL - OUTPUT ARCHIVE FILE LABEL PARAMETERS.
01175  M01S00484.286l859 +++|*
01176  M01S00485.286l859 +++|*         ENTRY  ARCHIVE FILE LABEL PARAMETERS IN *AFIB*.
01177  M01S00486.286l859 +++|*
01178  M01S00487.286l859 +++|*         EXIT   ARCHIVE FILE INFORMATION SET IN OUTPUT FILE PAGE
01179  M01S00488.286l859 +++|*                  TITLE.
01180  M01S00489.286l859 +++|*                ARCHIVE FILE BLOCK WRITTEN TO SUMMARY FILE IF
01181  M01S00490.286l859 +++|*                  SELECTED.
01182  M01S00491.286l859 +++|*
01183  M01S00492.286l859 +++|*         USES   X - 0, 1, 2, 5, 6.
01184  M01S00493.286l859 +++|*                A - 1, 2, 5, 6.
01185  M01S00494.286l859 +++|*                B - 2, 3, 5, 7.
01186  M01S00495.286l859 +++|*
01187  M01S00496.286l859 +++|*         CALLS  FAB, SCB, SNM, ZTB.
01188  M01S00497.286l859 +++|*
01189  M01S00498.286l859 +++|*         MACROS EDATE, ETIME, MOVE.
01190  M01S00499.286l859 +++|
01191  M01S00500.286l859 +++|
01192  M01S00501.286l859 +++| OAL      SUBR               ENTRY/EXIT
01193  M01S00502.286l859 +++|
01194  M01S00503.286l859 +++|*         SET INFORMATION IN OUTPUT FILE PAGE TITLE.
01195  M01S00504.286l859 +++|
01196  M01S00505.286l859 +++|          SA1    AFIB
01197  M01S00506.286l859 +++|          SA2    A1+B1
01198  M01S00507.286l859 +++|          BX1    X1+X2       SET FAMILY OR PACK NAME
01199  M01S00508.286l859 +++|          ZR     X1,OAL2     IF ARCHIVE FILE LABEL NOT FOUND
01200  M01S00509.286l859 +++|          SB5    -AFSB
01201  M01S00510.286l859 +++|          ZR     X2,OAL1     IF PACK NAME NOT PRESENT
01202  M01S00511.286l859 +++|          SB5    -AFSC
01203  M01S00512.286l859 +++| OAL1     SB2    1R?
01204  M01S00513.286l859 +++|          SB3    PGAF
01205  M01S00514.286l859 +++|          RJ     SNM         SET FAMILY OR PACK NAME
01206  M01S00515.286l859 +++|          SA1    PGAF+1      BLANK FILL FAMILY OR PACK NAME
01207  M01S00516.286l859 +++|          RJ     ZTB
01208  M01S00517.286l859 +++|          SA6    PGAF+1
01209  M01S00518.286l859 +++|          SA5    AFIB+2      GET ARCHIVE FILE CREATION DATE AND TIME
01210  M01S00519.286l859 +++|          MX1    -18
01211  M01S00520.286l859 +++|          BX1    -X1*X5
01212  M01S00521.286l859 +++|          ETIME  X1
01213  M01S00522.286l859 +++|          SB7    AFSA        SET BUFFER ADDRESS
01214  M01S00523.286l859 +++|          SB3    AFSE        SET DESCRIPTOR ADDRESS
01215  M01S00524.286l859 +++|          RJ     SCB         SET LABEL DATE
01216  M01S00525.286l859 +++|          AX5    18
01217  M01S00526.286l859 +++|          BX1    X5
01218  M01S00527.286l859 +++|          EDATE  X1
01219  M01S00528.286l859 +++|          SB3    AFSF        SET DESCRIPTOR ADDRESS
01220  M01S00529.286l859 +++|          RJ     SCB         SET LABEL TIME
01221  M01S00530.286l859 +++|          MOVE   5,AFSA,PGAC MOVE PARAMETERS TO PAGE TITLE
01222  M01S00531.286l859 +++|          EQ     OAL3        WRITE SUMMARY FILE
01223  M01S00532.286l859 +++|
01224  M01S00533.286l859 +++| OAL2     MOVE   8,AFSD,PGTB+1  SET LABEL NOT FOUND MESSAGE
01225  M01S00534.286l859 +++|
01226  M01S00535.286l859 +++|*         WRITE SUMMARY FILE.
01227  M01S00536.286l859 +++|
01228  M01S00537.286l859 +++| OAL3     SA1    CPAR+/COMSPFS/CPSU
01229  M01S00538.286l859 +++|          ZR     X1,OALX     IF SUMMARY FILE NOT SELECTED
01230  M01S00539.286l859 +++|          RJ     FAB         FLUSH ASSEMBLY BUFFER
01231  M01S00540.286l859 +++|          SA1    TSBI+/COMSPFS/AFSB  SET ARCHIVE FILE BLOCK TYPE
01232  M01S00541.286l859 +++|          BX6    X1
01233  M01S00542.286l859 +++|          SA6    CFBI
01234  M01S00543.286l859 +++|          SX1    3           SET BLOCK WORD COUNT
01235  M01S00544.286l859 +++|          SX2    AFIB        SET DATA ADDRESS
01236  M01S00545.286l859 +++|          SX0    3           SET NUMBER OF WORDS TO ALLOCATE
01237  M01S00546.286l859 +++|          RJ     MWA         MOVE DATA TO ASSEMBLY BUFFER
01238  M01S00547.286l859 +++|          EQ     OALX        RETURN
01239  M01S00548.286l859 +++| OCI      SPACE  4,15
01240  M01S00549.286l859 +++|**        OCI - OUTPUT CATALOG IMAGE ENTRIES.
01241  M01S00550.286l859 +++|*
01242  M01S00551.286l859 +++|*         ENTRY  (X6) = ADDRESS OF CIR ENTRIES BUFFER.
01243  M01S00552.286l859 +++|*                (X7) = WORD COUNT OF CIR ENTRIES IN BUFFER.
01244  M01S00553.286l859 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01245  M02S00554.ns2790  ---|*         EXIT   CATALOG IMAGE RECORD DATA WRITTEN TO OUTPUT FILE,

Seq #  *Modification Id* Act 
----------------------------+
01246  M02S00555.ns2790  ---|*                  SUMMARY FILE, AND SORT INPUT FILE IF SELECTED.
01247  M01S00011.ns2790  +++|*         EXIT   CATALOG IMAGE RECORD DATA WRITTEN TO SUMMARY FILE AND
01248  M01S00012.ns2790  +++|*                  SORT INPUT FILE IF SELECTED.
01249  M01S00556.286l859 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01250  M02S00557.ns2790  ---|*         USES   X - 0, 1, 2, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
01251  M02S00558.ns2790  ---|*                A - 1, 2, 3, 6, 7.
01252  M01S00013.ns2790  +++|*         USES   X - 0, 1, 2, 6, 7.
01253  M01S00014.ns2790  +++|*                A - 1, 2, 6, 7.
01254  M01S00559.286l859 +++|*                B - 3, 6, 7.
01255  M01S00560.286l859 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01256  M02S00561.ns2790  ---|*         CALLS  FCI, MWA.
01257  M01S00015.ns2790  +++|*         CALLS  MWA.
01258  M01S00016.ns2790  +++|*
01259  M01S00017.ns2790  +++|*         MACROS WRITEW.
01260  M01S00562.286l859 +++|
01261  M01S00563.286l859 +++|
01262  M01S00564.286l859 +++| OCI      SUBR               ENTRY/EXIT
01263  M01S00565.286l859 +++|          ZR     X7,OCIX     IF NO ENTRIES
01264  M01S00566.286l859 +++|          SA6    OCIA        SAVE BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01265  M02S00567.ns2790  ---|          SA6    OCIB        SET OUT POINTER
01266  M01S00568.286l859 +++|          IX7    X6+X7       SET BUFFER LWA+1

Seq #  *Modification Id* Act 
----------------------------+
01267  M02S00569.ns2790  ---|          SA7    OCIC

Seq #  *Modification Id* Act 
----------------------------+
01268  M02S00570.ns2790  ---|

Seq #  *Modification Id* Act 
----------------------------+
01269  M02S00571.ns2790  ---|*         OUTPUT CATALOG IMAGE DATA TO OUTPUT FILE IF SELECTED.

Seq #  *Modification Id* Act 
----------------------------+
01270  M02S00572.ns2790  ---|

Seq #  *Modification Id* Act 
----------------------------+
01271  M02S00573.ns2790  ---|          SA1    UCOF

Seq #  *Modification Id* Act 
----------------------------+
01272  M02S00574.ns2790  ---|          ZR     X1,OCI2     IF UNSORTED CIR LIST NOT SELECTED

Seq #  *Modification Id* Act 
----------------------------+
01273  M02S00575.ns2790  ---| OCI1     RJ     FCI         FORMAT CIR ENTRY FOR OUTPUT

Seq #  *Modification Id* Act 
----------------------------+
01274  M02S00576.ns2790  ---|          SA1    OCIB        GET ADDRESS OF LAST CIR ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01275  M02S00577.ns2790  ---|          SA2    OCIC        GET END OF BUFFER POINTER

Seq #  *Modification Id* Act 
----------------------------+
01276  M02S00578.ns2790  ---|          SX6    X1+NWCI     ADVANCE ENTRY ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01277  M02S00579.ns2790  ---|          IX2    X6-X2

Seq #  *Modification Id* Act 
----------------------------+
01278  M02S00580.ns2790  ---|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
01279  M02S00581.ns2790  ---|          NZ     X2,OCI1     IF ALL ENTRIES NOT PROCESSED
01280  M01S00018.ns2790  +++|          SA7    OCIB
01281  M01S00582.286l859 +++|
01282  M01S00583.286l859 +++|*         WRITE CATALOG IMAGES TO SUMMARY FILE IF SELECTED.
01283  M01S00584.286l859 +++|

Seq #  *Modification Id* Act 
----------------------------+
01284  M02S00585.ns2790  ---| OCI2     SA1    CPAR+/COMSPFS/CPSU

Seq #  *Modification Id* Act 
----------------------------+
01285  M02S00586.ns2790  ---|          ZR     X1,OCI3     IF NO SUMMARY FILE

Seq #  *Modification Id* Act 
----------------------------+
01286  M02S00587.ns2790  ---|          SA1    OCIC
01287  M01S00019.ns2790  +++|          SA1    CPAR+/COMSPFS/CPSU
01288  M01S00020.ns2790  +++|          ZR     X1,OCI1     IF NO SUMMARY FILE
01289  M01S00021.ns2790  +++|          SA1    OCIB
01290  M01S00588.286l859 +++|          SA2    OCIA        SET BUFFER ADDRESS
01291  M01S00589.286l859 +++|          IX1    X1-X2       SET WORD COUNT
01292  M01S00590.286l859 +++|          ERRNG  SABFL-1000B BUFFER SIZE LESS THAN MAXIMUM BLOCK LENGTH
01293  M01S00591.286l859 +++|          BX0    X1          SET WORDS TO ALLOCATE
01294  M01S00592.286l859 +++|          RJ     MWA         MOVE DATA TO CIR BLOCK
01295  M01S00593.286l859 +++|

Seq #  *Modification Id* Act 
----------------------------+
01296  M02S00594.ns2790  ---|*         WRITE CIR ENTRIES TO FILE LIST IF SORTED CIR LIST SELECTED.
01297  M01S00022.ns2790  +++|*         WRITE CIR ENTRIES TO FILE LIST IF CIR LIST SELECTED.
01298  M01S00595.286l859 +++|

Seq #  *Modification Id* Act 
----------------------------+
01299  M02S00596.ns2790  ---| OCI3     SA1    CISF

Seq #  *Modification Id* Act 
----------------------------+
01300  M02S00597.ns2790  ---|          ZR     X1,OCIX     IF NO CIR SORT REQUIRED
01301  M01S00023.ns2790  +++| OCI1     SA1    CPAR+/COMSPFS/CPLO
01302  M01S00024.ns2790  +++|          LX1    59-58
01303  M01S00025.ns2790  +++|          PL     X1,OCIX     IF NO CIR SORT REQUIRED
01304  M01S00598.286l859 +++|          SA1    OCIA

Seq #  *Modification Id* Act 
----------------------------+
01305  M02S00599.ns2790  ---|          SA2    OCIC
01306  M01S00026.ns2790  +++|          SA2    OCIB
01307  M01S00600.286l859 +++|          SB2    42          SET SHIFT COUNT FOR USER INDEX SORT
01308  M01S00601.286l859 +++|          SB3    X1
01309  M01S00602.286l859 +++|          SB6    X1          SET BUFFER FWA
01310  M01S00603.286l859 +++|          SB7    X2          SET BUFFER LWA+1

Seq #  *Modification Id* Act 
----------------------------+
01311  M02S00604.ns2790  ---| OCI4     SA2    B3
01312  M01S00027.ns2790  +++| OCI2     SA2    B3
01313  M01S00605.286l859 +++|          LX6    B2,X2       POSITION USER INDEX FOR SORT
01314  M01S00606.286l859 +++|          SA6    A2+
01315  M01S00607.286l859 +++|          SB3    B3+NWCI

Seq #  *Modification Id* Act 
----------------------------+
01316  M02S00608.ns2790  ---|          LT     B3,B7,OCI4  IF NOT END OF BUFFER
01317  M01S00028.ns2790  +++|          LT     B3,B7,OCI2  IF NOT END OF BUFFER
01318  M01S00609.286l859 +++|          SB7    B7-B6       SET WORD COUNT
01319  M01S00610.286l859 +++|          WRITEW PF,B6,B7    WRITE CIR ENTRIES
01320  M01S00611.286l859 +++|          SX6    1
01321  M01S00612.286l859 +++|          SA6    FPSF        SET FILES PROCESSED
01322  M01S00613.286l859 +++|          EQ     OCIX        RETURN
01323  M01S00614.286l859 +++|
01324  M01S00615.286l859 +++|
01325  M01S00616.286l859 +++| OCIA     CON    0           BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01326  M02S00617.ns2790  ---| OCIB     CON    0           BUFFER OUT POINTER

Seq #  *Modification Id* Act 
----------------------------+
01327  M02S00618.ns2790  ---| OCIC     CON    0           BUFFER LWA+1
01328  M01S00029.ns2790  +++| OCIB     CON    0           BUFFER LWA+1
01329  M01S00619.286l859 +++|          TITLE  COMCPFS - SORTED AND STATISTICAL OUTPUT MAIN ROUTINES.
01330  M01S00620.286l859 +++|          SPACE  4,10
01331  M01S00621.286l859 +++|**        ASSEMBLY CONSTANTS.
01332  M01S00622.286l859 +++|
01333  M01S00623.286l859 +++|

Seq #  *Modification Id* Act 
----------------------------+
01334  M02S00624.ns2790  ---| NWCS     EQU    NWCE+1      LENGTH OF CATALOG ENTRY WITH STATUS WORD
01335  M01S00030.ns2790  +++| NWCS     EQU    NWCE+2      LENGTH OF CATALOG ENTRY WITH STATUS WORDS
01336  M01S00625.286l859 +++| SBCEC    EQU    SRTBL/NWCS  MAXIMUM CATALOG ENTRIES IN SORT BUFFER
01337  M01S00626.286l859 +++| SBCIC    EQU    SRTBL/NWCI  MAXIMUM CIR ENTRIES IN SORT BUFFER
01338  M01S00627.286l859 +++| SBCEL    EQU    SBCEC*NWCS  MAXIMUM LENGTH OF CATALOG ENTRIES
01339  M01S00628.286l859 +++| SBCIL    EQU    SBCIC*NWCI  MAXIMUM LENGTH OF CIR ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
01340  M02S00629.ns2790  ---| OSF      SPACE  4,10
01341  M01S00031.ns2790  +++| OSF      SPACE  4,15
01342  M01S00630.286l859 +++|**        OSF - OUTPUT SORTED FILE LIST.
01343  M01S00631.286l859 +++|*
01344  M01S00632.286l859 +++|*         ENTRY  SORTED CATALOG ENTRIES ON FILE *S3*.
01345  M01S00633.286l859 +++|*
01346  M01S00634.286l859 +++|*         EXIT   SORTED FILE LIST GENERATED IF SELECTED.
01347  M01S00635.286l859 +++|*
01348  M01S00636.286l859 +++|*         USES   X - 1, 2, 6.
01349  M01S00637.286l859 +++|*                A - 0, 1  6.
01350  M01S00638.286l859 +++|*
01351  M01S00639.286l859 +++|*         CALLS  RPP, WCO.
01352  M01S00640.286l859 +++|*
01353  M01S00641.286l859 +++|*         MACROS READ, READW, REWIND.
01354  M01S00642.286l859 +++|
01355  M01S00643.286l859 +++|
01356  M01S00644.286l859 +++| OSF      SUBR               ENTRY/EXIT
01357  M01S00645.286l859 +++|          SA1    CPAR+/COMSPFS/CPLO

Seq #  *Modification Id* Act 
----------------------------+
01358  M02S00646.ns2790  ---|          SX6    4100B

Seq #  *Modification Id* Act 
----------------------------+
01359  M02S00647.ns2790  ---|          LX1    12

Seq #  *Modification Id* Act 
----------------------------+
01360  M02S00648.ns2790  ---|          BX1    X6*X1       *T* AND *U* LIST OPTIONS

Seq #  *Modification Id* Act 
----------------------------+
01361  M02S00649.ns2790  ---|          IX6    X1-X6

Seq #  *Modification Id* Act 
----------------------------+
01362  M02S00650.ns2790  ---|          NZ     X6,OSFX     IF SORTED FILE LIST NOT SELECTED

Seq #  *Modification Id* Act 
----------------------------+
01363  M02S00651.ns2790  ---|          SX2    FUTX
01364  M01S00032.ns2790  +++|          PL     X1,OSFX     IF FILE LIST NOT SELECTED
01365  M01S00033.ns2790  +++|          SX2    FLTX
01366  M01S00652.286l859 +++|          SX6    CES
01367  M01S00653.286l859 +++|          RJ     RPP         RESET PAGE PARAMETERS
01368  M01S00654.286l859 +++|          REWIND S3
01369  M01S00655.286l859 +++|          READ   S3
01370  M01S00656.286l859 +++|          SA0    SW1B        SET CATALOG ENTRY ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01371  M02S00657.ns2790  ---| OSF1     READW  S3,A0,NWCE  READ CATALOG ENTRY
01372  M01S00034.ns2790  +++| OSF1     READW  S3,A0,NWCS  READ CATALOG ENTRY AND STATUS
01373  M01S00658.286l859 +++|          NZ     X1,OSFX     IF END OF ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
01374  M02S00659.ns2790  ---|          READW  X2,FLST,1   READ STATUS WORD
01375  M01S00660.286l859 +++|          SA1    A0+FCUI
01376  M01S00661.286l859 +++|          LX1    18          RESTORE FILE NAME AND USER INDEX
01377  M01S00662.286l859 +++|          BX6    X1
01378  M01S00663.286l859 +++|          SA6    A1          RESTORE FILE NAME AND USER INDEX
01379  M01S00664.286l859 +++|          RJ     WCO         WRITE CATALOG ENTRY DATA TO OUTPUT FILE
01380  M01S00665.286l859 +++|          EQ     OSF1        READ NEXT ENTRY
01381  M01S00666.286l859 +++| OTS      SPACE  4,15
01382  M01S00667.286l859 +++|**        OTS - OUTPUT TAPE ALTERNATE STORAGE STATISTICS.
01383  M01S00668.286l859 +++|*
01384  M01S00669.286l859 +++|*         ENTRY  CATALOG ENTRIES ON FILE *S3* SORTED BY TAPE ALTERNATE
01385  M01S00670.286l859 +++|*                  STORAGE TYPE AND VSN.
01386  M01S00671.286l859 +++|*
01387  M01S00672.286l859 +++|*         EXIT   TAPE ALTERNATE STORAGE STATISTICS OUTPUT COMPLETE.
01388  M01S00673.286l859 +++|*
01389  M01S00674.286l859 +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
01390  M01S00675.286l859 +++|*                A - 1, 2, 3, 5, 6, 7.
01391  M01S00676.286l859 +++|*
01392  M01S00677.286l859 +++|*         CALLS  ALN, CDD, CFS, IFS, RPP, ZTB.
01393  M01S00678.286l859 +++|*
01394  M01S00679.286l859 +++|*         MACROS READ, READW, REWIND, WRITEH.
01395  M01S00680.286l859 +++|
01396  M01S00681.286l859 +++|
01397  M01S00682.286l859 +++| OTS      SUBR               ENTRY/EXIT
01398  M01S00683.286l859 +++|
01399  M01S00684.286l859 +++|*         INITIALIZE PAGE TITLE.
01400  M01S00685.286l859 +++|
01401  M01S00686.286l859 +++|          REWIND S3
01402  M01S00687.286l859 +++|          READ   S3
01403  M01S00688.286l859 +++|          SX2    TSTX
01404  M01S00689.286l859 +++|          SX6    TSS
01405  M01S00690.286l859 +++|          RJ     RPP         RESET PAGE PARAMETERS
01406  M01S00691.286l859 +++|          SX6    B0+
01407  M01S00692.286l859 +++|          SA6    OTSA        INITIALIZE VSN POINTER
01408  M01S00693.286l859 +++|
01409  M01S00694.286l859 +++|*         CHECK NEXT ENTRY.
01410  M01S00695.286l859 +++|
01411  M01S00696.286l859 +++| OTS1     READW  S3,SW1B,1   READ ENTRY
01412  M01S00697.286l859 +++|          BX6    X1
01413  M01S00698.286l859 +++|          SA6    OTSB        SAVE EOR STATUS
01414  M01S00699.286l859 +++|          SA5    OTSA
01415  M01S00700.286l859 +++|          SA2    SW1B
01416  M01S00701.286l859 +++|          SA3    TSKM
01417  M01S00702.286l859 +++|          NZ     X6,OTS2     IF END OF ENTRIES
01418  M01S00703.286l859 +++|          BX6    X3*X2       TAPE IDENTIFIER FROM CURRENT ENTRY
01419  M01S00704.286l859 +++|          BX2    X5-X6
01420  M01S00705.286l859 +++|          ZR     X2,OTS5     IF SAME TAPE AS PREVIOUS ENTRY
01421  M01S00706.286l859 +++|          SA6    A5+         SET TAPE IDENTIFIER
01422  M01S00707.286l859 +++|          ZR     X5,OTS4     IF FIRST ENTRY
01423  M01S00708.286l859 +++|
01424  M01S00709.286l859 +++|*         OUTPUT STATISTICS FOR PREVIOUS VSN.
01425  M01S00710.286l859 +++|
01426  M01S00711.286l859 +++| OTS2     LX5    59-56
01427  M01S00712.286l859 +++|          SX1    2RAT        SET ACS CARTRIDGE TAPE
01428  M01S00713.286l859 +++|          LX4    X5,B1
01429  M01S00714.286l859 +++|          NG     X5,OTS3     IF ACS CARTRDIGE TAPE
01430  M01S00715.286l859 +++|          SX1    2RCT        SET CARTRIDGE TAPE
01431  M01S00716.286l859 +++|          NG     X4,OTS3     IF CARTRIDGE TAPE
01432  M01S00717.286l859 +++|          SX1    2RNT        SET NINE TRACK TAPE
01433  M01S00718.286l859 +++| OTS3     LX5    56-56-59+56
01434  M01S00719.286l859 +++|          RJ     ZTB         BLANK FILL TAPE TYPE
01435  M01S00720.286l859 +++|          SA6    COBF+0      SET TAPE IDENTIFIER
01436  M01S00721.286l859 +++|          MX6    -12
01437  M01S00722.286l859 +++|          BX1    -X6*X5      VSN SEQUENCE NUMBER
01438  M01S00723.286l859 +++|          SX1    X1+10000D   ADD BIAS TO FORCE LEADING ZEROES
01439  M01S00724.286l859 +++|          RJ     CDD         CONVERT SEQUENCE NUMBER
01440  M01S00725.286l859 +++|          MX7    -12
01441  M01S00726.286l859 +++|          LX7    12
01442  M01S00727.286l859 +++|          BX7    -X7*X5      VSN PREFIX
01443  M01S00728.286l859 +++|          MX1    -24
01444  M01S00729.286l859 +++|          LX7    12
01445  M01S00730.286l859 +++|          BX1    -X1*X6
01446  M01S00731.286l859 +++|          BX1    X7+X1       MERGE PREFIX AND SEQUENCE NUMBER
01447  M01S00732.286l859 +++|          RJ     ZTB         BLANK FILL VSN
01448  M01S00733.286l859 +++|          SA6    COBF+1      SET VSN
01449  M01S00734.286l859 +++|          SA5    OTSC        SET CONTROL TABLE ADDRESS
01450  M01S00735.286l859 +++|          RJ     CFS         CONVERT FILE STATISTICS
01451  M01S00736.286l859 +++|          SX6    1
01452  M01S00737.286l859 +++|          RJ     ALN         ALLOCATE ONE LINE
01453  M01S00738.286l859 +++|          WRITEH O,COBF,4    WRITE VSN STATISTICS
01454  M01S00739.286l859 +++|          SA1    OTSB
01455  M01S00740.286l859 +++|          NZ     X1,OTSX     IF END OF ENTRIES
01456  M01S00741.286l859 +++| OTS4     RJ     IFS         INITIALIZE STATISTICS FOR NEXT VSN
01457  M01S00742.286l859 +++|
01458  M01S00743.286l859 +++|*         ACCUMULATE TAPE ALTERNATE STORAGE STATISTICS.
01459  M01S00744.286l859 +++|
01460  M01S00745.286l859 +++| OTS5     SA1    SW1B
01461  M01S00746.286l859 +++|          SA2    NFIL+2
01462  M01S00747.286l859 +++|          SA3    NSEC+2
01463  M01S00748.286l859 +++|          SX6    B1
01464  M01S00749.286l859 +++|          MX7    -24
01465  M01S00750.286l859 +++|          LX1    -24
01466  M01S00751.286l859 +++|          BX7    -X7*X1      FILE LENGTH
01467  M01S00752.286l859 +++|          IX6    X2+X6       ACCUMULATE TOTAL FILES
01468  M01S00753.286l859 +++|          IX7    X3+X7       ACCUMULATE TOTAL SECTORS
01469  M01S00754.286l859 +++|          SA6    A2
01470  M01S00755.286l859 +++|          SA7    A3
01471  M01S00756.286l859 +++|          EQ     OTS1        READ NEXT ENTRY
01472  M01S00757.286l859 +++|
01473  M01S00758.286l859 +++|
01474  M01S00759.286l859 +++| OTSA     CON    0           PREVIOUS TAPE INDENTIFIER
01475  M01S00760.286l859 +++| OTSB     CON    0           READ EOR STATUS
01476  M01S00761.286l859 +++|
01477  M01S00762.286l859 +++| OTSC     BSS    0           START OF FILE STATISTICS CONVERSIONS
01478  M01S00763.286l859 +++|          VFD    30/COBF+2,30/NFIL+2  TOTAL FILES
01479  M01S00764.286l859 +++|          VFD    30/COBF+3,30/NSEC+2  TOTAL SECTORS
01480  M01S00765.286l859 +++|          CON    0           END OF CONVERSIONS
01481  M01S00766.286l859 +++| OUS      SPACE  4,15
01482  M01S00767.286l859 +++|**        OUS - OUTPUT USER STATISTICS.
01483  M01S00768.286l859 +++|*
01484  M01S00769.286l859 +++|*         ENTRY  CATALOG ENTRIES ON FILE *S3* SORTED BY USER INDEX AND
01485  M01S00770.286l859 +++|*                  FILE NAME.
01486  M01S00771.286l859 +++|*
01487  M01S00772.286l859 +++|*         EXIT   USER SORTED STATISTICS OUTPUT COMPLETE.
01488  M01S00773.286l859 +++|*
01489  M01S00774.286l859 +++|*         USES   X - 1, 2, 3, 5, 6.
01490  M01S00775.286l859 +++|*                A - 1, 2, 5, 6.
01491  M01S00776.286l859 +++|*
01492  M01S00777.286l859 +++|*         CALLS  AFS, ALN, CFS, COD, IFS, RPP, SID.
01493  M01S00778.286l859 +++|*
01494  M01S00779.286l859 +++|*         MACROS READ, READW, REWIND, WRITEH.
01495  M01S00780.286l859 +++|
01496  M01S00781.286l859 +++|
01497  M01S00782.286l859 +++| OUS      SUBR               ENTRY/EXIT
01498  M01S00783.286l859 +++|
01499  M01S00784.286l859 +++|*         INITIALIZE PAGE TITLE.
01500  M01S00785.286l859 +++|
01501  M01S00786.286l859 +++|          SA1    CPAR+/COMSPFS/CPLO
01502  M01S00787.286l859 +++|          LX1    59-56
01503  M01S00788.286l859 +++|          PL     X1,OUSX     IF *S* LIST OPTION NOT SELECTED
01504  M01S00789.286l859 +++|          REWIND S3
01505  M01S00790.286l859 +++|          READ   S3
01506  M01S00791.286l859 +++|          SX2    USTX
01507  M01S00792.286l859 +++|          SX6    USS
01508  M01S00793.286l859 +++|          RJ     RPP         RESET PAGE PARAMETERS
01509  M01S00794.286l859 +++|          SX6    0
01510  M01S00795.286l859 +++|          SA6    OUSA        CLEAR PREVIOUS ENTRY USER INDEX
01511  M01S00796.286l859 +++|
01512  M01S00797.286l859 +++|*         CHECK NEXT CATALOG ENTRY.
01513  M01S00798.286l859 +++|
01514  M01S00799.286l859 +++| OUS1     READW  S3,SW1B,NWCS  READ ENTRY
01515  M01S00800.286l859 +++|          BX6    X1
01516  M01S00801.286l859 +++|          SA6    OUSB        SAVE EOR STATUS
01517  M01S00802.286l859 +++|          SA1    OUSA
01518  M01S00803.286l859 +++|          SA2    SW1B+FCUI
01519  M01S00804.286l859 +++|          NZ     X6,OUS2     IF END OF ENTRIES
01520  M01S00805.286l859 +++|          LX2    18
01521  M01S00806.286l859 +++|          SX6    X2          USER INDEX FROM CURRENT ENTRY
01522  M01S00807.286l859 +++|          BX2    X1-X6
01523  M01S00808.286l859 +++|          SA6    A1+         SET USER INDEX
01524  M01S00809.286l859 +++|          ZR     X2,OUS4     IF SAME USER INDEX AS PREVIOUS ENTRY
01525  M01S00810.286l859 +++|          ZR     X1,OUS3     IF FIRST ENTRY
01526  M01S00811.286l859 +++|
01527  M01S00812.286l859 +++|*         OUTPUT STATISTICS FOR PREVIOUS USER INDEX.
01528  M01S00813.286l859 +++|
01529  M01S00814.286l859 +++| OUS2     RJ     COD         CONVERT USER INDEX FOR OUTPUT
01530  M01S00815.286l859 +++|          SA6    COBF+0
01531  M01S00816.286l859 +++|          RJ     SID         SUM INDIRECT AND DIRECT FILE STATISTICS
01532  M01S00817.286l859 +++|          SA1    NSEC+2      COMPUTE AVERAGE FILE SIZE
01533  M01S00818.286l859 +++|          SA2    NFIL+2
01534  M01S00819.286l859 +++|          IX6    X1/X2
01535  M01S00820.286l859 +++|          SA6    AVFS        SET AVERAGE FILE SIZE
01536  M01S00821.286l859 +++|          SA5    OUSC        SET CONTROL TABLE ADDRESS
01537  M01S00822.286l859 +++|          RJ     CFS         CONVERT FILE STATISTICS
01538  M01S00823.286l859 +++|          SX6    1
01539  M01S00824.286l859 +++|          RJ     ALN         ALLOCATE ONE LINE
01540  M01S00825.286l859 +++|          WRITEH O,COBF,12   WRITE USER STATISTICS
01541  M01S00826.286l859 +++|          SA1    OUSB        GET EOR STATUS
01542  M01S00827.286l859 +++|          NZ     X1,OUSX     IF END OF ENTRIES
01543  M01S00828.286l859 +++| OUS3     RJ     IFS         INITIALIZE FILE STATISTICS FOR NEXT USER
01544  M01S00829.286l859 +++|
01545  M01S00830.286l859 +++|*         ACCUMULATE FILE STATISTICS.
01546  M01S00831.286l859 +++|
01547  M01S00832.286l859 +++| OUS4     RJ     AFS         ACCUMULATE FILE STATISTICS
01548  M01S00833.286l859 +++|          EQ     OUS1        READ NEXT ENTRY
01549  M01S00834.286l859 +++|
01550  M01S00835.286l859 +++|
01551  M01S00836.286l859 +++| OUSA     CON    0           PREVIOUS ENTRY USER INDEX
01552  M01S00837.286l859 +++| OUSB     CON    0           READ EOR STATUS
01553  M01S00838.286l859 +++|
01554  M01S00839.286l859 +++| OUSC     BSS    0           START OF FILE STATISTIC CONVERSIONS
01555  M01S00840.286l859 +++|          VFD    30/COBF+1,30/NFIL+2  TOTAL FILES
01556  M01S00841.286l859 +++|          VFD    30/COBF+2,30/NSEC+2  TOTAL SECTORS
01557  M01S00842.286l859 +++|          VFD    30/COBF+3,30/AVFS    AVERAGE FILE SIZE
01558  M01S00843.286l859 +++|          VFD    30/COBF+4,30/NFIL+0  INDIRECT ACCESS FILES
01559  M01S00844.286l859 +++|          VFD    30/COBF+5,30/NFIL+1  DIRECT ACCESS FILES
01560  M01S00845.286l859 +++|          VFD    30/COBF+6,30/DFIL    DISK RESIDENT FILES
01561  M01S00846.286l859 +++|          VFD    30/COBF+7,30/DSEC    DISK RESIDENT SECTORS
01562  M01S00847.286l859 +++|          VFD    30/COBF+8,30/CFIL    CARTRIDGE RESIDENT FILES
01563  M01S00848.286l859 +++|          VFD    30/COBF+9,30/CSEC    CARTRIDGE RESIDENT SECTORS
01564  M01S00849.286l859 +++|          VFD    30/COBF+10,30/TFIL   TAPE RESIDENT FILES
01565  M01S00850.286l859 +++|          VFD    30/COBF+11,30/TSEC   TAPE RESIDENT SECTORS
01566  M01S00851.286l859 +++|          CON    0           END OF CONVERSIONS
01567  M01S00852.286l859 +++| PSF      SPACE  4,15
01568  M01S00853.286l859 +++|**        PSF - PROCESS SORTED FILE OUTPUT.
01569  M01S00854.286l859 +++|*
01570  M01S00855.286l859 +++|*         ENTRY  CATALOG ENTRIES ON FILE *PF* IF SORTED FILE LIST
01571  M01S00856.286l859 +++|*                  SELECTED.
01572  M01S00857.286l859 +++|*
01573  M01S00858.286l859 +++|*         EXIT   SORTED FILE LIST OUTPUT COMPLETE.
01574  M01S00859.286l859 +++|*
01575  M01S00860.286l859 +++|*         USES   X - 1, 2, 6, 7.
01576  M01S00861.286l859 +++|*                A - 0, 1, 2, 6, 7.
01577  M01S00862.286l859 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01578  M02S00863.ns2793  ---|*         CALLS  OSF, OUS, OTS, SCE.
01579  M01S00001.ns2793  +++|*         CALLS  OSF, OUS, OTS, SCE, SDT.
01580  M01S00864.286l859 +++|*
01581  M01S00865.286l859 +++|*         MACROS READ, READW, REWIND, WRITER.
01582  M01S00866.286l859 +++|
01583  M01S00002.ns2793  +++|
01584  M01S00003.ns2793  +++| PSF3     RJ     SDT         RESET DEFAULT PAGE TITLE
01585  M01S00867.286l859 +++|
01586  M01S00868.286l859 +++| PSF      SUBR               ENTRY/EXIT
01587  M01S00869.286l859 +++|
01588  M01S00870.286l859 +++|*         CHECK  FOR SORTED OUTPUT.
01589  M01S00871.286l859 +++|
01590  M01S00872.286l859 +++|          SA1    FPSF
01591  M01S00873.286l859 +++|          ZR     X1,PSFX     IF NO FILES PROCESSED FOR SORTED OUTPUT
01592  M01S00874.286l859 +++|          WRITER PF          FLUSH FILE LIST FILE
01593  M01S00875.286l859 +++|
01594  M01S00876.286l859 +++|*         PROCESS SORTED FILE LIST AND USER STATISTICS.
01595  M01S00877.286l859 +++|

Seq #  *Modification Id* Act 
----------------------------+
01596  M02S00878.ns2790  ---|          SA1    CPAR+/COMSPFS/CPLO

Seq #  *Modification Id* Act 
----------------------------+
01597  M02S00879.ns2790  ---|          SX6    4100B

Seq #  *Modification Id* Act 
----------------------------+
01598  M02S00880.ns2790  ---|          LX1    59-56

Seq #  *Modification Id* Act 
----------------------------+
01599  M02S00881.ns2790  ---|          NG     X1,PSF1     IF *S* LIST OPTION SELECTED

Seq #  *Modification Id* Act 
----------------------------+
01600  M02S00882.ns2790  ---|          LX1    0-48-59+56

Seq #  *Modification Id* Act 
----------------------------+
01601  M02S00883.ns2790  ---|          BX1    X6*X1       *T* AND *U* LIST OPTIONS

Seq #  *Modification Id* Act 
----------------------------+
01602  M02S00884.ns2790  ---|          IX6    X1-X6

Seq #  *Modification Id* Act 
----------------------------+
01603  M02S00885.ns2790  ---|          NZ     X6,PSF2     IF SORTED FILE LIST NOT SELECTED

Seq #  *Modification Id* Act 
----------------------------+
01604  M02S00886.ns2790  ---| PSF1     RJ     SCE         SORT CATALOG ENTRIES
01605  M01S00035.ns2790  +++|          RJ     SCE         SORT CATALOG ENTRIES BY USER AND FILE NAME
01606  M01S00887.286l859 +++|          RJ     OSF         LIST FILES BY USER INDEX AND FILE NAME
01607  M01S00888.286l859 +++|          RJ     OUS         OUTPUT USER STATISTICS
01608  M01S00889.286l859 +++|
01609  M01S00890.286l859 +++|*         PROCESS TAPE ALTERNATE STORAGE STATISTICS.
01610  M01S00891.286l859 +++|
01611  M01S00892.286l859 +++| PSF2     SA1    CPAR+/COMSPFS/CPLO

Seq #  *Modification Id* Act 
----------------------------+
01612  M02S00893.ns2790  ---|          SX7    B1          SET KEY LENGTH
01613  M01S00894.286l859 +++|          LX1    59-56

Seq #  *Modification Id* Act 
----------------------------+
01614  M02S00895.ns2790  ---|          PL     X1,PSFX     IF TAPE STATISTICS NOT SELECTED

Seq #  *Modification Id* Act 
----------------------------+
01615  M02S00036.ns2793  ---|          PL     X1,PSFX     IF STATISTICS NOT SELECTED
01616  M01S00004.ns2793  +++|          PL     X1,PSF3     IF STATISTICS NOT SELECTED
01617  M01S00896.286l859 +++|          RJ     STD         SORT TAPE ALTERNATE STORAGE DATA

Seq #  *Modification Id* Act 
----------------------------+
01618  M02S00897.ns2793  ---|          ZR     X1,PSFX     IF NO ALTERNATE STORAGE DATA
01619  M01S00005.ns2793  +++|          ZR     X1,PSF3     IF NO ALTERNATE STORAGE DATA
01620  M01S00898.286l859 +++|          RJ     OTS         OUTPUT TAPE ALTERNATE STORAGE STATISTICS

Seq #  *Modification Id* Act 
----------------------------+
01621  M02S00899.ns2793  ---|          EQ     PSFX        RETURN
01622  M01S00006.ns2793  +++|          EQ     PSF3        RETURN
01623  M01S00900.286l859 +++| PSI      SPACE  4,15
01624  M01S00901.286l859 +++|**        PSI - PROCESS SORTED CIR OUTPUT.
01625  M01S00902.286l859 +++|*
01626  M01S00903.286l859 +++|*         ENTRY  CIR ENTRIES ON FILE *PF* IF SORTED CIR LIST SELECTED.
01627  M01S00904.286l859 +++|*
01628  M01S00905.286l859 +++|*         EXIT   SORTED CIR LIST OUTPUT COMPLETE.
01629  M01S00906.286l859 +++|*
01630  M01S00907.286l859 +++|*         USES   X - 1, 2, 6.
01631  M01S00908.286l859 +++|*                A - 1, 6.
01632  M01S00909.286l859 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01633  M02S00910.ns2793  ---|*         CALLS  FCI,  ISF, RPP.
01634  M01S00007.ns2793  +++|*         CALLS  FCI,  ISF, RPP, SDT.
01635  M01S00911.286l859 +++|*
01636  M01S00912.286l859 +++|*         MACROS READ, READW, REWIND, WRITER.
01637  M01S00913.286l859 +++|
01638  M01S00008.ns2793  +++|
01639  M01S00009.ns2793  +++| PSI4     RJ     SDT         RESET DEFAULT PAGE TITLE
01640  M01S00914.286l859 +++|
01641  M01S00915.286l859 +++| PSI      SUBR               ENTRY/EXIT
01642  M01S00916.286l859 +++|          SA1    FPSF
01643  M01S00917.286l859 +++|          ZR     X1,PSIX     IF NO FILES PROCESSED FOR SORTED OUTPUT
01644  M01S00918.286l859 +++|
01645  M01S00919.286l859 +++|*         SORT CIR ENTRIES.
01646  M01S00920.286l859 +++|
01647  M01S00921.286l859 +++|          WRITER PF          FLUSH FILE LIST FILE
01648  M01S00922.286l859 +++|          REWIND PF
01649  M01S00923.286l859 +++|          READ   PF
01650  M01S00924.286l859 +++|          RJ     ISF         INITIALIZE SORT FILES
01651  M01S00925.286l859 +++| PSI1     READW  PF,SRTB,SBCIL
01652  M01S00926.286l859 +++|          SB7    B7-SBCIL
01653  M01S00927.286l859 +++|          ZR     B7,PSI2     IF END OF ENTRIES
01654  M01S00928.286l859 +++|          MX0    60          SET SORT KEY MASK
01655  M01S00929.286l859 +++|          SX1    B1          SET SORT KEY LENGTH
01656  M01S00930.286l859 +++|          SB4    1           SET KEY OFFSET
01657  M01S00931.286l859 +++|          SB5    NWCI        SET ENTRY LENGTH
01658  M01S00932.286l859 +++|          RJ     WSB         WRITE SORTED ENTRIES TO FILE
01659  M01S00933.286l859 +++|          EQ     PSI1        READ NEXT BUFFER OF ENTRIES
01660  M01S00934.286l859 +++|
01661  M01S00935.286l859 +++| PSI2     WRITER S1
01662  M01S00936.286l859 +++|          WRITER S2
01663  M01S00937.286l859 +++|          SX0    NWCI        SET ENTRY LENGTH
01664  M01S00938.286l859 +++|          SX1    SBCIC       SET FULL BLOCK ENTRY COUNT
01665  M01S00939.286l859 +++|          MX2    60          SET SORT KEY MASK
01666  M01S00940.286l859 +++|          SB4    B0          SET KEY OFFSET
01667  M01S00941.286l859 +++|          SB5    1           SET KEY LENGTH
01668  M01S00942.286l859 +++|          SA0    SW1B        SET WORKING BUFFER 1 ADDRESS
01669  M01S00943.286l859 +++|          SA5    SW2B        SET WORKING BUFFER 2 ADDRESS
01670  M01S00944.286l859 +++|          RJ     MSF         MERGE SORT FILES
01671  M01S00945.286l859 +++|
01672  M01S00946.286l859 +++|*         OUTPUT SORTED CIR ENTRIES.
01673  M01S00947.286l859 +++|

Seq #  *Modification Id* Act 
----------------------------+
01674  M02S00948.ns2790  ---|          SX2    ISTX        SET CIR TITLE TEXT
01675  M01S00037.ns2790  +++|          SX2    CITX        SET CIR TITLE TEXT
01676  M01S00949.286l859 +++|          SX6    CIS         SET CIR SUBHEADER
01677  M01S00950.286l859 +++|          RJ     RPP         RESET PAGE PARAMETERS
01678  M01S00951.286l859 +++|          SX6    O           SET OUTPUT FILE FET ADDRESS
01679  M01S00952.286l859 +++|          SA6    OFFA
01680  M01S00953.286l859 +++|          REWIND S3
01681  M01S00954.286l859 +++|          READ   S3
01682  M01S00955.286l859 +++| PSI3     READW  S3,SW1B,NWCI  READ CIR ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01683  M02S00956.ns2793  ---|          NZ     X1,PSIX     IF EOR ENCOUNTERED
01684  M01S00010.ns2793  +++|          NZ     X1,PSI4     IF EOR ENCOUNTERED
01685  M01S00957.286l859 +++|          SA1    SW1B
01686  M01S00958.286l859 +++|          LX1    18
01687  M01S00959.286l859 +++|          BX6    X1          RESTORE FILE NAME AND USER INDEX
01688  M01S00960.286l859 +++|          SA6    A1
01689  M01S00961.286l859 +++|          SX6    A1          SET ENTRY ADDRESS
01690  M01S00962.286l859 +++|          RJ     FCI         FORMAT AND OUTPUT CIR ENTRY
01691  M01S00963.286l859 +++|          EQ     PSI3        READ NEXT ENTRY
01692  M01S00964.286l859 +++| SCE      SPACE  4,15
01693  M01S00965.286l859 +++|**        SCE - SORT CATALOG ENTRIES.
01694  M01S00966.286l859 +++|*
01695  M01S00967.286l859 +++|*         ENTRY  UNSORTED CATALOG ENTRIES ON FILE *PF*.
01696  M01S00968.286l859 +++|*
01697  M01S00969.286l859 +++|*         EXIT   SORTED CATALOG ENTRIES ON FILE *S3*.
01698  M01S00970.286l859 +++|*
01699  M01S00971.286l859 +++|*         USES   X - 0, 1, 2, 3, 6.
01700  M01S00972.286l859 +++|*                A - 0, 1, 2, 3, 5, 6, 7.
01701  M01S00973.286l859 +++|*                B - 4, 5, 7.
01702  M01S00974.286l859 +++|*
01703  M01S00975.286l859 +++|*         CALLS  ISF, MSF, WSB.
01704  M01S00976.286l859 +++|*
01705  M01S00977.286l859 +++|*         MACROS READ, READW, REWIND, WRITER.
01706  M01S00978.286l859 +++|
01707  M01S00979.286l859 +++|
01708  M01S00980.286l859 +++| SCE      SUBR               ENTRY/EXIT
01709  M01S00981.286l859 +++|          REWIND PF
01710  M01S00982.286l859 +++|          READ   PF
01711  M01S00983.286l859 +++|          RJ     ISF         INITIALIZE SORT FILES
01712  M01S00984.286l859 +++| SCE1     READW  PF,SRTB,SBCEL
01713  M01S00985.286l859 +++|          SB7    B7-SBCEL
01714  M01S00986.286l859 +++|          ZR     B7,SCE2     IF END OF ENTRIES
01715  M01S00987.286l859 +++|          MX0    60          SET KEY MASK
01716  M01S00988.286l859 +++|          SX1    B1          SET SORT KEY LENGTH
01717  M01S00989.286l859 +++|          SB4    1           SET KEY OFFSET
01718  M01S00990.286l859 +++|          SB5    NWCS        SET ENTRY LENGTH
01719  M01S00991.286l859 +++|          RJ     WSB         WRITE SORTED ENTRIES TO FILE
01720  M01S00992.286l859 +++|          EQ     SCE1        READ NEXT BUFFER OF ENTRIES
01721  M01S00993.286l859 +++|
01722  M01S00994.286l859 +++| SCE2     WRITER S1          FLUSH BUFFER
01723  M01S00995.286l859 +++|          WRITER S2          FLUSH BUFFER
01724  M01S00996.286l859 +++|          SX0    NWCS        SET ENTRY LENGTH
01725  M01S00997.286l859 +++|          SX1    SBCEC       SET FULL BLOCK ENTRY COUNT
01726  M01S00998.286l859 +++|          MX2    60          SET KEY MASK
01727  M01S00999.286l859 +++|          SB4    B0          SET KEY OFFSET
01728  M01S01000.286l859 +++|          SB5    1           SET KEY LENGTH
01729  M01S01001.286l859 +++|          SA0    SW1B        SET WORKING BUFFER 1 ADDRESS
01730  M01S01002.286l859 +++|          SA5    SW2B        SET WORKING BUFFER 2 ADDRESS
01731  M01S01003.286l859 +++|          RJ     MSF         MERGE SORT FILES
01732  M01S01004.286l859 +++|          EQ     SCEX        RETURN
01733  M01S01005.286l859 +++| STD      SPACE  4,15
01734  M01S01006.286l859 +++|**        STD - SORT TAPE ALTERNATE STORAGE DATA.
01735  M01S01007.286l859 +++|*
01736  M01S01008.286l859 +++|*         ENTRY  PROCESSED CATALOG ENTRIES ON FILE *PF*.
01737  M01S01009.286l859 +++|*
01738  M01S01010.286l859 +++|*         EXIT   (X1) = 0 IF NO TAPE ALTERNATE STORAGE DATA.
01739  M01S01011.286l859 +++|*                (X1) = 1 IF ALTERNATE  STORAGE DATA TO PROCESS.
01740  M01S01012.286l859 +++|*                SORTED TAPE ALTERNATE STORAGE DATA ON FILE *S3*.
01741  M01S01013.286l859 +++|*
01742  M01S01014.286l859 +++|*         USES   X - 0, 1, 2, 3, 6.
01743  M01S01015.286l859 +++|*                A - 0, 1, 2, 3, 5, 6, 7.
01744  M01S01016.286l859 +++|*                B - 4, 5, 7.
01745  M01S01017.286l859 +++|*
01746  M01S01018.286l859 +++|*         CALLS  ISF, MSF, WSB.
01747  M01S01019.286l859 +++|*
01748  M01S01020.286l859 +++|*         MACROS READ, READW, REWIND, WRITER.
01749  M01S01021.286l859 +++|
01750  M01S01022.286l859 +++|
01751  M01S01023.286l859 +++| STD      SUBR               ENTRY/EXIT
01752  M01S01024.286l859 +++|          REWIND PF
01753  M01S01025.286l859 +++|          READ   PF
01754  M01S01026.286l859 +++|          RJ     ISF         INITIALIZE SORT FILES
01755  M01S01027.286l859 +++|          SX6    B0+
01756  M01S01028.286l859 +++|          SA6    STDC        CLEAR DATA FLAG
01757  M01S01029.286l859 +++|
01758  M01S01030.286l859 +++|*         WRITE DATA ENTRIES TO SORT FILES.
01759  M01S01031.286l859 +++|
01760  M01S01032.286l859 +++| STD1     SX6    SRTB
01761  M01S01033.286l859 +++|          SA6    STDA        INITIALIZE SORT BUFFER POINTER
01762  M01S01034.286l859 +++| STD2     READW  PF,SW1B,NWCS  READ CATALOG ENTRY AND STATUS
01763  M01S01035.286l859 +++|          SA2    SW1B+FCTV
01764  M01S01036.286l859 +++|          BX6    X1
01765  M01S01037.286l859 +++|          SA6    STDB        SAVE EOR STATUS
01766  M01S01038.286l859 +++|          NZ     X1,STD3     IF END OF ENTRIES
01767  M01S01039.286l859 +++|          ZR     X2,STD2     IF FILE NOT ON TAPE ALTERNATE STORAGE
01768  M01S01040.286l859 +++|          SA3    SW1B+FCLF
01769  M01S01041.286l859 +++|          SA4    STDA
01770  M01S01042.286l859 +++|          MX6    36
01771  M01S01043.286l859 +++|          LX6    24
01772  M01S01044.286l859 +++|          BX2    X6*X2       ALTERNATE STORAGE FLAGS AND VSN IDENTIFIER
01773  M01S01045.286l859 +++|          LX3    -12
01774  M01S01046.286l859 +++|          BX3    -X6*X3      FILE LENGTH
01775  M01S01047.286l859 +++|          BX6    X2+X3       MERGE VSN, FLAGS, AND FILE LENGTH
01776  M01S01048.286l859 +++|          SA6    X4+         SET ALTERNATE STORAGE DATA IN SORT BUFFER
01777  M01S01049.286l859 +++|          SX6    X4+1        ADVANCE BUFFER INDEX
01778  M01S01050.286l859 +++|          SA6    STDC        INDICATE DATA PRESENT
01779  M01S01051.286l859 +++|          SA6    A4+
01780  M01S01052.286l859 +++|          SX1    X6-SRTB-SRTBL
01781  M01S01053.286l859 +++|          NG     X1,STD2     IF SORT BUFFER NOT FULL
01782  M01S01054.286l859 +++| STD3     SA4    STDA
01783  M01S01055.286l859 +++|          SA2    TSKM

Proceed to Part 2