13 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcfce +++|          CTEXT  COMCFCE - FORMAT CATALOG ENTRY FOR OUTPUT.
00002  M01S00002.comcfce +++|          SPACE  4
00003  M01S00003.comcfce +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comcfce +++|          QUAL   COMCFCE
00005  M01S00005.comcfce +++|          BASE   D

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP.  1971.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comcfce +++|          SPACE  4
00009  M01S00008.comcfce +++|***       FCE - FORMAT CATALOG ENTRY FOR OUTPUT.
00010  M01S00009.comcfce +++|*         D. A. HIVELEY.  71/06/10.
00011  M01S00010.comcfce +++|*         W. B. CHAPIN.      79/01/31.

Seq #  *Modification Id* Act 
----------------------------+
00012  M02S00011.ns22000 ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00013  M02S00012.ns22000 ---|***              FCE CONVERTS THE FIELDS OF A CATALOG ENTRY TO

Seq #  *Modification Id* Act 
----------------------------+
00014  M02S00013.ns22000 ---|*         DISPLAY AND FORMATS IT INTO 3 - 70 CHARACTER LINES FOR

Seq #  *Modification Id* Act 
----------------------------+
00015  M02S00014.ns22000 ---|*         OUTPUT.  HEADER LINES ARE DEFINED WHICH THE CALLING

Seq #  *Modification Id* Act 
----------------------------+
00016  M02S00015.ns22000 ---|*         PROGRAM CAN RETRIEVE (CHDR1, CHDR2, CHDR3).  THE CALLING

Seq #  *Modification Id* Act 
----------------------------+
00017  M02S00016.ns22000 ---|*         PROGRAM CAN CAUSE THE FOLLOWING FIELDS TO BE BLANKED BY

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00017.ns22000 ---|*         SETTING ALL BITS IN CORRESPONDING FIELDS OF THE *PFC* ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
00019  M02S00018.ns22000 ---|*         (USER INDEX, DATE/TIME FIELDS, LENGTH)
00020  M01S00001.ns22000 +++|          SPACE  4,50
00021  M01S00002.ns22000 +++|***       *FCE* CONVERTS THE FIELDS OF A CATALOG ENTRY TO DISPLAY CODE

Seq #  *Modification Id* Act 
----------------------------+
00022  M02S00003.v23l617 ---|*         AND FORMATS IT INTO 3 LINES (70 CHARACTERS EACH) FOR OUTPUT.
00023  M01S00001.v23l617 +++|*         AND FORMATS IT INTO 4 LINES (70 CHARACTERS EACH) FOR OUTPUT.
00024  M01S00004.ns22000 +++|*         HEADER LINES ARE DEFINED WHICH THE CALLING PROGRAM CAN

Seq #  *Modification Id* Act 
----------------------------+
00025  M02S00005.v23l617 ---|*         RETRIEVE (CHDR1, CHDR2, CHDR3).  THE CALLING PROGRAM CAN

Seq #  *Modification Id* Act 
----------------------------+
00026  M02S00006.v23l617 ---|*         CAUSE THE FOLLOWING FIELDS TO BE BLANKED BY SETTING ALL BITS

Seq #  *Modification Id* Act 
----------------------------+
00027  M02S00007.v23l617 ---|*         IN THE CORRESPONDING FIELDS OF THE *PFC* ENTRY -
00028  M01S00002.v23l617 +++|*         RETRIEVE (CHDR1, CHDR2, CHDR3, CHDR4).  THE CALLING PROGRAM
00029  M01S00003.v23l617 +++|*         CAN CAUSE THE FOLLOWING FIELDS TO BE BLANKED BY SETTING ALL
00030  M01S00004.v23l617 +++|*         BITS IN THE CORRESPONDING FIELDS OF THE *PFC* ENTRY -
00031  M01S00008.ns22000 +++|*                USER INDEX
00032  M01S00009.ns22000 +++|*                DATE/TIME FIELDS
00033  M01S00010.ns22000 +++|*                FILE LENGTH
00034  M01S00019.comcfce +++|*
00035  M01S00020.comcfce +++|*         IF THE SYMBOL *FCE$* IS DEFINED THE OUTPUT FORMAT IS CHANGED

Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00021.ns22000 ---|*         TO PROVIDE 3 - 90 CHARACTER LINE BUFFERS.  ADDITION *PFC*

Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00022.ns22000 ---|*         INFORMATION IS PROVIDED AS FOLLOWS.

Seq #  *Modification Id* Act 
----------------------------+
00038  M02S00023.ns22000 ---|*         (CONTROL MODIFICATION DATE/TIME, UTILITY CONTROL DATE/TIME,

Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00024.ns22000 ---|*         ERROR/STATUS FLAGS, ALTERNATE STORAGE TYPE, ALTERNATE STORAGE

Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00025.ns22000 ---|*         ADDRESS)

Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00011.v23l617 ---|*         TO PROVIDE 3 LINES OF 90 CHARACTERS EACH.  ADDITIONAL *PFC*

Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00005.286l859 ---|*         TO PROVIDE 4 LINES OF 90 CHARACTERS EACH.  ADDITIONAL *PFC*

Seq #  *Modification Id* Act 
----------------------------+
00043  M02S00012.286l859 ---|*         INFORMATION IS PROVIDED AS FOLLOWS -
00044  M01S00001.286l859 +++|*         TO PROVIDE 4 LINES OF UP TO 130 CHARACTERS EACH.  ONLY 90
00045  M01S00002.286l859 +++|*         CHARACTERS PER LINE ARE PROVIDED BY *FCE*.  THE REMAINING 40
00046  M01S00003.286l859 +++|*         CHARACTERS CAN BE USED BY THE CALLER TO PROVIDE ADDITIONAL
00047  M01S00004.286l859 +++|*         STATUS INFORMATION. *FCE* WILL PROVIDE THE FOLLOWING
00048  M01S00005.286l859 +++|*         ADDITIONAL *PFC* INFORMATION IN CHARACTER POSITIONS 80
00049  M01S00006.286l859 +++|*         THROUGH 89.
00050  M01S00013.ns22000 +++|*                CONTROL MODIFICATION DATE/TIME
00051  M01S00014.ns22000 +++|*                UTILITY CONTROL DATE/TIME

Seq #  *Modification Id* Act 
----------------------------+
00052  M02S00015.253l688 ---|*                ERROR/STATUS FLAGS

Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00016.253l688 ---|*                ALTERNATE STORAGE TYPE

Seq #  *Modification Id* Act 
----------------------------+
00054  M02S00017.253l688 ---|*                ALTERNATE STORAGE ADDRESS
00055  M01S00001.253l688 +++|*                CARTRIDGE ALTERNATE STORAGE FLAGS
00056  M01S00002.253l688 +++|*                CARTRIDGE ALTERNATE STORAGE TYPE
00057  M01S00003.253l688 +++|*                CARTRIDGE ALTERNATE STORAGE ADDRESS
00058  M01S00004.253l688 +++|*                TAPE ALTERNATE STORAGE FLAGS
00059  M01S00005.253l688 +++|*                TAPE ALTERNATE STORAGE VSN
00060  M01S00026.comcfce +++|*

Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00027.ns22000 ---|*         ENTRY  (X4)        LENGTH FORMAT -

Seq #  *Modification Id* Act 
----------------------------+
00062  M02S00028.ns22000 ---|*                      = 0    IN CHARACTERS.

Seq #  *Modification Id* Act 
----------------------------+
00063  M02S00029.ns22000 ---|*                      = 1    IN SECTORS.

Seq #  *Modification Id* Act 
----------------------------+
00064  M02S00030.ns22000 ---|*                (X6)        USER INDEX FORMAT -

Seq #  *Modification Id* Act 
----------------------------+
00065  M02S00031.ns22000 ---|*                      = 0    DO NOT OUTPUT.

Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00032.ns22000 ---|*                      = 1    OUTPUT.

Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00033.ns22000 ---|*                (X7)        LINE NUMBER (4 DECIMAL DIGITS) TO BE

Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00034.ns22000 ---|*                             ATTACHED TO BEGINNING OF LINE.

Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00035.ns22000 ---|*                      = 0    DO NOT ATTACH ANY LINE NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00036.ns22000 ---|*                (B6)        ADDRESS OF CATALOG ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
00071  M02S00037.ns22000 ---|*                (B7) =      WORK AREA FOR STORAGE OF OUTPUT LINES.

Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00038.ns22000 ---|*                            BUFFER SIZE IS DETERMINED BY SYMBOLS

Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00039.ns22000 ---|*                            *CHDRN* = NUMBER OF LINES,

Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00040.ns22000 ---|*                            *FCELL* = NUMBER OF WORDS PER LINE.

Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00041.ns22000 ---|*                            NO END-OF-LINES ARE INSERTED.  USE WRITEH

Seq #  *Modification Id* Act 
----------------------------+
00076  M02S00042.ns22000 ---|*                            FOR OUTPUT.
00077  M01S00018.ns22000 +++|*         ENTRY  (X2) = ALTERNATE USER FLAG.
00078  M01S00019.ns22000 +++|*                     = 0 IF NOT CATALOG OF ALTERNATE USER.
00079  M01S00020.ns22000 +++|*                     = 1 IF ALTERNATE USER CATALOG.
00080  M01S00021.ns22000 +++|*                (X3) = SYSTEM SECURITY MODE.
00081  M01S00022.ns22000 +++|*                     = 0 IF SYSTEM IN UNSECURED MODE.
00082  M01S00023.ns22000 +++|*                     = 1 IF SYSTEM IN SECURED MODE.
00083  M01S00024.ns22000 +++|*                (X4) = LENGTH FORMAT.
00084  M01S00025.ns22000 +++|*                     = 0 IF LENGTH IN CHARACTERS.
00085  M01S00026.ns22000 +++|*                     = 1 IF LENGTH IN SECTORS.
00086  M01S00027.ns22000 +++|*                (X6) = USER INDEX FLAG.
00087  M01S00028.ns22000 +++|*                     = 0 IF USER INDEX SHOULD NOT BE OUTPUT.
00088  M01S00029.ns22000 +++|*                     = 1 IF USER INDEX SHOULD BE OUTPUT.
00089  M01S00030.ns22000 +++|*                (X7) = LINE NUMBER (4 DECIMAL DIGITS) TO BE ATTACHED
00090  M01S00031.ns22000 +++|*                       TO THE BEGINNING OF THE LINE.
00091  M01S00032.ns22000 +++|*                     = 0 IF NO LINE NUMBER SHOULD BE ATTACHED.
00092  M01S00033.ns22000 +++|*                (B6) = ADDRESS OF CATALOG ENTRY.
00093  M01S00034.ns22000 +++|*                (B7) = WORK AREA FOR STORAGE OF OUTPUT LINES.
00094  M01S00035.ns22000 +++|*                       (BUFFER SIZE IS DETERMINED BY SYMBOLS -
00095  M01S00036.ns22000 +++|*                        *CHDRN* = NUMBER OF LINES,
00096  M01S00037.ns22000 +++|*                        *FCELL* = NUMBER OF WORDS PER LINE)
00097  M01S00043.comcfce +++|*                (B1) = 1.
00098  M01S00044.comcfce +++|*
00099  M01S00045.comcfce +++|*         EXIT   OUTPUT LINES WRITTEN TO WORK AREA.
00100  M01S00038.ns22000 +++|*                (NO END-OF-LINES ARE INSERTED -
00101  M01S00039.ns22000 +++|*                 USE *WRITEH* FOR OUTPUT)
00102  M01S00046.comcfce +++|*
00103  M01S00040.ns22000 +++|*         USES   X - ALL.
00104  M01S00041.ns22000 +++|*                A - 1, 2, 3, 4, 6, 7.
00105  M01S00042.ns22000 +++|*                B - ALL.
00106  M01S00043.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00047.ns2636  ---|*         CALLS  CDD, CDT, COD, EDT, SCB, SFN.
00108  M01S00001.ns2636  +++|*         CALLS  CDD, CDT, COD, EDT, SCB, ZTB.
00109  M01S00048.comcfce +++|*

Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00049.ns22000 ---|*         USES   A  1,2,3,4,6,7

