Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.mfiles  +++|          IDENT  MFILES,FETS
00002  M00S00002.mfiles  +++|          ABS
00003  M00S00003.mfiles  +++|          SST
00004  M00S00004.mfiles  +++|          ENTRY  CLEAR
00005  M00S00005.mfiles  +++|          ENTRY  OUT

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.ns22000 +++|          ENTRY  OVWRITE
00007  M00S00006.mfiles  +++|          ENTRY  RETURN
00008  M00S00007.mfiles  +++|          ENTRY  REWIND
00009  M00S00008.mfiles  +++|          ENTRY  SETFS
00010  M00S00009.mfiles  +++|          ENTRY  UNLOAD

Seq #  *Modification Id* Act 
----------------------------+
00011  M01S00001.ns2402  +++|          ENTRY  NPC=
00012  M00S00010.mfiles  +++|          ENTRY  RFL=
00013  M00S00011.mfiles  +++|          ENTRY  SSM=
00014  M00S00012.mfiles  +++|          SYSCOM B1
00015  M00S00013.mfiles  +++|          TITLE  MFILES - MULTIPLE FILE PROCESSOR.
00016  M00S00014.mfiles  +++|*COMMENT  MFILES - MULTIPLE FILE PROCESSOR.

Seq #  *Modification Id* Act 
----------------------------+
00017  M01S00015.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1979.

Seq #  *Modification Id* Act 
----------------------------+
00018  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00019  M00S00016.mfiles  +++|          SPACE  4,10
00020  M00S00017.mfiles  +++|*****     MFILES - MULTIPLE FILE PROCESSOR.
00021  M00S00018.mfiles  +++|*
00022  M00S00019.mfiles  +++|*         A.    SKJOLDEBRAND.     75/09/07.
00023  M00S00020.mfiles  +++|*         H. G. VARNIS.           79/01/02.
00024  M00S00021.mfiles  +++|*
00025  M00S00022.mfiles  +++|*         *MFILES* REQUESTS THAT CERTAIN OPERATIONS BE PERFORMED ON A
00026  M00S00023.mfiles  +++|*         SUBSET OF FILES ASSIGNED TO A JOB.
00027  M00S00024.mfiles  +++| MFILES   SPACE  4,30
00028  M00S00025.mfiles  +++|***       *MFILES* REQUESTS THAT CERTAIN OPERATIONS BE PERFORMED ON A
00029  M00S00026.mfiles  +++|*         SUBSET OF FILES ASSIGNED TO A JOB.  THE SUBSET IS DEFINED BY

Seq #  *Modification Id* Act 
----------------------------+
00030  M01S00027.v23l617 ---|*         THE CONTROL STATEMENT AS FOLLOWS:

Seq #  *Modification Id* Act 
----------------------------+
00031  M01S00001.v23l617 +++|*         THE COMMAND AS FOLLOWS:
00032  M00S00028.mfiles  +++|*
00033  M00S00029.mfiles  +++|*         FORMAT    FORMAT                   SUBSET
00034  M00S00030.mfiles  +++|*          CODE
00035  M00S00031.mfiles  +++|*
00036  M00S00032.mfiles  +++|*            0  NAME.                   ALL FILES
00037  M00S00033.mfiles  +++|*            1  NAME(*)                 ALL FILES
00038  M00S00034.mfiles  +++|*            2  NAME(*,LFN1,...,LFNN)   ALL FILES EXCEPT LFN1,...,LFNN
00039  M00S00035.mfiles  +++|*            3  NAME(LFN1,...,LFNN)     FILES LFN1,...,LFNN
00040  M00S00036.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00041  M01S00037.ns22000 ---|*         LEGAL CONTROL STATEMENT NAMES ARE *CLEAR*, *OUT*, *RETURN*,
00042  M01S00038.ns22000 ---|*         *REWIND*, *SETFS* AND *UNLOAD*.  OPERATIONS AND ALLOWED
00043  M01S00039.ns22000 ---|*         FORMATS ARE GIVEN BY THE FOLLOWING TABLE.

Seq #  *Modification Id* Act 
----------------------------+
00044  M02S00002.v23l617 ---|*         LEGAL CONTROL STATEMENT NAMES ARE *CLEAR*, *OUT*, *OVWRITE*,

Seq #  *Modification Id* Act 
----------------------------+
00045  M01S00002.v23l617 +++|*         LEGAL COMMAND NAMES ARE *CLEAR*, *OUT*, *OVWRITE*,

Seq #  *Modification Id* Act 
----------------------------+
00046  M01S00003.ns22000 +++|*         *RETURN*, *REWIND*, *SETFS*, AND *UNLOAD*.  OPERATIONS AND
00047  M01S00004.ns22000 +++|*         ALLOWED FORMATS ARE GIVEN BY THE FOLLOWING TABLE.
00048  M00S00040.mfiles  +++|*
00049  M00S00041.mfiles  +++|*                                                  0   1   2   3
00050  M00S00042.mfiles  +++|*                                                 --- --- --- ---
00051  M00S00043.mfiles  +++|*         CLEAR    RELEASE FILE FROM JOB           X   X   X   -
00052  M00S00044.mfiles  +++|*         OUT      RELEASE FILE TO OUTPUT QUEUE    X   X   X   -

Seq #  *Modification Id* Act 
----------------------------+
00053  M01S00005.ns22000 +++|*         OVWRITE  OVERWRITE FILES                 -   X   X   X
00054  M00S00045.mfiles  +++|*         RETURN   RELEASE FILE FROM JOB           -   X   X   X
00055  M00S00046.mfiles  +++|*         REWIND   POSITION FILE AT BOI            -   X   X   X
00056  M00S00047.mfiles  +++|*         SETFS    SET FILE STATUS                 -   X   X   X
00057  M00S00048.mfiles  +++|*         UNLOAD   RELEASE FILE FROM JOB           -   X   X   X
00058  M00S00049.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00059  M01S00050.v23l617 ---|*         WHERE:  X = FORMAT ALLOWED FOR THIS CONTROL STATEMENT.
00060  M01S00051.v23l617 ---|*                 - = FORMAT NOT ALLOWED FOR THIS CONTROL STATEMENT.

Seq #  *Modification Id* Act 
----------------------------+
00061  M01S00003.v23l617 +++|*         WHERE:  X = FORMAT ALLOWED FOR THIS COMMAND.
00062  M01S00004.v23l617 +++|*                 - = FORMAT NOT ALLOWED FOR THIS COMMAND.
00063  M00S00052.mfiles  +++|*
00064  M00S00053.mfiles  +++|*
00065  M00S00054.mfiles  +++|*         NOTES:
00066  M00S00055.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00067  M01S00056.v23l617 ---|*         1.     THE *CLEAR* AND *RETURN* CONTROL STATEMENTS PRODUCE

Seq #  *Modification Id* Act 
----------------------------+
00068  M01S00005.v23l617 +++|*         1.     THE *CLEAR* AND *RETURN* COMMANDS PRODUCE
00069  M00S00057.mfiles  +++|*                IDENTICAL OPERATIONS ON THE FILES TO WHICH THEY REFER.

Seq #  *Modification Id* Act 
----------------------------+
00070  M01S00058.v23l617 ---|*                THEY DIFFER ONLY IN ALLOWED CONTROL STATEMENT FORMATS.

Seq #  *Modification Id* Act 
----------------------------+
00071  M01S00006.v23l617 +++|*                THEY DIFFER ONLY IN ALLOWED COMMAND FORMATS.
00072  M00S00059.mfiles  +++| MFILES   SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
00073  M01S00060.v23l617 ---|***       CONTROL CARD CALL.

Seq #  *Modification Id* Act 
----------------------------+
00074  M01S00007.v23l617 +++|***       THE COMMAND.
00075  M00S00061.mfiles  +++|*
00076  M00S00062.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00077  M01S00063.274l797 ---|*         CLEAR.             RETURNS ALL FILES EXCEPT FOR FILES

Seq #  *Modification Id* Act 
----------------------------+
00078  M02S00064.274l797 ---|*                            WITH *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00001.274l797 ---|*                            WITH *CBST*, *CKST* OR *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00080  M01S00001.274l797 +++|*         CLEAR.             RETURNS ALL FILES EXCEPT FOR FILES WITH
00081  M01S00002.274l797 +++|*                            *CBST*, *CKST* OR *NDST* STATUS, AND
00082  M01S00003.274l797 +++|*                            THE OPTICAL DISK CONTROL FILE *ZZZZZOD*.
00083  M00S00065.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00084  M01S00066.274l797 ---|*         CLEAR(*)           RETURNS ALL FILES EXCEPT FOR FILES

Seq #  *Modification Id* Act 
----------------------------+
00085  M02S00067.274l797 ---|*                            WITH *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00002.274l797 ---|*                            WITH *CBST*, *CKST* OR *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00087  M01S00004.274l797 +++|*         CLEAR/OP=O.        RETURNS ALL OPTICAL DISK FILES AND THE
00088  M01S00005.274l797 +++|*                            OPTICAL DISK CONTROL FILE *ZZZZZOD*.
00089  M00S00068.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00090  M01S00069.274l797 ---|*         CLEAR(*,LFN1,...,LFNN)       RETURNS ALL FILES EXCEPT
00091  M01S00070.274l797 ---|*                            FOR FILES LFN1,...,LFNN AND FILES

Seq #  *Modification Id* Act 
----------------------------+
00092  M02S00071.274l797 ---|*                            WITH *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00003.274l797 ---|*                            WITH *CBST*, *CKST* OR *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00094  M01S00006.274l797 +++|*         CLEAR(*)           RETURNS ALL FILES EXCEPT FOR FILES WITH
00095  M01S00007.274l797 +++|*                            *CBST*, *CKST* OR *NDST* STATUS, AND
00096  M01S00008.274l797 +++|*                            THE OPTICAL DISK CONTROL FILE *ZZZZZOD*.
00097  M01S00009.274l797 +++|*
00098  M01S00010.274l797 +++|*         CLEAR(*/OP=O)      RETURNS ALL OPTICAL DISK FILES AND THE
00099  M01S00011.274l797 +++|*                            OPTICAL DISK CONTROL FILE *ZZZZZOD*.
00100  M01S00012.274l797 +++|*
00101  M01S00013.274l797 +++|*         CLEAR(*,LFN1,...,LFNN)       RETURNS ALL FILES EXCEPT FOR
00102  M01S00014.274l797 +++|*                            FILES LFN1,...,LFNN, FILES WITH *CBST*,
00103  M01S00015.274l797 +++|*                            *CKST* OR *NDST* STATUS, AND THE OPTICAL
00104  M01S00016.274l797 +++|*                            DISK CONTROL FILE *ZZZZZOD*.
00105  M00S00072.mfiles  +++|*
00106  M00S00073.mfiles  +++|*
00107  M00S00074.mfiles  +++|*         OUT.               RELEASES TO THE OUTPUT QUEUE ALL
00108  M00S00075.mfiles  +++|*                            FILES OF TYPE *QFFT* AND ALL FILES
00109  M00S00076.mfiles  +++|*                            WITH THE SPECIAL NAMES *OUTPUT*,
00110  M00S00077.mfiles  +++|*                            *PUNCH*, *PUNCHB*, AND *P8*.
00111  M00S00078.mfiles  +++|*
00112  M00S00079.mfiles  +++|*         OUT(*)             SAME AS *OUT.*
00113  M00S00080.mfiles  +++|*
00114  M00S00081.mfiles  +++|*         OUT(*/OP=X)        SAME AS *OUT.* USING THE OPTION *X*.
00115  M00S00082.mfiles  +++|*                            THIS FORM IS USED ONLY BY THE SYSTEM
00116  M00S00083.mfiles  +++|*                            DURING JOB TERMINATION PROCESSING.
00117  M00S00084.mfiles  +++|*                            THE POSSIBLE VALUES OF THE OPTION
00118  M00S00085.mfiles  +++|*                            *X* AND THEIR MEANINGS ARE SHOWN
00119  M00S00086.mfiles  +++|*                            BELOW.
00120  M00S00087.mfiles  +++|*
00121  M00S00088.mfiles  +++|*                            E         PERFORM END-OF-JOB ROUTING.

Seq #  *Modification Id* Act 
----------------------------+
00122  M01S00089.ns2010  ---|*
00123  M01S00090.ns2010  ---|*                            Q         QUEUE FILES REGARDLESS
00124  M01S00091.ns2010  ---|*                                      OF USER VALIDATION LIMITS.
00125  M00S00092.mfiles  +++|*
00126  M00S00093.mfiles  +++|*         OUT(*,LFN1,...,LFNN)         SAME AS *OUT* WITH THE
00127  M00S00094.mfiles  +++|*                            EXCEPTION OF FILES LFN1,...,LFNN.
00128  M00S00095.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00129  M01S00006.ns22000 +++|*
00130  M01S00007.ns22000 +++|*         OVWRITE,*.         OVERWRITE ALL MASS STORAGE FILES EXCEPT

Seq #  *Modification Id* Act 
----------------------------+
00131  M02S00008.mfile1  ---|*                            FOR READ ONLY FILES.

Seq #  *Modification Id* Act 
----------------------------+
00132  M01S00001.mfile1  +++|*                            FOR FILES NOT IN WRITE MODE.

Seq #  *Modification Id* Act 
----------------------------+
00133  M01S00009.ns22000 +++|*
00134  M01S00010.ns22000 +++|*         OVWRITE,*/OP=OPTIONS.        OVERWRITE ALL MASS STORAGE FILES

Seq #  *Modification Id* Act 
----------------------------+
00135  M02S00011.mfile1  ---|*                            EXCEPT FOR READ ONLY FILES WITH THE
00136  M02S00012.mfile1  ---|*                            FOLLOWING OPTIONS.

