User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:pfam.001

Deck PFAM Part 001

12 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00960  M01S00667.pfam    +++|          NZ     X3,TER1     IF MORE REQUESTS RECEIVED SINCE LAST CALL
00961  M01S00668.pfam    +++|          IX1    X1-X2
00962  M01S00669.pfam    +++|          ZR     X1,TER2     IF NO MORE FILES STAGED SINCE LAST CALL
00963  M01S00670.pfam    +++| TER1     REWIND TAPE,R
00964  M01S00671.pfam    +++|          RJ     CAR         CHECK FOR ADDITIONAL STAGE REQUESTS
00965  M01S00672.pfam    +++|          EQ     AFL         PROCESS ADDITIONAL STAGE REQUESTS
00966  M01S00673.pfam    +++|
00967  M01S00674.pfam    +++| TER2     RJ     /MTX/TCM    TERMINATE CONNECTION WITH *MAGNET*
00968  M01S00675.pfam    +++|          RJ     RUR         REQUEUE UNPROCESSED STAGE REQUESTS
00969  M01S00676.pfam    +++|          RETURN F,R
00970  M01S00677.pfam    +++|          RETURN T,R
00971  M01S00678.pfam    +++|
Line S00679 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00972  M02S00679.286l859 ---|*         TERMINATE OUTPUT FILES AND ISSUE TERMINATION MESSAGES.
00973  M01S00225.286l859 +++|*         PROCESS *PFATC* OR *PFCOPY* TERMINATION.
00974  M01S00680.pfam    +++|
Line S00681 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00975  M02S00681.286l859 ---| TER3     RJ     TOF         TERMINATE OUTPUT FILES
Line S00682 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00976  M02S00682.286l859 ---|          SA1    FPRF
Line S00683 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00977  M02S00683.286l859 ---|          NZ     X1,TER4     IF FILES PROCESSED
Line S00684 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00978  M02S00684.286l859 ---|          MESSAGE  MSNF      * NO FILES PROCESSED.*
Line S00685 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00979  M02S00685.286l859 ---| TER4     SA1    EMIF
Line S00686 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00980  M02S00686.286l859 ---|          ZR     X1,TER5     IF NO ERROR MESSAGES
Line S00687 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00981  M02S00687.286l859 ---|          MESSAGE  MSCD      * CHECK DAYFILE FOR ERRORS.*
Line S00688 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00982  M02S00688.286l859 ---| TER5     SA1    NOPF        NUMBER OF PERMANENT FILES
Line S00689 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00983  M02S00689.286l859 ---|          SB2    X1+
Line S00690 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00984  M02S00690.286l859 ---|          NE     B2,B1,TER6  IF COUNT NOT = 1
Line S00691 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00985  M02S00691.286l859 ---|          MESSAGE  MS1F      * 1 FILE PROCESSED.*
Line S00692 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00986  M02S00692.286l859 ---|          EQ     TER7        TERMINATE ROUTINE
Line S00693 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00987  M02S00693.286l859 ---|
Line S00694 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00988  M02S00694.286l859 ---| TER6     RJ     CDD         CONVERT TO DECIMAL DISPLAY
Line S00695 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00989  M02S00695.286l859 ---|          MX0    -30         MASK TO FIVE DIGITS
Line S00696 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00990  M02S00696.286l859 ---|          BX1    -X0*X6
Line S00697 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00991  M02S00697.286l859 ---|          LX1    -30         LEFT JUSTIFY
Line S00698 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00992  M02S00698.286l859 ---|          SB2    1R$
Line S00699 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00993  M02S00699.286l859 ---|          SB5    MSFP
Line S00700 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00994  M02S00700.286l859 ---|          RJ     SNM         SET NAME IN MESSAGE
Line S00701 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00995  M02S00701.286l859 ---|          MESSAGE  MSFP      * $$$$$ FILES PROCESSED.*
Line S00702 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00996  M02S00702.286l859 ---| TER7     MESSAGE  MSUC      * PFUUUUU COMPLETE.*
Line S00703 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00997  M02S00703.286l859 ---|          SA5    IDSA+/COMSPFS/ADMS
Line S00704 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00998  M02S00704.286l859 ---|          MOVE   3,MSUC,X5   * PFUUUUU COMPLETE.*
Line S00705 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00999  M02S00705.286l859 ---|          ENDRUN
01000  M01S00226.286l859 +++| TER3     EQ     END         TERMINATE
01001  M01S00706.pfam    +++|
01002  M01S00707.pfam    +++|
01003  M01S00708.pfam    +++| TERA     CON    0           STAGE REQUESTS RECEIVED BEFORE PRIOR CALL
01004  M01S00709.pfam    +++| TERB     CON    0           STAGE REQUESTS SELECTED BEFORE PRIOR CALL
01005  M01S00710.pfam    +++|          TITLE  PRIMARY SUBROUTINES.
01006  M01S00711.pfam    +++| CCB      SPACE  4,15
01007  M01S00712.pfam    +++|**        CCB - *PFCOPY* PROCESS CATALOG BLOCK.
01008  M01S00713.pfam    +++|*
01009  M01S00714.pfam    +++|*         ENTRY  (X3) = CATALOG BLOCK CONTROL WORD SUB-TYPE CODE.
01010  M01S00715.pfam    +++|*                (X5) = CATALOG BLOCK WORD COUNT.
01011  M01S00716.pfam    +++|*
01012  M01S00717.pfam    +++|*         EXIT   (X6) .NE. 0, IF FILE NOT TO BE PROCESSED.
01013  M01S00718.pfam    +++|*
01014  M01S00719.pfam    +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
01015  M01S00720.pfam    +++|*                A - 1, 2, 3, 4, 6.
01016  M01S00721.pfam    +++|*
Line S00722 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01017  M02S00722.286l859 ---|*         CALLS  ALD, CSP, DFN, OCD, SEM, SER.
01018  M01S00227.286l859 +++|*         CALLS  ALD, CSP, CFE, DFN, SER, SFE.
01019  M01S00723.pfam    +++|*
Line S00724 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01020  M02S00724.286l859 ---|*         MACROS EDITS, MESSAGE, RECALL, RETURN, WRITER, WRITEW.
01021  M01S00228.286l859 +++|*         MACROS MESSAGE, RECALL, RETURN, WRITER, WRITEW.
01022  M01S00725.pfam    +++|
01023  M01S00726.pfam    +++|
01024  M01S00727.pfam    +++| CCB      SUBR               ENTRY/EXIT
01025  M01S00728.pfam    +++|          RJ     CSP         CHECK SELECTION PARAMETERS
01026  M01S00729.pfam    +++|          ZR     X6,CCB1     IF FILE NOT TO BE COPIED
Line S00730 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01027  M02S00730.286l859 ---|          SA1    PCOF
Line S00731 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01028  M02S00731.286l859 ---|          NZ     X1,CCB1     IF *PFC ONLY* FILE
01029  M01S00229.286l859 +++|          SA1    FLST
01030  M01S00230.286l859 +++|          LX1    59-0
01031  M01S00231.286l859 +++|          NG     X1,CCB1     IF *PFC ONLY* FILE
01032  M01S00232.286l859 +++|          SA6    FPRF        SET FILE PROCESSING FLAG
01033  M01S00732.pfam    +++|          EQ     CCB3        SET FILE NAME IN FET
01034  M01S00733.pfam    +++|
01035  M01S00734.pfam    +++|*         SET SKIPPING FN UI MESSAGE.
01036  M01S00735.pfam    +++|
01037  M01S00736.pfam    +++| CCB1     SA1    CATH        SET FILE NAME AND USER INDEX
Line S00737 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01038  M02S00737.286l859 ---|          SX2    MSSK        * SKIPPING ...*
01039  M01S00233.286l859 +++|          SA2    MSSK        *SKIPPING ...*
01040  M01S00738.pfam    +++|          RJ     DFN         DISPLAY MESSAGE
01041  M01S00739.pfam    +++| CCB2     RJ     SER         SKIP TO EOR
01042  M01S00740.pfam    +++|          SX6    B1          INDICATE FILE NOT TO BE PROCESSED
01043  M01S00741.pfam    +++|          EQ     CCBX        RETURN
01044  M01S00742.pfam    +++|
01045  M01S00743.pfam    +++|*         SET FILE NAME IN FET.
01046  M01S00744.pfam    +++|
01047  M01S00745.pfam    +++| CCB3     RECALL FILEA
01048  M01S00746.pfam    +++|          SA3    CPAR+/COMSPFS/CPMF  CHECK IF MASTER FILE SPECIFIED
01049  M01S00747.pfam    +++|          NZ     X3,CCB7     IF MASTER FILE SPECIFIED
01050  M01S00748.pfam    +++|          SA4    FILEA       SET FILE NAME IN FET
01051  M01S00749.pfam    +++|          MX0    42
01052  M01S00750.pfam    +++|          BX7    -X0*X4      SAVE CODE AND STATUS
01053  M01S00751.pfam    +++|          SA3    CATH
01054  M01S00752.pfam    +++|          BX1    X0*X3
01055  M01S00753.pfam    +++|          SA2    CPAR+/COMSPFS/CPTB
01056  M01S00754.pfam    +++|          BX2    X2-X1
01057  M01S00755.pfam    +++|          NZ     X2,CCB4     IF NOT ARCHIVE FILE NAME
Line S00756 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01058  M02S00756.286l859 ---|          MESSAGE  ERFT      * PFCOPY - FILE NAME CHANGED TO ZZZZZTF.*
01059  M01S00234.286l859 +++|          MESSAGE  ERFT      * FILE NAME CHANGED TO ZZZZZTF.*
01060  M01S00757.pfam    +++|          SA1    =0LZZZZZTF
01061  M01S00758.pfam    +++|          EQ     CCB6        CHANGE NAME IN FET
01062  M01S00759.pfam    +++|
01063  M01S00760.pfam    +++| CCB4     SA2    CPAR+/COMSPFS/CPLB
01064  M01S00761.pfam    +++|          BX2    X2-X1
01065  M01S00762.pfam    +++|          NZ     X2,CCB5     IF NOT OUTPUT FILE NAME
Line S00763 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01066  M02S00763.286l859 ---|          MESSAGE  ERFL      * PFCOPY - FILE NAME CHANGED TO ZZZZZLF.*
01067  M01S00235.286l859 +++|          MESSAGE  ERFL      * FILE NAME CHANGED TO ZZZZZLF.*
01068  M01S00764.pfam    +++|          SA1    =0LZZZZZLF
01069  M01S00765.pfam    +++|          EQ     CCB6        CHANGE FILE NAME IN FET
01070  M01S00766.pfam    +++|
01071  M01S00767.pfam    +++| CCB5     SA2    CPAR+/COMSPFS/CPSU
01072  M01S00768.pfam    +++|          BX2    X2-X1
01073  M01S00769.pfam    +++|          NZ     X2,CCB6     IF NOT SUMMARY FILE NAME
Line S00770 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01074  M02S00770.286l859 ---|          MESSAGE  ERFS      * PFCOPY - FILE NAME CHANGED TO ZZZZZSF.*
01075  M01S00236.286l859 +++|          MESSAGE  ERFS      * FILE NAME CHANGED TO ZZZZZSF.*
01076  M01S00771.pfam    +++|          SA1    =0LZZZZZSF
01077  M01S00772.pfam    +++| CCB6     BX6    X7+X1
01078  M01S00773.pfam    +++|          SA6    A4
01079  M01S00774.pfam    +++|          RETURN FILEA,R
01080  M01S00775.pfam    +++|          RJ     ALD         ASSIGN MASS STORAGE DEVICE
01081  M01S00776.pfam    +++|          ZR     X6,CCB7     IF DEVICE ASSIGNED
01082  M01S00777.pfam    +++|          SA1    CATH        SET FILE NAME AND USER INDEX
Line S00778 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01083  M02S00778.286l859 ---|          SX2    MSSK        * SKIPPING ...*
Line S00779 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01084  M02S00779.286l859 ---|          RJ     DFN         DISPLAY MESSAGE AND SET MESSAGE PARAMETERS
Line S00780 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01085  M02S00780.286l859 ---|          EDITS  MSFN,ERND   * PFCOPY - NO DEVICE FOR FILE.*
Line S00781 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01086  M02S00781.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
01087  M01S00237.286l859 +++|          SA2    MSSK        *SKIPPING ...*
01088  M01S00238.286l859 +++|          RJ     DFN         DISPLAY MESSAGE
01089  M01S00239.286l859 +++|          SA1    CATH+FCUI
01090  M01S00240.286l859 +++|          SB2    ERDA        * NO DEVICE FOR FILE ACCESS LEVEL ...*
01091  M01S00241.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE
01092  M01S00242.286l859 +++|          RJ     CFE         COUNT FILE SKIPPED
01093  M01S00782.pfam    +++|          EQ     CCB2        SKIP FILE
01094  M01S00783.pfam    +++|
01095  M01S00784.pfam    +++|*         SET COPYING FN UI MESSAGE.
01096  M01S00785.pfam    +++|
01097  M01S00786.pfam    +++| CCB7     SA1    CATH        SET FILE NAME AND USER INDEX
Line S00787 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01098  M02S00787.286l859 ---|          SX2    MSCP        * COPYING ...*
01099  M01S00243.286l859 +++|          SA2    MSCP        *COPYING ...*
01100  M01S00788.pfam    +++|          RJ     DFN         DISPLAY MESSAGE
Line S00789 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01101  M02S00789.286l859 ---|          SX6    CATH
Line S00790 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01102  M02S00790.286l859 ---|          RJ     OCD         OUTPUT CATALOG DATA
01103  M01S00791.pfam    +++|
01104  M01S00792.pfam    +++|*         WRITE CATALOG PREFACE RECORD IF SELECTED.
01105  M01S00793.pfam    +++|
01106  M01S00794.pfam    +++|          SA1    CPAR+/COMSPFS/CPOP
01107  M01S00795.pfam    +++|          LX1    59-50
01108  M01S00796.pfam    +++|          PL     X1,CCB8     IF NO PREFACE RECORDS REQUESTED
01109  M01S00797.pfam    +++|          WRITEW FILEA,CATH,NWCE
01110  M01S00798.pfam    +++|          WRITER FILEA,R
01111  M01S00799.pfam    +++| CCB8     BX6    X6-X6       INDICATE FILE TO BE PROCESSED
01112  M01S00800.pfam    +++|          EQ     CCBX
01113  M01S00801.pfam    +++| CFB      SPACE  4,20
01114  M01S00802.pfam    +++|**        CFB - CHECK FOR FIRST BLOCK OF TYPE ON CURRENT ARCHIVE FILE.
01115  M01S00803.pfam    +++|*
01116  M01S00804.pfam    +++|*         ENTRY  (X2) = BLOCK TYPE (MUST BE 1 OR 5).
01117  M01S00805.pfam    +++|*                     = 1 IF CATALOG ENTRY.
01118  M01S00806.pfam    +++|*                     = 5 IF *CIR* ENTRY.
01119  M01S00807.pfam    +++|*                (X3) = BLOCK CONTROL WORD SUB-TYPE.
01120  M01S00808.pfam    +++|*                (X5) = BLOCK WORD COUNT.
01121  M01S00809.pfam    +++|*
01122  M01S00810.pfam    +++|*         EXIT   (CIPF) .NE. 0 IF *CIR* BLOCK.
01123  M01S00811.pfam    +++|*                (CAPF) .NE. 0 IF CATALOG BLOCK.
01124  M01S00812.pfam    +++|*                (X3) = BLOCK CONTROL WORD SUB-TYPE.
01125  M01S00813.pfam    +++|*                (X5) = BLOCK WORD COUNT.
01126  M01S00814.pfam    +++|*
01127  M01S00815.pfam    +++|*         USES   X - 2, 3, 5, 6, 7.
01128  M01S00816.pfam    +++|*                A - 3, 5, 6, 7.
01129  M01S00817.pfam    +++|*
Line S00818 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01130  M02S00818.286l859 ---|*         CALLS  ICI, IFP.
01131  M01S00244.286l859 +++|*         CALLS  ICI, IFP, PSI.
01132  M01S00819.pfam    +++|
01133  M01S00820.pfam    +++|
01134  M01S00821.pfam    +++| CFB      SUBR               ENTRY/EXIT
01135  M01S00822.pfam    +++|          SX2    X2-5
01136  M01S00823.pfam    +++|          SX1    CIPF
01137  M01S00824.pfam    +++|          ZR     X2,CFB1     IF *CIR* TYPE
01138  M01S00825.pfam    +++|          SX1    CAPF
01139  M01S00826.pfam    +++| CFB1     SA1    X1
01140  M01S00827.pfam    +++|          NZ     X1,CFBX     IF NOT FIRST BLOCK
01141  M01S00828.pfam    +++|          SX6    B1          SET FIRST BLOCK FOUND
01142  M01S00829.pfam    +++|          SA6    A1+
01143  M01S00830.pfam    +++|          BX6    X3
01144  M01S00831.pfam    +++|          BX7    X5
01145  M01S00832.pfam    +++|          SA6    CFBA        SAVE BLOCK SUB-TYPE
01146  M01S00833.pfam    +++|          SA7    CFBB        SAVE WORD COUNT
01147  M01S00834.pfam    +++|          NZ     X2,CFB2     IF NOT CIR BLOCK
01148  M01S00835.pfam    +++|          RJ     ICI         INITIALIZE CIR OUTPUT
Line S00836 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01149  M02S00836.286l859 ---|          EQ     CFB3        RESET BLOCK PARAMETERS
01150  M01S00245.286l859 +++|          EQ     CFB4        RESET BLOCK PARAMETERS
01151  M01S00837.pfam    +++|
Line S00838 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01152  M02S00838.286l859 ---| CFB2     RJ     IFL         INITIALIZE CATALOG OUTPUT
Line S00839 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01153  M02S00839.286l859 ---| CFB3     SA3    CFBA        RESTORE SUB-TYPE
01154  M01S00246.286l859 +++| CFB2     SA1    CIPF
01155  M01S00247.286l859 +++|          ZR     X1,CFB3     IF CIR NOT PROCESSED
01156  M01S00248.286l859 +++|          RJ     PSI         PROCESS SORTED CIR OUTPUT
01157  M01S00249.286l859 +++| CFB3     RJ     IFL         INITIALIZE CATALOG OUTPUT
01158  M01S00250.286l859 +++| CFB4     SA3    CFBA        RESTORE SUB-TYPE
01159  M01S00840.pfam    +++|          SA5    CFBB        RESTORE WORD COUNT
01160  M01S00841.pfam    +++|          EQ     CFBX        RETURN
01161  M01S00842.pfam    +++|
01162  M01S00843.pfam    +++| CFBA     CON    0           BLOCK SUB-TYPE
01163  M01S00844.pfam    +++| CFBB     CON    0           BLOCK WORD COUNT
01164  M01S00845.pfam    +++| PDB      SPACE  4,20
01165  M01S00846.pfam    +++|**        PDB - PROCESS DATA BLOCK.
01166  M01S00847.pfam    +++|*
01167  M01S00848.pfam    +++|*         ENTRY  NON-PERMIT CONTROL WORD READ.
01168  M01S00849.pfam    +++|*                (X3) = CONTROL WORD SUB-TYPE.
01169  M01S00850.pfam    +++|*                     = -1, IF EOR WAS ENCOUNTERED.
01170  M01S00851.pfam    +++|*                (DBUF) = CONTROL WORD.
01171  M01S00852.pfam    +++|*
Line S00853 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01172  M02S00853.286l859 ---|*         EXIT   (X6) .NE. 0, IF PARITY ERROR.
01173  M01S00251.286l859 +++|*         EXIT   (X6) .NE. 0, IF READ ERROR OR ARCHIVE FILE ERROR.
01174  M01S00854.pfam    +++|*                DATA BLOCK PROCESSED.
Line S00855 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01175  M02S00855.286l859 ---|*                (FPRF) .NE. ZERO IF FILE PROCESSED.
01176  M01S00856.pfam    +++|*
01177  M01S00857.pfam    +++|*         USES   X - 0, 1, 2, 6, 7.
01178  M01S00858.pfam    +++|*                A - 1, 2, 6, 7.
01179  M01S00859.pfam    +++|*
01180  M01S00860.pfam    +++|*         CALLS  PPE, RCW, STE.
01181  M01S00861.pfam    +++|*
01182  M01S00862.pfam    +++|*         MACROS MESSAGE, READW, RECALL, SETFS, WRITE, WRITEF, WRITER,
01183  M01S00863.pfam    +++|*                WRITEW.
01184  M01S00864.pfam    +++|
01185  M01S00865.pfam    +++|
01186  M01S00866.pfam    +++| PDB      SUBR               ENTRY/EXIT
01187  M01S00867.pfam    +++|          RECALL FILEA
01188  M01S00868.pfam    +++|          BX6    X6-X6       CLEAR EOF FLAG
01189  M01S00869.pfam    +++|          SX7    B1          SET FILE PROCESSED FLAG
01190  M01S00870.pfam    +++|          SA6    PDBA
Line S00871 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01191  M02S00871.286l859 ---|          SA7    FPRF
01192  M01S00872.pfam    +++|          SX6    SSLN        INITIALIZE REMAINING SYSTEM SECTOR LENGTH
01193  M01S00873.pfam    +++|          SA6    PDBD
01194  M01S00874.pfam    +++|          EQ     PDB2        PROCESS SYSTEM SECTOR
01195  M01S00875.pfam    +++|
01196  M01S00876.pfam    +++|*         READ CONTROL WORD.
01197  M01S00877.pfam    +++|
01198  M01S00878.pfam    +++| PDB1     RJ     RCW         READ CONTROL WORD
01199  M01S00879.pfam    +++| PDB2     NG     X3,PDB12    IF EOR
01200  M01S00880.pfam    +++|          SA1    DBUF        CHECK DATA CONTROL WORD
01201  M01S00881.pfam    +++|          AX1    12
01202  M01S00882.pfam    +++|          MX0    -3
01203  M01S00883.pfam    +++|          BX1    -X0*X1
01204  M01S00884.pfam    +++|          SX1    X1-3
01205  M01S00885.pfam    +++|          ZR     X1,PDB5     IF DATA BLOCK
Line S00886 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01206  M02S00886.286l859 ---| PDB3     MESSAGE  ERCE      * PFUUUUU - DATA CONTROL WORD ERROR.*
Line S00887 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01207  M02S00887.286l859 ---| PDB4     RJ     STE         SKIP TAPE ERROR
01208  M01S00252.286l859 +++|
01209  M01S00253.286l859 +++|*         PROCESS ERROR IN ARCHIVE FILE.
01210  M01S00254.286l859 +++|
01211  M01S00255.286l859 +++| PDB3     SA1    /COMSPFS/UTLC
01212  M01S00256.286l859 +++|          SX1    X1-/COMSPFS/RSUT
01213  M01S00257.286l859 +++|          ZR     X1,PDB4     IF *PFRES*
01214  M01S00258.286l859 +++|          SA1    CATH+FCUI
01215  M01S00259.286l859 +++|          SB2    ERAB        * ARCHIVE FILE BLOCK ERROR... *
01216  M01S00260.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE
01217  M01S00261.286l859 +++|          EQ     PDB4.1      SKIP TAPE ERROR
01218  M01S00262.286l859 +++|
01219  M01S00263.286l859 +++| PDB4     SA5    STRA
01220  M01S00264.286l859 +++|          SB2    ERRB        * ARCHIVE FILE BLOCK ERROR... *
01221  M01S00265.286l859 +++|          RJ     SRE         SEND ERROR MESSAGE
01222  M01S00266.286l859 +++| PDB4.1   RJ     STE         SKIP TAPE ERROR
01223  M01S00888.pfam    +++|          SX6    B1          INDICATE ERROR
01224  M01S00889.pfam    +++|          EQ     PDBX        RETURN
01225  M01S00890.pfam    +++|
01226  M01S00891.pfam    +++|*         READ DATA.
01227  M01S00892.pfam    +++|
01228  M01S00893.pfam    +++| PDB5     BX0    X3
01229  M01S00894.pfam    +++|          BX6    X3          SAVE DATA MARK
01230  M01S00895.pfam    +++|          SA6    PDBC
01231  M01S00896.pfam    +++|          ZR     X5,PDB10    IF ZERO WORD COUNT
01232  M01S00897.pfam    +++|          READW  TAPE,DBUF,X5
01233  M01S00898.pfam    +++|          RJ     PPE         PROCESS PARITY ERROR
01234  M01S00899.pfam    +++|          NZ     X6,PDBX     IF PARITY ERROR
01235  M01S00900.pfam    +++|
01236  M01S00901.pfam    +++|*         SKIP OVER SYSTEM SECTOR.
01237  M01S00902.pfam    +++|
01238  M01S00903.pfam    +++|          SA1    PDBD        GET REMAINING SYSTEM SECTOR LENGTH
01239  M01S00904.pfam    +++|          SX2    X0-4
01240  M01S00905.pfam    +++|          BX6    X1+X2
01241  M01S00906.pfam    +++|          ZR     X6,PDB3     IF EXTRA SYSTEM SECTOR (NOT AT BOI)
01242  M01S00907.pfam    +++|          ZR     X2,PDB7     IF SYSTEM SECTOR
01243  M01S00908.pfam    +++|          ZR     X1,PDB9     IF SYSTEM SECTOR ALREADY PROCESSED
01244  M01S00909.pfam    +++|          SX7    X1-SSLN
Line S00910 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01245  M02S00910.286l859 ---|          NZ     X7,PDB6     IF SYSTEM SECTOR TRUNCATED
01246  M01S00267.286l859 +++|          NZ     X7,PDB3     IF SYSTEM SECTOR TRUNCATED
01247  M01S00911.pfam    +++|          SA7    PDBD        CLEAR REMAINING SYSTEM SECTOR LENGTH
01248  M01S00912.pfam    +++|          EQ     PDB9        WRITE DATA SECTOR
01249  M01S00913.pfam    +++|
Line S00914 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01250  M02S00914.286l859 ---| PDB6     MESSAGE  ERST      * PFUUUUU - SYSTEM SECTOR TRUNCATED.*
Line S00915 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01251  M02S00915.286l859 ---|          EQ     PDB4        SKIP TAPE ERROR
Line S00916 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01252  M02S00916.286l859 ---|
01253  M01S00917.pfam    +++| PDB7     IX7    X1-X5
Line S00918 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01254  M02S00918.286l859 ---|          NG     X7,PDB8     IF SYSTEM SECTOR TOO LONG
01255  M01S00268.286l859 +++|          NG     X7,PDB3     IF SYSTEM SECTOR TOO LONG
01256  M01S00919.pfam    +++|          SA7    A1          UPDATE REMAINING SYSTEM SECTOR LENGTH
01257  M01S00920.pfam    +++|          EQ     PDB1        BYPASS SYSTEM SECTOR
Line S00921 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01258  M02S00921.286l859 ---|
Line S00922 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01259  M02S00922.286l859 ---| PDB8     MESSAGE  ERSL      * PFUUUUU - SYSTEM SECTOR TOO LONG.*
Line S00923 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01260  M02S00923.286l859 ---|          EQ     PDB4        SKIP TAPE ERROR
01261  M01S00924.pfam    +++|
01262  M01S00925.pfam    +++|*         WRITE DATA.
01263  M01S00926.pfam    +++|
01264  M01S00927.pfam    +++| PDB9     WRITEW FILEA,DBUF,X5
01265  M01S00928.pfam    +++|
01266  M01S00929.pfam    +++|*         PROCESS DATA MARK.
01267  M01S00930.pfam    +++|
01268  M01S00931.pfam    +++| PDB10    ZR     X0,PDB1     IF NO DATA MARK
01269  M01S00932.pfam    +++|          SX2    X0-4
01270  M01S00933.pfam    +++|          ZR     X2,PDB1     IF SYSTEM SECTOR
01271  M01S00934.pfam    +++|          SX0    X0-1
01272  M01S00935.pfam    +++|          NZ     X0,PDB11    IF END OF FILE
01273  M01S00936.pfam    +++|          WRITER FILEA,R
01274  M01S00937.pfam    +++|          EQ     PDB1        READ NEXT CONTROL WORD
01275  M01S00938.pfam    +++|
01276  M01S00939.pfam    +++| PDB11    WRITEF FILEA,R
01277  M01S00940.pfam    +++|          SX6    B1+         SET EOF FLAG
01278  M01S00941.pfam    +++|          SA6    PDBA
01279  M01S00942.pfam    +++|          EQ     PDB1        READ NEXT CONTROL WORD
01280  M01S00943.pfam    +++|
01281  M01S00944.pfam    +++|*         PROCESS FILES WITH NO EOF.
01282  M01S00945.pfam    +++|
01283  M01S00946.pfam    +++| PDB12    SETFS  FILEA,0     CLEAR SPECIAL FILE STATUS
01284  M01S00947.pfam    +++|          SA1    PDBA        CHECK EOF FLAG
01285  M01S00948.pfam    +++|          NZ     X1,PDB13    IF EOF FLAG SET
01286  M01S00949.pfam    +++|          SA1    PDBC        CHECK LAST DATA MARK
01287  M01S00950.pfam    +++|          NZ     X1,PDB13    IF EOR, RETURN
01288  M01S00951.pfam    +++|          WRITE  FILEA,R
01289  M01S00952.pfam    +++|          SA1    FILEA+2     CHECK FOR EMPTY BUFFER
01290  M01S00953.pfam    +++|          SA2    A1+B1
01291  M01S00954.pfam    +++|          IX7    X1-X2       IN - OUT
01292  M01S00955.pfam    +++|          ZR     X7,PDB13    IF BUFFER FLUSHED, RETURN
01293  M01S00956.pfam    +++|          WRITER FILEA,R
01294  M01S00957.pfam    +++| PDB13    BX6    X6-X6       INDICATE NO ERROR
01295  M01S00958.pfam    +++|          EQ     PDBX        RETURN
01296  M01S00959.pfam    +++|
01297  M01S00960.pfam    +++|
01298  M01S00961.pfam    +++| PDBA     CON    0           EOF FLAG
01299  M01S00962.pfam    +++| PDBC     CON    0           LAST DATA MARK
01300  M01S00963.pfam    +++| PDBD     CON    0           REMAINING SYSTEM SECTOR LENGTH
01301  M01S00964.pfam    +++| PPB      SPACE  4,20
01302  M01S00965.pfam    +++|**        PPB - PROCESS PERMIT BLOCK (*PFCOPY*).
01303  M01S00966.pfam    +++|*
01304  M01S00967.pfam    +++|*         ENTRY  CATALOG BLOCK PROCESSED.
01305  M01S00968.pfam    +++|*
01306  M01S00969.pfam    +++|*         EXIT   (X6) .NE. 0, IF PARITY ERROR.
01307  M01S00970.pfam    +++|*                PERMIT BLOCK PROCESSED.
01308  M01S00971.pfam    +++|*                NON-PERMIT CONTROL WORD READ.
01309  M01S00972.pfam    +++|*                (X3) = CONTROL WORD SUB-TYPE.
01310  M01S00973.pfam    +++|*                     = -1, IF EOR WAS ENCOUNTERED.
01311  M01S00974.pfam    +++|*
01312  M01S00975.pfam    +++|*         USES   X - 0, 1, 4, 6.
01313  M01S00976.pfam    +++|*                A - 1, 6.
01314  M01S00977.pfam    +++|*
01315  M01S00978.pfam    +++|*         CALLS  PPE, RCW.
01316  M01S00979.pfam    +++|*
01317  M01S00980.pfam    +++|*         MACROS READW, RECALL, WRITER, WRITEW.
01318  M01S00981.pfam    +++|
01319  M01S00982.pfam    +++|
01320  M01S00983.pfam    +++| PPB      SUBR               ENTRY/EXIT
01321  M01S00984.pfam    +++|          RECALL F
01322  M01S00985.pfam    +++|          SX6    B0+         CLEAR PERMIT FLAG
01323  M01S00986.pfam    +++|          SA6    PPBA
01324  M01S00987.pfam    +++|
01325  M01S00988.pfam    +++|*         CHECK IF PERMIT BLOCK.
01326  M01S00989.pfam    +++|
01327  M01S00990.pfam    +++| PPB1     RJ     RCW         READ CONTROL WORD
01328  M01S00991.pfam    +++|          BX0    X3
01329  M01S00992.pfam    +++|          SX4    X2-2
01330  M01S00993.pfam    +++|          ZR     X4,PPB3     IF PERMIT BLOCK
01331  M01S00994.pfam    +++|          SA1    PPBA
01332  M01S00995.pfam    +++|          NZ     X1,PPB2     IF PERMITS EXIST
01333  M01S00996.pfam    +++|
01334  M01S00997.pfam    +++|*         WRITE ZERO LENGTH RECORD IF PREFACE RECORDS REQUESTED.
01335  M01S00998.pfam    +++|
01336  M01S00999.pfam    +++|          SA1    CPAR+/COMSPFS/CPOP
01337  M01S01000.pfam    +++|          LX1    59-50
01338  M01S01001.pfam    +++|          PL     X1,PPB2     IF NO PREFACE RECORD
01339  M01S01002.pfam    +++|          WRITER FILEA,R
01340  M01S01003.pfam    +++| PPB2     BX6    X6-X6       INDICATE NO ERROR
01341  M01S01004.pfam    +++|          EQ     PPBX        RETURN
01342  M01S01005.pfam    +++|
01343  M01S01006.pfam    +++|*         READ PERMIT INFORMATION.
01344  M01S01007.pfam    +++|
01345  M01S01008.pfam    +++| PPB3     ZR     X5,PPB1     IF ZERO WORD COUNT
01346  M01S01009.pfam    +++|          SX6    B1          SET PERMIT FLAG
01347  M01S01010.pfam    +++|          SA6    PPBA
01348  M01S01011.pfam    +++|          READW  TAPE,DBUF,X5 READ PERMIT BLOCK
01349  M01S01012.pfam    +++|          RJ     PPE         PROCESS PARITY ERROR
01350  M01S01013.pfam    +++|          NZ     X6,PPBX     IF PARITY ERROR
01351  M01S01014.pfam    +++|
01352  M01S01015.pfam    +++|*         WRITE PERMIT PREFACE RECORD.
01353  M01S01016.pfam    +++|
01354  M01S01017.pfam    +++|          SA1    CPAR+/COMSPFS/CPOP
01355  M01S01018.pfam    +++|          LX1    59-50
01356  M01S01019.pfam    +++|          PL     X1,PPB1     IF NO PREFACE RECORD REQUESTED
01357  M01S01020.pfam    +++|          WRITEW FILEA,DBUF,X5
01358  M01S01021.pfam    +++|          ZR     X0,PPB1     IF NO DATA MARK
01359  M01S01022.pfam    +++|          WRITER FILEA,R
01360  M01S01023.pfam    +++|          EQ     PPB1        READ NEXT CONTROL WORD
01361  M01S01024.pfam    +++|
01362  M01S01025.pfam    +++|
01363  M01S01026.pfam    +++| PPBA     BSSZ   1           PERMIT FLAG
01364  M01S01027.pfam    +++| RCB      SPACE  4,20
01365  M01S01028.pfam    +++|**        RCB - *PFRES* PROCESS CATALOG BLOCK.
01366  M01S01029.pfam    +++|*
01367  M01S01030.pfam    +++|*         ENTRY  (X3) = CATALOG BLOCK CONTROL WORD SUB-TYPE CODE.
01368  M01S01031.pfam    +++|*                (X5) = CATALOG BLOCK WORD COUNT.
01369  M01S01032.pfam    +++|*
01370  M01S01033.pfam    +++|*         EXIT   (X6) = 0, IF FILE IS TO BE PROCESSED.
01371  M01S01034.pfam    +++|*                (CATH) = CATALOG ENTRY FOR FILE.
01372  M01S01035.pfam    +++|*                TO *ABT* IF INCORRECT CATALOG SIZE.
01373  M01S01036.pfam    +++|*                TO *TER* IF FILE SKIPPED AND NO MORE REQUESTS.
01374  M01S01037.pfam    +++|*
Line S01038 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01375  M02S01038.ns2673  ---|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
Line S01039 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01376  M02S01039.ns2673  ---|*                A - 1, 2, 3, 4, 6.
01377  M01S00021.ns2673  +++|*         USES   X - 0, 1, 2, 5, 6.
Line S00022 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01378  M02S00022.286l859 ---|*                A - 1, 6.
01379  M01S00269.286l859 +++|*                A - 1, 5, 6.
01380  M01S00270.286l859 +++|*                B - 2.
01381  M01S01040.pfam    +++|*
Line S01041 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01382  M02S01041.ns2673  ---|*         CALLS  ALD, APD, CAR, CSR, DFN, PPE, SEM, SER, SSR, VCE.
Line S00023 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01383  M02S00023.286l859 ---|*         CALLS  ALD, APD, CAR, CSR, DFN, PPE, SEM, SER, SMP, SSR, VCE.
01384  M01S00271.286l859 +++|*         CALLS  ALD, APD, CAR, CSR, DFN, PPE, SEM, SRE, SSR, VCE.
01385  M01S01042.pfam    +++|*
Line S01043 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01386  M02S01043.286l859 ---|*         MACROS EDITS, MESSAGE, RECALL, RETURN, WRITER, WRITEW.
01387  M01S00272.286l859 +++|*         MACROS RECALL, RETURN, WRITER, WRITEW.
01388  M01S01044.pfam    +++|
01389  M01S01045.pfam    +++|
01390  M01S01046.pfam    +++| RCB      SUBR               ENTRY/EXIT
01391  M01S01047.pfam    +++|          SX1    X5-NWCE
01392  M01S01048.pfam    +++|          ZR     X1,RCB1     IF CORRECT SIZE CATALOG ENTRY
Line S01049 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01393  M02S01049.286l859 ---|          MESSAGE  ERIC      * PFRES - INCORRECT CATALOG SIZE.*
01394  M01S00273.286l859 +++|          SB2    ERIC        * INCORRECT CATALOG SIZE.*
01395  M01S01050.pfam    +++|          EQ     ABT         ABORT
01396  M01S01051.pfam    +++|
01397  M01S01052.pfam    +++| RCB1     SX0    X3          SAVE *PFC ONLY* STATUS
Line S01053 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01398  M02S01053.286l859 ---|          BX6    X6-X6       CLEAR FILE NAME FOR ERROR MESSAGES
Line S01054 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01399  M02S01054.286l859 ---|          SA6    MPFN
01400  M01S01055.pfam    +++|          READW  TAPE,CATH,X5  READ CATALOG ENTRY
01401  M01S01056.pfam    +++|          RJ     PPE         PROCESS PARITY ERROR
01402  M01S01057.pfam    +++|          NZ     X6,RCB3     IF PARITY ERROR ON CATALOG READ
01403  M01S01058.pfam    +++|          NZ     X0,RCB4     IF NOT *PFC ONLY* FILE
01404  M01S01059.pfam    +++|
01405  M01S01060.pfam    +++|*         SKIP FILE.
01406  M01S01061.pfam    +++|
01407  M01S01062.pfam    +++| RCB2     SA1    CATH        SET FILE NAME AND USER INDEX
Line S01063 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01408  M02S01063.286l859 ---|          SX2    MSSK        * SKIPPING ...*
Line S01064 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01409  M02S01064.286l859 ---|          RJ     DFN
01410  M01S00274.286l859 +++|          SA2    MSSK        *SKIPPING ...*
01411  M01S00275.286l859 +++|          RJ     DFN         DISPLAY MESSAGE
01412  M01S01065.pfam    +++|          RJ     SER         SKIP TO EOR
01413  M01S01066.pfam    +++|          RJ     CAR         CHECK FOR ADDITIONAL STAGE REQUESTS
01414  M01S01067.pfam    +++|          ZR     X6,TER      IF NO REQUESTS REMAIN TO BE PROCESSED
01415  M01S01068.pfam    +++| RCB3     SX6    B1          INDICATE THAT FILE IS NOT TO BE PROCESSED
01416  M01S01069.pfam    +++|          EQ     RCBX        RETURN
01417  M01S01070.pfam    +++|
01418  M01S01071.pfam    +++|*         CHECK IF FILE IS TO BE STAGED.
01419  M01S01072.pfam    +++|
01420  M01S01073.pfam    +++| RCB4     RJ     CSR         CHECK FOR STAGE REQUEST FOR THIS FILE
01421  M01S01074.pfam    +++|          ZR     X6,RCB2     IF NO STAGE REQUEST FOR THIS FILE
Line S01075 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01422  M02S01075.ns2673  ---|          SA1    X6+2        SET FILE NAME AND USER INDEX FOR MESSAGES
Line S01076 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01423  M02S01076.ns2673  ---|          MX0    42
Line S01077 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01424  M02S01077.ns2673  ---|          BX7    X0*X1
Line S01078 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01425  M02S01078.ns2673  ---|          SA7    MPFN
Line S01079 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01426  M02S01079.ns2673  ---|          BX7    -X0*X1
Line S01080 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01427  M02S01080.ns2673  ---|          SA7    MPUI
Line S00024 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01428  M02S00024.286l859 ---|          BX5    X6
Line S00025 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01429  M02S00025.286l859 ---|          RJ     SMP         SET MESSAGE PARAMETERS
01430  M01S01081.pfam    +++|          RJ     VCE         VERIFY CATALOG ENTRY FIELDS
01431  M01S01082.pfam    +++|          NZ     X6,RCB2     IF ACTIVE PFC DOES NOT MATCH PFC ON TAPE
01432  M01S01083.pfam    +++|
01433  M01S01084.pfam    +++|*         SET UP TO STAGE FILE.
01434  M01S01085.pfam    +++|
01435  M01S00276.286l859 +++|          SX6    1
01436  M01S00277.286l859 +++|          SA6    FPRF        SET FILE PROCESSING FLAG
01437  M01S01086.pfam    +++|          RJ     SSR         SETUP *PFM* SPECIAL REQUEST BLOCK
01438  M01S01087.pfam    +++|          SA1    CATH+FCBS
01439  M01S01088.pfam    +++|          LX1    59-11
01440  M01S01089.pfam    +++|          PL     X1,RCB5     IF INDIRECT ACCESS FILE
01441  M01S01090.pfam    +++|          RJ     APD         ASSIGN PERMANENT FILE DEVICE
01442  M01S01091.pfam    +++|          ZR     X6,RCB7     IF DEVICE ASSIGNED
01443  M01S01092.pfam    +++|          EQ     RCB6        PROCESS NO DEVICE FOUND
01444  M01S01093.pfam    +++|
01445  M01S01094.pfam    +++| RCB5     RJ     ALD         ASSIGN LOCAL FILE DEVICE
01446  M01S01095.pfam    +++|          ZR     X6,RCB7     IF DEVICE ASSIGNED
Line S01096 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01447  M02S01096.286l859 ---| RCB6     SX6    B1+         FORCE ERROR LOG MESSAGE
Line S01097 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01448  M02S01097.286l859 ---|          SA6    ELFG
Line S01098 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
M03 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01449  M03S01098.286l859 ---|          EDITS  MSFN,ERND   * PFRES - NO DEVICE FOR FILE.*
Line S00026 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01450  M02S00026.286l859 ---|          EDITS  MSFF,ERND   * PFRES - NO DEVICE FOR FILE.*
Line S01099 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01451  M02S01099.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
01452  M01S00278.286l859 +++| RCB6     SA5    STRA
01453  M01S00279.286l859 +++|          SB2    ERRA        * NO DEVICE FOR FILE ACCESS LEVEL ...*
01454  M01S00280.286l859 +++|          RJ     SRE         SEND ERROR MESSAGE
01455  M01S01100.pfam    +++|          EQ     RCB2        SKIP FILE
01456  M01S01101.pfam    +++|
01457  M01S01102.pfam    +++|*         SET *RESTORING FN UI* MESSAGE.
01458  M01S01103.pfam    +++|
01459  M01S01104.pfam    +++| RCB7     SA1    STRA        SET FILE NAME AND USER INDEX
01460  M01S01105.pfam    +++|          SA1    X1+2
Line S01106 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01461  M02S01106.286l859 ---|          SX2    MSRS        * RESTORING ...*
01462  M01S00281.286l859 +++|          SA2    MSRS        *RESTORING ...*
01463  M01S01107.pfam    +++|          RJ     DFN         DISPLAY MESSAGE
01464  M01S01108.pfam    +++|          BX6    X6-X6       INDICATE THAT FILE IS TO BE PROCESSED
01465  M01S01109.pfam    +++|          EQ     RCBX        RETURN
01466  M01S01110.pfam    +++| RCW      SPACE  4,25
01467  M01S01111.pfam    +++|**        RCW - READ CONTROL WORD.
Line S01112 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01468  M02S01112.286l859 ---|*
Line S01113 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01469  M02S01113.286l859 ---|*         ENTRY  (MPFN) = 0 IF NO FILE BEING PROCESSED.
Line S01114 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01470  M02S01114.286l859 ---|*                (MPFN) = FILE NAME IF FILE BEING PROCESSED.
Line S01115 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01471  M02S01115.286l859 ---|*                (MPUI) = USER INDEX IF FILE BEING PROCESSED.
01472  M01S01116.pfam    +++|*
01473  M01S01117.pfam    +++|*         EXIT   (X2) = CONTROL WORD TYPE.
01474  M01S01118.pfam    +++|*                (X3) = CONTROL WORD SUB-TYPE.
01475  M01S01119.pfam    +++|*                     = -1, IF EOR.
01476  M01S01120.pfam    +++|*                (DBUF) = CONTROL WORD.
01477  M01S01121.pfam    +++|*                (X5) = WORD COUNT.
Line S01122 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01478  M02S01122.pfam5   ---|*                TO *ABT* IF PREMATURE END OF FILE DETECTED.
01479  M01S01123.pfam    +++|*                TO *EAF* IF END OF DUMP CONTROL WORD.
01480  M01S01124.pfam    +++|*                TO *CUP* IF PARITY ERROR.
Line S01125 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01481  M02S01125.pfam5   ---|*                ABORT IF EOF DETECTED BEFORE END OF DUMP CONTROL WORD.
Line S00034 Modification History
M01 (Added by) pfam5
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01482  M02S00034.286l859 ---|*                TO *PPF* IF EOF BEFORE END OF DUMP CONTROL WORD.
01483  M01S00282.286l859 +++|*                TO *ABT* IF EOF BEFORE END OF DUMP CONTROL WORD.
01484  M01S01126.pfam    +++|*
01485  M01S01127.pfam    +++|*         USES   X - 0, 1, 2, 3, 5.
01486  M01S01128.pfam    +++|*                A - 1.
01487  M01S00283.286l859 +++|*                B - 2.
01488  M01S01129.pfam    +++|*
Line S01130 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01489  M02S01130.pfam5   ---|*         CALLS  ABT, EAF, CUP, PPE, SEM.
01490  M01S00035.pfam5   +++|*         CALLS  PPE.
01491  M01S01131.pfam    +++|*
01492  M01S01132.pfam    +++|*         MACROS MESSAGE, READ, READW.
01493  M01S01133.pfam    +++|
01494  M01S01134.pfam    +++|
01495  M01S01135.pfam    +++| RCW      SUBR               ENTRY/EXIT
01496  M01S01136.pfam    +++|          READW  TAPE,DBUF,B1
01497  M01S01137.pfam    +++|          RJ     PPE         PROCESS PARITY ERROR
01498  M01S01138.pfam    +++|          NZ     X6,CUP      IF PARITY ERROR
Line S01139 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01499  M02S01139.pfam5   ---|          NG     X1,RCW2     IF EOF
Line S00036 Modification History
M01 (Added by) pfam5
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01500  M02S00036.286l859 ---|          NG     X1,PPF      IF EOF
01501  M01S00284.286l859 +++|          SB2    ERPE        * PREMATURE EOF DETECTED.*
01502  M01S00285.286l859 +++|          NG     X1,ABT      IF EOF
01503  M01S01140.pfam    +++|          ZR     X1,RCW1     IF NOT EOR
01504  M01S01141.pfam    +++|
01505  M01S01142.pfam    +++|*         PROCESS END OF RECORD.
01506  M01S01143.pfam    +++|
01507  M01S01144.pfam    +++|          READ   TAPE
01508  M01S01145.pfam    +++|          RJ     PPE         PROCESS PARITY ERROR
01509  M01S01146.pfam    +++|          SX3    -1          SET EOR
01510  M01S01147.pfam    +++|          ZR     X6,RCWX     IF NO PARITY ERROR
Line S01148 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01511  M02S01148.286l859 ---|          SA1    MPFN
Line S01149 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01512  M02S01149.286l859 ---|          NZ     X1,CUP      IF FILE BEING PROCESSED
Line S01150 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01513  M02S01150.286l859 ---|          MESSAGE  ERAE      * PFUUUUU - ARCHIVE FILE PARITY ERROR.*
01514  M01S01151.pfam    +++|          EQ     CUP         CALL UTILITY PROCESSOR
01515  M01S01152.pfam    +++|
01516  M01S01153.pfam    +++|*         BREAK UP CONTROL WORD.
01517  M01S01154.pfam    +++|
01518  M01S01155.pfam    +++| RCW1     SA1    DBUF        BREAK APART CONTROL WORD
01519  M01S01156.pfam    +++|          MX0    -9
01520  M01S01157.pfam    +++|          BX5    -X0*X1      MASK OFF WORD COUNT
01521  M01S01158.pfam    +++|          AX0    6
01522  M01S01159.pfam    +++|          AX1    9
01523  M01S01160.pfam    +++|          BX3    -X0*X1      MASK OFF SUB-TYPE CODE
01524  M01S01161.pfam    +++|          AX1    3
01525  M01S01162.pfam    +++|          BX2    -X0*X1      MASK OFF TYPE CODE
01526  M01S01163.pfam    +++|          SX1    X2-7
Line S01164 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01527  M02S01164.pfam5   ---|          ZR     X1,EAF      IF END OF COPY
01528  M01S00037.pfam5   +++|          ZR     X1,EAF      IF END OF ARCHIVE FILE CONTROL WORD
01529  M01S01165.pfam    +++|          EQ     RCWX        RETURN
01530  M01S00286.286l859 +++| VPD      SPACE  4,20
01531  M01S00287.286l859 +++|**        VPD - VERIFY PERMIT AND DATA BLOCKS.
01532  M01S00288.286l859 +++|*
01533  M01S00289.286l859 +++|*         ENTRY  CATALOG ENTRY IN *CATH*.
01534  M01S00290.286l859 +++|*
01535  M01S00291.286l859 +++|*         EXIT   PERMIT OR DATA ERROR FLAGS SET IN *FLST* IF ERROR
01536  M01S00292.286l859 +++|*                  BLOCKS PRESENT ON ARCHIVE FILE.
01537  M01S00293.286l859 +++|*                ERROR MESSAGES ISSUED IF FILE PERMITS OR DATA
01538  M01S00294.286l859 +++|*                  UNREADABLE OR LOGIGAL ERROR IN PERMIT OR DATA
01539  M01S00295.286l859 +++|*                  BLOCKS.
01540  M01S00296.286l859 +++|*
01541  M01S00297.286l859 +++|*         USES   X - 1, 2, 4, 6, 7.
01542  M01S00298.286l859 +++|*                A - 1, 2, 6, 7.
01543  M01S00299.286l859 +++|*
01544  M01S00300.286l859 +++|*         CALLS  RCW, SFE, STE.
01545  M01S00301.286l859 +++|*
01546  M01S00302.286l859 +++|*         MACROS READW.
01547  M01S00303.286l859 +++|
01548  M01S00304.286l859 +++|
01549  M01S00305.286l859 +++| VPD      SUBR               ENTRY/EXIT
01550  M01S00306.286l859 +++|
01551  M01S00307.286l859 +++|*         CHECK CONSISTENCY OF PFC AND PERMITS BLOCKS.
01552  M01S00308.286l859 +++|
01553  M01S00309.286l859 +++|          RJ     RCW         READ CONTROL WORD
01554  M01S00310.286l859 +++|          SA1    CATH+FCRI   GET PERMITS RANDOM INDEX
01555  M01S00311.286l859 +++|          SX7    X2-2        CHECK FOR PERMITS BLOCK
01556  M01S00312.286l859 +++|          MX6    -24
01557  M01S00313.286l859 +++|          LX1    24
01558  M01S00314.286l859 +++|          BX1    -X6*X1
01559  M01S00315.286l859 +++|          NZ     X1,VPD1     IF PERMITS IN CATALOG
01560  M01S00316.286l859 +++|          NG     X3,VPD4     IF EOR ON ARCHIVE FILE
01561  M01S00317.286l859 +++|          NZ     X7,VPD4     IF NOT PERMITS BLOCK
01562  M01S00318.286l859 +++|          EQ     VPD9        PROCESS ARCHIVE FILE ERROR
01563  M01S00319.286l859 +++|
01564  M01S00320.286l859 +++| VPD1     NG     X3,VPD9     IF EOR ON ARCHIVE FILE
01565  M01S00321.286l859 +++|          NZ     X7,VPD9     IF NOT PERMITS BLOCK
01566  M01S00322.286l859 +++|
01567  M01S00323.286l859 +++|*         CHECK FOR ERROR STATUS IN PERMITS BLOCKS.
01568  M01S00324.286l859 +++|
01569  M01S00325.286l859 +++| VPD2     SA1    DBUF
01570  M01S00326.286l859 +++|          MX6    -3
01571  M01S00327.286l859 +++|          LX1    -15
01572  M01S00328.286l859 +++|          BX6    -X6*X1
01573  M01S00329.286l859 +++|          ZR     X6,VPD3     IF NOT ERROR BLOCK
01574  M01S00330.286l859 +++|          SA1    FLST        SET PERMIT ERROR IN FILE STATUS
01575  M01S00331.286l859 +++|          SX6    4
01576  M01S00332.286l859 +++|          BX6    X1+X6
01577  M01S00333.286l859 +++|          SA6    A1
01578  M01S00334.286l859 +++| VPD3     READW  TAPE,DBUF,X5  READ PERMITS BLOCK
01579  M01S00335.286l859 +++|          RJ     PPE         PROCESS PARITY ERROR
01580  M01S00336.286l859 +++|          NZ     X6,VPDX     IF PARITY ERROR
01581  M01S00337.286l859 +++|          RJ     RCW         READ NEXT CONTROL WORD
01582  M01S00338.286l859 +++|          NG     X3,VPD4     IF EOR ON ARCHIVE FILE
01583  M01S00339.286l859 +++|          SX7    X2-2
01584  M01S00340.286l859 +++|          ZR     X7,VPD2     IF PERMITS BLOCK
01585  M01S00341.286l859 +++|
01586  M01S00342.286l859 +++|*         CHECK CONSISTENCY OF PFC AND DATA BLOCKS.
01587  M01S00343.286l859 +++|
01588  M01S00344.286l859 +++| VPD4     SA1    FLST        GET *PFC ONLY* FLAG
01589  M01S00345.286l859 +++|          LX1    59-0
01590  M01S00346.286l859 +++|          PL     X1,VPD5     IF NOT *PFC ONLY* FILE
01591  M01S00347.286l859 +++|          NG     X3,VPDX     IF EOR ON ARCHIVE FILE
01592  M01S00348.286l859 +++|          EQ     VPD9        PROCESS ARCHIVE FILE ERROR
01593  M01S00349.286l859 +++|
01594  M01S00350.286l859 +++| VPD5     NG     X3,VPD9     IF EOR ON ARCHIVE FILE
01595  M01S00351.286l859 +++|          SX7    X2-3
01596  M01S00352.286l859 +++|          NZ     X7,VPD9     IF NOT DATA BLOCK
01597  M01S00353.286l859 +++|
01598  M01S00354.286l859 +++|*         CHECK FOR ERROR STATUS IN DATA BLOCKS.
01599  M01S00355.286l859 +++|
01600  M01S00356.286l859 +++| VPD6     SA1    DBUF
01601  M01S00357.286l859 +++|          SA2    VPDA
01602  M01S00358.286l859 +++|          MX6    42
01603  M01S00359.286l859 +++|          MX7    -3
01604  M01S00360.286l859 +++|          BX6    X6*X1
01605  M01S00361.286l859 +++|          LX1    -15
01606  M01S00362.286l859 +++|          BX6    X6-X2
01607  M01S00363.286l859 +++|          BX7    -X7*X1      EXTRACT ERROR TYPE
01608  M01S00364.286l859 +++|          NZ     X6,VPD8     IF NOT ERROR BLOCK
01609  M01S00365.286l859 +++|          SA1    FLST
01610  M01S00366.286l859 +++|          SX6    10B         SET TRUNCATED FILE
01611  M01S00367.286l859 +++|          ZR     X7,VPD7     IF TRUNCATED FILE ERROR
01612  M01S00368.286l859 +++|          SX6    2           SET ERROR IN DATA
01613  M01S00369.286l859 +++| VPD7     BX6    X1+X6
01614  M01S00370.286l859 +++|          SA6    FLST
01615  M01S00371.286l859 +++| VPD8     READW  TAPE,DBUF,X5  READ DATA BLOCK
01616  M01S00372.286l859 +++|          RJ     PPE         PROCESS PARITY ERROR
01617  M01S00373.286l859 +++|          NZ     X6,VPDX     IF PARITY ERROR
01618  M01S00374.286l859 +++|          RJ     RCW         READ NEXT CONTROL WORD
01619  M01S00375.286l859 +++|          NG     X3,VPDX     IF EOR ON ARCHIVE FILE
01620  M01S00376.286l859 +++|          SX7    X2-3
01621  M01S00377.286l859 +++|          ZR     X7,VPD6     IF DATA BLOCK
01622  M01S00378.286l859 +++|
01623  M01S00379.286l859 +++|*         PROCESS ARCHIVE FILE ERROR.
01624  M01S00380.286l859 +++|
01625  M01S00381.286l859 +++| VPD9     BX7    X3          SAVE EOR STATUS
01626  M01S00382.286l859 +++|          SA7    VPDB
01627  M01S00383.286l859 +++|          SA1    CATH+FCUI
01628  M01S00384.286l859 +++|          SB2    ERAB        * ARCHIVE FILE BLOCK ERROR ...*
01629  M01S00385.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE
01630  M01S00386.286l859 +++|          SA3    VPDB
01631  M01S00387.286l859 +++|          NG     X3,VPDX     IF EOR ON ARCHIVE FILE
01632  M01S00388.286l859 +++|          RJ     STE         SKIP TO END OF RECORD
01633  M01S00389.286l859 +++|          EQ     VPDX        RETURN
01634  M01S00390.286l859 +++|
01635  M01S00391.286l859 +++|
01636  M01S00392.286l859 +++| VPDA     VFD    42/7LERROR**,18/0
01637  M01S00393.286l859 +++| VPDB     CON    0           ARCHIVE FILE EOR STATUS
Line S01166 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01638  M02S01166.pfam5   ---|
Line S01167 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01639  M02S01167.pfam5   ---|*         PROCESS PREMATURE EOF.
Line S01168 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01640  M02S01168.pfam5   ---|
Line S01169 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01641  M02S01169.pfam5   ---| RCW2     SA1    /COMSPFS/UTLC
Line S01170 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01642  M02S01170.pfam5   ---|          SX1    X1-/COMSPFS/RSUT
Line S01171 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01643  M02S01171.pfam5   ---|          NZ     X1,RCW3     IF NOT *PFRES*
Line S01172 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01644  M02S01172.pfam5   ---|          SX6    B1+         FORCE ERROR LOG MESSAGE
Line S01173 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01645  M02S01173.pfam5   ---|          SA6    ELFG
Line S01174 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01646  M02S01174.pfam5   ---| RCW3     SX5    ERPE        * PFUUUUU - PREMATURE EOF DETECTED.*
Line S01175 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01647  M02S01175.pfam5   ---|          RJ     SEM         SEND ERROR MESSAGE
Line S01176 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
01648  M02S01176.pfam5   ---|          EQ     ABT         ABORT
01649  M01S01177.pfam    +++|          TITLE  GENERAL SUBROUTINES.
Line S01178 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01650  M02S01178.286l859 ---| ABT      SPACE  4,15
Line S01179 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01651  M02S01179.286l859 ---|**        ABT - ABORT PROCESSOR.
01652  M01S00394.286l859 +++| APR      SPACE  4,15
01653  M01S00395.286l859 +++|**        APR - ABORT PROCESSOR.
01654  M01S01180.pfam    +++|*
Line S01181 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01655  M02S01181.286l859 ---|*         ENTRY - CONTROL POINT OR PROGRAM FATAL ERROR DETECTED.
01656  M01S00396.286l859 +++|*         ENTRY  CONTROL POINT OR PROGRAM FATAL ERROR DETECTED.
01657  M01S01182.pfam    +++|*
Line S01183 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01658  M02S01183.286l859 ---|*         EXIT   JOB ABORTED.
Line S01184 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01659  M02S01184.286l859 ---|*                FILES RETURNED (*PFRES*).
Line S01185 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01660  M02S01185.286l859 ---|*                UNPROCESSED STAGE REQUESTS FOR THIS VSN REQUEUED.
01661  M01S00397.286l859 +++|*         EXIT   FILES RETURNED (*PFRES*).
01662  M01S00398.286l859 +++|*                UNPROCESSED STAGE REQUESTS FOR THIS VSN REQUEUED
01663  M01S00399.286l859 +++|*                  (*PFRES).
01664  M01S01186.pfam    +++|*
Line S01187 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01665  M02S01187.286l859 ---|*         USES   X - 1, 5, 6.
Line S01188 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01666  M02S01188.286l859 ---|*                A - 1, 5, 6.
01667  M01S00400.286l859 +++|*         USES   X - 1.
01668  M01S00401.286l859 +++|*                A - 1.
01669  M01S01189.pfam    +++|*
Line S01190 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01670  M02S01190.286l859 ---|*         CALLS  CAR, RUR, TCM.
01671  M01S00402.286l859 +++|*         CALLS  CAR, RUR, /MTX/TCM.
01672  M01S01191.pfam    +++|*
Line S01192 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01673  M02S01192.286l859 ---|*         MACROS ABORT, MESSAGE, RETURN, WRITER.
01674  M01S00403.286l859 +++|*         MACROS RETURN.
01675  M01S01193.pfam    +++|
01676  M01S01194.pfam    +++|
Line S01195 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01677  M02S01195.286l859 ---| ABT      BSS    0           ENTRY
01678  M01S00404.286l859 +++| APR      SUBR   0           ENTRY/EXIT
01679  M01S01196.pfam    +++|          SA1    /COMSPFS/UTLC
01680  M01S01197.pfam    +++|          SX1    X1-/COMSPFS/RSUT
Line S01198 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01681  M02S01198.286l859 ---|          NZ     X1,ABT4     IF NOT *PFRES*
01682  M01S00405.286l859 +++|          NZ     X1,APRX     IF NOT *PFRES*
01683  M01S01199.pfam    +++|
Line S01200 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01684  M02S01200.286l859 ---|*         GET ANY ADDITIONAL STAGE REQUESTS FOR THIS VSN FROM *MAGNET*,
Line S01201 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01685  M02S01201.286l859 ---|*         THEN TERMINATE CONNECTION AND REQUEUE UNPROCESSED REQUESTS.
01686  M01S00406.286l859 +++|*         PROCESS *PFRES* ABORT.  GET ANY ADDITIONAL STAGE REQUESTS FOR
01687  M01S00407.286l859 +++|*         THIS VSN FROM *MAGNET*, THEN TERMINATE CONNECTION AND REQUEUE
01688  M01S00408.286l859 +++|*         UNPROCESSED REQUESTS.
01689  M01S01202.pfam    +++|
Line S01203 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01690  M02S01203.286l859 ---|          SA1    ABTA
Line S01204 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01691  M02S01204.286l859 ---|          SX6    X1+B1
Line S01205 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01692  M02S01205.286l859 ---|          SA6    A1
Line S01206 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01693  M02S01206.286l859 ---|          ZR     X1,ABT1     IF NOT FIRST ENTRY TO *ABT*
Line S01207 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01694  M02S01207.286l859 ---|          SX1    X1-1
Line S01208 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01695  M02S01208.286l859 ---|          ZR     X1,ABT2     IF SECOND ENTRY TO *ABT*
Line S01209 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01696  M02S01209.286l859 ---|          EQ     ABT3        SKIP REQUEUE
Line S01210 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01697  M02S01210.286l859 ---|
Line S01211 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01698  M02S01211.286l859 ---| ABT1     RJ     CAR         GET ADDITIONAL REQUESTS FOR THIS VSN
Line S01212 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01699  M02S01212.286l859 ---|          GT     B6,B0,ABT1  IF ADDITIONAL REQUEST FOUND
Line S01213 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01700  M02S01213.286l859 ---| ABT2     RJ     /MTX/TCM    TERMINATE CONNECTION WITH *MAGNET*
01701  M01S00409.286l859 +++| APR1     RJ     CAR         GET ADDITIONAL REQUESTS FOR THIS VSN
01702  M01S00410.286l859 +++|          GT     B6,B0,APR1  IF ADDITIONAL REQUEST FOUND
01703  M01S00411.286l859 +++|          RJ     /MTX/TCM    TERMINATE CONNECTION WITH *MAGNET*
01704  M01S01214.pfam    +++|          RJ     RUR         REQUEUE UNPROCESSED STAGE REQUESTS
Line S01215 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01705  M02S01215.286l859 ---| ABT3     RETURN F,R         RETURN LOCAL FILE
01706  M01S00412.286l859 +++|          RETURN F,R         RETURN LOCAL FILE
01707  M01S01216.pfam    +++|          RETURN T,R         RETURN TAPE
01708  M01S01217.pfam    +++|          SA1    SRFF
Line S01218 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01709  M02S01218.286l859 ---|          ZR     X1,ABT4     IF STAGE REQUEST FILE NOT ATTACHED
01710  M01S00413.286l859 +++|          ZR     X1,APRX     IF STAGE REQUEST FILE NOT ATTACHED
01711  M01S01219.pfam    +++|          RETURN R,R         RETURN STAGE REQUEST FILE
Line S01220 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01712  M02S01220.286l859 ---|
Line S01221 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01713  M02S01221.286l859 ---|*         ISSUE TERMINATION MESSAGES AND ABORT.
Line S01222 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01714  M02S01222.286l859 ---|
Line S01223 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01715  M02S01223.286l859 ---| ABT4     MESSAGE  MSUA      * PFUUUUU ABORTED.*
Line S01224 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01716  M02S01224.286l859 ---|          SA5    IDSA+/COMSPFS/ADER  DISPLAY ERROR MESSAGE
Line S01225 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01717  M02S01225.286l859 ---|          MOVE   3,MSUA,X5
Line S01226 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01718  M02S01226.286l859 ---|          WRITER O,R
Line S01227 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01719  M02S01227.286l859 ---|          ABORT              ABORT
Line S01228 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01720  M02S01228.286l859 ---|
Line S01229 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01721  M02S01229.286l859 ---|
Line S01230 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01722  M02S01230.286l859 ---| ABTA     CON    0           ZERO IF FIRST ENTRY, ONE IF SECOND
Line S01231 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01723  M02S01231.286l859 ---| ABTBLK   RPVBLK ABT
01724  M01S00414.286l859 +++|          EQ     APRX        RETURN
01725  M01S01232.pfam    +++| ALD      SPACE  4,15
01726  M01S01233.pfam    +++|**        ALD - ASSIGN LOCAL FILE DEVICE.
01727  M01S01234.pfam    +++|*
01728  M01S01235.pfam    +++|*         ENTRY  (CATH) = PFC ENTRY.
01729  M01S01236.pfam    +++|*                (SYSS) = SYSTEM SECURITY MODE.
01730  M01S01237.pfam    +++|*
01731  M01S01238.pfam    +++|*         EXIT   (X6) = 0, IF DEVICE FOUND FOR FILE.
01732  M01S01239.pfam    +++|*
01733  M01S01240.pfam    +++|*         USES   X - 0, 1, 6.
01734  M01S01241.pfam    +++|*                A - 1.
01735  M01S01242.pfam    +++|*
01736  M01S01243.pfam    +++|*         CALLS  SAF.
01737  M01S01244.pfam    +++|*
01738  M01S01245.pfam    +++|*         MACROS RECALL, REQUEST, SETFET.
01739  M01S01246.pfam    +++|
01740  M01S01247.pfam    +++|
01741  M01S01248.pfam    +++| ALD      SUBR               ENTRY/EXIT
01742  M01S01249.pfam    +++|          RECALL F
01743  M01S01250.pfam    +++|          SX6    B0+         SET NO ERROR
01744  M01S01251.pfam    +++|          SA1    SYSS
01745  M01S01252.pfam    +++|          ZR     X1,ALDX     IF NOT SECURED SYSTEM
01746  M01S01253.pfam    +++|          RJ     SAF         SET ACCESS LEVEL IN FET
01747  M01S01254.pfam    +++|          SETFET F,ERP=E,DTY==2RMS  SET ERROR PROCESSING, DEVICE TYPE
01748  M01S01255.pfam    +++|          REQUEST  F,U,N
01749  M01S01256.pfam    +++|          SETFET F,ERP=0     CLEAR ERROR PROCESSING
01750  M01S01257.pfam    +++|          SA1    F           RETURN ERROR STATUS
01751  M01S01258.pfam    +++|          LX1    -10
01752  M01S01259.pfam    +++|          MX0    -8
01753  M01S01260.pfam    +++|          BX6    -X0*X1
01754  M01S01261.pfam    +++|          EQ     ALDX        RETURN
01755  M01S01262.pfam    +++| APD      SPACE  4,15
01756  M01S01263.pfam    +++|**        APD - ASSIGN PERMANENT FILE DEVICE.
01757  M01S01264.pfam    +++|*
01758  M01S01265.pfam    +++|*         ENTRY  (CATH) = PFC ENTRY.
01759  M01S01266.pfam    +++|*                (SYSS) = SYSTEM SECURITY MODE.
01760  M01S01267.pfam    +++|*
01761  M01S01268.pfam    +++|*         EXIT   (X6) = 0, IF DEVICE FOUND FOR FILE.
01762  M01S01269.pfam    +++|*
01763  M01S01270.pfam    +++|*         USES   X - 0, 1, 6.
01764  M01S01271.pfam    +++|*                A - 1.
01765  M01S01272.pfam    +++|*
01766  M01S01273.pfam    +++|*         CALLS  SAF.
01767  M01S01274.pfam    +++|*
Line S01275 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam2
Seq #  *Modification Id* Act 
----------------------------+
01768  M02S01275.pfam2   ---|*         MACROS ASSIGNPF, RECALL, REWIND, SETFET.
01769  M01S00001.pfam2   +++|*         MACROS ASSIGNPF, RECALL, SETFET.
01770  M01S01276.pfam    +++|
01771  M01S01277.pfam    +++|
01772  M01S01278.pfam    +++| APD      SUBR               ENTRY/EXIT
01773  M01S01279.pfam    +++|          RECALL F
01774  M01S01280.pfam    +++|          SA1    SYSS
01775  M01S01281.pfam    +++|          ZR     X1,APD1     IF NOT SECURED SYSTEM
01776  M01S01282.pfam    +++|          RJ     SAF         SET ACCESS LEVEL IN FET
01777  M01S01283.pfam    +++| APD1     SETFET F,ERP=UE,DTY=0 SET ERROR PROCESSING, CLEAR DEVICE TYPE
01778  M01S00002.pfam2   +++|          SX6    SRSY*10000B *SET SYSTEM SECTOR* SPECIAL REQUEST
01779  M01S00003.pfam2   +++|          SA6    F+8
01780  M01S01284.pfam    +++|          ASSIGNPF  F
01781  M01S01285.pfam    +++|          SETFET F,ERP=0     CLEAR ERROR PROCESSING
01782  M01S00004.pfam2   +++|          BX6    X6-X6       CLEAR SPECIAL REQUEST
01783  M01S00005.pfam2   +++|          SA6    F+8
01784  M01S01286.pfam    +++|          SA1    F           RETURN ERROR STATUS
01785  M01S01287.pfam    +++|          LX1    -10
01786  M01S01288.pfam    +++|          MX0    -8
01787  M01S01289.pfam    +++|          BX6    -X0*X1
Line S01290 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam2
Seq #  *Modification Id* Act 
----------------------------+
01788  M02S01290.pfam2   ---|          NZ     X6,APDX     IF ERROR
Line S01291 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam2
Seq #  *Modification Id* Act 
----------------------------+
01789  M02S01291.pfam2   ---|          REWIND F,R         POSITION FILE TO FIRST DATA SECTOR
Line S01292 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam2
Seq #  *Modification Id* Act 
----------------------------+
01790  M02S01292.pfam2   ---|          BX6    X6-X6       INDICATE NO ERROR
01791  M01S01293.pfam    +++|          EQ     APDX        RETURN
01792  M01S01294.pfam    +++| ARQ      SPACE  4,15
01793  M01S01295.pfam    +++|**        ARQ - ADD STAGE REQUEST TO QUEUE.
01794  M01S01296.pfam    +++|*
01795  M01S01297.pfam    +++|*         ENTRY  (B6) = FWA OF REQUEST TO ENTER.
01796  M01S01298.pfam    +++|*
01797  M01S01299.pfam    +++|*         EXIT   STAGE REQUEST ADDED TO QUEUE, IF NOT DUPLICATE.
01798  M01S01300.pfam    +++|*                FIELD LENGTH INCREASED IF NECESSARY.
01799  M01S01301.pfam    +++|*
01800  M01S01302.pfam    +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
01801  M01S01303.pfam    +++|*                A - 1, 2, 3, 4, 6, 7.
01802  M01S01304.pfam    +++|*                B - 5, 7.
01803  M01S01305.pfam    +++|*
01804  M01S01306.pfam    +++|*         MACROS MEMORY, MOVE.
01805  M01S01307.pfam    +++|
01806  M01S01308.pfam    +++|
01807  M01S01309.pfam    +++| ARQ      SUBR               ENTRY/EXIT
01808  M01S01310.pfam    +++|          SA3    SRQL
01809  M01S01311.pfam    +++|          SA2    SRQF
01810  M01S01312.pfam    +++|          SB7    X3+B1       VSN / SEQUENCE NUMBER WORD OF QUEUE ENTRY
01811  M01S01313.pfam    +++|          SA4    B6+B1       VSN / SEQUENCE NUMBER OF NEW REQUEST
01812  M01S01314.pfam    +++|          SB5    /MTX/PFTBL  LENGTH OF STAGE REQUEST
01813  M01S01315.pfam    +++|          MX0    -42
01814  M01S01316.pfam    +++| ARQ1     SB7    B7-B5       CHECK PREVIOUS ENTRY
01815  M01S01317.pfam    +++|          NG     B7,ARQ2     IF NO MORE ENTRIES
01816  M01S01318.pfam    +++|          SA1    X2+B7
01817  M01S01319.pfam    +++|          BX6    X1-X4
01818  M01S01320.pfam    +++|          BX6    -X0*X6
01819  M01S01321.pfam    +++|          NZ     X6,ARQ1     IF VSN / SEQUENCE NUMBER DO NOT MATCH
01820  M01S01322.pfam    +++|          EQ     ARQX        DUPLICATE REQUEST (IGNORE)
01821  M01S01323.pfam    +++|
01822  M01S01324.pfam    +++| ARQ2     IX3    X2+X3       ADD REQUEST TO QUEUE
01823  M01S01325.pfam    +++|          MOVE   B5,B6,X3
01824  M01S01326.pfam    +++|          SA1    SRQN        UPDATE NUMBER OF ENTRIES
01825  M01S01327.pfam    +++|          SX6    X1+B1
01826  M01S01328.pfam    +++|          SA6    A1
01827  M01S01329.pfam    +++|          SA1    SRQL        UPDATE LENGTH
01828  M01S01330.pfam    +++|          SX6    X1+B5
01829  M01S01331.pfam    +++|          SA6    A1
01830  M01S01332.pfam    +++|          SA1    SRQF        CHECK REMAINING AVAILABLE MEMORY
01831  M01S01333.pfam    +++|          SX6    X6+2*/MTX/PFTBL+8
Line S01334 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam6
Seq #  *Modification Id* Act 
----------------------------+
01832  M02S01334.pfam6   ---|          IX6    X1+X6
01833  M01S00001.pfam6   +++|          IX1    X1+X6
01834  M01S01335.pfam    +++|          SA2    MSTAT
01835  M01S01336.pfam    +++|          AX2    30
Line S01337 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam6
Seq #  *Modification Id* Act 
----------------------------+
01836  M02S01337.pfam6   ---|          IX3    X2-X6
01837  M01S00002.pfam6   +++|          IX3    X2-X1
01838  M01S01338.pfam    +++|          PL     X3,ARQX     IF ENOUGH MEMORY FOR TWO MORE REQUESTS
Line S01339 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam6
Seq #  *Modification Id* Act 
----------------------------+
01839  M02S01339.pfam6   ---|          MEMORY CM,MSTAT,R,X6+MEMI  INCREASE FIELD LENGTH
01840  M01S00003.pfam6   +++|          MEMORY CM,MSTAT,R,X1+MEMI  INCREASE FIELD LENGTH
01841  M01S01340.pfam    +++|          EQ     ARQX        RETURN
01842  M01S01341.pfam    +++| CAR      SPACE  4,15
01843  M01S01342.pfam    +++|**        CAR - CHECK FOR ADDITIONAL STAGE REQUESTS.
01844  M01S01343.pfam    +++|*
01845  M01S01344.pfam    +++|*         CALLS *GSR* IF FOUR SECONDS HAVE ELAPSED SINCE LAST CALL,
01846  M01S01345.pfam    +++|*         OR IF NO MORE REQUESTS REMAIN TO BE PROCESSED.
01847  M01S01346.pfam    +++|*
01848  M01S01347.pfam    +++|*         EXIT   (B6) .GT. 0, IF NEW REQUEST FOUND.
01849  M01S01348.pfam    +++|*                (X6) = 0, IF NO REQUESTS LEFT TO PROCESS.
01850  M01S01349.pfam    +++|*
01851  M01S01350.pfam    +++|*         USES   X - 1, 2, 3, 6.
01852  M01S01351.pfam    +++|*                A - 1, 2, 6.
01853  M01S01352.pfam    +++|*
01854  M01S01353.pfam    +++|*         CALLS  ARQ, GSR.
01855  M01S01354.pfam    +++|*
01856  M01S01355.pfam    +++|*         MACROS RTIME.
01857  M01S01356.pfam    +++|
01858  M01S01357.pfam    +++|
01859  M01S01358.pfam    +++| CAR2     SA1    NSSR        RETURN NUMBER OF REQUESTS LEFT TO PROCESS
01860  M01S01359.pfam    +++|          SA2    SRQN
01861  M01S01360.pfam    +++|          IX6    X2-X1
01862  M01S01361.pfam    +++|
01863  M01S01362.pfam    +++|
01864  M01S01363.pfam    +++| CAR      SUBR               ENTRY/EXIT
01865  M01S01364.pfam    +++|          SA1    NSSR        NUMBER OF REQUESTS SELECTED
01866  M01S01365.pfam    +++|          SA2    SRQN        NUMBER OF ENTRIES IN TABLE
01867  M01S01366.pfam    +++|          IX1    X2-X1       NUMBER OF FILES YET TO BE PROCESSED
01868  M01S01367.pfam    +++|          ZR     X1,CAR1     IF ALL FILES PROCESSED (IMMEDIATE CHECK)
01869  M01S01368.pfam    +++|          RTIME  CARA+1      GET CURRENT TIME
01870  M01S01369.pfam    +++|          SA1    CARA
01871  M01S01370.pfam    +++|          SA2    CARA+1
01872  M01S01371.pfam    +++|          IX1    X2-X1
01873  M01S01372.pfam    +++|          AX1    36
01874  M01S01373.pfam    +++|          SX3    X1-4
01875  M01S01374.pfam    +++|          BX6    X2
01876  M01S01375.pfam    +++|          NG     X3,CARX     IF NOT 4 SECONDS SINCE LAST *GSR* CALL
01877  M01S01376.pfam    +++|          SA6    A1          UPDATE TIME
01878  M01S01377.pfam    +++| CAR1     RJ     /MTX/GSR    SEE IF MORE REQUESTS
01879  M01S01378.pfam    +++|          LE     B6,B0,CAR2  IF NO REQUESTS
01880  M01S01379.pfam    +++|          RJ     ARQ         ADD REQUEST
01881  M01S01380.pfam    +++|          EQ     CAR1        GET NEXT REQUEST
01882  M01S01381.pfam    +++|
01883  M01S01382.pfam    +++|
01884  M01S01383.pfam    +++| CARA     BSSZ   2           ENTRY TIME VALUES
01885  M01S01384.pfam    +++| CFC      SPACE  4,10
01886  M01S01385.pfam    +++|**        CFC - CHECK FILES PROCESSED COUNT.
01887  M01S01386.pfam    +++|*
01888  M01S01387.pfam    +++|*         EXIT   TO CALLER IF NO FILE SELECTIONS OR ALL SELECTED FILES
01889  M01S01388.pfam    +++|*                  NOT PROCESSED.
Line S01389 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5a
Seq #  *Modification Id* Act 
----------------------------+
01890  M02S01389.pfam5a  ---|*                TO *EAF* IF ALL SELECTED FILES PROCESSED.
01891  M01S00004.pfam5a  +++|*                TO *TER* IF ALL SELECTED FILES PROCESSED.
01892  M01S01390.pfam    +++|*
01893  M01S01391.pfam    +++|*         USES   X - 1, 2.
01894  M01S01392.pfam    +++|*                A - 1, 2.
Line S01393 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5a
Seq #  *Modification Id* Act 
----------------------------+
01895  M02S01393.pfam5a  ---|*
Line S01394 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
M03 (Updated by) pfam5a
Seq #  *Modification Id* Act 
----------------------------+
01896  M03S01394.pfam5a  ---|*         CALLS  EAF, SER.
Line S00038 Modification History
M01 (Added by) pfam5
M02 (Updated by) pfam5a
Seq #  *Modification Id* Act 
----------------------------+
01897  M02S00038.pfam5a  ---|*         CALLS  SER.
01898  M01S01395.pfam    +++|
01899  M01S01396.pfam    +++|
01900  M01S01397.pfam    +++| CFC      SUBR               ENTRY/EXIT
01901  M01S01398.pfam    +++|          SA1    /COMSPFS/FISP
01902  M01S01399.pfam    +++|          SA2    /COMSPFS/NFIS
01903  M01S01400.pfam    +++|          ZR     X1,CFCX     IF NO USER INDEX/FILE NAME SELECTIONS
01904  M01S01401.pfam    +++|          NZ     X2,CFCX     IF ALL SPECIFIED FILES NOT PROCESSED
Line S01402 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5a
Seq #  *Modification Id* Act 
----------------------------+
01905  M02S01402.pfam5a  ---|          RJ     SER         SKIP TO END OF RECORD
Line S01403 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5a
Seq #  *Modification Id* Act 
----------------------------+
01906  M02S01403.pfam5a  ---|          EQ     EAF         PROCESS END OF FILE
01907  M01S00005.pfam5a  +++|          EQ     TER         TERMINATE
Line S01404 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01908  M02S01404.ns2673  ---| CLC      SPACE  4,10
01909  M01S00027.ns2673  +++| CLC      SPACE  4,15
01910  M01S01405.pfam    +++|**        CLC - CONNECT LOCAL FILE TO CATALOG ENTRY.
01911  M01S01406.pfam    +++|*
01912  M01S01407.pfam    +++|*         EXIT   (X6) .NE. 0, IF ERROR.
01913  M01S01408.pfam    +++|*
Line S01409 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01914  M02S01409.286l859 ---|*         USES   X - 1, 6.
Line S01410 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01915  M02S01410.286l859 ---|*                A - 1.
01916  M01S00415.286l859 +++|*         USES   X - 1, 5, 6.
01917  M01S00416.286l859 +++|*                A - 1, 5.
01918  M01S01411.pfam    +++|*
Line S01412 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
01919  M02S01412.ns2673  ---|*         MACROS RECALL, SETDA, SETFET, UREPLAC.
Line S00028 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01920  M02S00028.286l859 ---|*         CALLS  SEM.
01921  M01S00417.286l859 +++|*         CALLS  SRE.
01922  M01S00029.ns2673  +++|*
Line S00030 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01923  M02S00030.286l859 ---|*         MACROS EDITS, MESSAGE, RECALL, ROLLOUT, SETDA, SETFET,
Line S00031 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01924  M02S00031.286l859 ---|*                UREPLAC.
01925  M01S00418.286l859 +++|*         MACROS MESSAGE, RECALL, ROLLOUT, SETDA, SETFET, UREPLAC.
01926  M01S01413.pfam    +++|
01927  M01S01414.pfam    +++|
01928  M01S01415.pfam    +++| CLC7     SETFET F,ERP=0     CLEAR ERROR PROCESSING
01929  M01S01416.pfam    +++|          BX6    X6-X6       INDICATE NO ERROR
01930  M01S01417.pfam    +++|
01931  M01S01418.pfam    +++|
01932  M01S01419.pfam    +++| CLC      SUBR               ENTRY/EXIT
01933  M01S01420.pfam    +++|          SETFET F,ERP=UE    SET *EP* AND *UP*
01934  M01S01421.pfam    +++| CLC1     SA1    CATH+FCBS
01935  M01S01422.pfam    +++|          LX1    59-11
01936  M01S01423.pfam    +++|          PL     X1,CLC2     IF INDIRECT ACCESS FILE
01937  M01S01424.pfam    +++|          SETDA  F           SET DISK ADDRESS FOR DIRECT ACCESS FILE
01938  M01S01425.pfam    +++|          EQ     CLC3        CHECK *PFM* STATUS
01939  M01S01426.pfam    +++|
01940  M01S01427.pfam    +++| CLC2     UREPLAC  F         UTILITY-REPLACE INDIRECT ACCESS FILE
01941  M01S01428.pfam    +++|          RECALL X2
01942  M01S01429.pfam    +++| CLC3     SA1    X2          CHECK FOR *PFM* ERROR
01943  M01S01430.pfam    +++|          MX6    -8
01944  M01S01431.pfam    +++|          LX1    -10
01945  M01S01432.pfam    +++|          BX6    -X6*X1
01946  M01S01433.pfam    +++|          ZR     X6,CLC7     IF NO ERROR
01947  M01S01434.pfam    +++|
01948  M01S01435.pfam    +++|*         PFM ERROR ENCOUNTERED.  IF ERROR IS THE RESULT OF SYSTEM
01949  M01S01436.pfam    +++|*         ACTIVITY, DELAY AND RETRY.  IF ERROR COULD BE THE RESULT
01950  M01S01437.pfam    +++|*         OF THE USER MODIFYING OR DELETING THE FILE, ABANDON STAGE
01951  M01S01438.pfam    +++|*         WITH NO MESSAGE.  OTHERWISE, ISSUE ERROR MESSAGE AND
01952  M01S01439.pfam    +++|*         ABANDON STAGE.
01953  M01S01440.pfam    +++|
01954  M01S01441.pfam    +++| CLC4     SX1    X6-/ERRMSG/INA
01955  M01S01442.pfam    +++|          ZR     X1,CLC5     IF *INTERLOCK NOT AVAILABLE*
01956  M01S01443.pfam    +++|          SX1    X6-/ERRMSG/PFA
01957  M01S01444.pfam    +++|          ZR     X1,CLC6     IF *PF UTILITY ACTIVE*
01958  M01S01445.pfam    +++|          SX1    X6-/ERRMSG/FNF
01959  M01S01446.pfam    +++|          ZR     X1,CLC7     IF *FILE NOT FOUND*
01960  M01S01447.pfam    +++|          SX1    X6-/ERRMSG/ICU
01961  M01S01448.pfam    +++|          ZR     X1,CLC7     IF *INVALID CATALOG UPDATE*
Line S01449 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam3
Seq #  *Modification Id* Act 
----------------------------+
01962  M02S01449.pfam3   ---|          SX1    X6-/ERRMSG/FNF
01963  M01S00001.pfam3   +++|          SX1    X6-/ERRMSG/PVE
01964  M01S01450.pfam    +++|          ZR     X1,CLC7     IF *PFC VERIFICATION ERROR*
Line S01451 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01965  M02S01451.286l859 ---|          SX6    B1+         FORCE ERROR LOG MESSAGE
Line S01452 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01966  M02S01452.286l859 ---|          SA6    ELFG
Line S01453 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
M03 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01967  M03S01453.286l859 ---|          EDITS  MSFN,ERPF   * PFRES - PFM ERROR ENCOUNTERED.*
Line S00032 Modification History
M01 (Added by) ns2673
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01968  M02S00032.286l859 ---|          EDITS  MSFF,ERPF   * PFRES - PFM ERROR ENCOUNTERED.*
Line S01454 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01969  M02S01454.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
01970  M01S00419.286l859 +++|          SA5    STRA        SET STAGE REQUEST ADDRESS
01971  M01S00420.286l859 +++|          SB2    ERPF        * PFM ERROR ENCOUNTERED ...*
01972  M01S00421.286l859 +++|          RJ     SRE         SEND ERROR MESSAGE
01973  M01S01455.pfam    +++|          MESSAGE  EMBF,,R   SEND *PFM* ERROR MESSAGE TO SYSTEM DAYFILE
01974  M01S01456.pfam    +++|          SX6    B1          INDICATE ERROR
01975  M01S01457.pfam    +++|          EQ     CLCX        RETURN ERROR STATUS
01976  M01S01458.pfam    +++|
01977  M01S01459.pfam    +++|*         PROCESS *INTERLOCK NOT AVAILABLE.*
01978  M01S01460.pfam    +++|
01979  M01S01461.pfam    +++| CLC5     RECALL             GIVE UP CPU
01980  M01S01462.pfam    +++|          EQ     CLC1        TRY AGAIN
01981  M01S01463.pfam    +++|
01982  M01S01464.pfam    +++|*         PROCESS *PF UTILITY ACTIVE.*
01983  M01S01465.pfam    +++|
01984  M01S01466.pfam    +++| CLC6     ROLLOUT            WAIT FOR UTILITY
01985  M01S01467.pfam    +++|          RECALL
01986  M01S01468.pfam    +++|          EQ     CLC1        TRY AGAIN
Line S01469 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01987  M02S01469.286l859 ---| CSP      SPACE  4,20
01988  M01S00422.286l859 +++| CSP      SPACE  4,25
01989  M01S01470.pfam    +++|**        CSP - CHECK SELECTION PARAMETERS.
01990  M01S01471.pfam    +++|*
01991  M01S01472.pfam    +++|*         ENTRY  (X3) = CATALOG BLOCK CONTROL WORD SUB-TYPE CODE.
01992  M01S01473.pfam    +++|*                (X5) = CATALOG BLOCK WORD COUNT.
01993  M01S01474.pfam    +++|*
01994  M01S01475.pfam    +++|*         EXIT   (X6) .NE. 0 IF FILE TO BE PROCESSED.
01995  M01S01476.pfam    +++|*                CATALOG ENTRY CONVERTED TO 16 WORD FORMAT IF 8 WORD
01996  M01S01477.pfam    +++|*                  FORMAT.
Line S01478 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01997  M02S01478.286l859 ---|*                (PCOF) .NE. 0 IF *PFC ONLY* FILE.
01998  M01S00423.286l859 +++|*                (FLST) = 0 IF NOT *PFC* ONLY FILE
01999  M01S00424.286l859 +++|*                (FLST) = 59/0, 1/1 IF *PFC ONLY* FILE.
02000  M01S01479.pfam    +++|*                (NFIS) = UPDATED FILE SELECTION COUNT.
02001  M01S01480.pfam    +++|*                TO *CUP* IF PARITY ERROR ON CATALOG READ.
02002  M01S00425.286l859 +++|*                TO *EAF* IF ALL SELECTED FILES PROCESSED.
02003  M01S01481.pfam    +++|*
02004  M01S01482.pfam    +++|*         USES   X - 1, 2, 4, 5, 6, 7.
02005  M01S01483.pfam    +++|*                A - 1, 2, 5, 6, 7.
02006  M01S01484.pfam    +++|*
Line S01485 Modification History
M01 (Added by) pfam
M02 (Updated by) pfam5
Seq #  *Modification Id* Act 
----------------------------+
02007  M02S01485.pfam5   ---|*         CALLS  CCE, CSP, CUP.
02008  M01S00039.pfam5   +++|*         CALLS  CCE, CSC, PPE.
02009  M01S01486.pfam    +++|*
02010  M01S01487.pfam    +++|*         MACROS READW.
02011  M01S01488.pfam    +++|
02012  M01S01489.pfam    +++|
02013  M01S01490.pfam    +++| CSP      SUBR               ENTRY/EXIT
02014  M01S01491.pfam    +++|          BX6    X6-X6
02015  M01S01492.pfam    +++|          NZ     X3,CSP1     IF NOT *PFC ONLY* FILE
02016  M01S01493.pfam    +++|          SX6    B1          SET *PFC ONLY* FILE FLAG
Line S01494 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02017  M02S01494.286l859 ---| CSP1     SA6    PCOF
02018  M01S00426.286l859 +++| CSP1     SA6    FLST        INITIALIZE FILE STATUS
02019  M01S01495.pfam    +++|          BX6    X5          SAVE WORD COUNT
02020  M01S01496.pfam    +++|          SA6    CSPA
Line S01497 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02021  M02S01497.286l859 ---|          SX6    B0+         CLEAR FILE NAME FOR ERROR MESSAGES
Line S01498 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02022  M02S01498.286l859 ---|          SA6    MPFN
02023  M01S01499.pfam    +++|          READW  TAPE,CATH,X5  READ CATALOG ENTRY
02024  M01S01500.pfam    +++|          RJ     PPE         PROCESS PARITY ERROR
02025  M01S01501.pfam    +++|          NZ     X6,CUP      IF PARITY ERROR ON CATALOG READ
02026  M01S01502.pfam    +++|
02027  M01S01503.pfam    +++|*         CHECK FORMAT OF CATALOG ENTRY.
02028  M01S01504.pfam    +++|
02029  M01S01505.pfam    +++|          SA5    CSPA        RESTORE WORD COUNT
02030  M01S01506.pfam    +++|          SX1    X5-NWCE
02031  M01S01507.pfam    +++|          ZR     X1,CSP2     IF CORRECT SIZE CATALOG ENTRY
02032  M01S01508.pfam    +++|          SX4    CATH
02033  M01S01509.pfam    +++|          RJ     CCE         CONVERT CATALOG ENTRY TO 16 WORD FORMAT
02034  M01S01510.pfam    +++|
02035  M01S01511.pfam    +++|*         CHECK SELECTIVE PARAMETERS.
02036  M01S01512.pfam    +++|
Line S01513 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02037  M02S01513.286l859 ---| CSP2     SB4    CATH        SET CATALOG ADDRESS
02038  M01S00427.286l859 +++| CSP2     SA5    MXDC
02039  M01S00428.286l859 +++|          SA1    CATH+FCUI
02040  M01S00429.286l859 +++|          ZR     X5,CSP3     IF NO DEVICE POSITION INFORMATON
02041  M01S00430.286l859 +++|          MX2    -3
02042  M01S00431.286l859 +++|          BX2    -X2*X1      SUBFAMILY INDEX
02043  M01S00432.286l859 +++|          SA2    SFDT+X2
02044  M01S00433.286l859 +++|          LX1    -3
02045  M01S00434.286l859 +++|          SX6    X2+         CATALOG TRACK MASK
02046  M01S00435.286l859 +++|          BX2    -X6*X2      ARCHIVE FILE DEVICE ORDINAL
02047  M01S00436.286l859 +++|          BX1    X6*X1       CATALOG TRACK
02048  M01S00437.286l859 +++|          BX6    X2+X1
02049  M01S00438.286l859 +++|          IX6    X5-X6
02050  M01S00439.286l859 +++|          NG     X6,EAF      IF BEYOND HIGHEST SELECTED USER INDEX
02051  M01S00440.286l859 +++| CSP3     SB4    CATH        SET CATALOG ADDRESS
02052  M01S01514.pfam    +++|          RJ     CSC         CHECK SELECTION CRITERIA
02053  M01S01515.pfam    +++|          ZR     X6,CSPX     IF FILE NOT TO BE PROCESSED
02054  M01S01516.pfam    +++|          ZR     B6,CSPX     IF FILE NAME NOT FOUND
02055  M01S01517.pfam    +++|          SA1    B6+         READ FILE NAME SELECTION
02056  M01S01518.pfam    +++|          SA2    /COMSPFS/NFIS
02057  M01S01519.pfam    +++|          SX7    B1
02058  M01S01520.pfam    +++|          LX7    17-0
02059  M01S01521.pfam    +++|          BX7    X1+X7       MARK FILE NAME FOUND
02060  M01S01522.pfam    +++|          SA7    A1
02061  M01S01523.pfam    +++|          SX7    X2-1        DECREMENT SELECTION COUNT
02062  M01S01524.pfam    +++|          SA7    A2+
02063  M01S01525.pfam    +++|          EQ     CSPX        RETURN
02064  M01S01526.pfam    +++|
02065  M01S01527.pfam    +++|
02066  M01S01528.pfam    +++| CSPA     BSS    1           SAVE AREA FOR WORD COUNT
02067  M01S01529.pfam    +++| CSR      SPACE  4,15
02068  M01S01530.pfam    +++|**        CSR - CHECK FOR STAGE REQUEST FOR THIS FILE.
02069  M01S01531.pfam    +++|*
02070  M01S01532.pfam    +++|*         ENTRY  (CATH) = CATALOG ENTRY FOR CURRENT FILE ON TAPE.
02071  M01S01533.pfam    +++|*
02072  M01S01534.pfam    +++|*         EXIT   (X6) = 0, IF NO STAGE REQUEST FOUND FOR THIS FILE.
02073  M01S01535.pfam    +++|*                (X6) = (STRA) = ADDRESS OF STAGE REQUEST, IF FOUND.
02074  M01S01536.pfam    +++|*                (NSSR) INCREMENTED IF STAGE REQUEST FOUND.
02075  M01S01537.pfam    +++|*
02076  M01S01538.pfam    +++|*         USES   X - 0, 1, 2, 3, 6.
02077  M01S01539.pfam    +++|*                A - 1, 2, 3, 6.
02078  M01S01540.pfam    +++|*                B - 4, 5.
02079  M01S01541.pfam    +++|
02080  M01S01542.pfam    +++|
02081  M01S01543.pfam    +++| CSR      SUBR               ENTRY/EXIT
02082  M01S01544.pfam    +++|          SA1    SRQF
02083  M01S01545.pfam    +++|          SA2    SRQL
02084  M01S01546.pfam    +++|          SA3    CATH+FCTV   VSN / SEQUENCE NUMBER OF FILE ON TAPE
02085  M01S01547.pfam    +++|          SB4    X1
02086  M01S01548.pfam    +++|          SB5    X2
02087  M01S01549.pfam    +++|          MX0    -42
02088  M01S01550.pfam    +++|          BX6    X6-X6
02089  M01S01551.pfam    +++| CSR1     SB5    B5-/MTX/PFTBL  CHECK PREVIOUS ENTRY
02090  M01S01552.pfam    +++|          NG     B5,CSRX     IF ALL ENTRIES CHECKED
02091  M01S01553.pfam    +++|          SA1    B4+B5
02092  M01S01554.pfam    +++|          ZR     X1,CSR1     IF ENTRY ALREADY PROCESSED
02093  M01S01555.pfam    +++|          SA2    A1+B1       VSN / SEQUENCE NUMBER FROM STAGE REQUEST
02094  M01S01556.pfam    +++|          NG     X2,CSR1     IF ENTRY ALREADY SELECTED
02095  M01S01557.pfam    +++|          BX7    X2-X3
02096  M01S01558.pfam    +++|          BX7    -X0*X7
02097  M01S01559.pfam    +++|          NZ     X7,CSR1     IF NOT A MATCH
02098  M01S01560.pfam    +++|          MX7    1           SET *ENTRY ALREADY SELECTED* FLAG
02099  M01S01561.pfam    +++|          BX7    X2+X7
02100  M01S01562.pfam    +++|          SA7    A2
02101  M01S01563.pfam    +++|          SA2    NSSR        INCREMENT NUMBER OF REQUESTS SELECTED
02102  M01S01564.pfam    +++|          SX7    X2+B1
02103  M01S01565.pfam    +++|          SA7    A2
02104  M01S01566.pfam    +++|          SX6    A1          SAVE ADDRESS OF STAGE REQUEST
02105  M01S01567.pfam    +++|          SA6    STRA
02106  M01S01568.pfam    +++|          EQ     CSRX        RETURN
02107  M01S00441.286l859 +++| IFM      SPACE  4,10
02108  M01S00442.286l859 +++|**        IFM - ISSUE FILE COUNT MESSAGES.
02109  M01S00443.286l859 +++|*
02110  M01S00444.286l859 +++|*         EXIT   FILE COUNT MESSAGES ISSUED TO DAYFILE.
02111  M01S00445.286l859 +++|*
02112  M01S00446.286l859 +++|*         USES   X - 1, 5, 6.
02113  M01S00447.286l859 +++|*                A - 1, 5.
02114  M01S00448.286l859 +++|*
02115  M01S00449.286l859 +++|*         CALLS  IFC.
02116  M01S00450.286l859 +++|
02117  M01S00451.286l859 +++|
02118  M01S00452.286l859 +++| IFM      SUBR               ENTRY/EXIT
02119  M01S00453.286l859 +++|          SA1    /COMSPFS/UTLC
02120  M01S00454.286l859 +++|          SA5    IFMC
02121  M01S00455.286l859 +++|          SX6    X1-/COMSPFS/RSUT
02122  M01S00456.286l859 +++|          ZR     X6,IFM1     IF *PFRES*
02123  M01S00457.286l859 +++|          SA5    IFMB
02124  M01S00458.286l859 +++|          SX6    X1-/COMSPFS/COUT
02125  M01S00459.286l859 +++|          ZR     X6,IFM1     IF *PFCOPY*
02126  M01S00460.286l859 +++|          SA5    IFMA
02127  M01S00461.286l859 +++| IFM1     RJ     IFC         ISSUE FILE COUNT MESSAGES
02128  M01S00462.286l859 +++|          EQ     IFMX        RETURN
02129  M01S00463.286l859 +++|
02130  M01S00464.286l859 +++|
02131  M01S00465.286l859 +++| IFMA     BSS    0           *PFATC* MESSAGE TABLE
02132  M01S00466.286l859 +++|          VFD    1/1,1/1,22/0,18/MSFA,18/PRFC
02133  M01S00467.286l859 +++|          CON    0           END OF TABLE
02134  M01S00468.286l859 +++|
02135  M01S00469.286l859 +++| IFMB     BSS    0           *PFCOPY* MESSAGE TABLE
02136  M01S00470.286l859 +++|          VFD    1/1,1/1,22/0,18/MSFO,18/PRFC
02137  M01S00471.286l859 +++|          CON    0           END OF TABLE
02138  M01S00472.286l859 +++|
02139  M01S00473.286l859 +++| IFMC     BSS    0           *PFRES*  MESSAGE TABLE
02140  M01S00474.286l859 +++|          VFD    1/1,1/1,22/0,18/MSFR,18/PRFC
02141  M01S00475.286l859 +++|          CON    0           END OF TABLE
Line S01569 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02142  M02S01569.ns2673  ---| ISM      SPACE  4,15
02143  M01S00033.ns2673  +++| ISM      SPACE  4,20
02144  M01S01570.pfam    +++|**        ISM - ISSUE STATISTICAL MESSAGE.
02145  M01S01571.pfam    +++|*
Line S01572 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02146  M02S01572.ns2673  ---|*         ENTRY  (STRA) = FWA OF STAGE REQUEST.
02147  M01S00034.ns2673  +++|*         ENTRY  (X5) = FWA OF STAGE REQUEST.
02148  M01S00035.ns2673  +++|*                (B5) = NEGATIVE ADDRESS OF MESSAGE TEMPLATE.
02149  M01S01573.pfam    +++|*
Line S01574 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02150  M02S01574.ns2673  ---|*         USES   X -  0, 1, 5, 6.
Line S01575 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02151  M02S01575.ns2673  ---|*                A -  1, 5.
Line S01576 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02152  M02S01576.ns2673  ---|*                B -  2, 3, 5.
02153  M01S00036.ns2673  +++|*         EXIT   MESSAGE ISSUED TO ACCOUNT FILE.
02154  M01S00037.ns2673  +++|*
02155  M01S00038.ns2673  +++|*         USES   X - 0, 1, 6.
02156  M01S00039.ns2673  +++|*                A - 1.
02157  M01S00040.ns2673  +++|*                B - 2, 3, 5.
02158  M01S01577.pfam    +++|*
02159  M01S01578.pfam    +++|*         CALLS  CDD, COD, SNM.
02160  M01S01579.pfam    +++|*
02161  M01S01580.pfam    +++|*         MACROS MESSAGE.
02162  M01S01581.pfam    +++|
02163  M01S01582.pfam    +++|
02164  M01S01583.pfam    +++| ISM      SUBR               ENTRY/EXIT
Line S01584 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02165  M02S01584.ns2673  ---|          SA5    STRA
02166  M01S01585.pfam    +++|          SA1    X5+2        GET PERMANENT FILE NAME
02167  M01S01586.pfam    +++|          MX0    42
02168  M01S01587.pfam    +++|          BX1    X0*X1
02169  M01S01588.pfam    +++|          SB3    ISMB
Line S01589 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02170  M02S01589.ns2673  ---|          SB5    -ISMA
02171  M01S01590.pfam    +++|          SB2    1R#
02172  M01S01591.pfam    +++|          RJ     SNM         SET PERMANENT FILE NAME INTO MESSAGE
02173  M01S01592.pfam    +++|          SA1    X5+2        GET USER INDEX
02174  M01S01593.pfam    +++|          BX1    -X0*X1
02175  M01S01594.pfam    +++|          RJ     COD         CONVERT TO OCTAL DISPLAY
02176  M01S01595.pfam    +++|          SB2    B2-B1
02177  M01S01596.pfam    +++|          MX1    1           GENERATE CHARACTER MASK
02178  M01S01597.pfam    +++|          AX1    B2
02179  M01S01598.pfam    +++|          BX1    X1*X4       REMOVE SPACES SPACES
02180  M01S01599.pfam    +++|          SB5    ISMB
02181  M01S01600.pfam    +++|          SB2    1R$
02182  M01S01601.pfam    +++|          RJ     SNM         SET USER INDEX INTO MESSAGE
02183  M01S01602.pfam    +++|          SA1    X5+4        GET FAMILY/PACK NAME
02184  M01S01603.pfam    +++|          BX1    X0*X1
02185  M01S01604.pfam    +++|          SB2    1R&
02186  M01S01605.pfam    +++|          RJ     SNM         SET FAMILY/PACK NAME INTO MESSAGE
02187  M01S01606.pfam    +++|          SA1    SVSN        GET VSN
02188  M01S01607.pfam    +++|          SB2    1R-
02189  M01S01608.pfam    +++|          RJ     SNM         SET VSN INTO MESSAGE
02190  M01S01609.pfam    +++|          SA1    X5+7        GET RETRY COUNT
02191  M01S01610.pfam    +++|          AX1    36
02192  M01S01611.pfam    +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
02193  M01S01612.pfam    +++|          MX0    -6          MASK TO ONE DIGIT
02194  M01S01613.pfam    +++|          BX1    -X0*X6
02195  M01S01614.pfam    +++|          LX1    -6          LEFT JUSTIFY
02196  M01S01615.pfam    +++|          SB2    1R=
02197  M01S01616.pfam    +++|          RJ     SNM         SET RETRY COUNT INTO MESSAGE
Line S01617 Modification History
M01 (Added by) pfam
M02 (Updated by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
02198  M02S01617.ns2673  ---|          MESSAGE  ISMB,5    ISSUE STATISTICAL MESSAGE TO ACCOUNT FILE
02199  M01S00041.ns2673  +++|          MESSAGE  ISMB,5,R  ISSUE STATISTICAL MESSAGE TO ACCOUNT FILE
02200  M01S01618.pfam    +++|          EQ     ISMX        RETURN
02201  M01S01619.pfam    +++|
02202  M01S01620.pfam    +++|
02203  M01S01621.pfam    +++| ISMA     DATA   C*STES, #######, $$$$$$, &&&&&&&, ------, =.*
02204  M01S01622.pfam    +++|*         DATA   C*STES, FILENAM, USERIN, FAMPACK, VSNVSN, R.*
02205  M01S01623.pfam    +++| ISMAL    EQU    *-ISMA      LENGTH OF MESSAGE
02206  M01S01624.pfam    +++| ISMB     BSS    ISMAL       MESSAGE ASSEMBLY BUFFER
02207  M01S00042.ns2673  +++| ISMC     DATA   C*STAS, #######, $$$$$$, &&&&&&&, ------, =.*
02208  M01S00043.ns2673  +++|*         DATA   C*STAS, FILENAM, USERIN, FAMPACK, VSNVSN, R.*
02209  M01S00044.ns2673  +++|          ERRNZ  *-ISMC-ISMAL  MESSAGE TEMPLATES MUST BE SAME LENGTH
02210  M01S01625.pfam    +++| PPE      SPACE  4,20
02211  M01S01626.pfam    +++|**        PPE - PROCESS PARITY ERROR.
02212  M01S01627.pfam    +++|*
02213  M01S01628.pfam    +++|*         ENTRY  WHENEVER INPUT FILE IS READ.
Line S01629 Modification History
M01 (Added by) pfam
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02214  M02S01629.286l859 ---|*                (MPFN) = 0 IF FILE NOT BEING PROCESSED.
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/pfam.001.txt ยท Last modified: by 127.0.0.1