Seq #  *Modification Id* Act 
----------------------------+
00111  M02S00050.ns22000 ---|*                X  0,1,2,3,4,5,6,7.

Seq #  *Modification Id* Act 
----------------------------+
00112  M02S00051.ns22000 ---|*                B  0,1,2,3,4,5,6,7

Seq #  *Modification Id* Act 
----------------------------+
00113  M02S00044.ns2636  ---|*         XREF   COMCCDD, COMCCOD, COMCEDT, COMCSCB, COMCSFN,
00114  M01S00002.ns2636  +++|*         XREF   COMCCDD, COMCCOD, COMCEDT, COMCSCB, COMCZTB,
00115  M01S00045.ns22000 +++|*                COMSMLS, COMSPFM.
00116  M01S00052.comcfce +++|
00117  M01S00053.comcfce +++|

Seq #  *Modification Id* Act 
----------------------------+
00118  M02S00054.ns22000 ---| FCE      PS                 ENTRY/EXIT
00119  M01S00046.ns22000 +++| FCE      SUBR               ENTRY/EXIT
00120  M01S00055.comcfce +++|          SA6    UIFL        STORE USER INDEX FLAG
00121  M01S00056.comcfce +++|          SA7    LNUM        STORE LINE NUMBER
00122  M01S00057.comcfce +++|          BX6    X4
00123  M01S00047.ns22000 +++|          LX7    X3
00124  M01S00048.ns22000 +++|          SA7    SMFL        STORE SECURITY MODE FLAG
00125  M01S00058.comcfce +++|          NZ     X6,FCE1     IF SECTOR OUTPUT
00126  M01S00059.comcfce +++|          SX6    640D
00127  M01S00060.comcfce +++| FCE1     SA6    LFAC        SET LENGTH FACTOR
00128  M01S00049.ns22000 +++|          BX6    X2
00129  M01S00050.ns22000 +++|          SA6    AUFL        STORE ALTERNATE USER FLAG
00130  M01S00061.comcfce +++|
00131  M01S00062.comcfce +++|*         INITIALIZE THE OUTPUT WORKING BUFFER.
00132  M01S00063.comcfce +++|

Seq #  *Modification Id* Act 
----------------------------+
00133  M02S00064.v23l617 ---|          SB2    FCELL*3-1   NUMBER OF WORDS TO FILL - 1
00134  M01S00006.v23l617 +++|          SB2    FCELL*4-1   NUMBER OF WORDS TO FILL - 1
00135  M01S00065.comcfce +++|          SA1    BLAN        BLANK FILL THE BUFFER
00136  M01S00066.comcfce +++|          BX6    X1
00137  M01S00067.comcfce +++| FCE2     SA6    B7+B2       BLANK FILL NEXT CELL
00138  M01S00068.comcfce +++|          SB2    B2-B1
00139  M01S00069.comcfce +++|          PL     B2,FCE2     IF NOT BLANK FILLED
00140  M01S00070.comcfce +++|

Seq #  *Modification Id* Act 
----------------------------+
00141  M02S00071.ns22000 ---|*         CONVERT CATALOG FIELDS
00142  M01S00051.ns22000 +++|*         CONVERT MODIFICATION DATE AND TIME.
00143  M01S00072.comcfce +++|
00144  M01S00073.comcfce +++|          SA3    B6+FCMD     MODIFICATION DATE AND TIME
00145  M01S00074.comcfce +++|          RJ     CDT         CONVERT DATE AND TIME
00146  M01S00075.comcfce +++|          SB3    MDPS
00147  M01S00076.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00148  M01S00077.comcfce +++|          BX6    X5
00149  M01S00078.comcfce +++|          SB3    MTPS
00150  M01S00079.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00151  M01S00080.comcfce +++|
00152  M01S00052.ns22000 +++|*         CONVERT ACCESS DATE AND TIME.
00153  M01S00053.ns22000 +++|
00154  M01S00081.comcfce +++|          SA3    B6+FCAD     LAST ACCESS DATE AND TIME
00155  M01S00082.comcfce +++|          RJ     CDT         CONVERT DATE AND TIME
00156  M01S00083.comcfce +++|          SB3    ADPS
00157  M01S00084.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00158  M01S00085.comcfce +++|          BX6    X5
00159  M01S00086.comcfce +++|          SB3    ATPS
00160  M01S00087.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00161  M01S00088.comcfce +++|
00162  M01S00054.ns22000 +++|*         CONVERT CREATION DATE AND TIME.
00163  M01S00055.ns22000 +++|
00164  M01S00089.comcfce +++|          SA3    B6+FCCD     CREATION DATE AND TIME
00165  M01S00090.comcfce +++|          RJ     CDT         CONVERT DATE AND TIME
00166  M01S00091.comcfce +++|          SB3    CDPS
00167  M01S00092.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00168  M01S00093.comcfce +++|          BX6    X5
00169  M01S00094.comcfce +++|          SB3    CTPS
00170  M01S00095.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00171  M01S00096.comcfce +++|
00172  M01S00056.ns22000 +++|*         CONVERT CONTROL MODIFICATION DATE AND TIME.
00173  M01S00057.ns22000 +++|
00174  M01S00097.comcfce +++| .A       IF     DEF,FCE$
00175  M01S00098.comcfce +++|          SA3    B6+FCKD     CONTROL MODIFICATION DATE AND TIME
00176  M01S00099.comcfce +++|          RJ     CDT         CONVERT DATE AND TIME
00177  M01S00100.comcfce +++|          SB3    KDPS
00178  M01S00101.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00179  M01S00102.comcfce +++|          BX6    X5
00180  M01S00103.comcfce +++|          SB3    KTPS
00181  M01S00104.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00182  M01S00105.comcfce +++|
00183  M01S00058.ns22000 +++|*         CONVERT UTILITY CONTROL DATE AND TIME.
00184  M01S00059.ns22000 +++|
00185  M01S00106.comcfce +++|          SA3    B6+FCUD     UTILITY CONTROL DATE AND TIME
00186  M01S00107.comcfce +++|          RJ     CDT         CONVERT DATE AND TIME
00187  M01S00108.comcfce +++|          SB3    UDPS
00188  M01S00109.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00189  M01S00110.comcfce +++|          BX6    X5
00190  M01S00111.comcfce +++|          SB3    UTPS
00191  M01S00112.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00192  M01S00113.comcfce +++| .A       ENDIF
00193  M01S00060.ns22000 +++|
00194  M01S00061.ns22000 +++|*         GET VALUES FROM CATALOG ENTRY.
00195  M01S00114.comcfce +++|

Seq #  *Modification Id* Act 
----------------------------+
00196  M02S00115.ns22000 ---|          SA1    B6+FCEO     ORDINAL
00197  M01S00062.ns22000 +++|          SA1    B6+FCDN     DEVICE NUMBER
00198  M01S00116.comcfce +++|          MX2    -6
00199  M01S00117.comcfce +++|          LX1    6
00200  M01S00118.comcfce +++|          BX0    -X2*X1      SAVE FILE TYPE
00201  M01S00119.comcfce +++|          LX1    6
00202  M01S00120.comcfce +++|          BX5    -X2*X1      SAVE PERMISSION MODE
00203  M01S00121.comcfce +++|          LX1    12
00204  M01S00122.comcfce +++|          BX1    -X2*X1      ORDINAL
00205  M01S00123.comcfce +++|          SA2    B6+FCBS
00206  M01S00124.comcfce +++|          LX2    59-11
00207  M01S00125.comcfce +++|          SA3    BLAN
00208  M01S00126.comcfce +++|          BX6    X3
00209  M01S00127.comcfce +++|          SB2    B0
00210  M01S00128.comcfce +++|          PL     X2,FCE4     IF INDIRECT ACCESS FILE
00211  M01S00129.comcfce +++|          SA2    STAR
00212  M01S00130.comcfce +++|          BX6    X2
00213  M01S00131.comcfce +++|          SB2    B1
00214  M01S00132.comcfce +++|          ZR     X1,FCE4     IF ON MASTER DEVICE
00215  M01S00133.comcfce +++|          RJ     COD         CONVERT TO DISPLAY
00216  M01S00134.comcfce +++|          LX6    59-11
00217  M01S00135.comcfce +++|          SB2    B1
00218  M01S00063.ns22000 +++|
00219  M01S00064.ns22000 +++|*         SET ACCESS MODE.
00220  M01S00065.ns22000 +++|
00221  M01S00136.comcfce +++| FCE4     SX7    B2          SET ACCESS MODE
00222  M01S00137.comcfce +++|          SA7    ACCM
00223  M01S00138.comcfce +++|          SB3    ORPS
00224  M01S00139.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00225  M01S00066.ns22000 +++|
00226  M01S00067.ns22000 +++|*         CONVERT FILE LENGTH.
00227  M01S00140.comcfce +++|
00228  M01S00141.comcfce +++|          SA1    B6+FCLF     LENGTH
00229  M01S00142.comcfce +++|          MX2    -24
00230  M01S00143.comcfce +++|          LX1    24
00231  M01S00144.comcfce +++|          BX1    -X2*X1
00232  M01S00145.comcfce +++|          BX6    -X2-X1
00233  M01S00146.comcfce +++|          SA2    LFAC        LENGTH FACTOR
00234  M01S00147.comcfce +++|          ZR     X6,FCE5     IF BLANK LENGTH REQUEST
00235  M01S00148.comcfce +++|          IX1    X1*X2
00236  M01S00149.comcfce +++|          RJ     CDD         CONVERT TO DISPLAY
00237  M01S00150.comcfce +++|          SB3    LEPS
00238  M01S00151.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00239  M01S00152.comcfce +++|
00240  M01S00068.ns22000 +++|*         CONVERT FILE TYPE.
00241  M01S00069.ns22000 +++|
00242  M01S00153.comcfce +++| FCE5     SA2    X0+FLTP     FILE TYPE
00243  M01S00154.comcfce +++|          BX6    X2
00244  M01S00155.comcfce +++|          SB3    FTPS
00245  M01S00156.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00246  M01S00157.comcfce +++|
00247  M01S00070.ns22000 +++|*         CONVERT ACCESS MODE.
00248  M01S00071.ns22000 +++|
00249  M01S00158.comcfce +++|          SA2    ACCM        ACCESS MODE
00250  M01S00159.comcfce +++|          SA2    X2+ACMD
00251  M01S00160.comcfce +++|          BX6    X2
00252  M01S00161.comcfce +++|          SB3    AMPS
00253  M01S00162.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00254  M01S00163.comcfce +++|
00255  M01S00072.ns22000 +++|*         SET FILE NAME.
00256  M01S00073.ns22000 +++|
00257  M01S00164.comcfce +++|          SA1    B6+FCFN     FILE NAME
00258  M01S00165.comcfce +++|          MX2    42
00259  M01S00166.comcfce +++|          BX0    -X2*X1      SAVE USER INDEX
00260  M01S00167.comcfce +++|          BX1    X2*X1

Seq #  *Modification Id* Act 
----------------------------+
00261  M02S00168.ns2636  ---|          RJ     SFN         SPACE FILL NAME
00262  M01S00003.ns2636  +++|          RJ     ZTB         BLANK FILL NAME
00263  M01S00169.comcfce +++|          SB3    FNPS
00264  M01S00170.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00265  M01S00074.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
00266  M02S00075.286l859 ---|*         CONVERT ERROR CODE.