Seq #  *Modification Id* Act 
----------------------------+
00137  M01S00002.mfile1  +++|*                            EXCEPT FOR FILES NOT IN WRITE MODE WITH
00138  M01S00003.mfile1  +++|*                            THE FOLLOWING OPTIONS.

Seq #  *Modification Id* Act 
----------------------------+
00139  M01S00013.ns22000 +++|*                            Z - OVERWRITE THE FILE WITH BINARY ZEROES.
00140  M01S00014.ns22000 +++|*                                BOTH THE Z AND THE X OPTIONS CANNOT
00141  M01S00015.ns22000 +++|*                                BE SIMULTANEOUSLY SELECTED.  THIS IS
00142  M01S00016.ns22000 +++|*                                THE DEFAULT VALUE.
00143  M01S00017.ns22000 +++|*
00144  M01S00018.ns22000 +++|*                            X - OVERWRITE THE FILE FIRST WITH BINARY
00145  M01S00019.ns22000 +++|*                                ZEROS, THEN WITH BINARY ONES, THEN
00146  M01S00020.ns22000 +++|*                                WITH A PATTERN OF ALTERNATING BINARY
00147  M01S00021.ns22000 +++|*                                ONES AND ZEROS.
00148  M01S00022.ns22000 +++|*
00149  M01S00023.ns22000 +++|*                            R - RETURN ALL FILES PROCESSED AFTER
00150  M01S00024.ns22000 +++|*                                COMPLETION.
00151  M01S00025.ns22000 +++|*
00152  M01S00026.ns22000 +++|*         OVWRITE,*,LFN1,...,LFNN/OP=OPTIONS.
00153  M01S00027.ns22000 +++|*                            OVERWRITE ALL MASS STORAGE FILES EXCEPT

Seq #  *Modification Id* Act 
----------------------------+
00154  M02S00028.mfile1  ---|*                            FOR READ ONLY FILES AND FILES LFN1,..,LFNN
00155  M02S00029.mfile1  ---|*                            USING SELECTED OPTIONS.

Seq #  *Modification Id* Act 
----------------------------+
00156  M01S00004.mfile1  +++|*                            FOR FILES NOT IN WRITE MODE AND FILES
00157  M01S00005.mfile1  +++|*                            LFN1,...LFNN USING SELECTED OPTIONS.

Seq #  *Modification Id* Act 
----------------------------+
00158  M01S00030.ns22000 +++|*
00159  M01S00031.ns22000 +++|*         OVWRITE,LFN1,...,LFNN/OP=OPTIONS.
00160  M01S00032.ns22000 +++|*                            OVERWRITE FILES LFN1,...,LFNN USING
00161  M01S00033.ns22000 +++|*                            SELECTED OPTIONS.  NON-MASS STORAGE FILES

Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00034.mfile1  ---|*                            AND READ-ONLY FILES WILL BE IGNORED.

Seq #  *Modification Id* Act 
----------------------------+
00163  M01S00006.mfile1  +++|*                            AND FILES NOT IN WRITE MODE WILL BE
00164  M01S00007.mfile1  +++|*                            IGNORED.

Seq #  *Modification Id* Act 
----------------------------+
00165  M01S00035.ns22000 +++|*
00166  M00S00096.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00167  M01S00097.274l797 ---|*         RETURN(*)          RETURNS ALL FILES EXCEPT FOR FILES

Seq #  *Modification Id* Act 
----------------------------+
00168  M02S00098.274l797 ---|*                            WITH *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00169  M02S00004.274l797 ---|*                            WITH *CBST*, *CKST* OR *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00170  M01S00017.274l797 +++|*         RETURN(*)          RETURNS ALL FILES EXCEPT FOR FILES WITH
00171  M01S00018.274l797 +++|*                            *CBST*, *CKST* OR *NDST* STATUS, AND
00172  M01S00019.274l797 +++|*                            THE OPTICAL DISK CONTROL FILE *ZZZZZOD*.
00173  M00S00099.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00174  M01S00100.274l797 ---|*         RETURN(*,LFN1,...,LFNN)      RETURNS ALL FILES EXCEPT
00175  M01S00101.274l797 ---|*                            FOR FILES LFN1,...,LFNN AND FILES

Seq #  *Modification Id* Act 
----------------------------+
00176  M02S00102.274l797 ---|*                            WITH *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00177  M02S00005.274l797 ---|*                            WITH *CBST*, *CKST* OR *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00178  M01S00020.274l797 +++|*         RETURN(*/OP=O)     RETURNS ALL OPTICAL DISK FILES AND THE
00179  M01S00021.274l797 +++|*                            OPTICAL DISK CONTROL FILE *ZZZZZOD*.
00180  M00S00103.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00181  M01S00022.274l797 +++|*         RETURN(*,LFN1,...,LFNN)      RETURNS ALL FILES EXCEPT FOR
00182  M01S00023.274l797 +++|*                            FILES LFN1,...,LFNN, FILES WITH *CBST*,
00183  M01S00024.274l797 +++|*                            *CKST* OR *NDST* STATUS, AND THE OPTICAL
00184  M01S00025.274l797 +++|*                            DISK CONTROL FILE *ZZZZZOD*.
00185  M01S00026.274l797 +++|*
00186  M00S00104.mfiles  +++|*         RETURN(LFN1,...LFNN)         RETURNS FILES LFN1,...,LFNN.

Seq #  *Modification Id* Act 
----------------------------+
00187  M01S00027.274l797 +++|*                            WILL *NOT* RETURN THE OPTICAL DISK
00188  M01S00028.274l797 +++|*                            CONTROL FILE *ZZZZZOD*.
00189  M00S00105.mfiles  +++|*
00190  M00S00106.mfiles  +++|*
00191  M00S00107.mfiles  +++|*         REWIND(*)          REWINDS ALL FILES.
00192  M00S00108.mfiles  +++|*
00193  M00S00109.mfiles  +++|*         REWIND(*,LFN1,...,LFNN)      REWINDS ALL FILES EXCEPT
00194  M00S00110.mfiles  +++|*                            FOR FILES LFN1,...,LFNN.
00195  M00S00111.mfiles  +++|*
00196  M00S00112.mfiles  +++|*         REWIND(LFN1,...,LFNN)        REWINDS FILES LFN1,...LFNN.
00197  M00S00113.mfiles  +++|*
00198  M00S00114.mfiles  +++|*
00199  M00S00115.mfiles  +++|*         SETFS(*/FS=S)      SET FILE STATUS *S* ON ALL FILES.
00200  M00S00116.mfiles  +++|*
00201  M00S00117.mfiles  +++|*         SETFS(*,LFN1,...,LFNN/FS=S)  SET FILE STATUS *S* ON ALL FILES
00202  M00S00118.mfiles  +++|*                            EXCEPT FILES LFN1,...,LFNN.
00203  M00S00119.mfiles  +++|*
00204  M00S00120.mfiles  +++|*         SETFS(LFN1,...,LFNN/FS=S)    SET FILE STATUS *S* ON FILES
00205  M00S00121.mfiles  +++|*                            LFN1,....,LFNN.
00206  M00S00122.mfiles  +++|*
00207  M00S00123.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00208  M01S00124.274l797 ---|*         UNLOAD(*)          UNLOADS ALL FILES EXCEPT FOR FILES

Seq #  *Modification Id* Act 
----------------------------+
00209  M02S00125.274l797 ---|*                            WITH *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00210  M02S00006.274l797 ---|*                            WITH *CBST*, *CKST* OR *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00211  M01S00029.274l797 +++|*         UNLOAD(*)          UNLOADS ALL FILES EXCEPT FOR FILES WITH
00212  M01S00030.274l797 +++|*                            *CBST*, *CKST* OR *NDST* STATUS, AND
00213  M01S00031.274l797 +++|*                            THE OPTICAL DISK CONTROL FILE *ZZZZZOD*.
00214  M00S00126.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00215  M01S00127.274l797 ---|*         UNLOAD(*,LFN1,...,LFNN)      UNLOADS ALL FILES EXCEPT
00216  M01S00128.274l797 ---|*                            FOR FILES LFN1,...,LFNN AND FILES

Seq #  *Modification Id* Act 
----------------------------+
00217  M02S00129.274l797 ---|*                            WITH *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00218  M02S00007.274l797 ---|*                            WITH *CBST*, *CKST* OR *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00219  M01S00032.274l797 +++|*         UNLOAD(*/OP=O)     UNLOADS ALL OPTICAL DISK FILES AND THE
00220  M01S00033.274l797 +++|*                            OPTICAL DISK CONTROL FILE *ZZZZZOD*.
00221  M00S00130.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00222  M01S00034.274l797 +++|*         UNLOAD(*,LFN1,...,LFNN)      UNLOADS ALL FILES EXCEPT FOR
00223  M01S00035.274l797 +++|*                            FILES LFN1,...,LFNN, FILES WITH *CBST*,
00224  M01S00036.274l797 +++|*                            *CKST* OR *NDST* STATUS, AND THE OPTICAL
00225  M01S00037.274l797 +++|*                            DISK CONTROL FILE *ZZZZZOD*.
00226  M01S00038.274l797 +++|*
00227  M00S00131.mfiles  +++|*         UNLOAD(LFN1,...,LFNN)        UNLOADS FILES LFN1,...LFNN.

Seq #  *Modification Id* Act 
----------------------------+
00228  M01S00039.274l797 +++|*                            WILL *NOT* UNLOAD THE OPTICAL DISK
00229  M01S00040.274l797 +++|*                            CONTROL FILE *ZZZZZOD*.
00230  M00S00132.mfiles  +++|          SPACE  4,10
00231  M00S00133.mfiles  +++|***       DAYFILE MESSAGES.
00232  M00S00134.mfiles  +++|*
00233  M00S00135.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00234  M01S00136.v23l617 ---|*         * ERROR IN ARGUMENTS.* = AN INVALID ARGUMENT OR FORMAT
00235  M01S00137.v23l617 ---|*                WAS USED ON THE CONTROL STATEMENT.  COMPARE THE
00236  M01S00138.v23l617 ---|*                CONTROL STATEMENT USED WITH THE DOCUMENTED FORMATS.