Seq #  *Modification Id* Act 
----------------------------+
00267  M02S00171.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
00268  M03S00172.286l859 ---|          SA1    LNUM        LINE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00269  M02S00001.286l859 ---|          SA1    B6+FCEC     ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
00270  M02S00002.286l859 ---|          AX1    42

Seq #  *Modification Id* Act 
----------------------------+
00271  M02S00003.286l859 ---|          MX2    -3

Seq #  *Modification Id* Act 
----------------------------+
00272  M02S00004.286l859 ---|          BX2    -X2*X1

Seq #  *Modification Id* Act 
----------------------------+
00273  M02S00005.286l859 ---|          ZR     X2,FCE5.1   IF NO ERROR

Seq #  *Modification Id* Act 
----------------------------+
00274  M02S00006.286l859 ---|          SX6    1R*         SET ASTERISK IN OUTPUT LINE

Seq #  *Modification Id* Act 
----------------------------+
00275  M02S00007.286l859 ---|          LX6    54

Seq #  *Modification Id* Act 
----------------------------+
00276  M02S00008.286l859 ---|          SB3    ERPS

Seq #  *Modification Id* Act 
----------------------------+
00277  M02S00009.286l859 ---|          RJ     SCB         SET CHARACTER IN BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00278  M02S00010.286l859 ---|
00279  M01S00076.ns22000 +++|*         SET LINE NUMBER.
00280  M01S00077.ns22000 +++|
00281  M01S00011.cfce1   +++| FCE5.1   SA1    LNUM        LINE NUMBER
00282  M01S00173.comcfce +++|          ZR     X1,FCE6     IF NO LINE NUMBER
00283  M01S00174.comcfce +++|          RJ     CDD         CONVERT TO DISPLAY
00284  M01S00175.comcfce +++|          LX6    59-23
00285  M01S00176.comcfce +++|          SB3    NMPS
00286  M01S00177.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00287  M01S00178.comcfce +++|
00288  M01S00078.ns22000 +++|*         CONVERT SUBSYSTEM.
00289  M01S00079.ns22000 +++|
00290  M01S00179.comcfce +++| FCE6     SA2    B6+FCFS     FILE SUBSYSTEM
00291  M01S00180.comcfce +++|          MX3    -3
00292  M01S00181.comcfce +++|          AX2    48
00293  M01S00182.comcfce +++|          BX2    -X3*X2
00294  M01S00183.comcfce +++|          SA3    SSTD+X2
00295  M01S00184.comcfce +++|          BX6    X3
00296  M01S00185.comcfce +++|          SB3    SSPS
00297  M01S00186.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00298  M01S00187.comcfce +++|
00299  M01S00080.ns22000 +++|*         CONVERT PERMISSION MODE.
00300  M01S00081.ns22000 +++|
00301  M01S00188.comcfce +++|          SA2    X5+MDTB     PERMISSION MODE
00302  M01S00189.comcfce +++|          BX6    X2
00303  M01S00190.comcfce +++|          SB3    FPPS
00304  M01S00191.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00305  M01S00082.ns22000 +++|
00306  M01S00083.ns22000 +++|*         CONVERT USER INDEX.
00307  M01S00192.comcfce +++|
00308  M01S00193.comcfce +++|          SA2    UIFL        USER INDEX
00309  M01S00194.comcfce +++|          ZR     X2,FCE7     IF NO USER INDEX
00310  M01S00195.comcfce +++|          MX2    -18         ISOLATE USER INDEX
00311  M01S00196.comcfce +++|          BX1    -X2*X0
00312  M01S00197.comcfce +++|          ZR     X1,FCE7     IF BLANK USER INDEX REQUEST
00313  M01S00198.comcfce +++|          RJ     COD         CONVERT TO DISPLAY
00314  M01S00199.comcfce +++|          LX6    24
00315  M01S00200.comcfce +++|          SB3    UIPS
00316  M01S00201.comcfce +++|          RJ     SCB         SET CHARACTES IN BUFFER
00317  M01S00202.comcfce +++|
00318  M01S00084.ns22000 +++|*         CONVERT ACCESS COUNT.
00319  M01S00085.ns22000 +++|
00320  M01S00203.comcfce +++| FCE7     SA2    B6+FCAC     ACCESS COUNT
00321  M01S00204.comcfce +++|          MX1    24
00322  M01S00205.comcfce +++|          BX1    X1*X2
00323  M01S00206.comcfce +++|          LX1    24
00324  M01S00207.comcfce +++|          RJ     CDD         CONVERT TO DISPLAY

Seq #  *Modification Id* Act 
----------------------------+
00325  M02S00208.ns2036  ---|          LX6    30
00326  M01S00001.ns2036  +++|          LX6    18
00327  M01S00209.comcfce +++|          SB3    ACPS
00328  M01S00210.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00329  M01S00211.comcfce +++|
00330  M01S00086.ns22000 +++|*         SET PASSWORD.
00331  M01S00087.ns22000 +++|
00332  M01S00212.comcfce +++|          SA2    B6+FCPW     PASSWORD
00333  M01S00213.comcfce +++|          MX1    42
00334  M01S00214.comcfce +++|          BX1    X1*X2

Seq #  *Modification Id* Act 
----------------------------+
00335  M02S00215.ns2636  ---|          RJ     SFN         SPACE FILL NAME
00336  M01S00004.ns2636  +++|          RJ     ZTB         BLANK FILL NAME
00337  M01S00216.comcfce +++|          SB3    PWPS
00338  M01S00217.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00339  M01S00088.ns22000 +++|
00340  M01S00089.ns22000 +++|*         CONVERT PASSWORD EXPIRATION DATE.
00341  M01S00218.comcfce +++|
00342  M01S00090.ns22000 +++|          SA2    B6+FCXD     PASSWORD EXPIRATION DATE
00343  M01S00091.ns22000 +++|          MX1    42
00344  M01S00092.ns22000 +++|          BX6    X1*X2
00345  M01S00093.ns22000 +++|          ZR     X6,FCE7.1   IF NO PASSWORD
00346  M01S00094.ns22000 +++|          BX2    -X1*X2
00347  M01S00095.ns22000 +++|          ZR     X2,FCE7.1   IF NO EXPIRATION DATE
00348  M01S00096.ns22000 +++|          EDATE  X2
00349  M01S00097.ns22000 +++|          SB3    XDPS
00350  M01S00098.ns22000 +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00351  M01S00099.ns22000 +++|
00352  M01S00100.ns22000 +++|*         CONVERT ACCESS LEVEL.
00353  M01S00101.ns22000 +++|
00354  M01S00102.ns22000 +++| FCE7.1   SA1    AUFL
00355  M01S00103.ns22000 +++|          NZ     X1,FCE7.3   IF ALTERNATE USER CATALOG
00356  M01S00104.ns22000 +++|          SA2    B6+FCAL     ACCESS LEVEL
00357  M01S00105.ns22000 +++|          MX1    -3
00358  M01S00106.ns22000 +++|          LX2    59-35
00359  M01S00107.ns22000 +++|          BX1    -X1*X2
00360  M01S00108.ns22000 +++|          NZ     X1,FCE7.2   IF NONZERO ACCESS LEVEL
00361  M01S00109.ns22000 +++|          SA2    SMFL
00362  M01S00110.ns22000 +++|          ZR     X2,FCE7.3   IF SYSTEM IN UNSECURED MODE
00363  M01S00111.ns22000 +++| FCE7.2   SA2    X1+ALTB     CONVERT TO MNEMONIC EQUIVALENT
00364  M01S00112.ns22000 +++|          BX6    X2
00365  M01S00113.ns22000 +++|          SB3    LVPS
00366  M01S00114.ns22000 +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00367  M01S00115.ns22000 +++|
00368  M01S00116.ns22000 +++|*         CONVERT PREFERRED RESIDENCE.
00369  M01S00117.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
00370  M02S00219.ns22000 ---|          SA2    B6+FCRS     PREFERRED RESIDENCE
00371  M01S00118.ns22000 +++| FCE7.3   SA2    B6+FCRS     PREFERRED RESIDENCE
00372  M01S00220.comcfce +++|          MX1    3
00373  M01S00221.comcfce +++|          BX1    X1*X2
00374  M01S00222.comcfce +++|          LX1    3
00375  M01S00223.comcfce +++|          SA2    X1+PRTB     CONVERT TO MNEMONIC EQUIVALENT
00376  M01S00224.comcfce +++|          BX6    X2
00377  M01S00225.comcfce +++|          SB3    PRPS
00378  M01S00226.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00379  M01S00119.ns22000 +++|
00380  M01S00120.ns22000 +++|*         CONVERT BACKUP REQUIREMENT.
00381  M01S00227.comcfce +++|
00382  M01S00228.comcfce +++|          SA2    B6+FCBR     BACKUP REQUIRED
00383  M01S00229.comcfce +++|          MX1    3
00384  M01S00230.comcfce +++|          LX2    3
00385  M01S00231.comcfce +++|          BX1    X1*X2
00386  M01S00232.comcfce +++|          LX1    3
00387  M01S00233.comcfce +++|          SA2    X1+BRTB     CONVERT TO MNEMONIC EQUIVALENT
00388  M01S00234.comcfce +++|          BX6    X2
00389  M01S00235.comcfce +++|          SB3    BRPS
00390  M01S00236.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00391  M01S00237.comcfce +++|

Seq #  *Modification Id* Act 
----------------------------+
00392  M02S00121.253l688 ---|*         CONVERT FILE RESIDENCE.

Seq #  *Modification Id* Act 
----------------------------+
00393  M02S00122.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
00394  M02S00238.253l688 ---|          SB3    B0          INITIALIZE RESIDENCE INDICATOR

Seq #  *Modification Id* Act 
----------------------------+
00395  M02S00239.253l688 ---|          SA3    B6+FCBT     DETERMINE FILE RESIDENCE

Seq #  *Modification Id* Act 
----------------------------+
00396  M02S00240.253l688 ---|          MX1    -24

Seq #  *Modification Id* Act 
----------------------------+
00397  M02S00241.253l688 ---|          BX3    -X1*X3

Seq #  *Modification Id* Act 
----------------------------+
00398  M02S00242.253l688 ---|          AX3    12          EXAMINE TRACK ONLY

Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00243.253l688 ---|          ZR     X3,FCE8     IF NOT DISK RESIDENT

Seq #  *Modification Id* Act 
----------------------------+
00400  M02S00244.253l688 ---|          SB3    B1          SET DISK RESIDENCE INDICATOR

Seq #  *Modification Id* Act 
----------------------------+
00401  M02S00245.253l688 ---| FCE8     SA3    B6+FCAA     CHECK FOR *ASA* RESIDENCE

Seq #  *Modification Id* Act 
----------------------------+
00402  M02S00246.253l688 ---|          MX1    -36

Seq #  *Modification Id* Act 
----------------------------+
00403  M02S00247.253l688 ---|          BX3    -X1*X3

Seq #  *Modification Id* Act 
----------------------------+
00404  M02S00248.253l688 ---|          ZR     X3,FCE9     IF NOT *ASA* RESIDENT

Seq #  *Modification Id* Act 
----------------------------+
00405  M02S00249.253l688 ---|          SA3    B6+FCAF     CHECK THE OBSOLETE ALTERNATE STORAGE FLAG

Seq #  *Modification Id* Act 
----------------------------+
00406  M02S00250.253l688 ---|          LX3    59-48

Seq #  *Modification Id* Act 
----------------------------+
00407  M02S00251.253l688 ---|          NG     X3,FCE9     IF OBSOLETE FLAG SET

Seq #  *Modification Id* Act 
----------------------------+
00408  M02S00252.253l688 ---|          SB3    B3+2        SET *ASA* RESIDENCE INDICATOR

Seq #  *Modification Id* Act 
----------------------------+
00409  M02S00253.253l688 ---| FCE9     SA3    B3+RSTB     SET RESIDENCE CODE BASED ON INDICATOR

Seq #  *Modification Id* Act 
----------------------------+
00410  M02S00254.253l688 ---|          BX6    X3

Seq #  *Modification Id* Act 
----------------------------+
00411  M02S00255.253l688 ---|          SB3    RSPS

Seq #  *Modification Id* Act 
----------------------------+
00412  M02S00256.253l688 ---|          RJ     SCB         SET CHARACTERS IN BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00413  M02S00007.253l688 ---|
00414  M01S00008.v23l617 +++|*         CONVERT ALTERNATE CATLIST PERMISSION.
00415  M01S00009.v23l617 +++|
00416  M01S00010.v23l617 +++|          SA2    B6+FCAP     ALTERNATE CATLIST PERMISSION
00417  M01S00011.v23l617 +++|          MX1    -2
00418  M01S00012.v23l617 +++|          LX2    0-46
00419  M01S00013.v23l617 +++|          BX1    -X1*X2
00420  M01S00014.v23l617 +++|          SA2    X1+APTB     CONVERT TO MNEMONIC EQUIVALENT
00421  M01S00015.v23l617 +++|          BX6    X2
00422  M01S00016.v23l617 +++|          SB3    APPS
00423  M01S00017.v23l617 +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00424  M01S00257.comcfce +++|
00425  M01S00006.253l688 +++|*         CONVERT FILE RESIDENCE.
00426  M01S00007.253l688 +++|
00427  M01S00008.253l688 +++|          SB3    B0          INITIALIZE RESIDENCE INDICATOR
00428  M01S00009.253l688 +++|          SA3    B6+FCBT     DETERMINE FILE RESIDENCE
00429  M01S00010.253l688 +++|          MX1    -24
00430  M01S00011.253l688 +++|          BX3    -X1*X3
00431  M01S00012.253l688 +++|          AX3    12          EXAMINE TRACK ONLY
00432  M01S00013.253l688 +++|          ZR     X3,FCE8     IF NOT DISK RESIDENT
00433  M01S00014.253l688 +++|          SB3    B3+4        SET DISK RESIDENCE INDICATOR
00434  M01S00015.253l688 +++| FCE8     SA3    B6+FCAA     CHECK FOR CARTRIDGE RESIDENCE
00435  M01S00016.253l688 +++|          MX1    -36
00436  M01S00017.253l688 +++|          BX3    -X1*X3
00437  M01S00018.253l688 +++|          ZR     X3,FCE9     IF NOT CARTRIDGE RESIDENT
00438  M01S00019.253l688 +++|          SA3    B6+FCAF     CHECK THE OBSOLETE FLAG
00439  M01S00020.253l688 +++|          LX3    59-48
00440  M01S00021.253l688 +++|          NG     X3,FCE9     IF OBSOLETE FLAG SET
00441  M01S00022.253l688 +++|          SB3    B3+B1       SET CARTRIDGE RESIDENCE INDICATOR
00442  M01S00023.253l688 +++| FCE9     SA3    B6+FCTV     CHECK FOR TAPE VSN
00443  M01S00024.253l688 +++|          MX1    -42
00444  M01S00025.253l688 +++|          BX3    -X1*X3
00445  M01S00026.253l688 +++|          ZR     X3,FCE9.1   IF NO TAPE VSN
00446  M01S00027.253l688 +++|          SB3    B3+2        SET TAPE RESIDENCE INDICATOR
00447  M01S00028.253l688 +++| FCE9.1   SA3    B3+RSTB     SET RESIDENCE CODE BASED ON INDICATOR
00448  M01S00029.253l688 +++|          BX6    X3
00449  M01S00030.253l688 +++|          SB3    RSPS
00450  M01S00031.253l688 +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00451  M01S00032.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
00452  M02S00123.286l859 ---|*         SET END OF LINE (IF *FCE$* NOT DEFINED).
00453  M01S00007.286l859 +++|*         CONVERT ERROR FLAGS.
00454  M01S00124.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
00455  M02S00258.286l859 ---| .A1      IF     -DEF,FCE$

Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00259.286l859 ---|          BX6    X6-X6       SET END OF LINE

Seq #  *Modification Id* Act 
----------------------------+
00457  M02S00260.286l859 ---|          SB3    ELPS

Seq #  *Modification Id* Act 
----------------------------+
00458  M02S00261.286l859 ---|          RJ     SCB         SET CHARACTERS IN BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00459  M02S00262.286l859 ---| .A1      ENDIF
00460  M01S00008.286l859 +++|          SA1    B6+FCEC     ERROR FLAGS
00461  M01S00009.286l859 +++|          AX1    42
00462  M01S00010.286l859 +++|          MX2    -3
00463  M01S00011.286l859 +++|          BX2    -X2*X1
00464  M01S00012.286l859 +++|          SA2    ERTB+X2
00465  M01S00013.286l859 +++|          BX6    X2
00466  M01S00014.286l859 +++|          SB3    ERPS
00467  M01S00015.286l859 +++|          RJ     SCB         SET CHARACTER IN BUFFER
00468  M01S00125.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
00469  M02S00126.253l688 ---|*         CONVERT ALTERNATE STORAGE FLAGS.
00470  M01S00033.253l688 +++|*         CONVERT CARTRIDGE ALTERNATE STORAGE FLAGS.
00471  M01S00127.ns22000 +++|
00472  M01S00263.comcfce +++| .B       IF     DEF,FCE$

Seq #  *Modification Id* Act 
----------------------------+
00473  M02S00264.253l688 ---|          SA4    B6+FCAF     ALTERNATE STORAGE FLAGS
00474  M01S00034.253l688 +++|          SA4    B6+FCAF     CARTRIDGE ALTERNATE STORAGE FLAGS
00475  M01S00265.comcfce +++|          MX1    12
00476  M01S00266.comcfce +++|          BX0    X1*X4
00477  M01S00267.comcfce +++|          BX6    X6-X6       INITIALIZE LOOP COUNTER
00478  M01S00268.comcfce +++|          SA6    COUNT

Seq #  *Modification Id* Act 
----------------------------+
00479  M02S00269.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00480  M02S00270.ns22000 ---|*         LOOP PROCESSING ALTERNATE STORAGE FLAGS FOR OUTPUT.

Seq #  *Modification Id* Act 
----------------------------+
00481  M02S00271.ns22000 ---|
00482  M01S00272.comcfce +++| FCE10    SX4    X6-12       CHECK FOR END OF LOOP

Seq #  *Modification Id* Act 
----------------------------+
00483  M02S00273.ns22000 ---|          ZR     X4,FCE12
00484  M01S00128.ns22000 +++|          ZR     X4,FCE12    IF NO MORE FLAGS TO PROCESS
00485  M01S00274.comcfce +++|          SB2    X6          INDEX FOR TABLE ACCESSES
00486  M01S00275.comcfce +++|          SA1    DASH        CODE IF STATUS BIT NOT SET
00487  M01S00276.comcfce +++|          BX6    X1
00488  M01S00277.comcfce +++|          PL     X0,FCE11    IF STATUS BIT NOT SET

Seq #  *Modification Id* Act 
----------------------------+
00489  M02S00278.253l688 ---|          SA1    B2+AFTB     SPECIFY CODE FOR STATUS SET
00490  M01S00035.253l688 +++|          SA1    B2+CFTB     SPECIFY CODE FOR STATUS SET
00491  M01S00279.comcfce +++|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
00492  M02S00280.253l688 ---| FCE11    SB3    B2+AFPS     SPECIFY OUTPUT FORMAT
00493  M01S00036.253l688 +++| FCE11    SB3    B2+CFPS     SPECIFY OUTPUT FORMAT
00494  M01S00281.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00495  M01S00282.comcfce +++|          SA1    COUNT       INCREMENT COUNT OF STATUS BITS PROCESSED
00496  M01S00283.comcfce +++|          SX6    X1+B1
00497  M01S00284.comcfce +++|          SA6    A1
00498  M01S00285.comcfce +++|          LX0    1           POSITION NEXT STATUS FLAG

Seq #  *Modification Id* Act 
----------------------------+
00499  M02S00286.ns22000 ---|          EQ     FCE10       CONTINUE PROCESSING STATUS
00500  M01S00129.ns22000 +++|          EQ     FCE10       PROCESS NEXT STATUS FLAG
00501  M01S00130.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
00502  M02S00131.253l688 ---|*         CONVERT ALTERNATE STORAGE TYPE.
00503  M01S00037.253l688 +++|*         CONVERT CARTRIDGE ALTERNATE STORAGE TYPE.
00504  M01S00287.comcfce +++|

Seq #  *Modification Id* Act 
----------------------------+
00505  M02S00288.253l688 ---| FCE12    SA1    B6+FCAA     ALTERNATE STORAGE TYPE
00506  M01S00038.253l688 +++| FCE12    SA1    B6+FCAA     CARTRIDGE ALTERNATE STORAGE TYPE
00507  M01S00289.comcfce +++|          AX1    36          ISOLATE *AT* FIELD
00508  M01S00290.comcfce +++|          MX2    -6
00509  M01S00291.comcfce +++|          BX1    -X2*X1
00510  M01S00292.comcfce +++|          SA3    ATTBU       UNKNOWN TYPE CODE
00511  M01S00293.comcfce +++|          SX2    X1-ATTBL    CHECK FOR KNOWN *AT*
00512  M01S00294.comcfce +++|          PL     X2,FCE13    IF *AT* UNKNOWN
00513  M01S00295.comcfce +++|          SA3    X1+ATTB     GET KNOWN TYPE CODE
00514  M01S00296.comcfce +++| FCE13    BX6    X3          SET *AT* CODE IN LINE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00515  M02S00297.253l688 ---|          SB3    ALPS
00516  M01S00039.253l688 +++|          SB3    CSPS
00517  M01S00298.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00518  M01S00001.274l797 +++|          SA1    B6+FCAT     CARTRIDGE ALTERNATE STORAGE TYPE
00519  M01S00002.274l797 +++|          AX1    36
00520  M01S00003.274l797 +++|          MX2    -6
00521  M01S00004.274l797 +++|          BX1    -X2*X1
00522  M01S00005.274l797 +++|          SX2    X1-ATOD
00523  M01S00006.274l797 +++|          NZ     X2,FCE13.1  IF NOT OPTICAL DISK STORAGE
00524  M01S00007.274l797 +++|
00525  M01S00008.274l797 +++|*         CONVERT OPTICAL DISK VSN.
00526  M01S00009.274l797 +++|
00527  M01S00010.274l797 +++|          SA1    B6+FCAV     GET OPTICAL DISK VSN
00528  M01S00011.274l797 +++|          RJ     UPV         UNPACK VSN
00529  M01S00012.274l797 +++|          SB3    CVPS
00530  M01S00013.274l797 +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00531  M01S00014.274l797 +++|
00532  M01S00015.274l797 +++|*         CONVERT ARCHIVE FILE VERSION NUMBER.
00533  M01S00016.274l797 +++|
00534  M01S00017.274l797 +++|          SA5    B6+FCAA     GET FILE VERSION NUMBER
00535  M01S00018.274l797 +++|          MX2    -12
00536  M01S00019.274l797 +++|          AX5    24
00537  M01S00020.274l797 +++|          BX1    -X2*X5
00538  M01S00021.274l797 +++|          SX1    X1+10000
00539  M01S00022.274l797 +++|          RJ     CDD
00540  M01S00023.274l797 +++|          MX2    -24
00541  M01S00024.274l797 +++|          SX1    1RF
00542  M01S00025.274l797 +++|          BX6    -X2*X6
00543  M01S00026.274l797 +++|          LX1    24
00544  M01S00027.274l797 +++|          BX6    X1+X6
00545  M01S00028.274l797 +++|          LX6    30
00546  M01S00029.274l797 +++|          SB3    CBPS
00547  M01S00030.274l797 +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00548  M01S00031.274l797 +++|          EQ     FCE14       PROCESS NEXT FIELD
00549  M01S00299.comcfce +++|