Seq #  *Modification Id* Act 
----------------------------+
00237  M01S00008.v23l617 +++|*         * ERROR IN ARGUMENTS.* = AN INCORRECT ARGUMENT OR FORMAT
00238  M01S00009.v23l617 +++|*                WAS USED ON THE COMMAND.  COMPARE THE
00239  M01S00010.v23l617 +++|*                COMMAND USED WITH THE DOCUMENTED FORMATS.
00240  M00S00139.mfiles  +++|*
00241  M00S00140.mfiles  +++|*         * FILE STATUS NOT SPECIFIED.* = A *SETFS* COMMAND WAS
00242  M00S00141.mfiles  +++|*                ISSUED WITH NO FILE STATUS SPECIFIED.
00243  M00S00142.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00244  M01S00143.v23l617 ---|*         * INVALID FILE STATUS.* = THE FILE STATUS SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
00245  M01S00011.v23l617 +++|*         * INCORRECT FILE STATUS.* = THE FILE STATUS SPECIFIED
00246  M00S00144.mfiles  +++|*                ON A *SETFS* COMMAND WAS NOT VALID.
00247  M00S00145.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00248  M01S00146.v23l617 ---|*         * INVALID */* OPTION.* = AN INVALID CONTROL STATEMENT

Seq #  *Modification Id* Act 
----------------------------+
00249  M01S00012.v23l617 +++|*         * INCORRECT */* OPTION.* = AN INCORRECT COMMAND
00250  M00S00147.mfiles  +++|*                OPTION WAS ENTERED FOLLOWING A */* SEPARATOR.
00251  M00S00148.mfiles  +++|*
00252  M00S00149.mfiles  +++|*         * NNN FILE(S) PROCESSED.* = NNN IS THE NUMBER OF FILES FOR
00253  M00S00150.mfiles  +++|*                WHICH THE FUNCTION WAS REQUESTED.
00254  M00S00151.mfiles  +++|*
00255  M00S00152.mfiles  +++|*         * XXXXXXX ROUTED.  JSN IS YYYY.* = XXXXXXX IS THE NAME
00256  M00S00153.mfiles  +++|*                OF THE FILE BEING ROUTED AND YYYY IS THE JSN WHICH
00257  M00S00154.mfiles  +++|*                WAS ASSIGNED TO THAT FILES QFT ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
00258  M01S00036.ns22000 +++|*
00259  M01S00037.ns22000 +++|*         * (FILENAME) NOT ON MASS STORAGE.* = THE NAMED FILE WAS NOT
00260  M01S00038.ns22000 +++|*                PROCESSED BECAUSE IT DOES NOT RESIDE ON MASS STORAGE.
00261  M01S00039.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
00262  M02S00040.mfile1  ---|*         * (FILENAME) IS READ ONLY.* = THE NAMED FILE WAS NOT
00263  M02S00041.mfile1  ---|*                PROCESSED BECAUSE IT HAS WRITE LOCKOUT STATUS SET.

Seq #  *Modification Id* Act 
----------------------------+
00264  M01S00008.mfile1  +++|*         * (FILENAME) NOT IN WRITE MODE.* = THE NAMED FILE WAS NOT
00265  M01S00009.mfile1  +++|*                PROCESSED BECAUSE IT IS NOT IN WRITE MODE.
00266  M00S00155.mfiles  +++| MFILES   TITLE  CONSTANTS AND MACRO DEFINITIONS.
00267  M00S00156.mfiles  +++| MFILES   SPACE  4,10
00268  M00S00157.mfiles  +++|**        DEFINITION COMMON DECKS.
00269  M00S00158.mfiles  +++|
00270  M00S00159.mfiles  +++|
00271  M00S00160.mfiles  +++|*CALL     COMCMAC
00272  M00S00161.mfiles  +++|*CALL     COMCCMD

Seq #  *Modification Id* Act 
----------------------------+
00273  M01S00001.mfile2  +++|*CALL     COMSDSP
00274  M00S00162.mfiles  +++|*CALL     COMSJCE
00275  M00S00163.mfiles  +++|*CALL     COMSLFD
00276  M00S00164.mfiles  +++|          SPACE  4,15
00277  M00S00165.mfiles  +++|**        MACRO DEFINITIONS.
00278  M00S00166.mfiles  +++| ACON     SPACE  4,10
00279  M00S00167.mfiles  +++|**        ACON - SET ARGUMENT CONTROL.
00280  M00S00168.mfiles  +++|*
00281  M00S00169.mfiles  +++|*         ACON   P,T
00282  M00S00170.mfiles  +++|*
00283  M00S00171.mfiles  +++|*         ENTRY  *P* = ARGUMENT PROCESSOR ADDRESS.
00284  M00S00172.mfiles  +++|*                *T* = ARGUMENT TABLE (*COMCARG* FORMAT) ADDRESS.
00285  M00S00173.mfiles  +++|*
00286  M00S00174.mfiles  +++|*         EXIT   24/0, 18/P, 18/T
00287  M00S00175.mfiles  +++|
00288  M00S00176.mfiles  +++|
00289  M00S00177.mfiles  +++|          PURGMAC ACON
00290  M00S00178.mfiles  +++| ACON     MACRO  P,T
00291  M00S00179.mfiles  +++|+         VFD    24/0,18/P,18/T
00292  M00S00180.mfiles  +++|          ENDM
00293  M00S00181.mfiles  +++| SCON     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00294  M01S00182.v23l617 ---|**        SCON - SET STATEMENT CONTROL.

Seq #  *Modification Id* Act 
----------------------------+
00295  M01S00013.v23l617 +++|**        SCON - SET COMMAND CONTROL.
00296  M00S00183.mfiles  +++|*
00297  M00S00184.mfiles  +++|*         SCON   A,B,C,D,EXP,CF
00298  M00S00185.mfiles  +++|*
00299  M00S00186.mfiles  +++|*         ENTRY  *A* = 1 IF FORMAT 0 ALLOWED.
00300  M00S00187.mfiles  +++|*                *B* = 1 IF FORMAT 1 ALLOWED.
00301  M00S00188.mfiles  +++|*                *C* = 1 IF FORMAT 2 ALLOWED.
00302  M00S00189.mfiles  +++|*                *D* = 1 IF FORMAT 3 ALLOWED.
00303  M00S00190.mfiles  +++|*                *EXP* = ADDRESS OF FILE EXCLUSION PROCESSOR.
00304  M00S00191.mfiles  +++|*                *CF* = *CIO* FUNCTION CODE.
00305  M00S00192.mfiles  +++|
00306  M00S00193.mfiles  +++|
00307  M00S00194.mfiles  +++|          PURGMAC SCON
00308  M00S00195.mfiles  +++|
00309  M00S00196.mfiles  +++| SCON     MACRO  A,B,C,D,EXP,CF
00310  M00S00197.mfiles  +++|          VFD    1/A,1/B,1/C,1/D,20/0,18/EXP,18/CF
00311  M00S00198.mfiles  +++|          ENDM
00312  M00S00199.mfiles  +++| MFILES   SPACE  4,10
00313  M00S00200.mfiles  +++|****      INSTALLATION PARAMETERS.
00314  M00S00201.mfiles  +++|
00315  M00S00202.mfiles  +++|
00316  M00S00203.mfiles  +++| MNF      EQU    200B        FILES PROCESSED PER *GETFNT* CALL
00317  M00S00204.mfiles  +++|****
00318  M00S00205.mfiles  +++|          SPACE  4,10
00319  M00S00206.mfiles  +++|**        ASSEMBLY CONSTANTS.
00320  M00S00207.mfiles  +++|
00321  M00S00208.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00322  M01S00042.ns22000 +++| FMT0     EQU    0           FORMAT 0
00323  M01S00043.ns22000 +++| FMT1     EQU    1           FORMAT 1
00324  M01S00044.ns22000 +++| FMT2     EQU    2           FORMAT 2 (EXCLUSION FORMAT)
00325  M01S00045.ns22000 +++| FMT3     EQU    3           FORMAT 3 (INCLUSION FORMAT)
00326  M00S00209.mfiles  +++| FNTBL    EQU    2*MNF+2     *GETFNT* BUFFER SIZE
00327  M00S00210.mfiles  +++| PSBFL    EQU    1           LENGTH OF PSEUDO BUFFER FOR FETS
00328  M00S00211.mfiles  +++| FRDC     EQU    20B         *DSP* FLAG FOR DISPOSITION CODE
00329  M00S00212.mfiles  +++| MFILES   TITLE  TABLES AND DATA STORAGE.
00330  M00S00213.mfiles  +++|**        FETS.
00331  M00S00214.mfiles  +++|
00332  M00S00215.mfiles  +++|
00333  M00S00216.mfiles  +++|          ORG    110B
00334  M00S00217.mfiles  +++| FETS     BSS    0
00335  M00S00218.mfiles  +++| FET1     FILEB  PSBF,PSBFL,(FET=8)
00336  M00S00219.mfiles  +++| FET2     FILEB  PSBF,PSBFL,(FET=8)
00337  M00S00220.mfiles  +++| FET3     FILEB  PSBF,PSBFL,(FET=8)
00338  M00S00221.mfiles  +++| FETX     FILEB  PSBF,PSBFL,(FET=13)  *GETFNT* FET (MUST BE LAST FET)
00339  M00S00222.mfiles  +++|
00340  M00S00223.mfiles  +++| FETC     EQU    FETX+8      *GETFNT* CONTROL WORD ADDRESS
00341  M00S00224.mfiles  +++| FETL     EQU    FET2-FET1   FET LENGTH
00342  M00S00225.mfiles  +++| FETW     EQU    FETX-FETS   LENGTH OF FET BLOCK
00343  M00S00226.mfiles  +++| FETN     EQU    FETW/FETL+1 NUMBER OF FETS
00344  M00S00227.mfiles  +++|          SPACE  4,10
00345  M00S00228.mfiles  +++|**        RESERVED LOCATIONS.
00346  M00S00229.mfiles  +++|
00347  M00S00230.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00348  M01S00231.v23l617 ---| CSOC     CON    0           CONTROL STATEMENT OPTION COUNT

Seq #  *Modification Id* Act 
----------------------------+
00349  M01S00014.v23l617 +++| CSOC     CON    0           COMMAND OPTION COUNT
00350  M00S00232.mfiles  +++| EOJS     CON    0           END-OF-JOB PROCESSING STATUS
00351  M00S00233.mfiles  +++| FICT     CON    0           FILE COUNT
00352  M00S00234.mfiles  +++| FLST     CON    0           FILE STATUS TO BE SET

Seq #  *Modification Id* Act 
----------------------------+
00353  M01S00046.ns22000 +++| FRMT     CON    0           FORMAT CODE
00354  M00S00235.mfiles  +++| OPARG    CON    0           *OP=* ARGUMENT

Seq #  *Modification Id* Act 
----------------------------+
00355  M01S00041.274l797 +++| OPOF     CON    0           *OP=O* PROCESSED FLAG

Seq #  *Modification Id* Act 
----------------------------+
00356  M01S00047.ns22000 +++| OVWF     CON    0           *OVWRITE* OPTION FLAG

Seq #  *Modification Id* Act 
----------------------------+
00357  M01S00001.ns2010  +++| NOJF     CON    1           *NOJT* TERMINATION FLAG

Seq #  *Modification Id* Act 
----------------------------+
00358  M01S00042.274l797 +++| ZODF     CON    0           OPTICAL DISK CONTROL FILE FOUND FLAG
00359  M00S00236.mfiles  +++|          SPACE  4,10
00360  M00S00237.mfiles  +++|**        PRESERVED REGISTER STORAGE LOCATIONS.
00361  M00S00238.mfiles  +++|
00362  M00S00239.mfiles  +++|
00363  M00S00240.mfiles  +++| SVA3     CON    0           SAVE (A3)
00364  M00S00241.mfiles  +++| SVB2     CON    0           SAVE (B2)
00365  M00S00242.mfiles  +++| SVB3     CON    0           SAVE (B3)
00366  M00S00243.mfiles  +++| SVB4     CON    0           SAVE (B4)
00367  M00S00244.mfiles  +++|          SPACE  4,10
00368  M00S00245.mfiles  +++|**        *GETFNT* CONTROL WORD.
00369  M00S00246.mfiles  +++|
00370  M00S00247.mfiles  +++|
00371  M00S00248.mfiles  +++| GFCW     VFD    12/MNF,6/0,18/0,2/0,1/1,3/4,18/FNTB
00372  M00S00249.mfiles  +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00373  M01S00250.v23l617 ---|**        CONTROL STATEMENT CONTROL TABLE.

Seq #  *Modification Id* Act 
----------------------------+
00374  M01S00015.v23l617 +++|**        COMMAND TABLE.
00375  M00S00251.mfiles  +++|
00376  M00S00252.mfiles  +++|
00377  M00S00253.mfiles  +++| TCSC     BSS    0                FWA OF CONTROL WORD TABLE
00378  M00S00254.mfiles  +++| CLCC     SCON   1,1,1,0,CPF,70B  CLEAR
00379  M00S00255.mfiles  +++| OUCC     SCON   1,1,1,0,COF,0B   OUT

Seq #  *Modification Id* Act 
----------------------------+
00380  M01S00048.ns22000 +++| OVCC     SCON   0,1,1,1,CMS,244B OVWRITE
00381  M01S00049.ns22000 +++| OVCR     SCON   0,1,1,1,CMS,254B OVWRITE RETURN
00382  M00S00256.mfiles  +++| RTCC     SCON   0,1,1,1,CPF,70B  RETURN
00383  M00S00257.mfiles  +++| RWCC     SCON   0,1,1,1,0,50B    REWIND
00384  M00S00258.mfiles  +++| SFCC     SCON   0,1,1,1,CIF,0    SETFS
00385  M00S00259.mfiles  +++| UNCC     SCON   0,1,1,1,CPF,60B  UNLOAD
00386  M00S00260.mfiles  +++| TACW     SPACE  4,10
00387  M00S00261.mfiles  +++|**        TACW - TABLE OF ARGUMENT CONTROL WORDS.
00388  M00S00262.mfiles  +++|*
00389  M00S00263.mfiles  +++|*         THIS TABLE IS ADDRESSED USING THE OFFSET (*TACW*) FROM

Seq #  *Modification Id* Act 
----------------------------+
00390  M01S00264.v23l617 ---|*         THE CORRESPONDING ENTRY IN THE CONTROL STATEMENT

Seq #  *Modification Id* Act 
----------------------------+
00391  M01S00016.v23l617 +++|*         THE CORRESPONDING ENTRY IN THE COMMAND
00392  M00S00265.mfiles  +++|*         CONTROL WORD TABLE.
00393  M00S00266.mfiles  +++|
00394  M00S00267.mfiles  +++|
00395  M00S00268.mfiles  +++| TACW     EQU    *-TCSC      TABLE OFFSET FROM *TCSC*

Seq #  *Modification Id* Act 
----------------------------+
00396  M01S00269.274l797 ---|          ACON   0,0         CLEAR

Seq #  *Modification Id* Act 
----------------------------+
00397  M01S00043.274l797 +++|          ACON   CAP,TOARG   CLEAR
00398  M00S00270.mfiles  +++|          ACON   OAP,TOARG   OUT

Seq #  *Modification Id* Act 
----------------------------+
00399  M01S00050.ns22000 +++|          ACON   VAT,TOARG   OVWRITE
00400  M01S00051.ns22000 +++|          ACON   VAT,TOARG   OVWRITE RETURN

Seq #  *Modification Id* Act 
----------------------------+
00401  M01S00271.274l797 ---|          ACON   0,0         RETURN

Seq #  *Modification Id* Act 
----------------------------+
00402  M01S00044.274l797 +++|          ACON   CAP,TOARG   RETURN
00403  M00S00272.mfiles  +++|          ACON   0,0         REWIND
00404  M00S00273.mfiles  +++|          ACON   SAP,TSARG   SETFS

Seq #  *Modification Id* Act 
----------------------------+
00405  M01S00274.274l797 ---|          ACON   0,0         UNLOAD

Seq #  *Modification Id* Act 
----------------------------+
00406  M01S00045.274l797 +++|          ACON   CAP,TOARG   UNLOAD
00407  M00S00275.mfiles  +++| TDSP     SPACE  4,10
00408  M00S00276.mfiles  +++|**        TDSP - *DSP* PARAMETER BLOCK.
00409  M00S00277.mfiles  +++|
00410  M00S00278.mfiles  +++|
00411  M00S00279.mfiles  +++| TDSP     BSSZ   1

Seq #  *Modification Id* Act 
----------------------------+
00412  M01S00280.mfile2  ---|          VFD    42/0,18/400000B  RETURN JSN TO CALLER

Seq #  *Modification Id* Act 
----------------------------+
00413  M01S00002.mfile2  +++|          VFD    42/0,18/FRFN  RETURN JSN TO CALLER
00414  M00S00281.mfiles  +++|          BSSZ   5
00415  M00S00282.mfiles  +++| TSFN     SPACE  4,10
00416  M00S00283.mfiles  +++|**        TSFN - TABLE OF SPECIAL FILE NAMES.
00417  M00S00284.mfiles  +++|*
00418  M00S00285.mfiles  +++|*T        42/FILE NAME, 18/ 0

Figure

00419  M00S00286.mfiles  +++|
00420  M00S00287.mfiles  +++|
00421  M00S00288.mfiles  +++| TSFN     BSS    0           START OF TABLE
00422  M00S00289.mfiles  +++|          LOC    0
00423  M00S00290.mfiles  +++| OTPT     CON    0LOUTPUT
00424  M00S00291.mfiles  +++|          CON    0LPUNCH
00425  M00S00292.mfiles  +++|          CON    0LPUNCHB
00426  M00S00293.mfiles  +++|          CON    0LP8
00427  M00S00294.mfiles  +++|          CON    0           END OF TABLE
00428  M00S00295.mfiles  +++|          LOC    *O
00429  M00S00296.mfiles  +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00430  M01S00297.v23l617 ---| MFILES   TITLE  CONTROL STATEMENT ENTRY POINTS.

Seq #  *Modification Id* Act 
----------------------------+
00431  M01S00017.v23l617 +++| MFILES   TITLE  COMMAND ENTRY POINTS.
00432  M00S00298.mfiles  +++|**        CLEAR.
00433  M00S00299.mfiles  +++|*
00434  M00S00300.mfiles  +++|*         RETURN FILES ASSIGNED TO A JOB.
00435  M00S00301.mfiles  +++|
00436  M00S00302.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00437  M01S00303.v23l617 ---| CLEAR    SB2    CLCC        SET CONTROL STATEMENT CONTROL WORD ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00438  M01S00018.v23l617 +++| CLEAR    SB2    CLCC        SET COMMAND WORD ADDRESS
00439  M00S00304.mfiles  +++|          EQ     MFP         ENTER MAIN ROUTINE
00440  M00S00305.mfiles  +++| OUT      SPACE  4,10
00441  M00S00306.mfiles  +++|**        OUT.
00442  M00S00307.mfiles  +++|*         OUT(.../OP=X)
00443  M00S00308.mfiles  +++|*
00444  M00S00309.mfiles  +++|*         RELEASE FILES ASSIGNED TO A JOB TO THE OUTPUT QUEUE.
00445  M00S00310.mfiles  +++|*         THE OPTION SPECIFIED BY *X* IS DESCRIBED BELOW.  IT
00446  M00S00311.mfiles  +++|*         IS VALID ONLY DURING JOB TERMINATION PROCESSING.
00447  M00S00312.mfiles  +++|*
00448  M00S00313.mfiles  +++|*                E           PERFORM END-OF-JOB ROUTING.
00449  M00S00314.mfiles  +++|*
00450  M00S00315.mfiles  +++|*                Q           QUEUE FILE REGARDLESS OF USER
00451  M00S00316.mfiles  +++|*                            VALIDATION LIMITS.
00452  M00S00317.mfiles  +++|
00453  M00S00318.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00454  M01S00319.v23l617 ---| OUT      SB2    OUCC        SET CONTROL STATEMENT CONTROL WORD ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00455  M01S00019.v23l617 +++| OUT      SB2    OUCC        SET COMMAND WORD ADDRESS
00456  M00S00320.mfiles  +++|          EQ     MFP         ENTER MAIN LOOP

Seq #  *Modification Id* Act 
----------------------------+
00457  M01S00052.ns22000 +++| OVWRITE  SPACE  4,10
00458  M01S00053.ns22000 +++|**        OVWRITE.
00459  M01S00054.ns22000 +++|*
00460  M01S00055.ns22000 +++|*         OVERWRITE FILES.
00461  M01S00056.ns22000 +++|
00462  M01S00057.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
00463  M02S00058.v23l617 ---| OVWRITE  SB2    OVCC        SET CONTROL STATEMENT CONTROL WORD ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00464  M01S00020.v23l617 +++| OVWRITE  SB2    OVCC        SET COMMAND WORD ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00465  M01S00059.ns22000 +++|          EQ     MFP         ENTER MAIN ROUTINE
00466  M00S00321.mfiles  +++|          SPACE  4,10
00467  M00S00322.mfiles  +++|**        RETURN.
00468  M00S00323.mfiles  +++|*
00469  M00S00324.mfiles  +++|*         RETURN FILES ASSIGNED TO A JOB.
00470  M00S00325.mfiles  +++|
00471  M00S00326.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00472  M01S00327.v23l617 ---| RETURN   SB2    RTCC        SET CONTROL STATEMENT CONTROL WORD ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00473  M01S00021.v23l617 +++| RETURN   SB2    RTCC        SET COMMAND WORD ADDRESS
00474  M00S00328.mfiles  +++|          EQ     MFP         ENTER MAIN ROUTINE
00475  M00S00329.mfiles  +++|          SPACE  4,10
00476  M00S00330.mfiles  +++|**        REWIND.
00477  M00S00331.mfiles  +++|*
00478  M00S00332.mfiles  +++|*         REWIND FILES ASSIGNED TO A JOB.
00479  M00S00333.mfiles  +++|
00480  M00S00334.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00481  M01S00335.v23l617 ---| REWIND   SB2    RWCC        SET CONTROL STATEMENT CONTROL WORD ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00482  M01S00022.v23l617 +++| REWIND   SB2    RWCC        SET COMMAND WORD ADDRESS
00483  M00S00336.mfiles  +++|          EQ     MFP         ENTER MAIN ROUTINE
00484  M00S00337.mfiles  +++| SETFS    SPACE  4,10
00485  M00S00338.mfiles  +++|**        SETFS.
00486  M00S00339.mfiles  +++|*
00487  M00S00340.mfiles  +++|*         SET STATUS ON FILES ASSIGNED TO A JOB.
00488  M00S00341.mfiles  +++|
00489  M00S00342.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00490  M01S00343.v23l617 ---| SETFS    SB2    SFCC        SET CONTROL STATEMENT CONTROL WORD ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00491  M01S00023.v23l617 +++| SETFS    SB2    SFCC        SET COMMAND WORD ADDRESS
00492  M00S00344.mfiles  +++|          EQ     MFP         ENTER MAIN ROUTINE
00493  M00S00345.mfiles  +++|          SPACE  4,10
00494  M00S00346.mfiles  +++|**        UNLOAD.
00495  M00S00347.mfiles  +++|*
00496  M00S00348.mfiles  +++|*         UNLOAD FILES ASSIGNED TO A JOB.
00497  M00S00349.mfiles  +++|
00498  M00S00350.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00499  M01S00351.v23l617 ---| UNLOAD   SB2    UNCC        SET CONTROL STATEMENT CONTROL WORD ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00500  M01S00024.v23l617 +++| UNLOAD   SB2    UNCC        SET COMMAND WORD ADDRESS
00501  M00S00352.mfiles  +++|*         EQ     MFP         ENTER MAIN ROUTINE
00502  M00S00353.mfiles  +++| MFILES   TITLE  MAIN PROGRAM.
00503  M00S00354.mfiles  +++| MFILES   SPACE  4,10
00504  M00S00355.mfiles  +++|**        RESERVED REGISTER USAGE.
00505  M00S00356.mfiles  +++|*
00506  M00S00357.mfiles  +++|*                (A3) = ADDRESS OF FIRST FILE NAME ARGUMENT.

Seq #  *Modification Id* Act 
----------------------------+
00507  M01S00358.v23l617 ---|*                (B2) = CONTROL STATEMENT CONTROL WORD ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
00508  M01S00025.v23l617 +++|*                (B2) = COMMAND WORD ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
00509  M01S00359.ns22000 ---|*                (B4) = FORMAT CODE.
00510  M00S00360.mfiles  +++| MFP      SPACE  4,15
00511  M00S00361.mfiles  +++|**        MFP - MULTIPLE FILE PROCESSOR.
00512  M00S00362.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00513  M01S00363.ns22000 ---|*         CALLS  CIO=, GNF, IFC, PAF, PRS.

Seq #  *Modification Id* Act 
----------------------------+
00514  M02S00060.v23l617 ---|*         ENTRY  (B2) = CONTROL STATEMENT CONTROL WORD ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
00515  M01S00026.v23l617 +++|*         ENTRY  (B2) = COMMAND WORD ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
00516  M01S00061.ns22000 +++|*
00517  M01S00062.ns22000 +++|*         USES   X - 4, 6, 7.
00518  M01S00063.ns22000 +++|*                A - 4, 6, 7.
00519  M01S00064.ns22000 +++|*
00520  M01S00065.ns22000 +++|*         CALLS  IFC, PAF, PRS.
00521  M00S00364.mfiles  +++|*
00522  M00S00365.mfiles  +++|*         MACROS ENDRUN, GETFNT, RECALL.
00523  M00S00366.mfiles  +++|
00524  M00S00367.mfiles  +++|
00525  M00S00368.mfiles  +++| MFP      BSS    0           ENTRY
00526  M00S00369.mfiles  +++|          RJ     PRS         PRESET

Seq #  *Modification Id* Act 
----------------------------+
00527  M01S00370.ns22000 ---|          SB5    B4-3
00528  M01S00371.ns22000 ---|          ZR     B5,MFP4     IF NOT EXCLUSION FORM (FORMAT 3)
00529  M01S00372.ns22000 ---|
00530  M01S00373.ns22000 ---|*         OPERATE ON ALL BUT SPECIFIED FILES.
00531  M01S00374.ns22000 ---|
00532  M00S00375.mfiles  +++|          SA4    GFCW        PUT *GETFNT* CONTROL WORD IN FET
00533  M00S00376.mfiles  +++|          BX6    X4
00534  M00S00377.mfiles  +++|          SX7    B0
00535  M00S00378.mfiles  +++|          SA6    FETC
00536  M00S00379.mfiles  +++|          SA7    FNTB        SET INITIAL *GETFNT* CALL
00537  M00S00380.mfiles  +++| MFP1     GETFNT FETX
00538  M00S00381.mfiles  +++|          RJ     PAF         PROCESS ALL FILES
00539  M00S00382.mfiles  +++|          ZR     X1,MFP2     IF ALL FILES RETURNED IN BUFFER
00540  M00S00383.mfiles  +++|          RECALL FETX
00541  M00S00384.mfiles  +++|          EQ     MFP1        GET ANOTHER BUFFER OF FNT ENTRIES
00542  M00S00385.mfiles  +++|
00543  M00S00386.mfiles  +++|*         TERMINATE JOB.
00544  M00S00387.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00545  M01S00388.ns22000 ---| MFP2     RJ     IFC         ISSUE FILE COUNT MESSAGE
00546  M01S00389.ns22000 ---| MFP3     ENDRUN
00547  M01S00390.ns22000 ---|
00548  M01S00391.ns22000 ---|*         OPERATE ON SPECIFIED FILES ONLY.
00549  M01S00392.ns22000 ---|
00550  M01S00393.ns22000 ---| MFP4     ZR     X3,MFP3     IF END OF ARGUMENTS
00551  M01S00394.ns22000 ---|          RJ     GNF         GET NONBUSY FET
00552  M01S00395.ns22000 ---|          ZR     X2,MFP5     IF FILE ALREADY PROCESSED
00553  M01S00396.ns22000 ---|          SX4    B1
00554  M01S00397.ns22000 ---|          SA5    B2
00555  M01S00398.ns22000 ---|          BX7    X3+X4
00556  M01S00399.ns22000 ---|          SA7    X2          ENTER FET+0
00557  M01S00400.ns22000 ---|          SB6    B2-SFCC
00558  M01S00401.ns22000 ---|          SX7    X5
00559  M01S00402.ns22000 ---|          ZR     B6,MFP6     IF *SETFS* STATEMENT
00560  M01S00403.ns22000 ---|          RJ     CIO=        MAKE REQUEST
00561  M01S00404.ns22000 ---| MFP5     SA3    A3+1        GET NEXT ARGUMENT
00562  M01S00405.ns22000 ---|          EQ     MFP4        PROCESS NEXT ARGUMENT
00563  M01S00406.ns22000 ---|
00564  M01S00407.ns22000 ---| MFP6     SA1    FLST        SET FILE STATUS
00565  M01S00408.ns22000 ---|          SETFS  X2,X1
00566  M01S00409.ns22000 ---|          EQ     MFP5        PROCESS NEXT FILE

Seq #  *Modification Id* Act 
----------------------------+
00567  M01S00066.ns22000 +++| MFP2     SA4    FRMT        GET FORMAT CODE
00568  M01S00067.ns22000 +++|          SX4    X4-FMT3
00569  M01S00068.ns22000 +++|          ZR     X4,MFP3     IF FORMAT 3
00570  M01S00069.ns22000 +++|          RJ     IFC         ISSUE FILE COUNT MESSAGE
00571  M01S00070.ns22000 +++| MFP3     ENDRUN
00572  M00S00410.mfiles  +++|          TITLE  SUBROUTINES.
00573  M00S00411.mfiles  +++| ABT      SPACE  4,10
00574  M00S00412.mfiles  +++|**        ABT - ISSUE MESSAGE AND ABORT.
00575  M00S00413.mfiles  +++|*
00576  M00S00414.mfiles  +++|*         ENTRY  (X2) = MESSAGE ADDRESS.
00577  M00S00415.mfiles  +++|*
00578  M00S00416.mfiles  +++|*         MACROS ABORT, MESSAGE.
00579  M00S00417.mfiles  +++|
00580  M00S00418.mfiles  +++|
00581  M00S00419.mfiles  +++| ABT      BSS    0           ENTRY
00582  M00S00420.mfiles  +++|          MESSAGE  X2,3
00583  M00S00421.mfiles  +++|          ABORT              ABORT CONTROL POINT
00584  M00S00422.mfiles  +++| CFN      SPACE  4,20
00585  M00S00423.mfiles  +++|**        CFN - CHECK FILE NAME FOR EXCLUSION.
00586  M00S00424.mfiles  +++|*
00587  M00S00425.mfiles  +++|*         *CFN* CHECKS AN ARGUMENT LIST FOR THE PRESENCE OF THE FILE
00588  M00S00426.mfiles  +++|*         NAME GIVEN BY AN FNT ENTRY.  DEPENDING ON THE CONTROL

Seq #  *Modification Id* Act 
----------------------------+
00589  M01S00427.v23l617 ---|*         STATEMENT, OTHER EXCLUSION TESTS MAY BE MADE.

Seq #  *Modification Id* Act 
----------------------------+
00590  M01S00027.v23l617 +++|*         COMMAND, OTHER EXCLUSION TESTS MAY BE MADE.
00591  M00S00428.mfiles  +++|*
00592  M00S00429.mfiles  +++|*         ENTRY  (X1) = FNT ENTRY.
00593  M00S00430.mfiles  +++|*                (X3) = FILE NAME.
00594  M00S00431.mfiles  +++|*                (A1) = ADDRESS OF FNT ENTRY IN *GETFNT* BUFFER.
00595  M00S00432.mfiles  +++|*                (A3) = ADDRESS OF FIRST ARGUMENT.

Seq #  *Modification Id* Act 
----------------------------+
00596  M01S00433.v23l617 ---|*                (B2) = CONTROL STATEMENT CONTROL WORD ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
00597  M01S00028.v23l617 +++|*                (B2) = COMMAND WORD ADDRESS.
00598  M00S00434.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00599  M01S00435.ns22000 ---|*         EXIT   (X0) = FILE NAME MASK.
00600  M01S00436.ns22000 ---|*                (X6) = 0 IF FILE TO BE EXCLUDED.

Seq #  *Modification Id* Act 
----------------------------+
00601  M01S00071.ns22000 +++|*         EXIT   (X6) = 0 IF FILE TO BE EXCLUDED.
00602  M00S00437.mfiles  +++|*                (X6) .NE. 0 IF FILE NOT TO BE EXCLUDED.
00603  M00S00438.mfiles  +++|*
00604  M00S00439.mfiles  +++|*         USES   X - 0, 4, 6.
00605  M00S00440.mfiles  +++|*                A - 4.
00606  M00S00441.mfiles  +++|*                B - 7.
00607  M00S00442.mfiles  +++|*
00608  M00S00443.mfiles  +++|*         CALLS  IRJ.

Seq #  *Modification Id* Act 
----------------------------+
00609  M01S00072.ns22000 +++|*
00610  M01S00073.ns22000 +++|*         NOTE   EXCLUSION PROCESSOR SUBROUTINES MUST NOT DESTROY
00611  M01S00074.ns22000 +++|*                REGISTERS A3, X3, B2, B3, OR B4.
00612  M00S00444.mfiles  +++|
00613  M00S00445.mfiles  +++|
00614  M00S00446.mfiles  +++| CFN      SUBR               ENTRY/EXIT
00615  M00S00447.mfiles  +++|          SA4    B2          GET EXCLUSION PROCESSOR ADDRESS
00616  M00S00448.mfiles  +++|          MX0    -18
00617  M00S00449.mfiles  +++|          AX4    18
00618  M00S00450.mfiles  +++|          BX4    -X0*X4
00619  M00S00451.mfiles  +++|          ZR     X4,CFN1     IF NO EXCLUSION PROCESSOR DEFINED
00620  M00S00452.mfiles  +++|          SB7    X4+         SET PROCESSOR ADDRESS
00621  M00S00453.mfiles  +++|          RJ     IRJ         EXECUTE EXCLUSION PROCESSOR
00622  M00S00454.mfiles  +++|          ZR     X6,CFNX     IF FILE TO BE EXCLUDED

Seq #  *Modification Id* Act 
----------------------------+
00623  M01S00455.ns22000 ---| CFN1     SA4    A3+         READ FIRST FILE NAME ARGUMENT
00624  M01S00456.ns22000 ---| CFN2     ZR     X4,CFNX     IF END OF ARGUMENT LIST

Seq #  *Modification Id* Act 
----------------------------+
00625  M01S00075.ns22000 +++| CFN1     SA4    FRMT        GET FORMAT CODE
00626  M01S00076.ns22000 +++|          SB7    X4-FMT3
00627  M01S00077.ns22000 +++|          SA4    A3+         READ FIRST FILE NAME ARGUMENT
00628  M01S00078.ns22000 +++| CFN2     ZR     X4,CFN3     IF END OF ARGUMENT LIST
00629  M00S00457.mfiles  +++|          BX6    X4-X3

Seq #  *Modification Id* Act 
----------------------------+
00630  M01S00458.ns22000 ---|          ZR     X6,CFNX     IF FOUND
00631  M01S00459.ns22000 ---|          SA4    A4+1        NEXT ARGUMENT
00632  M01S00460.ns22000 ---|          EQ     CFN2        CHECK NEXT ARGUMENT

Seq #  *Modification Id* Act 
----------------------------+
00633  M01S00079.ns22000 +++|          SA4    A4+B1       READ NEXT ARGUMENT
00634  M01S00080.ns22000 +++|          NZ     X6,CFN2     IF NOT FOUND
00635  M01S00081.ns22000 +++|
00636  M01S00082.ns22000 +++|*         THE FILE NAME WAS FOUND AS ONE OF THE ARGUMENTS SPECIFIED
00637  M01S00083.ns22000 +++|*         (EITHER FORMAT 2 OR FORMAT 3 WAS USED).  AN ADDITIONAL CHECK
00638  M01S00084.ns22000 +++|*         IS REQUIRED TO DETERMINE IF THE FILE IS TO BE INCLUDED
00639  M01S00085.ns22000 +++|*         OR EXCLUDED FROM PROCESSING.  IF THE INCLUSION FORMAT
00640  M01S00086.ns22000 +++|*         (FORMAT 3) WAS SPECIFIED, THE FILE WILL NOT BE EXCLUDED.
00641  M01S00087.ns22000 +++|
00642  M01S00088.ns22000 +++|          NZ     B7,CFNX     IF NOT FORMAT 3
00643  M01S00089.ns22000 +++|          SX6    B1+         SET FILE NOT EXCLUDED
00644  M01S00090.ns22000 +++|          EQ     CFNX        RETURN
00645  M01S00091.ns22000 +++|
00646  M01S00092.ns22000 +++|*         THE FILE NAME DID NOT MATCH ANY OF THE ARGUMENTS SPECIFIED.
00647  M01S00093.ns22000 +++|*         A CHECK MUST BE MADE TO DETERMINE IF THE FILE SHOULD
00648  M01S00094.ns22000 +++|*         BE EXCLUDED OR INCLUDED BY THE PROCESSING TYPE SPECIFIED.
00649  M01S00095.ns22000 +++|*         IF THE INCLUSION FORMAT (FORMAT 3) WAS SPECIFIED, THE
00650  M01S00096.ns22000 +++|*         FILE WILL BE EXCLUDED.
00651  M01S00097.ns22000 +++|
00652  M01S00098.ns22000 +++| CFN3     NZ     B7,CFNX     IF NOT FORMAT 3
00653  M01S00099.ns22000 +++|          SX6    B0+         SET FILE EXCLUDED
00654  M01S00100.ns22000 +++|          EQ     CFNX        RETURN
00655  M00S00461.mfiles  +++| CIF      SPACE  4,10
00656  M00S00462.mfiles  +++|**        CIF - CHECK FOR INPUT* FILE.
00657  M00S00463.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00658  M01S00464.ns22000 ---|*         ENTRY  (X0) = FILE NAME MASK.
00659  M01S00465.ns22000 ---|*                (X1) = FNT ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
00660  M01S00101.ns22000 +++|*         ENTRY  (X1) = FNT ENTRY.
00661  M00S00466.mfiles  +++|*
00662  M00S00467.mfiles  +++|*         EXIT   (X6) = 0 IF FILE IS INPUT*.
00663  M00S00468.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00664  M01S00469.ns22000 ---|*         USES   X - 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
00665  M01S00102.ns22000 +++|*         USES   X - 0, 4, 6, 7.
00666  M00S00470.mfiles  +++|*                A - 4.
00667  M00S00471.mfiles  +++|
00668  M00S00472.mfiles  +++|
00669  M00S00473.mfiles  +++| CIF      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00670  M01S00474.ns22000 ---|          BX7    X0*X1
00671  M00S00475.mfiles  +++|          SA4    =6LINPUT*

Seq #  *Modification Id* Act 
----------------------------+
00672  M01S00103.ns22000 +++|          MX0    42
00673  M01S00104.ns22000 +++|          BX7    X0*X1
00674  M00S00476.mfiles  +++|          BX6    X4-X7
00675  M00S00477.mfiles  +++|          EQ     CIFX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00676  M01S00105.ns22000 +++| CMS      SPACE  4,15
00677  M01S00106.ns22000 +++|**        CMS - CHECK FOR MASS STORAGE AND READ ONLY FILE.
00678  M01S00107.ns22000 +++|*
00679  M01S00108.ns22000 +++|*         ENTRY  (X1) = FNT ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
00680  M01S00010.mfile1  +++|*                (A1) = ADDRESS OF FNT ENTRY IN *GETFNT* BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
00681  M01S00109.ns22000 +++|*                (X3) = FILE NAME.
00682  M01S00110.ns22000 +++|*                (A3) = ADDRESS OF FIRST ARGUMENT.
00683  M01S00111.ns22000 +++|*
00684  M01S00112.ns22000 +++|*         EXIT   (X6) = 0 IF FILE TO BE EXCLUDED.
00685  M01S00113.ns22000 +++|*
00686  M01S00114.ns22000 +++|*         USES   X - 0, 1, 4, 6.
00687  M01S00115.ns22000 +++|*                A - 4.
00688  M01S00116.ns22000 +++|*                B - 2, 3, 5.
00689  M01S00117.ns22000 +++|*
00690  M01S00118.ns22000 +++|*         CALLS  CIF, RSR, SNM, SVR.
00691  M01S00119.ns22000 +++|*
00692  M01S00120.ns22000 +++|*         MACROS MESSAGE.
00693  M01S00121.ns22000 +++|
00694  M01S00122.ns22000 +++|
00695  M01S00123.ns22000 +++| CMS      SUBR               ENTRY/EXIT
00696  M01S00124.ns22000 +++|          MX0    2
00697  M01S00125.ns22000 +++|          LX0    14-59
00698  M01S00126.ns22000 +++|          BX6    X0*X1
00699  M01S00127.ns22000 +++|          SB5    -CMSA       MESSAGE TEXT
00700  M01S00128.ns22000 +++|          NZ     X6,CMS1     IF FILE NOT MASS STORAGE
00701  M01S00129.ns22000 +++|          RJ     CIF
00702  M01S00130.ns22000 +++|          ZR     X6,CMSX     IF INPUT* FILE

Seq #  *Modification Id* Act 
----------------------------+
00703  M02S00131.mfile1  ---|          BX6    X1
00704  M02S00132.mfile1  ---|          LX6    59-12
00705  M02S00133.mfile1  ---|          PL     X6,CMSX     IF NOT A READ ONLY FILE

Seq #  *Modification Id* Act 
----------------------------+
00706  M01S00011.mfile1  +++|          SA4    A1+B1       CHECK FOR WRITE MODE
00707  M01S00012.mfile1  +++|          MX0    -4
00708  M01S00013.mfile1  +++|          SX6    B1+         SET FILE INCLUDED
00709  M01S00014.mfile1  +++|          LX4    -4
00710  M01S00015.mfile1  +++|          BX4    -X0*X4
00711  M01S00016.mfile1  +++|          SB5    X4
00712  M01S00017.mfile1  +++|          EQ     B5,B1,CMSX  IF FILE IN WRITE MODE

Seq #  *Modification Id* Act 
----------------------------+
00713  M01S00134.ns22000 +++|          SB5    -CMSB       MESSAGE TEXT
00714  M01S00135.ns22000 +++|
00715  M01S00136.ns22000 +++|*         SEARCH ARGUMENT LIST FOR MATCHING FILE NAME TO DETERMINE
00716  M01S00137.ns22000 +++|*         IF WARNING MESSAGE SHOULD BE ISSUED.
00717  M01S00138.ns22000 +++|
00718  M01S00139.ns22000 +++| CMS1     SA4    A3+         READ FIRST FILE NAME ARGUMENT
00719  M01S00140.ns22000 +++| CMS2     ZR     X4,CMS3     IF END OF ARGUMENT LIST
00720  M01S00141.ns22000 +++|          BX0    X4-X3
00721  M01S00142.ns22000 +++|          SA4    A4+B1       READ NEXT ARGUMENT
00722  M01S00143.ns22000 +++|          NZ     X0,CMS2     IF NOT FOUND
00723  M01S00144.ns22000 +++|          SA4    FRMT        GET FORMAT CODE
00724  M01S00145.ns22000 +++|          SX4    X4-FMT3
00725  M01S00146.ns22000 +++|          NZ     X4,CMS3     IF NOT FORMAT 3
00726  M01S00147.ns22000 +++|
00727  M01S00148.ns22000 +++|*         ISSUE WARNING MESSAGE AND EXCLUDE FILE.
00728  M01S00149.ns22000 +++|
00729  M01S00150.ns22000 +++|          RJ     SVR         SAVE REGISTERS
00730  M01S00151.ns22000 +++|          SB2    1R+         SET SEARCH CHARACTER
00731  M01S00152.ns22000 +++|          SB3    CMSC        MESSAGE ASSEMBLY BUFFER
00732  M01S00153.ns22000 +++|          MX0    42
00733  M01S00154.ns22000 +++|          BX1    X0*X1       FILE NAME
00734  M01S00155.ns22000 +++|          RJ     SNM         SET NAME IN MESSAGE
00735  M01S00156.ns22000 +++|          MESSAGE  CMSC,3,R
00736  M01S00157.ns22000 +++|          RJ     RSR         RESTORE REGISTERS
00737  M01S00158.ns22000 +++| CMS3     SX6    B0+         EXCLUDE FILE
00738  M01S00159.ns22000 +++|          EQ     CMSX        RETURN
00739  M01S00160.ns22000 +++|
00740  M01S00161.ns22000 +++| CMSA     DATA   C* +++++++ NOT ON MASS STORAGE.*

Seq #  *Modification Id* Act 
----------------------------+
00741  M02S00162.mfile1  ---| CMSB     DATA   C* +++++++ IS READ ONLY.*

Seq #  *Modification Id* Act 
----------------------------+
00742  M01S00018.mfile1  +++| CMSB     DATA   C* +++++++ NOT IN WRITE MODE.*

Seq #  *Modification Id* Act 
----------------------------+
00743  M01S00163.ns22000 +++| CMSC     BSS    4           ASSEMBLY BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00744  M01S00046.274l797 +++| COC      SPACE  4,10
00745  M01S00047.274l797 +++|**        COC - CHECK FOR OPTICAL CONTROL FILE *ZZZZZOD*.
00746  M01S00048.274l797 +++|*
00747  M01S00049.274l797 +++|*         ENTRY  (X1) = FNT ENTRY.
00748  M01S00050.274l797 +++|*
00749  M01S00051.274l797 +++|*         EXIT   (X6) = 0 IF FILE IS ZZZZZOD.
00750  M01S00052.274l797 +++|*
00751  M01S00053.274l797 +++|*         USES   X - 0, 4, 6, 7.
00752  M01S00054.274l797 +++|*                A - 4.
00753  M01S00055.274l797 +++|
00754  M01S00056.274l797 +++|
00755  M01S00057.274l797 +++| COC      SUBR               ENTRY/EXIT
00756  M01S00058.274l797 +++|          MX0    2
00757  M01S00059.274l797 +++|          LX0    14-59
00758  M01S00060.274l797 +++|          BX6    X0*X1
00759  M01S00061.274l797 +++|          NZ     X6,COCX     IF FILE NOT MASS STORAGE
00760  M01S00062.274l797 +++|          SA4    =7LZZZZZOD
00761  M01S00063.274l797 +++|          MX0    42
00762  M01S00064.274l797 +++|          BX7    X0*X1
00763  M01S00065.274l797 +++|          BX6    X4-X7
00764  M01S00066.274l797 +++|          EQ     COCX        RETURN
00765  M00S00478.mfiles  +++| COF      SPACE  4,20
00766  M00S00479.mfiles  +++|**        COF - CHECK IF OUTPUT FILE.
00767  M00S00480.mfiles  +++|*
00768  M00S00481.mfiles  +++|*         *COF* CHECKS TO SEE IF THE GIVEN FILE SHOULD BE
00769  M00S00482.mfiles  +++|*         ROUTED TO THE OUTPUT QUEUE.  THE CRITERIA USED
00770  M00S00483.mfiles  +++|*         FOR SELECTION ARE -
00771  M00S00484.mfiles  +++|*
00772  M00S00485.mfiles  +++|*                (1)  FILE TYPE IS *QFFT*.
00773  M00S00486.mfiles  +++|*                (2)  FILE IS A LOCAL FILE (FILE TYPE *LOFT*) AND
00774  M00S00487.mfiles  +++|*                     HAS A SPECIAL NAME, *OUTPUT*, *PUNCH*, *P8*,
00775  M00S00488.mfiles  +++|*                     OR *PUNCHB*.
00776  M00S00489.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00777  M01S00490.ns22000 ---|*         ENTRY  (X0) = FILE NAME MASK.
00778  M01S00491.ns22000 ---|*                (X1) = FNT ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
00779  M01S00164.ns22000 +++|*         ENTRY  (X1) = FNT ENTRY.
00780  M00S00492.mfiles  +++|*                (X3) = FILE NAME.
00781  M00S00493.mfiles  +++|*
00782  M00S00494.mfiles  +++|*         EXIT   (X6) = NONZERO IF FILE TO BE ROUTED TO QUEUE.
00783  M00S00495.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00784  M01S00496.ns22000 ---|*         USES   X - 2, 4, 6, 7.
00785  M01S00497.ns22000 ---|*                A - 2, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
00786  M01S00165.ns22000 +++|*         USES   X - 4, 6, 7.
00787  M01S00166.ns22000 +++|*                A - 4.
00788  M00S00498.mfiles  +++|*                B - 6.
00789  M00S00499.mfiles  +++|
00790  M00S00500.mfiles  +++|
00791  M00S00501.mfiles  +++| COF      SUBR               ENTRY/EXIT
00792  M00S00502.mfiles  +++|
00793  M00S00503.mfiles  +++|*         CHECK FILE TYPE.
00794  M00S00504.mfiles  +++|
00795  M00S00505.mfiles  +++|          BX4    X1          CHECK FNT PARAMETERS
00796  M00S00506.mfiles  +++|          MX6    -2
00797  M00S00507.mfiles  +++|          AX4    13
00798  M00S00508.mfiles  +++|          BX6    -X6*X4
00799  M00S00509.mfiles  +++|          NZ     X6,COF3     IF NOT MASS STORAGE FILE
00800  M00S00510.mfiles  +++|          BX4    X1          CHECK FILE TYPE
00801  M00S00511.mfiles  +++|          MX6    -6
00802  M00S00512.mfiles  +++|          AX4    6
00803  M00S00513.mfiles  +++|          BX7    -X6*X4
00804  M00S00514.mfiles  +++|          SB6    X7-QFFT
00805  M00S00515.mfiles  +++|          ZR     B6,COF1.1   IF QUEUED FILE
00806  M00S00516.mfiles  +++|          SB6    X7-LOFT
00807  M00S00517.mfiles  +++|          NZ     B6,COF3     IF NOT LOCAL FILE

Seq #  *Modification Id* Act 
----------------------------+
00808  M01S00002.ns2010  +++|          SA4    NOJF        CHECK TERMINATION OPTION FLAG
00809  M01S00003.ns2010  +++|          ZR     X4,COF3     IF NOT ROUTING *SPECIAL NAME* LOCAL FILES
00810  M00S00518.mfiles  +++|
00811  M00S00519.mfiles  +++|*         CHECK FOR SPECIAL FILE NAMES.
00812  M00S00520.mfiles  +++|
00813  M00S00521.mfiles  +++| COF1     SA4    TSFN+B6     READ TABLE ENTRY
00814  M00S00522.mfiles  +++|          ZR     X4,COF3     IF END OF TABLE
00815  M00S00523.mfiles  +++|          BX7    X4-X3       COMPARE FILE NAMES
00816  M00S00524.mfiles  +++|          SB6    B6+B1       ADVANCE TABLE INDEX
00817  M00S00525.mfiles  +++|          NZ     X7,COF1     IF NO MATCH
00818  M00S00526.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00819  M01S00527.274l797 ---|*         PROCESS END-OF JOB FILE ROUTING.

Seq #  *Modification Id* Act 
----------------------------+
00820  M01S00067.274l797 +++|*         PROCESS END-OF-JOB FILE ROUTING.
00821  M00S00528.mfiles  +++|
00822  M00S00529.mfiles  +++| COF1.1   SA4    EOJS        CHECK FOR END-OF-JOB PROCESSING
00823  M00S00530.mfiles  +++|          ZR     X4,COF2     IF NOT END-OF-JOB
00824  M00S00531.mfiles  +++|          BX7    -X6*X1      CHECK FILE STATUS
00825  M00S00532.mfiles  +++|          SX7    X7-SOST
00826  M00S00533.mfiles  +++|          ZR     X7,COF2     IF *SOST* STATUS

Seq #  *Modification Id* Act 
----------------------------+
00827  M01S00004.ns2010  +++|          SA4    NOJF        CHECK TERMINATION OPTION FLAG
00828  M01S00005.ns2010  +++|          ZR     X4,COF2     IF ROUTING ANY QUEUED FILE
00829  M00S00534.mfiles  +++|          SA4    TSFN+OTPT   CHECK FILE NAME
00830  M00S00535.mfiles  +++|          BX7    X3-X4

Seq #  *Modification Id* Act 
----------------------------+
00831  M01S00536.ns2257  ---|          ZR     X7,COF3     IF FILE NAME = *OUTPUT*

Seq #  *Modification Id* Act 
----------------------------+
00832  M01S00001.ns2257  +++|          NZ     X7,COF2     IF FILE NAME .NE. *OUTPUT*
00833  M01S00002.ns2257  +++|          BX4    X1          CHECK IF *OUTPUT* IS LOCKED
00834  M01S00003.ns2257  +++|          LX4    59-12
00835  M01S00004.ns2257  +++|          PL     X4,COF3     IF *OUTPUT* IS NOT LOCKED
00836  M00S00537.mfiles  +++|
00837  M00S00538.mfiles  +++|*         RETURN STATUS TO ROUTE FILE.
00838  M00S00539.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00839  M01S00540.ns22000 ---| COF2     SX6    B1          (X6) STATUS = ROUTE FILE

Seq #  *Modification Id* Act 
----------------------------+
00840  M01S00167.ns22000 +++| COF2     SX6    B1+
00841  M00S00541.mfiles  +++|          EQ     COFX        RETURN
00842  M00S00542.mfiles  +++|
00843  M00S00543.mfiles  +++|*         RETURN STATUS TO IGNORE FILE.
00844  M00S00544.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00845  M01S00545.ns22000 ---| COF3     SX6    B0          (X6) STATUS = DO NOT ROUTE FILE

Seq #  *Modification Id* Act 
----------------------------+
00846  M01S00168.ns22000 +++| COF3     SX6    B0+
00847  M00S00546.mfiles  +++|          EQ     COFX        RETURN
00848  M00S00547.mfiles  +++|
00849  M00S00548.mfiles  +++| CPF      SPACE  4,10
00850  M00S00549.mfiles  +++|**        CPF - CHECK FOR PROTECTED FILE.
00851  M00S00550.mfiles  +++|*
00852  M00S00551.mfiles  +++|*         ENTRY  (X1) = FNT ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
00853  M01S00169.ns22000 +++|*                (X3) = FILE NAME.
00854  M01S00170.ns22000 +++|*                (A3) = ADDRESS OF FIRST ARGUMENT.
00855  M00S00552.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00856  M01S00553.ns22000 ---|*         EXIT   (X6) = 0 IF PROTECTED FILE.

Seq #  *Modification Id* Act 
----------------------------+
00857  M01S00171.ns22000 +++|*         EXIT   (X6) = 0 IF PROTECTED FILE TO BE EXCLUDED.
00858  M00S00554.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00859  M01S00555.ns22000 ---|*         USES   X - 4, 6.

Seq #  *Modification Id* Act 
----------------------------+
00860  M01S00172.ns22000 +++|*         USES   X - 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
00861  M02S00173.274l797 ---|*                A - 4.

Seq #  *Modification Id* Act 
----------------------------+
00862  M01S00068.274l797 +++|*                A - 4, 7.

Seq #  *Modification Id* Act 
----------------------------+
00863  M01S00174.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
00864  M02S00175.274l797 ---|*         CALLS  CIF.

Seq #  *Modification Id* Act 
----------------------------+
00865  M01S00069.274l797 +++|*         CALLS  COC, CIF, RSR, SVR.
00866  M01S00070.274l797 +++|*
00867  M01S00071.274l797 +++|*         MACROS FILINFO.
00868  M00S00556.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00869  M01S00072.274l797 +++|
00870  M01S00073.274l797 +++| CPF5     SX7    X4+         SET CONTROL FILE FOUND FLAG IF *OP=O*
00871  M01S00074.274l797 +++|          SA7    ZODF
00872  M00S00557.mfiles  +++|
00873  M00S00558.mfiles  +++| CPF      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00874  M01S00176.ns22000 +++|          RJ     CIF
00875  M01S00177.ns22000 +++|          ZR     X6,CPFX     IF INPUT* FILE

Seq #  *Modification Id* Act 
----------------------------+
00876  M01S00075.274l797 +++|          RJ     COC         CHECK FOR OPTICAL CONTROL FILE
00877  M01S00076.274l797 +++|          SA4    OPOF
00878  M01S00077.274l797 +++|          ZR     X6,CPF5     IF OPTICAL CONTROL FILE
00879  M01S00078.274l797 +++|          NZ     X4,CPF4     IF *OP=O* SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
00880  M01S00559.ns2102  ---|          MX4    -6          CHECK IF *NDST* STATUS SET ON FILE

Seq #  *Modification Id* Act 
----------------------------+
00881  M01S00008.ns2102  +++|          MX4    -6          CHECK IF *CBST*, *CKST* OR *NDST* STATUS
00882  M00S00560.mfiles  +++|          BX4    -X4*X1

Seq #  *Modification Id* Act 
----------------------------+
00883  M01S00009.ns2102  +++|          SX6    X4-CBST

Seq #  *Modification Id* Act 
----------------------------+
00884  M02S00010.ns22000 ---|          ZR     X6,CPFX     IF CHECKPOINT FILE

Seq #  *Modification Id* Act 
----------------------------+
00885  M01S00178.ns22000 +++|          ZR     X6,CPF1     IF CHECKPOINT FILE

Seq #  *Modification Id* Act 
----------------------------+
00886  M01S00011.ns2102  +++|          SX6    X4-CKST

Seq #  *Modification Id* Act 
----------------------------+
00887  M02S00012.ns22000 ---|          ZR     X6,CPFX     IF CHECKPOINT FILE

Seq #  *Modification Id* Act 
----------------------------+
00888  M01S00179.ns22000 +++|          ZR     X6,CPF1     IF CHECKPOINT FILE
00889  M00S00561.mfiles  +++|          SX6    X4-NDST

Seq #  *Modification Id* Act 
----------------------------+
00890  M01S00180.ns22000 +++|          NZ     X6,CPFX     IF NOT NO-AUTO-DROP STATUS
00891  M01S00181.ns22000 +++|
00892  M01S00182.ns22000 +++|*         IT IS A PROTECTED FILE.  SEARCH THE ARGUMENT LIST FOR
00893  M01S00183.ns22000 +++|*         MATCHING FILE NAME.  IF A MATCH IS FOUND AND INCLUSION
00894  M01S00184.ns22000 +++|*         PROCESSING (FORMAT 3) HAS BEEN SELECTED, RETURN (X6)
00895  M01S00185.ns22000 +++|*         NON-ZERO SO THAT THE FILE WILL BE PROCESSED.  OTHERWISE,
00896  M01S00186.ns22000 +++|*         RETURN (X6) = 0 SO THAT THE FILE WILL BE EXCLUDED.
00897  M01S00187.ns22000 +++|
00898  M01S00188.ns22000 +++| CPF1     SA4    A3+         READ FIRST FILE NAME ARGUMENT
00899  M01S00189.ns22000 +++| CPF2     ZR     X4,CPFX     IF END OF ARGUMENT LIST
00900  M01S00190.ns22000 +++|          BX7    X4-X3
00901  M01S00191.ns22000 +++|          SA4    A4+B1       READ NEXT ARGUMENT
00902  M01S00192.ns22000 +++|          NZ     X7,CPF2     IF NOT FOUND
00903  M01S00193.ns22000 +++|          SA4    FRMT        GET FORMAT CODE

Seq #  *Modification Id* Act 
----------------------------+
00904  M02S00194.274l797 ---|          SX4    X4-FMT3
00905  M02S00195.274l797 ---|          NZ     X4,CPFX     IF NOT FORMAT 3

Seq #  *Modification Id* Act 
----------------------------+
00906  M01S00079.274l797 +++|          SX4    X4-FMT3     CHECK FOR FORMAT 3
00907  M01S00080.274l797 +++| CPF3     NZ     X4,CPFX     IF FILE TO BE EXCLUDED

Seq #  *Modification Id* Act 
----------------------------+
00908  M01S00196.ns22000 +++|          SX6    B1+         PROCESS THE FILE
00909  M00S00562.mfiles  +++|          EQ     CPFX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00910  M01S00081.274l797 +++|
00911  M01S00082.274l797 +++|*         *OP=O* SPECIFIED - CHECK FOR OPTICAL DISK FILE.
00912  M01S00083.274l797 +++|
00913  M01S00084.274l797 +++| CPF4     SA4    CPFA        SET UP *FILINFO* PARAMETER BLOCK
00914  M01S00085.274l797 +++|          MX6    42
00915  M01S00086.274l797 +++|          BX7    X6*X1
00916  M01S00087.274l797 +++|          BX6    -X6*X4
00917  M01S00088.274l797 +++|          BX7    X6+X7
00918  M01S00089.274l797 +++|          SA7    A4+
00919  M01S00090.274l797 +++|          RJ     SVR         SAVE REGISTERS
00920  M01S00091.274l797 +++|          FILINFO  CPFA      GET FILE INFORMATION
00921  M01S00092.274l797 +++|          RJ     RSR         RESTORE REGISTERS
00922  M01S00093.274l797 +++|          SA4    CPFA+1
00923  M01S00094.274l797 +++|          BX6    X6-X6       SET TO EXCLUDE FILE IF NOT OPTICAL DISK
00924  M01S00095.274l797 +++|          AX4    48
00925  M01S00096.274l797 +++|          SX4    X4-2ROD
00926  M01S00097.274l797 +++|          EQ     CPF3        EXCLUDE FILE UNLESS ON OPTICAL DISK
00927  M01S00098.274l797 +++|
00928  M01S00099.274l797 +++| CPFA     VFD    42/0,6/5,12/1  *FILINFO* PARAMETER BLOCK
00929  M01S00100.274l797 +++|          BSSZ   5
00930  M00S00563.mfiles  +++| GNF      SPACE  4,20
00931  M00S00564.mfiles  +++|**        GNF - GET NONBUSY FET.
00932  M00S00565.mfiles  +++|*
00933  M00S00566.mfiles  +++|*         *GNF* DETERMINES WHETHER ANY FET IN THE SET OF FETS IS
00934  M00S00567.mfiles  +++|*         CURRENTLY BUSY WITH THE GIVEN FILE AND IF NONE IS, RETURNS
00935  M00S00568.mfiles  +++|*         THE ADDRESS OF A NONBUSY FET.
00936  M00S00569.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00937  M01S00570.ns22000 ---|*         ENTRY  (X0) = 42 BIT FILE NAME MASK.
00938  M01S00571.ns22000 ---|*                (X3) = FILE NAME TO LOOK FOR.

Seq #  *Modification Id* Act 
----------------------------+
00939  M01S00197.ns22000 +++|*         ENTRY  (X3) = FILE NAME TO LOOK FOR.

Seq #  *Modification Id* Act 
----------------------------+
00940  M01S00572.ns22000 ---|*                (B5) = 0 IF INCLUSION TYPE CONTROL STATEMENT.
00941  M00S00573.mfiles  +++|*
00942  M00S00574.mfiles  +++|*         EXIT   (X2) = 0 IF A FET IS BUSY WITH THE FILE.
00943  M00S00575.mfiles  +++|*                (X2) = ADDRESS OF A NONBUSY FET OTHERWISE.
00944  M00S00576.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00945  M01S00577.ns22000 ---|*         USES   X - 1, 2.

Seq #  *Modification Id* Act 
----------------------------+
00946  M01S00198.ns22000 +++|*         USES   X - 0, 1, 2.
00947  M00S00578.mfiles  +++|*                A - 1.

Seq #  *Modification Id* Act 
----------------------------+
00948  M01S00579.ns22000 ---|*                B - 7.

Seq #  *Modification Id* Act 
----------------------------+
00949  M01S00199.ns22000 +++|*                B - 5, 7.
00950  M00S00580.mfiles  +++|*
00951  M00S00581.mfiles  +++|*         MACROS RECALL.
00952  M00S00582.mfiles  +++|
00953  M00S00583.mfiles  +++|
00954  M00S00584.mfiles  +++| GNF2     SX2    A1+         SAVE ADDRESS OF NONBUSY FET
00955  M00S00585.mfiles  +++|          NZ     B5,GNFX     IF EXCLUSION FORM
00956  M00S00586.mfiles  +++| GNF3     SA1    A1+FETL
00957  M00S00587.mfiles  +++|          SB7    A1-FETX-1
00958  M00S00588.mfiles  +++|          NG     B7,GNF1     IF NOT PAST END OF FETS
00959  M00S00589.mfiles  +++|          NZ     X2,GNFX     IF NONBUSY FET FOUND
00960  M00S00590.mfiles  +++|          RECALL FETS
00961  M00S00591.mfiles  +++|
00962  M00S00592.mfiles  +++| GNF      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00963  M01S00200.ns22000 +++|          SA1    FRMT        GET FORMAT CODE
00964  M01S00201.ns22000 +++|          SB5    X1-FMT3
00965  M00S00593.mfiles  +++|          SA1    FETS

Seq #  *Modification Id* Act 
----------------------------+
00966  M01S00594.ns22000 ---|          SX2    B0+

Seq #  *Modification Id* Act 
----------------------------+
00967  M01S00202.ns22000 +++|          MX0    42
00968  M01S00203.ns22000 +++|          BX2    X2-X2
00969  M00S00595.mfiles  +++| GNF1     LX1    59-0
00970  M00S00596.mfiles  +++|          NG     X1,GNF2     IF NOT BUSY
00971  M00S00597.mfiles  +++|          LX1    1           RESTORE X1
00972  M00S00598.mfiles  +++|          NZ     B5,GNF3     IF EXCLUSION FORM
00973  M00S00599.mfiles  +++|          BX1    X0*X1
00974  M00S00600.mfiles  +++|          BX1    X1-X3
00975  M00S00601.mfiles  +++|          NZ     X1,GNF3     IF NOT A FILE NAME MATCH
00976  M00S00602.mfiles  +++|          SX2    B0+
00977  M00S00603.mfiles  +++|          EQ     GNFX        RETURN
00978  M00S00604.mfiles  +++| IFC      SPACE  4,15
00979  M00S00605.mfiles  +++|**        IFC - ISSUE FILE COUNT MESSAGE.
00980  M00S00606.mfiles  +++|*
00981  M00S00607.mfiles  +++|*         ENTRY  (FICT) = FILE COUNT.
00982  M00S00608.mfiles  +++|*
00983  M00S00609.mfiles  +++|*         EXIT   MESSAGE ISSUED.
00984  M00S00610.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00985  M01S00611.ns22000 ---|*         USES   X - 1, 2, 3, 4, 6.
00986  M01S00612.ns22000 ---|*                A - 1, 3, 6.

Seq #  *Modification Id* Act 
----------------------------+
00987  M01S00204.ns22000 +++|*         USES   X - 1, 2, 6.
00988  M01S00205.ns22000 +++|*                A - 1, 6.
00989  M00S00613.mfiles  +++|*
00990  M00S00614.mfiles  +++|*         CALLS  CDD.
00991  M00S00615.mfiles  +++|*
00992  M00S00616.mfiles  +++|*         MACROS MESSAGE.
00993  M00S00617.mfiles  +++|
00994  M00S00618.mfiles  +++|
00995  M00S00619.mfiles  +++| IFC      SUBR               ENTRY/EXIT
00996  M00S00620.mfiles  +++|          SA1    FICT        GET FILE COUNT
00997  M00S00621.mfiles  +++|          SX2    IFCA        ASSUME NO FILES
00998  M00S00622.mfiles  +++|          ZR     X1,IFC1     IF NO FILES PROCESSED
00999  M00S00623.mfiles  +++|          SX6    X1-1        CHECK FILE COUNT
01000  M00S00624.mfiles  +++|          SX2    IFCB
01001  M00S00625.mfiles  +++|          ZR     X6,IFC1     IF ONE FILE PROCESSED
01002  M00S00626.mfiles  +++|          RJ     CDD         CONVERT TO DECIMAL
01003  M00S00627.mfiles  +++|          SA1    IFCC        MERGE FILE COUNT WITH MESSAGE
01004  M00S00628.mfiles  +++|          MX2    24
01005  M00S00629.mfiles  +++|          LX6    36
01006  M00S00630.mfiles  +++|          BX1    -X2*X1
01007  M00S00631.mfiles  +++|          BX6    X2*X6
01008  M00S00632.mfiles  +++|          BX6    X6+X1
01009  M00S00633.mfiles  +++|          SA6    A1
01010  M00S00634.mfiles  +++|          SX2    A1          SET MESSAGE ADDRESS
01011  M00S00635.mfiles  +++| IFC1     MESSAGE X2,3       ISSUE DAYFILE MESSAGE
01012  M00S00636.mfiles  +++|          EQ     IFCX        RETURN
01013  M00S00637.mfiles  +++|
01014  M00S00638.mfiles  +++| IFCA     DATA   C* NO FILES PROCESSED.*
01015  M00S00639.mfiles  +++| IFCB     DATA   C* 1 FILE PROCESSED.*
01016  M00S00640.mfiles  +++| IFCC     DATA   C* 000 FILES PROCESSED.*
01017  M00S00641.mfiles  +++| IRJ      SPACE  4,15
01018  M00S00642.mfiles  +++|**        IRJ - INDEX RETURN JUMP.
01019  M00S00643.mfiles  +++|*
01020  M00S00644.mfiles  +++|*         EXECUTES A RETURN JUMP TO (B7).
01021  M00S00645.mfiles  +++|*
01022  M00S00646.mfiles  +++|*         ENTRY  (B7) = BRANCH ADDRESS.
01023  M00S00647.mfiles  +++|*
01024  M00S00648.mfiles  +++|*         EXIT   TO (B7)+1.
01025  M00S00649.mfiles  +++|*                JUMP INSTRUCTION TO RETURN LOCATION IN ((B7)).
01026  M00S00650.mfiles  +++|*
01027  M00S00651.mfiles  +++|*         USES   X - 5, 6.
01028  M00S00652.mfiles  +++|*                A - 5, 6.
01029  M00S00653.mfiles  +++|
01030  M00S00654.mfiles  +++|
01031  M00S00655.mfiles  +++| IRJ      SUBR               ENTRY/EXIT
01032  M00S00656.mfiles  +++|          SA5    IRJ         READ RETURN INSTRUCTION
01033  M00S00657.mfiles  +++|          BX6    X5          SET RETURN IN CALLED ROUTINE
01034  M00S00658.mfiles  +++|          SA6    B7
01035  M00S00659.mfiles  +++|          JP     B7+1        ENTER CALLED ROUTINE
01036  M00S00660.mfiles  +++| PAF      SPACE  4,20
01037  M00S00661.mfiles  +++|**        PAF - PROCESS ALL FILES.
01038  M00S00662.mfiles  +++|*
01039  M00S00663.mfiles  +++|*         *PAF* REQUESTS AN OPERATION FOR EACH FILE IN THE SET OF
01040  M00S00664.mfiles  +++|*         FNT ENTRIES EXCEPT THOSE THAT ARE EXCLUDED.
01041  M00S00665.mfiles  +++|*
01042  M00S00666.mfiles  +++|*         ENTRY  (A3) = ADDRESS OF THE FIRST ARGUMENT.

Seq #  *Modification Id* Act 
----------------------------+
01043  M01S00667.v23l617 ---|*                (B2) = CONTROL STATEMENT CONTROL WORD ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
01044  M01S00029.v23l617 +++|*                (B2) = COMMAND WORD ADDRESS.
01045  M00S00668.mfiles  +++|*
01046  M00S00669.mfiles  +++|*         EXIT   (X1) = 0 IF ALL FILES RETURNED IN THE BUFFER.
01047  M00S00670.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01048  M01S00671.ns22000 ---|*         USES   X - 0, 1, 2, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
01049  M02S00206.274l797 ---|*         USES   X - 0, 1, 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
01050  M01S00672.274l797 ---|*                A - 1, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
01051  M02S00673.274l797 ---|*                B - 3, 4.

Seq #  *Modification Id* Act 
----------------------------+
01052  M02S00207.274l797 ---|*                B - 2, 3, 4, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
01053  M01S00101.274l797 +++|*         USES   X - 0, 1, 3.
01054  M01S00102.274l797 +++|*                A - 1, 3.
01055  M01S00103.274l797 +++|*                B - 3, 4.
01056  M00S00674.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01057  M01S00675.274l797 ---|*         CALLS  CFN, CIO=, GNF, RSR, SNM, SVR.
01058  M01S00676.274l797 ---|*
01059  M01S00677.274l797 ---|*         MACROS MESSAGE, ROUTE, SETFS.

Seq #  *Modification Id* Act 
----------------------------+
01060  M01S00104.274l797 +++|*         CALLS  CFN, POF.
01061  M00S00678.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
01062  M01S00105.274l797 +++|
01063  M01S00106.274l797 +++| PAF3     SA1    ZODF
01064  M01S00107.274l797 +++|          ZR     X1,PAFX     IF NOT PROCESSING OPTICAL CONTROL FILE
01065  M01S00108.274l797 +++|          SA3    =7LZZZZZOD
01066  M01S00109.274l797 +++|          RJ     POF         PROCESS ONE FILE
01067  M01S00110.274l797 +++|*         SX1    0           (*POF* EXIT CONDITION)
01068  M00S00679.mfiles  +++|
01069  M00S00680.mfiles  +++| PAF      SUBR               ENTRY/EXIT
01070  M00S00681.mfiles  +++|          SB4    FNTBL-1     END OF *GETFNT* BUFFER
01071  M00S00682.mfiles  +++|          SB3    B1

Seq #  *Modification Id* Act 
----------------------------+
01072  M01S00683.ns22000 ---| PAF1     MX0    42
01073  M01S00684.ns22000 ---|          SA1    B3+FNTB     GET FNT ENTRY
01074  M01S00685.ns22000 ---|          ZR     X1,PAFX     IF END OF ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
01075  M01S00208.ns22000 +++| PAF1     SA1    B3+FNTB     GET FNT ENTRY
01076  M01S00209.ns22000 +++|          MX0    42
01077  M00S00686.mfiles  +++|          BX3    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
01078  M02S00210.274l797 ---|          ZR     X1,PAFX     IF END OF ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
01079  M01S00687.274l797 ---|          RJ     CFN         CHECK FILE NAME FOR EXCLUSION

Seq #  *Modification Id* Act 
----------------------------+
01080  M01S00111.274l797 +++|          ZR     X1,PAF3     IF END OF ENTRIES
01081  M01S00112.274l797 +++|          RJ     CFN         CHECK FILE NAME FOR EXCLUSION
01082  M01S00113.274l797 +++|          ZR     X6,PAF2     IF FILE TO BE EXCLUDED
01083  M01S00114.274l797 +++|          RJ     POF         PROCESS ONE FILE
01084  M01S00115.274l797 +++| PAF2     SB3    B3+2
01085  M01S00116.274l797 +++|          NE     B3,B4,PAF1  IF MORE FNT ENTRIES
01086  M01S00117.274l797 +++|          SX1    B1+
01087  M01S00118.274l797 +++|          EQ     PAFX        RETURN
01088  M01S00119.274l797 +++| POF      SPACE  4,20
01089  M01S00120.274l797 +++|**        POF - PROCESS ONE FILE.
01090  M01S00121.274l797 +++|*
01091  M01S00122.274l797 +++|*         *PAF* REQUESTS AN OPERATION FOR ONE FILE.
01092  M01S00123.274l797 +++|*
01093  M01S00124.274l797 +++|*         ENTRY  (X3) = NAME OF FILE TO BE PROCESSED.
01094  M01S00125.274l797 +++|*                (B2) = COMMAND WORD ADDRESS.
01095  M01S00126.274l797 +++|*
01096  M01S00127.274l797 +++|*         EXIT   SPECIFIED FILE PROCESSED AS REQUESTED.
01097  M01S00128.274l797 +++|*                (X1) = 0.
01098  M01S00129.274l797 +++|*
01099  M01S00130.274l797 +++|*         USES   X - 0, 1, 2, 4, 6, 7.
01100  M01S00131.274l797 +++|*                A - 1, 4, 6, 7.
01101  M01S00132.274l797 +++|*                B - 2, 3, 5, 6.
01102  M01S00133.274l797 +++|*
01103  M01S00134.274l797 +++|*         CALLS  CIO=, GNF, RSR, SNM, SVR.
01104  M01S00135.274l797 +++|*
01105  M01S00136.274l797 +++|*         MACROS MESSAGE, ROUTE, SETFS.
01106  M01S00137.274l797 +++|
01107  M01S00138.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
01108  M01S00688.ns22000 ---|          ZR     X6,PAF2     IF FILE TO BE EXCLUDED

Seq #  *Modification Id* Act 
----------------------------+
01109  M02S00211.274l797 ---|          ZR     X6,PAF6     IF FILE TO BE EXCLUDED

Seq #  *Modification Id* Act 
----------------------------+
01110  M01S00689.274l797 ---|
01111  M01S00690.274l797 ---|*         PROCESS *CIO* FUNCTION.
01112  M01S00691.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
01113  M01S00139.274l797 +++| POF      SUBR               ENTRY/EXIT
01114  M00S00692.mfiles  +++|          SB6    B2-OUCC

Seq #  *Modification Id* Act 
----------------------------+
01115  M01S00693.ns22000 ---|          ZR     B6,PAF1.1   IF *OUT* STATEMENT

Seq #  *Modification Id* Act 
----------------------------+
01116  M02S00212.274l797 ---|          ZR     B6,PAF4     IF *OUT* COMMAND

Seq #  *Modification Id* Act 
----------------------------+
01117  M01S00140.274l797 +++|          ZR     B6,POF3     IF *OUT* COMMAND
01118  M00S00694.mfiles  +++|          SA4    B2          GET *CIO* CODE
01119  M00S00695.mfiles  +++|          SX7    X4
01120  M00S00696.mfiles  +++|          RJ     GNF         GET NONBUSY FET

Seq #  *Modification Id* Act 
----------------------------+
01121  M01S00697.ns22000 ---|          ZR     X2,PAF2     IF FILE ALREADY DONE

Seq #  *Modification Id* Act 
----------------------------+
01122  M02S00213.274l797 ---|          ZR     X2,PAF6     IF FILE ALREADY DONE

Seq #  *Modification Id* Act 
----------------------------+
01123  M01S00141.274l797 +++|          ZR     X2,POF5     IF FILE ALREADY DONE
01124  M00S00698.mfiles  +++|          SX4    B1
01125  M00S00699.mfiles  +++|          BX6    X3+X4
01126  M00S00700.mfiles  +++|          SA6    X2+
01127  M00S00701.mfiles  +++|          SB6    B2-SFCC

Seq #  *Modification Id* Act 
----------------------------+
01128  M01S00702.ns22000 ---|          ZR     B6,PAF1.0   IF *SETFS* STATEMET
01129  M01S00703.ns22000 ---|          RJ     CIO=        MAKE REQUEST
01130  M01S00704.ns22000 ---|          EQ     PAF1.2      INCREMENT FILE COUNT

Seq #  *Modification Id* Act 
----------------------------+
01131  M02S00214.274l797 ---|          ZR     B6,PAF3     IF *SETFS* COMMAND

Seq #  *Modification Id* Act 
----------------------------+
01132  M01S00142.274l797 +++|          ZR     B6,POF2     IF *SETFS* COMMAND

Seq #  *Modification Id* Act 
----------------------------+
01133  M01S00215.ns22000 +++|          SB6    B2-OVCC

Seq #  *Modification Id* Act 
----------------------------+
01134  M02S00216.274l797 ---|          NZ     B6,PAF2     IF NOT *OVWRITE* COMMAND

Seq #  *Modification Id* Act 
----------------------------+
01135  M01S00143.274l797 +++|          NZ     B6,POF1     IF NOT *OVWRITE* COMMAND

Seq #  *Modification Id* Act 
----------------------------+
01136  M01S00217.ns22000 +++|          SA1    OVWF        OPTIONAL PARAMETER INDICATOR
01137  M01S00218.ns22000 +++|          LX1    18-0
01138  M01S00219.ns22000 +++|          BX2    X1+X2       COMBINE OPTIONAL PARAMETER WITH FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
01139  M02S00220.274l797 ---| PAF2     RJ     CIO=        MAKE REQUEST
01140  M02S00221.274l797 ---|          EQ     PAF5        INCREMENT FILE COUNT
01141  M00S00705.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
01142  M01S00144.274l797 +++|*         PROCESS *CIO* FUNCTION.
01143  M01S00145.274l797 +++|
01144  M01S00146.274l797 +++| POF1     RJ     CIO=        MAKE REQUEST
01145  M01S00147.274l797 +++|          EQ     POF4        INCREMENT FILE COUNT
01146  M01S00148.274l797 +++|
01147  M00S00706.mfiles  +++|*         PROCESS  *LFM* REQUEST.
01148  M00S00707.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
01149  M01S00708.ns22000 ---| PAF1.0   SA1    FLST        SET FILE STATUS

Seq #  *Modification Id* Act 
----------------------------+
01150  M02S00222.274l797 ---| PAF3     SA1    FLST        SET FILE STATUS

Seq #  *Modification Id* Act 
----------------------------+
01151  M01S00149.274l797 +++| POF2     SA1    FLST        SET FILE STATUS
01152  M00S00709.mfiles  +++|          SETFS  X2,X1

Seq #  *Modification Id* Act 
----------------------------+
01153  M01S00710.ns22000 ---|          EQ     PAF1.2      INCREMENT FILE COUNT

Seq #  *Modification Id* Act 
----------------------------+
01154  M02S00223.274l797 ---|          EQ     PAF5        INCREMENT FILE COUNT

Seq #  *Modification Id* Act 
----------------------------+
01155  M01S00150.274l797 +++|          EQ     POF4        INCREMENT FILE COUNT
01156  M00S00711.mfiles  +++|
01157  M00S00712.mfiles  +++|*         PROCESS *DSP* FUNCTION.
01158  M00S00713.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
01159  M01S00714.ns22000 ---| PAF1.1   BX7    X3          SET FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
01160  M02S00224.274l797 ---| PAF4     BX7    X3          SET FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
01161  M01S00151.274l797 +++| POF3     BX7    X3          SET FILE NAME
01162  M00S00715.mfiles  +++|          MX0    42
01163  M00S00716.mfiles  +++|          BX1    X0*X7
01164  M00S00717.mfiles  +++|          SA7    TDSP
01165  M00S00718.mfiles  +++|          RJ     SVR         SAVE REGISTERS
01166  M00S00719.mfiles  +++|          SB2    1R=         SET SCAN PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
01167  M01S00720.274l797 ---|          SB5    -PAFA       SET STENCIL ADDRESS
01168  M01S00721.274l797 ---|          SB3    PAFB        SET ASSEMBLY BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01169  M01S00152.274l797 +++|          SB5    -POFA       SET STENCIL ADDRESS
01170  M01S00153.274l797 +++|          SB3    POFB        SET ASSEMBLY BUFFER ADDRESS
01171  M00S00722.mfiles  +++|          RJ     SNM         SET NAME IN MESSAGE
01172  M00S00723.mfiles  +++|          ROUTE  TDSP,RECALL
01173  M00S00724.mfiles  +++|          MX0    24
01174  M00S00725.mfiles  +++|          SA1    TDSP        GET JSN RETURNED
01175  M00S00726.mfiles  +++|          BX1    X0*X1
01176  M00S00727.mfiles  +++|          SB2    1R+         SET SCAN PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
01177  M01S00728.274l797 ---|          SB5    PAFB        SET *PAFB* AS ASSEMBLY BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01178  M01S00154.274l797 +++|          SB5    POFB        SET *POFB* AS ASSEMBLY BUFFER
01179  M00S00729.mfiles  +++|          RJ     SNM         SET NAME IN MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01180  M01S00730.274l797 ---|          MESSAGE  PAFB,0,RECALL  SEND MESSAGE TO USER DAYFILE

Seq #  *Modification Id* Act 
----------------------------+
01181  M01S00155.274l797 +++|          MESSAGE  POFB,0,RECALL  SEND MESSAGE TO USER DAYFILE

Proceed to Part 1