Seq #  *Modification Id* Act 
----------------------------+
00550  M02S00132.253l688 ---|*         CONVERT ALTERNATE STORAGE ADDRESS.
00551  M01S00040.253l688 +++|*         CONVERT CARTRIDGE ALTERNATE STORAGE ADDRESS.
00552  M01S00133.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
00553  M02S00300.253l688 ---|          SA1    B6+FCAA     ALTERNATE STORAGE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00554  M02S00041.274l797 ---|          SA1    B6+FCAA     CARTRIDGE ALTERNATE STORAGE ADDRESS
00555  M01S00032.274l797 +++| FCE13.1  SA1    B6+FCAA     CARTRIDGE ALTERNATE STORAGE ADDRESS
00556  M01S00301.comcfce +++|          MX2    -36
00557  M01S00302.comcfce +++|          BX1    -X2*X1

Seq #  *Modification Id* Act 
----------------------------+
00558  M02S00303.ns22000 ---|          ZR     X1,FCE      IF *ASA* NOT SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
00559  M02S00134.v23l617 ---|          ZR     X1,FCEX     IF *ASA* NOT SPECIFIED
00560  M01S00018.v23l617 +++|          ZR     X1,FCE14    IF *ASA* NOT SPECIFIED
00561  M01S00304.comcfce +++|          AX1    6           ISOLATE 10 CHARACTERS OF *ASA* FIELD
00562  M01S00305.comcfce +++|          RJ     CTD         CONVERT *ASA* FIELD TO OCTAL DISPLAY CODE

Seq #  *Modification Id* Act 
----------------------------+
00563  M02S00306.253l688 ---|          SB3    ASPS        SET 10 DIGITS OF *ASA* IN LINE BUFFER
00564  M01S00042.253l688 +++|          SB3    CAPS        SET 10 DIGITS OF *ASA* IN LINE BUFFER
00565  M01S00307.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00566  M01S00308.comcfce +++|          SA1    B6+FCAA     ISOLATE 2 CHARACTERS OF *ASA* FIELD
00567  M01S00309.comcfce +++|          MX2    -6
00568  M01S00310.comcfce +++|          BX1    -X2*X1
00569  M01S00311.comcfce +++|          RJ     CTD         CONVERT *ASA* FIELD TO OCTAL DISPLAY CODE
00570  M01S00312.comcfce +++|          LX6    48          SET 2 DIGITS OF *ASA* IN LINE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00571  M02S00313.253l688 ---|          SB3    ASPS+1
00572  M01S00043.253l688 +++|          SB3    CAPS+1
00573  M01S00314.comcfce +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00574  M01S00315.comcfce +++| .B       ENDIF
00575  M01S00019.v23l617 +++|
00576  M01S00020.v23l617 +++|*         CONVERT CHARGE NUMBER.
00577  M01S00021.v23l617 +++|
00578  M01S00022.v23l617 +++| FCE14    SA1    B6+FCCN     CHARGE NUMBER
00579  M01S00023.v23l617 +++|          ZR     X1,FCE15    IF NO CHARGE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00580  M02S00024.ns2636  ---|          RJ     SFN         SPACE FILL NAME
00581  M01S00005.ns2636  +++|          RJ     ZTB         BLANK FILL NAME
00582  M01S00025.v23l617 +++|          SB3    CNPS
00583  M01S00026.v23l617 +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00584  M01S00027.v23l617 +++|
00585  M01S00028.v23l617 +++|*         CONVERT PROJECT NUMBER.
00586  M01S00029.v23l617 +++|
00587  M01S00030.v23l617 +++| FCE15    SA1    B6+FCP1     PROJECT NUMBER (FIRST 10 CHARACTERS)

Seq #  *Modification Id* Act 
----------------------------+
00588  M02S00031.253l688 ---|          ZR     X1,FCEX     IF NO PROJECT NUMBER
00589  M01S00044.253l688 +++|          ZR     X1,FCE16    IF NO PROJECT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00590  M02S00032.ns2636  ---|          RJ     SFN         SPACE FILL NAME
00591  M01S00006.ns2636  +++|          RJ     ZTB         BLANK FILL NAME
00592  M01S00033.v23l617 +++|          SB3    P1PS
00593  M01S00034.v23l617 +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00594  M01S00035.v23l617 +++|          SA1    B6+FCP2     PROJECT NUMBER (SECOND 10 CHARACTERS)

Seq #  *Modification Id* Act 
----------------------------+
00595  M02S00036.253l688 ---|          ZR     X1,FCEX     IF PROJECT NUMBER .LE. 10 CHARACTERS
00596  M01S00045.253l688 +++|          ZR     X1,FCE16    IF PROJECT NUMBER .LE. 10 CHARACTERS

Seq #  *Modification Id* Act 
----------------------------+
00597  M02S00037.ns2636  ---|          RJ     SFN         SPACE FILL NAME
00598  M01S00007.ns2636  +++|          RJ     ZTB         BLANK FILL NAME
00599  M01S00038.v23l617 +++|          SB3    P2PS
00600  M01S00039.v23l617 +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00601  M01S00046.253l688 +++| FCE16    BSS    0
00602  M01S00047.253l688 +++|
00603  M01S00048.253l688 +++|*         CONVERT TAPE ALTERNATE STORAGE FLAGS.
00604  M01S00049.253l688 +++|
00605  M01S00050.253l688 +++| .B2      IF     DEF,FCE$
00606  M01S00051.253l688 +++|          SA4    B6+FCTF     TAPE ALTERNATE STORAGE FLAGS
00607  M01S00052.253l688 +++|          MX1    12
00608  M01S00053.253l688 +++|          BX0    X1*X4
00609  M01S00054.253l688 +++|          SX6    B0+         INITIALIZE LOOP COUNTER
00610  M01S00055.253l688 +++|          SA6    COUNT
00611  M01S00056.253l688 +++| FCE17    SX4    X6-12       CHECK FOR END OF LOOP
00612  M01S00057.253l688 +++|          ZR     X4,FCE19    IF NO MORE FLAGS TO PROCESS
00613  M01S00058.253l688 +++|          SB2    X6          INDEX FOR TABLE ACCESSES
00614  M01S00059.253l688 +++|          SA1    DASH        CODE IF STATUS BIT NOT SET
00615  M01S00060.253l688 +++|          BX6    X1
00616  M01S00061.253l688 +++|          PL     X0,FCE18    IF STATUS BIT NOT SET
00617  M01S00062.253l688 +++|          SA1    B2+TFTB     SPECIFY CODE FOR STATUS SET
00618  M01S00063.253l688 +++|          BX6    X1
00619  M01S00064.253l688 +++| FCE18    SB3    B2+TFPS     SPECIFY OUTPUT FORMAT
00620  M01S00065.253l688 +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00621  M01S00066.253l688 +++|          SA1    COUNT       INCREMENT COUNT OF STATUS BITS PROCESSED
00622  M01S00067.253l688 +++|          SX6    X1+B1
00623  M01S00068.253l688 +++|          SA6    A1
00624  M01S00069.253l688 +++|          LX0    1           POSITION NEXT STATUS FLAG
00625  M01S00070.253l688 +++|          EQ     FCE17       PROCESS NEXT STATUS FLAG
00626  M01S00071.253l688 +++|
00627  M01S00072.253l688 +++|*         CONVERT TAPE VSN.
00628  M01S00073.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
00629  M02S00074.274l797 ---| FCE19    SA5    B6+FCTV     GET TAPE VSN

Seq #  *Modification Id* Act 
----------------------------+
00630  M02S00075.274l797 ---|          MX1    -42

Seq #  *Modification Id* Act 
----------------------------+
00631  M02S00076.274l797 ---|          BX1    -X1*X5

Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00077.274l797 ---|          ZR     X1,FCEX     IF NO TAPE VSN

Seq #  *Modification Id* Act 
----------------------------+
00633  M02S00078.274l797 ---|          MX1    -12         GET VSN SUFFIX

Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00079.274l797 ---|          BX1    -X1*X5

Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00080.274l797 ---|          SX1    X1+10000D   FORCE LEADING ZEROES AFTER CONVERSION

Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00081.274l797 ---|          RJ     CDD         CONVERT VSN SUFFIX

Seq #  *Modification Id* Act 
----------------------------+
00637  M02S00082.274l797 ---|          MX1    -24

Seq #  *Modification Id* Act 
----------------------------+
00638  M02S00083.274l797 ---|          BX1    -X1*X6

Seq #  *Modification Id* Act 
----------------------------+
00639  M02S00084.274l797 ---|          MX6    12          GET VSN PREFIX

Seq #  *Modification Id* Act 
----------------------------+
00640  M02S00085.274l797 ---|          LX5    36

Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00086.274l797 ---|          BX6    X6*X5

Seq #  *Modification Id* Act 
----------------------------+
00642  M02S00087.274l797 ---|          LX1    24

Seq #  *Modification Id* Act 
----------------------------+
00643  M02S00088.274l797 ---|          BX6    X6+X1       COMBINE VSN PREFIX AND SUFFIX
00644  M01S00033.274l797 +++| FCE19    SA1    B6+FCTV     GET TAPE VSN
00645  M01S00034.274l797 +++|          MX3    -42
00646  M01S00035.274l797 +++|          BX3    -X3*X1
00647  M01S00036.274l797 +++|          ZR     X3,FCEX     IF NOT TAPE VSN
00648  M01S00037.274l797 +++|          RJ     UPV         UNPACK VSN
00649  M01S00089.253l688 +++|          SB3    TVPS
00650  M01S00090.253l688 +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00651  M01S00091.253l688 +++|
00652  M01S00092.253l688 +++|*         CONVERT TAPE FILE SEQUENCE NUMBER.
00653  M01S00093.253l688 +++|
00654  M01S00038.274l797 +++|          SA5    B6+FCTS     GET TAPE FILE SEQUENCE NUMBER
00655  M01S00094.253l688 +++|          MX1    -18

Seq #  *Modification Id* Act 
----------------------------+
00656  M02S00095.274l797 ---|          BX1    -X1*X5      TAPE FILE SEQUENCE NUMBER
00657  M01S00039.274l797 +++|          AX5    24
00658  M01S00040.274l797 +++|          BX1    -X1*X5
00659  M01S00096.253l688 +++|          RJ     CDD
00660  M01S00097.253l688 +++|          MX1    -36
00661  M01S00098.253l688 +++|          BX6    -X1*X6
00662  M01S00099.253l688 +++|          LX6    24
00663  M01S00100.253l688 +++|          SB3    TSPS
00664  M01S00101.253l688 +++|          RJ     SCB         SET CHARACTERS IN BUFFER
00665  M01S00102.253l688 +++| .B2      ENDIF
00666  M01S00103.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
00667  M02S00316.ns22000 ---|          EQ     FCE         RETURN

Seq #  *Modification Id* Act 
----------------------------+
00668  M02S00317.ns22000 ---| CDT      SPACE  4
00669  M01S00135.ns22000 +++|          EQ     FCEX        RETURN
00670  M01S00136.ns22000 +++| CDT      SPACE  4,15
00671  M01S00318.comcfce +++|**        CDT - CONVERT TIMES AND DATES TO DISPLAY FORMAT.
00672  M01S00319.comcfce +++|*

Seq #  *Modification Id* Act 
----------------------------+
00673  M02S00320.ns22000 ---|*         ENTRY  (X3)        CODED DATE AND TIME.
00674  M01S00137.ns22000 +++|*         ENTRY  (X3) = CODED DATE AND TIME.
00675  M01S00321.comcfce +++|*

Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00322.ns22000 ---|*         EXIT   (X6)        DISPLAY CODED DATE.

Seq #  *Modification Id* Act 
----------------------------+
00677  M02S00323.ns22000 ---|*                (X5)        DISPLAY CODED TIME.
00678  M01S00138.ns22000 +++|*         EXIT   (X6) = DISPLAY CODED DATE.
00679  M01S00139.ns22000 +++|*                (X5) = DISPLAY CODED TIME.
00680  M01S00324.comcfce +++|*

Seq #  *Modification Id* Act 
----------------------------+
00681  M02S00325.ns22000 ---|*         CALLS  EDT.
00682  M01S00140.ns22000 +++|*         USES   X - 0, 1, 5, 6.
00683  M01S00326.comcfce +++|*

Seq #  *Modification Id* Act 
----------------------------+
00684  M02S00327.ns22000 ---|*         USES   X   0,1,6.

Seq #  *Modification Id* Act 
----------------------------+
00685  M02S00328.ns22000 ---|*                A   1,6.
00686  M01S00141.ns22000 +++|*         MACROS EDATE, ETIME.
00687  M01S00329.comcfce +++|
00688  M01S00330.comcfce +++|
00689  M01S00331.comcfce +++| CDT      SUBR               ENTRY/EXIT
00690  M01S00332.comcfce +++|          MX0    -18
00691  M01S00333.comcfce +++|          BX1    -X0*X3      CONVERT TIME
00692  M01S00334.comcfce +++|          BX6    -X0-X1
00693  M01S00335.comcfce +++|          BX5    X3
00694  M01S00336.comcfce +++|          ZR     X6,CDT1     IF BLANK TIME REQUEST
00695  M01S00337.comcfce +++|          ETIME  X1
00696  M01S00338.comcfce +++| CDT1     AX5    18
00697  M01S00339.comcfce +++|          BX1    -X0*X5      CONVERT DATE
00698  M01S00340.comcfce +++|          BX5    X6
00699  M01S00341.comcfce +++|          BX6    -X0-X1
00700  M01S00342.comcfce +++|          ZR     X6,CDTX     IF BLANK DATE REQUEST
00701  M01S00343.comcfce +++|          EDATE  X1
00702  M01S00344.comcfce +++|          EQ     CDTX        EXIT
00703  M01S00104.253l688 +++| CTD      SPACE  4,15
00704  M01S00345.comcfce +++| .K       IF     DEF,FCE$

Seq #  *Modification Id* Act 
----------------------------+
00705  M02S00346.253l688 ---| CTD      SPACE  4,15
00706  M01S00347.comcfce +++|**        CTD - CONVERT THIRTY BIT FIELD TO OCTAL DISPLAY CHARACTERS.
00707  M01S00348.comcfce +++|*
00708  M01S00349.comcfce +++|*         ENTRY  (X1) = RIGHT JUSTIFIED VALUE TO BE CONVERTED.
00709  M01S00350.comcfce +++|*
00710  M01S00351.comcfce +++|*         EXIT   (X6) = CONVERTED VALUE.
00711  M01S00352.comcfce +++|*
00712  M01S00353.comcfce +++|*         USES   X - 1, 2, 6, 7.
00713  M01S00354.comcfce +++|*                B - 2.
00714  M01S00355.comcfce +++|
00715  M01S00356.comcfce +++|
00716  M01S00357.comcfce +++| CTD      SUBR               ENTRY/EXIT
00717  M01S00358.comcfce +++|          SB2    10          SET CHARACTER LOOP COUNT
00718  M01S00359.comcfce +++|          MX2    -3          MASK FOR OCTAL DIGIT
00719  M01S00360.comcfce +++|          BX6    X6-X6       INITIALIZE DESTINATION
00720  M01S00361.comcfce +++|          LX1    30
00721  M01S00362.comcfce +++| CTD1     ZR     B2,CTDX     IF CONVERSION COMPLETE
00722  M01S00363.comcfce +++|          SB2    B2-B1
00723  M01S00364.comcfce +++|          LX1    3           POSITION DIGIT FOR CONVERSION
00724  M01S00365.comcfce +++|          LX6    6
00725  M01S00366.comcfce +++|          BX7    -X2*X1      CONVERT NEXT DIGIT
00726  M01S00367.comcfce +++|          SX7    X7+1R0
00727  M01S00368.comcfce +++|          BX6    X6+X7       MOVE CHARACTER TO DESTINATION
00728  M01S00369.comcfce +++|          EQ     CTD1        CONVERT ANOTHER DIGIT
00729  M01S00041.274l797 +++| UPV      SPACE  4,16
00730  M01S00042.274l797 +++|**        UPV - UNPACK PACKED VSN.
00731  M01S00043.274l797 +++|*
00732  M01S00044.274l797 +++|*         ENTRY  (X1) = PACKED VSN IN LOWER 24 BITS.
00733  M01S00045.274l797 +++|*
00734  M01S00046.274l797 +++|*         EXIT   (X6) = VSN, LEFT JUSTIFIED, ZERO FILLED.
00735  M01S00047.274l797 +++|*
00736  M01S00048.274l797 +++|*         USES   X - 0, 1, 3, 6.
00737  M01S00049.274l797 +++|*
00738  M01S00050.274l797 +++|*         CALLS  CDD.
00739  M01S00051.274l797 +++|
00740  M01S00052.274l797 +++|
00741  M01S00053.274l797 +++| UPV      SUBR               ENTRY/EXIT
00742  M01S00054.274l797 +++|          BX0    X1
00743  M01S00055.274l797 +++|          MX3    -12
00744  M01S00056.274l797 +++|          BX1    -X3*X0      GET NUMERIC PART OF VSN
00745  M01S00057.274l797 +++|          LX0    36
00746  M01S00058.274l797 +++|          SX1    X1+10000
00747  M01S00059.274l797 +++|          RJ     CDD         CONVERT TO DISPLAY CODE
00748  M01S00060.274l797 +++|          MX3    -24
00749  M01S00061.274l797 +++|          BX6    -X3*X6      TRUNCATE TO 4 DIGITS
00750  M01S00062.274l797 +++|          MX1    12
00751  M01S00063.274l797 +++|          LX6    24
00752  M01S00064.274l797 +++|          BX0    X1*X0       GET VSN PREFIX CHARACTERS
00753  M01S00065.274l797 +++|          BX6    X0+X6
00754  M01S00066.274l797 +++|          EQ     UPVX        RETURN
00755  M01S00370.comcfce +++| .K       ENDIF
00756  M01S00142.ns22000 +++| DATA     SPACE  4,10
00757  M01S00143.ns22000 +++|*         DATA LOCATIONS.
00758  M01S00371.comcfce +++|
00759  M01S00144.ns22000 +++| ACCM     BSS    1           ACCESS MODE
00760  M01S00145.ns22000 +++| AUFL     BSS    1           ALTERNATE USER CATALOG FLAG
00761  M01S00146.ns22000 +++| BLAN     CON    10H
00762  M01S00147.ns22000 +++| COUNT    CON    0           COUNTER
00763  M01S00148.ns22000 +++| LFAC     BSS    1           LENGTH FACTOR
00764  M01S00149.ns22000 +++| LNUM     BSS    1           LINE NUMBER
00765  M01S00150.ns22000 +++| SMFL     BSS    1           SYSTEM SECURITY MODE FLAG
00766  M01S00151.ns22000 +++| UIFL     BSS    1           USER INDEX FLAG
00767  M01S00372.comcfce +++|

Seq #  *Modification Id* Act 
----------------------------+
00768  M02S00373.ns22000 ---| COUNT    CON    0           COUNTER

Seq #  *Modification Id* Act 
----------------------------+
00769  M02S00374.ns22000 ---| BLAN     CON    10H

Seq #  *Modification Id* Act 
----------------------------+
00770  M02S00375.ns22000 ---| UIFL     BSS    1           USER INDEX FLAG

Seq #  *Modification Id* Act 
----------------------------+
00771  M02S00376.ns22000 ---| LNUM     BSS    1           LINE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00772  M02S00377.ns22000 ---| LFAC     BSS    1           LENGTH FACTOR

Seq #  *Modification Id* Act 
----------------------------+
00773  M02S00378.ns22000 ---| ACCM     BSS    1           ACCESS MODE

Seq #  *Modification Id* Act 
----------------------------+
00774  M02S00379.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00775  M02S00380.ns22000 ---|*         ESTABLISH OUTPUT LINE LENGTH VALUE.
00776  M01S00152.ns22000 +++|*         OUTPUT LINE LENGTH DEFINITIONS.
00777  M01S00381.comcfce +++|
00778  M01S00382.comcfce +++| .C       IF     DEF,FCE$

Seq #  *Modification Id* Act 
----------------------------+
00779  M02S00383.286l859 ---| FCELL    EQU    9           FOR 90 CHARACTER OUTPUT

Seq #  *Modification Id* Act 
----------------------------+
00780  M03S00384.286l859 ---| FCELA    EQU    9           FOR LAST LINE OF 90 CHARACTER OUTPUT

Seq #  *Modification Id* Act 
----------------------------+
00781  M02S00040.286l859 ---| FCELA    EQU    9           FOR THIRD LINE OF 90 CHARACTER OUTPUT

Seq #  *Modification Id* Act 
----------------------------+
00782  M02S00105.286l859 ---| FCELB    EQU    9           FOR FOURTH LINE OF 90 CHARACTER OUTPUT
00783  M01S00016.286l859 +++| FCELL    EQU    13          FOR 130 CHARACTER OUTPUT
00784  M01S00017.286l859 +++| FCELA    EQU    13          FOR THIRD LINE OF 130 CHARACTER OUTPUT
00785  M01S00018.286l859 +++| FCELB    EQU    13          FOR FOURTH LINE OF 130 CHARACTER OUTPUT
00786  M01S00385.comcfce +++| .C       ELSE
00787  M01S00386.comcfce +++| FCELL    EQU    7           FOR 70 CHARACTER OUTPUT
00788  M01S00041.v23l617 +++| FCELA    EQU    4           THIRD LINE LENGTH
00789  M01S00106.253l688 +++| FCELB    EQU    4           FOURTH LINE LENGTH
00790  M01S00387.comcfce +++| .C       ENDIF

Seq #  *Modification Id* Act 
----------------------------+
00791  M02S00388.v23l617 ---| CHDRN    EQU    3           NUMBER OF HEADER LINES
00792  M01S00042.v23l617 +++| CHDRN    EQU    4           NUMBER OF HEADER LINES
00793  M01S00389.comcfce +++|
00794  M01S00390.comcfce +++|*         HEADER LINES.
00795  M01S00391.comcfce +++|

Seq #  *Modification Id* Act 
----------------------------+
00796  M02S00392.ns22000 ---| CHDR1    DATA   30H    FILE NAME ACCESS FILE-TYPE
00797  M01S00153.ns22000 +++| CHDR1    DATA   30H    FILE NAME  FILE TYPE
00798  M01S00393.comcfce +++|          DATA   40H LENGTH DN CREATION  ACCESS    DATA MOD
00799  M01S00394.comcfce +++| .D       IF     DEF,FCE$
00800  M01S00395.comcfce +++|          DATA   20H CONTROL   UTILITY
00801  M01S00019.286l859 +++|          DATA   40H
00802  M01S00396.comcfce +++| .D       ENDIF
00803  M01S00397.comcfce +++|          CON    0
00804  M01S00398.comcfce +++|
00805  M01S00107.253l688 +++| .E       IF     DEF,FCE$

Seq #  *Modification Id* Act 
----------------------------+
00806  M02S00399.ns22000 ---| CHDR2    DATA   30H     PASSWORD MD/CNT INDEX  PE
00807  M01S00154.ns22000 +++| CHDR2    DATA   30H     PASSWORD  COUNT INDEX  PE
00808  M01S00400.comcfce +++|          DATA   40HRM. SUBSYS DATE/TIME DATE/TIME DATE/TIME

Seq #  *Modification Id* Act 
----------------------------+
00809  M02S00401.253l688 ---| .E       IF     DEF,FCE$
00810  M01S00402.comcfce +++|          DATA   20H DATE/TIME DATE/TIME
00811  M01S00020.286l859 +++|          DATA   40H
00812  M01S00108.253l688 +++| .E       ELSE
00813  M01S00109.253l688 +++| CHDR2    DATA   30H     PASSWORD  COUNT        PE
00814  M01S00110.253l688 +++|          DATA   40HRM. SUBSYS DATE/TIME DATE/TIME DATE/TIME
00815  M01S00403.comcfce +++| .E       ENDIF
00816  M01S00404.comcfce +++|          CON    0
00817  M01S00405.comcfce +++|

Seq #  *Modification Id* Act 
----------------------------+
00818  M02S00406.ns22000 ---| CHDR3    DATA   20H     PR BR RS

Seq #  *Modification Id* Act 
----------------------------+
00819  M02S00155.v23l617 ---| CHDR3    DATA   40H      EXPIRES   LEVEL  PR BR RS

Seq #  *Modification Id* Act 
----------------------------+
00820  M02S00043.253l688 ---| CHDR3    DATA   40H      EXPIRES   LEVEL  PR BR RS AC

Seq #  *Modification Id* Act 
----------------------------+
00821  M02S00111.286l859 ---| CHDR3    DATA   40H      EXPIRES   LEVEL  PR BR AC RS
00822  M01S00021.286l859 +++| CHDR3    DATA   40H      EXPIRES   LEVEL   PR BR AC RES ERR
00823  M01S00407.comcfce +++| .F       IF     DEF,FCE$

Seq #  *Modification Id* Act 
----------------------------+
00824  M02S00408.ns22000 ---|          DATA   30H
00825  M01S00156.ns22000 +++|          DATA   10H

Seq #  *Modification Id* Act 
----------------------------+
00826  M02S00409.253l688 ---|          DATA   40H ASA FLAG CODES        TYPE ASA VALUE

Seq #  *Modification Id* Act 
----------------------------+
00827  M02S00112.286l859 ---|          DATA   40H  CARTRIDGE FLAGS    TYPE  CARTRIDGE ASA
00828  M01S00022.286l859 +++|          DATA   40H CARTRIDGE FLAGS     TYPE  CARTRIDGE ASA
00829  M01S00023.286l859 +++|          DATA   40H
00830  M01S00410.comcfce +++| .F       ENDIF
00831  M01S00411.comcfce +++|          CON    0
00832  M01S00044.v23l617 +++|
00833  M01S00045.v23l617 +++| CHDR4    DATA   40H       CHARGE NO. PROJECT NUMBER
00834  M01S00113.253l688 +++| .F2      IF     DEF,FCE$
00835  M01S00114.253l688 +++|          DATA   10H
00836  M01S00115.253l688 +++|          DATA   40H   TAPE FLAGS      TAPE VSN  SEQ. NUMBER
00837  M01S00024.286l859 +++|          DATA   40H
00838  M01S00116.253l688 +++| .F2      ENDIF
00839  M01S00046.v23l617 +++|          CON    0
00840  M01S00412.comcfce +++|
00841  M01S00413.comcfce +++|

Seq #  *Modification Id* Act 
----------------------------+
00842  M02S00414.ns22000 ---|*         FIELD EQUIVALENCED CODES
00843  M01S00157.ns22000 +++|*         FIELD EQUIVALENCED CODES.
00844  M01S00415.comcfce +++|
00845  M01S00416.comcfce +++|
00846  M01S00417.comcfce +++| ACMD     BSS    0           ACCESS MODES
00847  M01S00418.comcfce +++|          LOC    0
00848  M01S00419.comcfce +++|          CON    4HIND.      INDIRECT ACCESS FILE
00849  M01S00420.comcfce +++|          CON    4HDIR.      DIRECT ACCESS FILE

Seq #  *Modification Id* Act 
----------------------------+
00850  M02S00421.253l688 ---|          LOC    *O

Seq #  *Modification Id* Act 
----------------------------+
00851  M02S00422.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
00852  M02S00423.253l688 ---| .G       IF     DEF,FCE$

Seq #  *Modification Id* Act 
----------------------------+
00853  M02S00424.253l688 ---| AFTB     BSS    0           ALTERNATE STORAGE FLAGS

Seq #  *Modification Id* Act 
----------------------------+
00854  M02S00425.253l688 ---|          LOC    0

Seq #  *Modification Id* Act 
----------------------------+
00855  M03S00426.253l688 ---|          CON    1L*         UNUSED

Seq #  *Modification Id* Act 
----------------------------+
00856  M02S00047.253l688 ---|          CON    1LL         INDIRECT ACCESS FILE DESTAGE IN PROGRESS

Seq #  *Modification Id* Act 
----------------------------+
00857  M02S00427.253l688 ---|          CON    1L*         UNUSED

Seq #  *Modification Id* Act 
----------------------------+
00858  M02S00428.253l688 ---|          CON    1L*         UNUSED

Seq #  *Modification Id* Act 
----------------------------+
00859  M02S00429.253l688 ---|          CON    1L*         UNUSED

Seq #  *Modification Id* Act 
----------------------------+
00860  M02S00430.253l688 ---|          CON    1L*         UNUSED

Seq #  *Modification Id* Act 
----------------------------+
00861  M03S00431.253l688 ---|          CON    1L*         UNUSED

Seq #  *Modification Id* Act 
----------------------------+
00862  M02S00048.253l688 ---|          CON    1LF         FREE CARTRIDGE CONTAINING THIS FILE

Seq #  *Modification Id* Act 
----------------------------+
00863  M03S00432.253l688 ---|          CON    1L*         UNUSED

Seq #  *Modification Id* Act 
----------------------------+
00864  M02S00001.253l688 ---|          CON    1LT         TEMPORARY ERROR

Seq #  *Modification Id* Act 
----------------------------+
00865  M02S00433.253l688 ---|          CON    1LV         ALTERNATE STORAGE VERIFICATION FLAG

Seq #  *Modification Id* Act 
----------------------------+
00866  M02S00434.253l688 ---|          CON    1LR         PSEUDO RELEASE FLAG

Seq #  *Modification Id* Act 
----------------------------+
00867  M02S00435.253l688 ---|          CON    1LD         PERMANENT DATA ERROR

Seq #  *Modification Id* Act 
----------------------------+
00868  M03S00436.253l688 ---|          CON    1LS         PERMANENT SEEK ERROR

Seq #  *Modification Id* Act 
----------------------------+
00869  M02S00002.253l688 ---|          CON    1LS         PERMANENT SYSTEM ERROR

Seq #  *Modification Id* Act 
----------------------------+
00870  M02S00437.253l688 ---|          CON    1LO         ALTERNATE IMAGE OBSOLETE FLAG

Seq #  *Modification Id* Act 
----------------------------+
00871  M02S00438.253l688 ---|          LOC    *O

Seq #  *Modification Id* Act 
----------------------------+
00872  M02S00439.253l688 ---| DASH     CON    1L-         CHARACTER FOR FLAGS NOT SET

Seq #  *Modification Id* Act 
----------------------------+
00873  M02S00440.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
00874  M02S00441.253l688 ---| ATTB     BSS    0           ALTERNATE STORAGE TYPE

Seq #  *Modification Id* Act 
----------------------------+
00875  M02S00442.253l688 ---|          LOC    0

Seq #  *Modification Id* Act 
----------------------------+
00876  M02S00443.253l688 ---|          CON    4LNONE      NULL ALTERNATE STORAGE FACILITY

Seq #  *Modification Id* Act 
----------------------------+
00877  M02S00444.253l688 ---|          CON    4L MSF      MASS STORAGE FACILITY

Seq #  *Modification Id* Act 
----------------------------+
00878  M03S00049.253l688 ---|          CON    4L MAS      MASS STORAGE ARCHIVE SUBSYSTEM

Seq #  *Modification Id* Act 
----------------------------+
00879  M02S00001.253l688 ---|          CON    4L MSE      MASS STORAGE ARCHIVE SUBSYSTEM

Seq #  *Modification Id* Act 
----------------------------+
00880  M02S00445.253l688 ---| ATTBL    EQU    *           LIMIT OF KNOWN TYPE CODES

Seq #  *Modification Id* Act 
----------------------------+
00881  M02S00446.253l688 ---|          LOC    *O

Seq #  *Modification Id* Act 
----------------------------+
00882  M02S00447.253l688 ---| ATTBU    CON    4LUNK.      UNKNOWN STORAGE CODE

Seq #  *Modification Id* Act 
----------------------------+
00883  M02S00448.253l688 ---| .G       ENDIF

Seq #  *Modification Id* Act 
----------------------------+
00884  M02S00449.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
00885  M02S00450.253l688 ---| BRTB     BSS    0           BACK-UP REQUIREMENT EQUIVALENCES

Seq #  *Modification Id* Act 
----------------------------+
00886  M02S00451.253l688 ---| STAR     EQU    BRTB+0      ( CON  2L * )

Seq #  *Modification Id* Act 
----------------------------+
00887  M02S00452.253l688 ---|          LOC    0

Seq #  *Modification Id* Act 
----------------------------+
00888  M02S00453.253l688 ---|          CON    2L *        UNDEFINED/INVALID VALUE

Seq #  *Modification Id* Act 
----------------------------+
00889  M02S00454.253l688 ---|          CON    2L N        NO BACK-UP

Seq #  *Modification Id* Act 
----------------------------+
00890  M02S00455.253l688 ---|          CON    2L Y        BACK-UP REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
00891  M02S00456.253l688 ---|          CON    2LMD        MEDIA DEPENDENT

Seq #  *Modification Id* Act 
----------------------------+
00892  M02S00457.253l688 ---|          LOC    *O

Seq #  *Modification Id* Act 
----------------------------+
00893  M02S00458.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
00894  M02S00459.253l688 ---| RSTB     BSS    0           FILE RESIDENCE CODES

Seq #  *Modification Id* Act 
----------------------------+
00895  M02S00460.253l688 ---|          LOC    0

Seq #  *Modification Id* Act 
----------------------------+
00896  M02S00461.253l688 ---|          CON    1L*         FILE NOT ON DISK OR ALTERNATE STORAGE

Seq #  *Modification Id* Act 
----------------------------+
00897  M02S00462.253l688 ---|          CON    1LD         FILE ON DISK ONLY

Seq #  *Modification Id* Act 
----------------------------+
00898  M02S00463.253l688 ---|          CON    1LA         FILE ON ALTERNATE STORAGE ONLY

Seq #  *Modification Id* Act 
----------------------------+
00899  M02S00464.253l688 ---|          CON    1LB         FILE ON BOTH DISK AND ALTERNATE STORAGE
00900  M01S00465.comcfce +++|          LOC    *O
00901  M01S00466.comcfce +++|
00902  M01S00467.comcfce +++| FLTP     BSS    0           FILE TYPES
00903  M01S00468.comcfce +++|          LOC    0
00904  M01S00469.comcfce +++|          CON    10HPRIVATE
00905  M01S00470.comcfce +++|          CON    10HSEMI-PR

Seq #  *Modification Id* Act 
----------------------------+
00906  M02S00471.ns22000 ---|          CON    10H PUBLIC
00907  M01S00158.ns22000 +++|          CON    10HPUBLIC
00908  M01S00472.comcfce +++|          LOC    *O
00909  M01S00473.comcfce +++|
00910  M01S00474.comcfce +++| MDTB     BSS    0           PERMISSION MODES
00911  M01S00475.comcfce +++|          LOC    0
00912  M01S00476.comcfce +++|          CON    10H WRITE
00913  M01S00477.comcfce +++|          CON    10H  READ
00914  M01S00478.comcfce +++|          CON    10HAPPEND
00915  M01S00479.comcfce +++|          CON    10H  EXEC
00916  M01S00480.comcfce +++|          CON    10H  NULL
00917  M01S00481.comcfce +++|          CON    10HMODIFY
00918  M01S00482.comcfce +++|          CON    10HREADMD
00919  M01S00483.comcfce +++|          CON    10HREADAP
00920  M01S00001.ns21000 +++|          CON    10HUPDATE
00921  M01S00002.ns21000 +++|          CON    10HREADUP
00922  M01S00484.comcfce +++|          LOC    *O
00923  M01S00485.comcfce +++|

Seq #  *Modification Id* Act 
----------------------------+
00924  M02S00486.253l688 ---| PRTB     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
00925  M02S00487.253l688 ---|          LOC    0

Seq #  *Modification Id* Act 
----------------------------+
00926  M02S00488.253l688 ---|          CON    1L*         UNDEFINED/INVALID VALUE

Seq #  *Modification Id* Act 
----------------------------+
00927  M02S00489.253l688 ---|          CON    1LL         DISK LOCKED

Seq #  *Modification Id* Act 
----------------------------+
00928  M02S00490.253l688 ---|          CON    1LD         DISK PREFERRED

Seq #  *Modification Id* Act 
----------------------------+
00929  M03S00491.253l688 ---|          CON    1LM         MSF RESIDENCE PREFERRED

Seq #  *Modification Id* Act 
----------------------------+
00930  M03S00492.253l688 ---|          CON    1LN         NO PREFERRENCE

Seq #  *Modification Id* Act 
----------------------------+
00931  M02S00050.253l688 ---|          CON    1LM         ALTERNATE STORAGE RESIDENCE PREFERRED

Seq #  *Modification Id* Act 
----------------------------+
00932  M02S00051.253l688 ---|          CON    1LN         NO PREFERENCE

Seq #  *Modification Id* Act 
----------------------------+
00933  M02S00493.253l688 ---|          LOC    *O

Seq #  *Modification Id* Act 
----------------------------+
00934  M02S00494.253l688 ---|
00935  M01S00495.comcfce +++| SSTD     BSS    0           SUBSYSTEM TYPES
00936  M01S00496.comcfce +++|          LOC    0
00937  M01S00497.comcfce +++|          CON    1H          NULL
00938  M01S00498.comcfce +++|          CON    10HBASIC
00939  M01S00499.comcfce +++|          CON    10HFORT.
00940  M01S00500.comcfce +++|          CON    10HFTNTS
00941  M01S00501.comcfce +++|          CON    10HEXEC.
00942  M01S00502.comcfce +++|          CON    10HBATCH
00943  M01S00503.comcfce +++|          CON    1H          NULL
00944  M01S00504.comcfce +++|          CON    1H          NULL
00945  M01S00505.comcfce +++|          LOC    *O
00946  M01S00052.v23l617 +++|
00947  M01S00117.253l688 +++| ALTB     BSS    0           ACCESS LEVELS
00948  M01S00118.253l688 +++|          LOC    0
00949  M01S00119.253l688 +++|          CON    10H"ALM0"
00950  M01S00120.253l688 +++|          CON    10H"ALM1"
00951  M01S00121.253l688 +++|          CON    10H"ALM2"
00952  M01S00122.253l688 +++|          CON    10H"ALM3"
00953  M01S00123.253l688 +++|          CON    10H"ALM4"
00954  M01S00124.253l688 +++|          CON    10H"ALM5"
00955  M01S00125.253l688 +++|          CON    10H"ALM6"
00956  M01S00126.253l688 +++|          CON    10H"ALM7"
00957  M01S00127.253l688 +++|          LOC    *O
00958  M01S00128.253l688 +++|
00959  M01S00129.253l688 +++| PRTB     BSS    0           PREFERRED RESIDENCE VALUES
00960  M01S00130.253l688 +++|          LOC    0
00961  M01S00131.253l688 +++|          CON    1L*         UNDEFINED/INVALID VALUE
00962  M01S00132.253l688 +++|          CON    1LL         DISK LOCKED
00963  M01S00133.253l688 +++|          CON    1LD         DISK PREFERRED
00964  M01S00134.253l688 +++|          CON    1LM         CARTRIDGE ALTERNATE STORAGE PREFERRED
00965  M01S00135.253l688 +++|          CON    1LN         NO PREFERENCE
00966  M01S00136.253l688 +++|          CON    1LT         TAPE ALTERNATE STORAGE PREFERRED
00967  M01S00137.253l688 +++|          LOC    *O
00968  M01S00138.253l688 +++|
00969  M01S00139.253l688 +++| BRTB     BSS    0           BACK-UP REQUIREMENT EQUIVALENCES
00970  M01S00140.253l688 +++| STAR     EQU    BRTB+0      ( CON  2L * )
00971  M01S00141.253l688 +++|          LOC    0
00972  M01S00142.253l688 +++|          CON    2L *        UNDEFINED/INVALID VALUE
00973  M01S00143.253l688 +++|          CON    2L N        NO BACK-UP
00974  M01S00144.253l688 +++|          CON    2L Y        BACK-UP REQUIRED
00975  M01S00145.253l688 +++|          CON    2LMD        MEDIA DEPENDENT
00976  M01S00146.253l688 +++|          LOC    *O
00977  M01S00147.253l688 +++|
00978  M01S00053.v23l617 +++| APTB     BSS    0           ALTERNATE CATLIST PERMISSIONS
00979  M01S00054.v23l617 +++|          LOC    0

Seq #  *Modification Id* Act 
----------------------------+
00980  M02S00055.ns2351  ---|          CON    1LN         (DEFAULT)
00981  M01S00001.ns2351  +++| .ACEX    IFEQ   ACEX,ACNO
00982  M01S00002.ns2351  +++|          CON    1LN         (DEFAULT FOR EXISTING FILES)
00983  M01S00003.ns2351  +++| .ACEX    ELSE
00984  M01S00004.ns2351  +++|          CON    1LY         (DEFAULT FOR EXISTING FILES)
00985  M01S00005.ns2351  +++| .ACEX    ENDIF
00986  M01S00056.v23l617 +++|          CON    1LN         NO
00987  M01S00057.v23l617 +++|          CON    1LY         YES
00988  M01S00058.v23l617 +++|          CON    1L*         UNUSED
00989  M01S00059.v23l617 +++|          LOC    *O
00990  M01S00506.comcfce +++|

Seq #  *Modification Id* Act 
----------------------------+
00991  M02S00159.253l688 ---| ALTB     BSS    0           ACCESS LEVELS
00992  M01S00148.253l688 +++| RSTB     BSS    0           FILE RESIDENCE CODES
00993  M01S00160.ns22000 +++|          LOC    0

Seq #  *Modification Id* Act 
----------------------------+
00994  M02S00161.253l688 ---|          CON    10H"ALM0"

Seq #  *Modification Id* Act 
----------------------------+
00995  M02S00162.253l688 ---|          CON    10H"ALM1"

Seq #  *Modification Id* Act 
----------------------------+
00996  M02S00163.253l688 ---|          CON    10H"ALM2"

Seq #  *Modification Id* Act 
----------------------------+
00997  M02S00164.253l688 ---|          CON    10H"ALM3"

Seq #  *Modification Id* Act 
----------------------------+
00998  M02S00165.253l688 ---|          CON    10H"ALM4"

Seq #  *Modification Id* Act 
----------------------------+
00999  M02S00166.253l688 ---|          CON    10H"ALM5"

Seq #  *Modification Id* Act 
----------------------------+
01000  M02S00167.253l688 ---|          CON    10H"ALM6"

Seq #  *Modification Id* Act 
----------------------------+
01001  M02S00168.253l688 ---|          CON    10H"ALM7"
01002  M01S00149.253l688 +++|          CON    3L*         FILE NOT ON DISK, CARTRIDGE OR TAPE
01003  M01S00150.253l688 +++|          CON    3LC         FILE ON CARTRIDGE ONLY
01004  M01S00151.253l688 +++|          CON    3LT         FILE ON TAPE ONLY
01005  M01S00152.253l688 +++|          CON    3LCT        FILE ON BOTH CARTRIDGE AND TAPE
01006  M01S00153.253l688 +++|          CON    3LD         FILE ON DISK ONLY
01007  M01S00154.253l688 +++|          CON    3LDC        FILE ON BOTH DISK AND CARTRIDGE
01008  M01S00155.253l688 +++|          CON    3LDT        FILE ON BOTH DISK AND TAPE
01009  M01S00156.253l688 +++|          CON    3LDCT       FILE ON DISK, CARTRIDGE AND TAPE
01010  M01S00169.ns22000 +++|          LOC    *O
01011  M01S00157.253l688 +++|
01012  M01S00025.286l859 +++| ERTB     BSS    0           ARCHIVE FILE ERROR STATUSES
01013  M01S00026.286l859 +++|          LOC    0
01014  M01S00027.286l859 +++|          CON    3L---       NO ERRORS
01015  M01S00028.286l859 +++|          DATA   3L-D-       ERROR IN DATA
01016  M01S00029.286l859 +++|          DATA   3LP--       PERMITS LOST
01017  M01S00030.286l859 +++|          DATA   3LPD-       PERMITS LOST, ERROR IN DATA
01018  M01S00031.286l859 +++|          DATA   3L--T       FILE TRUNCATED
01019  M01S00032.286l859 +++|          DATA   3L-DT       ERROR IN DATA, FILE TRUNCATED
01020  M01S00033.286l859 +++|          DATA   3LP-T       PERMITS LOST, FILE TRUNCATED
01021  M01S00034.286l859 +++|          DATA   3LPDT       ALL ERRORS
01022  M01S00035.286l859 +++|          LOC    *O
01023  M01S00036.286l859 +++|
01024  M01S00158.253l688 +++| .G       IF     DEF,FCE$
01025  M01S00159.253l688 +++| CFTB     BSS    0           CARTRIDGE ALTERNATE STORAGE FLAGS
01026  M01S00160.253l688 +++|          LOC    0
01027  M01S00161.253l688 +++|          CON    1LL         INDIRECT ACCESS FILE DESTAGE IN PROGRESS
01028  M01S00162.253l688 +++|          CON    1L*         UNUSED
01029  M01S00163.253l688 +++|          CON    1L*         UNUSED
01030  M01S00164.253l688 +++|          CON    1L*         UNUSED
01031  M01S00165.253l688 +++|          CON    1L*         UNUSED
01032  M01S00166.253l688 +++|          CON    1LF         FREE CARTRIDGE CONTAINING THIS FILE

Proceed to Part 1