User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:comcpfs

Common COMCPFS

10 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcpfs +++|          CTEXT  COMCPFS - PF UTILITY SUBROUTINES.
00002  M01S00002.comcpfs +++|          SPACE  4,10
00003  M01S00003.comcpfs +++|          IF     -DEF,QUAL$
00004  M01S00004.comcpfs +++|          QUAL   COMCPFS
00005  M01S00005.comcpfs +++|          ENDIF
00006  M01S00006.comcpfs +++|          BASE   D
Line S00007 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1981.
00008  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.comcpfs +++|          SPACE  4,10
00010  M01S00009.comcpfs +++|***       COMCPFS - PF UTILITY SUBROUTINES.
00011  M01S00010.comcpfs +++|*
00012  M01S00011.comcpfs +++|*         S. D. PAINTER      81/06/24.
00013  M01S00012.comcpfs +++|*         R. C. SCHMITTER    82/10/08.
00014  M01S00013.comcpfs +++|*         G. S. YODER        86/10/10.
00015  M01S00014.comcpfs +++|          SPACE  4,10
00016  M01S00015.comcpfs +++|**        *COMCPFS* CONTAINS COMMON ROUTINES THAT ARE USED BY
00017  M01S00016.comcpfs +++|*         THE PERMANENT FILE UTILITIES.  THIS DECK REQUIRES
00018  M01S00017.comcpfs +++|*         THE PRESENCE OF *COMSPFM* AND *COMSPFS*.
00019  M01S00001.286l859 +++|          TITLE  COMCPFS - FILE SELECTION ROUTINES.
Line S00018 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00018.286l859 ---| CSC      SPACE  4,30
Line S00019 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00021  M02S00019.286l859 ---|**        CHECK SELECTION CRITERIA.
Line S00020 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00022  M02S00020.286l859 ---|*
Line S00021 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00023  M02S00021.286l859 ---|*         THE FOLLOWING SELECTION CRITERIA MAY BE CHECKED.
Line S00022 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00024  M02S00022.286l859 ---|*
Line S00023 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00025  M02S00023.286l859 ---|*         1. USER INDEX AND FILE NAME.
Line S00024 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00026  M02S00024.286l859 ---|*         2. ALTERNATE STORAGE RESIDENCE.
Line S00025 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00027  M02S00025.286l859 ---|*         3. DIRECT/INDIRECT ACCESS FILES ONLY.
Line S00026 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00026.286l859 ---|*         4. SECURITY ACCESS LEVELS.
Line S00027 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00027.286l859 ---|*         5. DATE/TIME OF CREATION, ACCESS, OR MODIFICATION.
Line S00028 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00028.286l859 ---|*         6. FILE LENGTH.
00031  M01S00002.286l859 +++| CSC      SPACE  4,25
00032  M01S00003.286l859 +++|**        CSC - CHECK SELECTION CRITERIA.
00033  M01S00029.comcpfs +++|*
00034  M01S00030.comcpfs +++|*         NOTE - FOR *OP=M*, THE FILE WILL BE SELECTED IF THE
00035  M01S00031.comcpfs +++|*         UTILITY CONTROL DATE AND TIME MEETS THE CRITERIA.  IF NOT,
00036  M01S00032.comcpfs +++|*         THE FILE WILL STILL BE SELECTED IF THE CONTROL MODIFICATION
00037  M01S00033.comcpfs +++|*         DATE AND TIME MEETS THE CRITERIA AND IS MORE RECENT THAN
00038  M01S00034.comcpfs +++|*         THE UTILITY CONTROL DATE AND TIME.
00039  M01S00035.comcpfs +++|*
00040  M01S00036.comcpfs +++|*         ENTRY  (B4) = FWA OF PF CATALOG ENTRY.
00041  M01S00037.comcpfs +++|*
00042  M01S00038.comcpfs +++|*         EXIT   (X6) = 0, IF FILE DOES NOT MEET SELECTION CRITERIA.
00043  M01S00039.comcpfs +++|*                (X6) = 1, IF FILE MEETS SELECTION CRITERIA.
00044  M01S00040.comcpfs +++|*                IF FILE IS NOT SELECTED, (X7) CONTAINS THE REASON.
00045  M01S00041.comcpfs +++|*                            (X7) = 0, IF REASON IS NOT DATE/TIME.
00046  M01S00042.comcpfs +++|*                            (X7) = 1, IF REASON IS DATE/TIME.
00047  M01S00043.comcpfs +++|*                (B7) = 0 IF CONTROL MODIFICATION DATE NOT CHECKED.
00048  M01S00044.comcpfs +++|*                (B7) = 1 IF CONTROL MODIFICATION DATE WAS CHECKED.
00049  M01S00045.comcpfs +++|*                (B6) = ADDRESS OF FILE NAME, IF MATCH FOUND.
00050  M01S00046.comcpfs +++|*
00051  M01S00047.comcpfs +++|*         USES   X - 1, 2, 3, 4, 6, 7.
00052  M01S00048.comcpfs +++|*                A - 1, 2, 3, 4.
00053  M01S00049.comcpfs +++|*                B - 6, 7.
00054  M01S00050.comcpfs +++|
00055  M01S00051.comcpfs +++|
00056  M01S00052.comcpfs +++| CSC15    SX6    B0+         SET FILE NOT SELECTED
00057  M01S00053.comcpfs +++|          SX7    B0+         SET REASON NOT DATE/TIME
00058  M01S00054.comcpfs +++|
00059  M01S00055.comcpfs +++| CSC      SUBR               ENTRY/EXIT
00060  M01S00056.comcpfs +++|          SA1    /COMSPFS/FISP
00061  M01S00057.comcpfs +++|          BX6    X6-X6       SET FILE NOT SELECTED
00062  M01S00058.comcpfs +++|          SB6    B0          CLEAR FILE NAME ADDRESS
00063  M01S00059.comcpfs +++|          ZR     X1,CSC2     IF NO USER INDEX OR FILE NAME SELECTIONS
00064  M01S00060.comcpfs +++|          SA1    X1-1
00065  M01S00061.comcpfs +++|          SA3    B4+FCFN     GET NAME AND USER INDEX OF FILE
00066  M01S00062.comcpfs +++|          MX7    -18
00067  M01S00063.comcpfs +++|          BX4    -X7*X3      USER INDEX OF FILE
00068  M01S00064.comcpfs +++| CSC1     SA1    A1+1        READ NEXT SELECTION
00069  M01S00065.comcpfs +++|          ZR     X1,CSC15    IF END OF SELECTIONS
00070  M01S00066.comcpfs +++|          BX2    X1-X4
00071  M01S00067.comcpfs +++|          BX1    X1-X3
00072  M01S00068.comcpfs +++|          ZR     X2,CSC2     IF ALL FILES FOR USER INDEX SELECTED
00073  M01S00069.comcpfs +++|          NZ     X1,CSC1     IF FILE NOT SELECTED BY NAME
00074  M01S00070.comcpfs +++|          SB6    A1+         SET ADDRESS OF FILE NAME SELECTION
Line S00071 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00071.286l859 ---| CSC2     SA1    CPAR+/COMSPFS/CPCA
00076  M01S00004.286l859 +++| CSC2     SA1    CPAR+/COMSPFS/CPDA
00077  M01S00005.286l859 +++|          SA2    A1+B1
00078  M01S00006.286l859 +++|          BX6    X1+X2
00079  M01S00007.286l859 +++|          ZR     X6,CSC2.3   IF NO DISK RESIDENCE SELECTION CRITERIA
00080  M01S00008.286l859 +++|          SA3    B4+FCBT     GET TRACK POINTER
00081  M01S00009.286l859 +++|          SA4    B4+FCDN     GET DEVICE NUMBER
00082  M01S00010.286l859 +++|          SX7    X1
00083  M01S00011.286l859 +++|          LX3    59-23
00084  M01S00012.286l859 +++|          LX7    59-0
00085  M01S00013.286l859 +++|          BX3    X3-X7
00086  M01S00014.286l859 +++|          ZR     X7,CSC2.0   IF NO ALL RESIDENT/NON-RESIDENT SELECTION
00087  M01S00015.286l859 +++|          PL     X3,CSC2.3   IF MATCH ON RESIDENCY CRITERION
00088  M01S00016.286l859 +++|          EQ     CSC15       SET FILE NOT SELECTED
00089  M01S00017.286l859 +++|
00090  M01S00018.286l859 +++| CSC2.0   MX6    -6
00091  M01S00019.286l859 +++|          LX4    -36
00092  M01S00020.286l859 +++|          BX6    -X6*X4      RESIDENCY DEVICE NUMBER
00093  M01S00021.286l859 +++|          LX4    59-5
00094  M01S00022.286l859 +++|          NZ     X6,CSC2.1   IF FILE DOES NOT RESIDE ON MASTER DEVICE
00095  M01S00023.286l859 +++|          SA3    CPAR+/COMSPFS/CPDN
00096  M01S00024.286l859 +++|          SX6    X3+         SET MASTER DEVICE NUMBER
00097  M01S00025.286l859 +++| CSC2.1   SB7    X6
00098  M01S00026.286l859 +++|          PL     X4,CSC2.2   IF DEVICE NUMBER IN FIRST WORD
00099  M01S00027.286l859 +++|          BX1    X2
00100  M01S00028.286l859 +++| CSC2.2   LX1    B7
00101  M01S00029.286l859 +++|          PL     X1,CSC15    IF NO DEVICE SELECTION
00102  M01S00030.286l859 +++| CSC2.3   SA1    CPAR+/COMSPFS/CPCA
00103  M01S00072.comcpfs +++|          ZR     X1,CSC4     IF NO CARTRIDGE STORAGE SELECTION
00104  M01S00073.comcpfs +++|          SA2    B4+FCAA
00105  M01S00074.comcpfs +++|          MX6    -36
00106  M01S00075.comcpfs +++|          BX6    -X6*X2
00107  M01S00076.comcpfs +++|          LX2    59-48
00108  M01S00077.comcpfs +++|          SX7    B1+B1
00109  M01S00078.comcpfs +++|          ZR     X6,CSC3     IF FILE NOT ON CARTRIDGE ALTERNATE STORAGE
00110  M01S00079.comcpfs +++|          NG     X2,CSC3     IF CARTRIDGE STORAGE COPY OBSOLETE
00111  M01S00080.comcpfs +++|          SX7    B1+
00112  M01S00081.comcpfs +++| CSC3     IX7    X7-X1
00113  M01S00082.comcpfs +++|          NZ     X7,CSC15    IF RESIDENCY DOES NOT MATCH SELECTION
00114  M01S00083.comcpfs +++| CSC4     SA1    CPAR+/COMSPFS/CPTA
00115  M01S00084.comcpfs +++|          SA2    CPAR+/COMSPFS/CPTA+1
00116  M01S00085.comcpfs +++|          BX6    X1+X2
00117  M01S00086.comcpfs +++|          ZR     X6,CSC7     IF NO TAPE STORAGE SELECTION CRITERIA
00118  M01S00087.comcpfs +++|          MX7    -24
00119  M01S00088.comcpfs +++|          SA3    B4+FCTV
00120  M01S00089.comcpfs +++|          SX6    B1
00121  M01S00090.comcpfs +++|          BX3    -X7*X3
00122  M01S00091.comcpfs +++|          NZ     X3,CSC5     IF FILE RESIDES ON TAPE ALTERNATE STORAGE
00123  M01S00092.comcpfs +++|          SX6    2
00124  M01S00093.comcpfs +++| CSC5     IX6    X1-X6
00125  M01S00094.comcpfs +++|          ZR     X6,CSC7     IF MATCH ON GENERAL RESIDENCY CRITERION
00126  M01S00095.comcpfs +++| CSC6     ZR     X2,CSC15    IF END OF VSN POINTER LIST
00127  M01S00096.comcpfs +++|          BX6    X3-X2
00128  M01S00097.comcpfs +++|          SA2    A2+B1
00129  M01S00098.comcpfs +++|          NZ     X6,CSC6     IF VSN NOT SELECTED
Line S00099 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00130  M02S00099.286l859 ---| CSC7     SA1    CPAR+/COMSPFS/CPOP  CHECK FOR IAPF/DAPF SPECIFIED
00131  M01S00031.286l859 +++| CSC7     SA1    /COMSPFS/TCNS
00132  M01S00032.286l859 +++|          ZR     X1,CSC7.3   IF NO CHARGE OR PROJECT NUMBER SELECTIONS
00133  M01S00033.286l859 +++|          SA4    B4+FCCN
00134  M01S00034.286l859 +++|          SA2    B4+FCP1
00135  M01S00035.286l859 +++|          SA3    B4+FCP2
00136  M01S00036.286l859 +++|          BX6    X2
00137  M01S00037.286l859 +++|          BX7    X3
00138  M01S00038.286l859 +++|          NZ     X4,CSC7.1   IF CHARGE NUMBER NOT NULL
00139  M01S00039.286l859 +++|          SX4    1           SET FOR NULL SELECTION
00140  M01S00040.286l859 +++| CSC7.1   NZ     X6,CSC7.2   IF PROJECT NUMBER NOT NULL
00141  M01S00041.286l859 +++|          SX6    1           SET FOR NULL SELECTION
00142  M01S00042.286l859 +++| CSC7.2   ZR     X1,CSC15    IF END OF SELECTIONS
00143  M01S00043.286l859 +++|          BX2    X1-X4
00144  M01S00044.286l859 +++|          SA1    A1+3
00145  M01S00045.286l859 +++|          NZ     X2,CSC7.2   IF NOT SAME CHARGE NUMBER
00146  M01S00046.286l859 +++|          NG     X2,CSC7.2   IF NOT SAME CHARGE NUMBER
00147  M01S00047.286l859 +++|          SA2    A1-2
00148  M01S00048.286l859 +++|          SA3    A1-1
00149  M01S00049.286l859 +++|          ZR     X2,CSC7.3   IF ALL PROJECT NUMBERS SELECTED
00150  M01S00050.286l859 +++|          BX2    X2-X6
00151  M01S00051.286l859 +++|          BX3    X3-X7
00152  M01S00052.286l859 +++|          NZ     X2,CSC7.2   IF NOT SAME PROJECT NUMBER
00153  M01S00053.286l859 +++|          NG     X2,CSC7.2   IF NOT SAME PROJECT NUMBER
00154  M01S00054.286l859 +++|          NZ     X3,CSC7.2   IF NOT SAME PROJECT NUMBER
00155  M01S00055.286l859 +++|          NG     X3,CSC7.2   IF NOT SAME PROJECT NUMBER
00156  M01S00056.286l859 +++| CSC7.3   SA1    CPAR+/COMSPFS/CPOP  CHECK FOR IAPF/DAPF SPECIFIED
00157  M01S00100.comcpfs +++|          SA2    B4+FCBT
00158  M01S00101.comcpfs +++|          LX2    59-11
00159  M01S00102.comcpfs +++|          NG     X2,CSC8     IF FILE IS DIRECT ACCESS
00160  M01S00103.comcpfs +++|          LX1    59-55
00161  M01S00104.comcpfs +++|          PL     X1,CSC9     IF *OP=D* NOT SPECIFIED
00162  M01S00105.comcpfs +++|          EQ     CSC15       SET FILE NOT SELECTED
00163  M01S00106.comcpfs +++|
00164  M01S00107.comcpfs +++| CSC8     LX1    59-56
00165  M01S00108.comcpfs +++|          NG     X1,CSC15    IF *OP=I* SPECIFIED
00166  M01S00109.comcpfs +++| CSC9     SA2    CPAR+/COMSPFS/CPLA
00167  M01S00110.comcpfs +++|          ZR     X2,CSC10    IF SECURITY ACCESS LEVEL NOT SPECIFIED
00168  M01S00111.comcpfs +++|          SA1    CPAR+/COMSPFS/CPUA
00169  M01S00112.comcpfs +++|          SA3    B4+FCAL     GET FILE ACCESS LEVEL
00170  M01S00113.comcpfs +++|          MX7    -3
00171  M01S00114.comcpfs +++|          BX2    -X7*X2
00172  M01S00115.comcpfs +++|          BX1    -X7*X1
00173  M01S00116.comcpfs +++|          AX3    36
00174  M01S00117.comcpfs +++|          BX3    -X7*X3
00175  M01S00118.comcpfs +++|          IX2    X3-X2
00176  M01S00119.comcpfs +++|          IX1    X1-X3
00177  M01S00120.comcpfs +++|          NG     X2,CSC15    IF ACCESS LEVEL OUT OF RANGE
00178  M01S00121.comcpfs +++|          NG     X1,CSC15    IF ACCESS LEVEL OUT OF RANGE
00179  M01S00122.comcpfs +++| CSC10    SA2    CPAR+/COMSPFS/CPLS
00180  M01S00123.comcpfs +++|          SA1    CPAR+/COMSPFS/CPUS
00181  M01S00124.comcpfs +++|          SA3    B4+FCLF     GET FILE LENGTH
00182  M01S00125.comcpfs +++|          MX7    -24
00183  M01S00126.comcpfs +++|          LX3    -36
00184  M01S00127.comcpfs +++|          BX3    -X7*X3
00185  M01S00128.comcpfs +++|          IX2    X3-X2
00186  M01S00129.comcpfs +++|          IX1    X1-X3
00187  M01S00130.comcpfs +++|          NG     X2,CSC15    IF FILE LENGTH .LT. LOWER SIZE LIMIT
00188  M01S00131.comcpfs +++|          NG     X1,CSC15    IF FILE LENGTH .GT. UPPER SIZE LIMIT
00189  M01S00132.comcpfs +++|          SX6    B1          SET FILE SELECTED
00190  M01S00133.comcpfs +++|
00191  M01S00134.comcpfs +++|*         CHECK DATE/TIME INTERVAL.
00192  M01S00135.comcpfs +++|
00193  M01S00136.comcpfs +++|          SB7    B0          SET CONTROL DATE NOT CHECKED
00194  M01S00137.comcpfs +++|          SA2    CPAR+/COMSPFS/CPOP
00195  M01S00138.comcpfs +++|          SX1    B1
00196  M01S00139.comcpfs +++|          MX7    3
00197  M01S00140.comcpfs +++|          LX1    44-0
00198  M01S00141.comcpfs +++|          BX7    X7+X1
00199  M01S00142.comcpfs +++|          BX2    X7*X2
00200  M01S00143.comcpfs +++|          ZR     X2,CSCX     IF NO DATE OPTIONS SPECIFIED
00201  M01S00144.comcpfs +++|          MX7    -36
00202  M01S00145.comcpfs +++|          SA3    CPAR+/COMSPFS/CPAD  AFTER DATE/TIME
00203  M01S00146.comcpfs +++|          SA4    CPAR+/COMSPFS/CPBD  BEFORE DATE/TIME
00204  M01S00147.comcpfs +++|          BX3    -X7*X3
00205  M01S00148.comcpfs +++|          BX4    -X7*X4
00206  M01S00149.comcpfs +++|          SX1    B4+FCCD     CREATION DATE
00207  M01S00150.comcpfs +++|          NG     X2,CSC11    IF CREATION DATE SPECIFIED
00208  M01S00151.comcpfs +++|          LX2    59-58
00209  M01S00152.comcpfs +++|          SX1    B4+FCAD     ACCESS DATE
00210  M01S00153.comcpfs +++|          NG     X2,CSC11    IF ACCESS DATE SPECIFIED
00211  M01S00154.comcpfs +++|          LX2    59-44-59+58
00212  M01S00155.comcpfs +++|          SX1    B4+FCMD     DATA MODIFICATION DATE
00213  M01S00156.comcpfs +++|          NG     X2,CSC11    IF DATA MODIFICATION DATE SPECIFIED
00214  M01S00157.comcpfs +++|          SX1    B4+FCUD     UTILITY CONTROL DATE
00215  M01S00158.comcpfs +++| CSC11    SA1    X1+         READ DATE AND TIME
00216  M01S00159.comcpfs +++| CSC12    BX1    -X7*X1
00217  M01S00160.comcpfs +++|          IX7    X1-X3
00218  M01S00161.comcpfs +++|          NG     X7,CSC13    IF DATE NOT IN INTERVAL
00219  M01S00162.comcpfs +++|          IX7    X4-X1
00220  M01S00163.comcpfs +++|          ZR     X4,CSCX     IF NO BEFORE DATE SPECIFIED
00221  M01S00164.comcpfs +++|          PL     X7,CSCX     IF DATE IN INTERVAL
00222  M01S00165.comcpfs +++| CSC13    NG     X2,CSC14    IF NOT *OP=M*
00223  M01S00166.comcpfs +++|          SA2    B4+FCKD     CONTROL MODIFICATION DATE
00224  M01S00167.comcpfs +++|          MX7    -36
00225  M01S00168.comcpfs +++|          BX2    -X7*X2
00226  M01S00169.comcpfs +++|          IX7    X1-X2
00227  M01S00170.comcpfs +++|          SB7    B1          SET CONTROL MODIFICATION DATE CHECKED
00228  M01S00171.comcpfs +++|          PL     X7,CSC14    IF CONTROL MODIFICATION NOT MORE RECENT
00229  M01S00172.comcpfs +++|          BX1    X2
00230  M01S00173.comcpfs +++|          MX2    1           CLEAR *OP=M*
00231  M01S00174.comcpfs +++|          MX7    -36
00232  M01S00175.comcpfs +++|          EQ     CSC12       CHECK CONTROL MODIFICATION
00233  M01S00176.comcpfs +++|
00234  M01S00177.comcpfs +++| CSC14    BX6    X6-X6       SET FILE NOT SELECTED
00235  M01S00178.comcpfs +++|          SX7    B1          SET REASON IS DATE/TIME
00236  M01S00179.comcpfs +++|          EQ     CSCX        RETURN
00237  M01S00057.286l859 +++| SUM      SPACE  4,10
00238  M01S00058.286l859 +++|**        SUM - SET COMPOSITE USER INDEX MASK.
00239  M01S00059.286l859 +++|*
00240  M01S00060.286l859 +++|*         ENTRY  (X1) = ADDRESS OF FILE NAME AND USER INDEX SELECTIONS
00241  M01S00061.286l859 +++|*                       TABLE.
00242  M01S00062.286l859 +++|*
00243  M01S00063.286l859 +++|*         EXIT   (X4) = COMPOSITE USER INDEX MASK.
00244  M01S00064.286l859 +++|*
00245  M01S00065.286l859 +++|*         USES   X - 1, 2, 3, 4, 7.
00246  M01S00066.286l859 +++|*                A - 1.
00247  M01S00067.286l859 +++|*                B - 2.
00248  M01S00068.286l859 +++|
00249  M01S00069.286l859 +++|
00250  M01S00070.286l859 +++| SUM      SUBR               ENTRY/EXIT
00251  M01S00071.286l859 +++|          SA1    X1          GET FIRST ENTRY
00252  M01S00072.286l859 +++|          SX4    B0          INITIALIZE USER INDEX MASK
00253  M01S00073.286l859 +++|          MX7    -3
00254  M01S00074.286l859 +++|          SX3    B1
00255  M01S00075.286l859 +++| SUM1     ZR     X1,SUMX     IF END OF SELECTIONS
00256  M01S00076.286l859 +++|          BX2    -X7*X1      SUBFAMILY INDEX
00257  M01S00077.286l859 +++|          LX1    59-17
00258  M01S00078.286l859 +++|          SB2    X2
00259  M01S00079.286l859 +++|          NG     X1,SUM1     IF ENTRY NOT SELECTED
00260  M01S00080.286l859 +++|          LX2    B2,X3
00261  M01S00081.286l859 +++|          BX4    X4+X2       ACCUMULATE USER INDEX MASK
00262  M01S00082.286l859 +++|          SA1    A1+B1       GET NEXT ENTRY
00263  M01S00083.286l859 +++|          EQ     SUM1        CHECK END OF SELECTIONS
00264  M01S00084.286l859 +++|          TITLE  COMCPFS - COMMON ERROR AND TERMINATION ROUTINES.
00265  M01S00085.286l859 +++| ABT      SPACE  4,15
00266  M01S00086.286l859 +++|**        ABT - ABORT PROCESSOR.
00267  M01S00087.286l859 +++|*
00268  M01S00088.286l859 +++|*         ENTRY  (B2) = ERROR MESSAGE ADDRESS IF .NE. 0.
00269  M01S00089.286l859 +++|*                (B2) = 0 IF NO ERROR MESSAGE.
00270  M01S00090.286l859 +++|*
00271  M01S00091.286l859 +++|*         EXIT   ERROR MESSAGE ISSUED TO DAYFILE.
00272  M01S00092.286l859 +++|*                UTILITY SPECIFIC ABORT PROCESSING AND COMMON MAIN
00273  M01S00093.286l859 +++|*                  TERMINATION PROCESSING COMPLETE.
00274  M01S00094.286l859 +++|*                TO *END* TO ABORT JOB.
00275  M01S00095.286l859 +++|*
00276  M01S00096.286l859 +++|*         USES   X - 6.
00277  M01S00097.286l859 +++|*                A - 6.
00278  M01S00098.286l859 +++|*
00279  M01S00099.286l859 +++|*         CALLS  APR, SEM.
00280  M01S00100.286l859 +++|
00281  M01S00101.286l859 +++|
00282  M01S00102.286l859 +++| ABT      BSS    0           ENTRY
00283  M01S00103.286l859 +++|          SX6    1
00284  M01S00104.286l859 +++|          SA6    ABTF        SET ABORT FLAG
00285  M01S00105.286l859 +++|          SA6    DINF        DISABLE INTERRUPTS
00286  M01S00106.286l859 +++|          ZR     B2,ABT1     IF NO MESSAGE
00287  M01S00107.286l859 +++|          RJ     SEM         SEND ERROR MESSAGE
00288  M01S00108.286l859 +++| ABT1     RJ     APR         EXECUTE ABORT PROCESSOR
00289  M01S00109.286l859 +++|*         EQ     END         TERMINATE
00290  M01S00110.286l859 +++| END      SPACE  4,15
00291  M01S00111.286l859 +++|**        END - PERFORM TERMINATION PROCESSING.
00292  M01S00112.286l859 +++|*
00293  M01S00113.286l859 +++|*         EXIT   SUMMARY FILE FLUSHED IF SELECTED.
00294  M01S00114.286l859 +++|*                FLAG BITS SET IN PROCESSING STATUS REGISTER IF
00295  M01S00115.286l859 +++|*                  SPECIFIED.
00296  M01S00116.286l859 +++|*
00297  M01S00117.286l859 +++|*         USES   X - 1, 2, 3, 4, 6.
00298  M01S00118.286l859 +++|*                A - 1, 3, 6.
00299  M01S00119.286l859 +++|*                B - 2, 5.
00300  M01S00120.286l859 +++|*
00301  M01S00121.286l859 +++|*         CALLS  FAB, GJR, IFM, SJR, SNM, SWR.
00302  M01S00122.286l859 +++|*
00303  M01S00123.286l859 +++|*         MACROS ABORT, ENDRUN, REPRIEVE, MESSAGE, WRITER.
00304  M01S00124.286l859 +++|
00305  M01S00125.286l859 +++|
00306  M01S00126.286l859 +++| END      BSS    0           ENTRY
00307  M01S00127.286l859 +++|          SX6    1
00308  M01S00128.286l859 +++|          SA6    DINF        DISABLE INTERRUPTS DURING TERMINATION
00309  M01S00129.286l859 +++|
00310  M01S00130.286l859 +++|*         FLUSH OUTPUT FILE.
00311  M01S00131.286l859 +++|
00312  M01S00132.286l859 +++|          SA1    O
00313  M01S00133.286l859 +++|          AX1    18
00314  M01S00134.286l859 +++|          ZR     X1,END1     IF NO OUTPUT FILE
00315  M01S00135.286l859 +++|          WRITER O           FLUSH OUTPUT FILE
00316  M01S00136.286l859 +++|
00317  M01S00137.286l859 +++|*         FLUSH SUMMARY FILE.
00318  M01S00138.286l859 +++|
00319  M01S00139.286l859 +++| END1     SA1    CPAR+/COMSPFS/CPSU
00320  M01S00140.286l859 +++|          ZR     X1,END2     IF NO SUMMARY FILE
00321  M01S00141.286l859 +++|          RJ     FAB         FLUSH ASSEMBLY BUFFER
00322  M01S00142.286l859 +++|          WRITER SU          WRITE END OF RECORD
00323  M01S00143.286l859 +++|
00324  M01S00144.286l859 +++|*         SET PROCESSING STATUS REGISTER.
00325  M01S00145.286l859 +++|
00326  M01S00146.286l859 +++| END2     SA1    CPAR+/COMSPFS/CPPS
00327  M01S00147.286l859 +++|          ZR     X1,END5     IF STATUS REGISTER NOT SPECIFIED
00328  M01S00148.286l859 +++|          RJ     GJR         GET JOB CONTROL REGISTERS
00329  M01S00149.286l859 +++|          SA1    CPAR+/COMSPFS/CPPS
00330  M01S00150.286l859 +++|          SX2    B0          INITIALIZE STATUS
00331  M01S00151.286l859 +++|          SA3    PSAC-1
00332  M01S00152.286l859 +++|          MX6    1
00333  M01S00153.286l859 +++| END3     SA3    A3+B1
00334  M01S00154.286l859 +++|          LX6    1
00335  M01S00155.286l859 +++|          SX4    A3-PSAC-PSACL+1
00336  M01S00156.286l859 +++|          ZR     X3,END4     IF ZERO FILE COUNT
00337  M01S00157.286l859 +++|          BX2    X2+X6       MERGE STATUS BIT
00338  M01S00158.286l859 +++| END4     NZ     X4,END3     IF NOT LAST ACCUMULATOR
00339  M01S00159.286l859 +++|          RJ     SWR         SET WORKING REGISTER VALUE
00340  M01S00160.286l859 +++|          RJ     SJR         RESET JOB CONTROL REGISTERS
00341  M01S00161.286l859 +++|
00342  M01S00162.286l859 +++|*         ISSUE TERMINATION MESSAGES.
00343  M01S00163.286l859 +++|
00344  M01S00164.286l859 +++| END5     RJ     IFM         ISSUE FILE COUNT MESSAGES
00345  M01S00165.286l859 +++|          SA1    /COMSPFS/UTLN
00346  M01S00166.286l859 +++|          SB2    1R?
00347  M01S00167.286l859 +++|          SB5    MECM        SET MESSAGE ADDRESS
00348  M01S00168.286l859 +++|          RJ     SNM         SET UTILITY NAME IN MESSAGE
00349  M01S00169.286l859 +++|          MESSAGE  MECM      * PFUUUUU COMPLETE.*
00350  M01S00170.286l859 +++|
00351  M01S00171.286l859 +++|*         DETERMINE IF JOB TO BE ABORTED.
00352  M01S00172.286l859 +++|
00353  M01S00173.286l859 +++|          SA1    RPVB+/COMSRPV/OSEF
00354  M01S00174.286l859 +++|          MX6    -12
00355  M01S00175.286l859 +++|          BX1    -X6*X1
00356  M01S00176.286l859 +++|          ZR     X1,END7     IF NO REPRIEVED ERROR
00357  M01S00177.286l859 +++|          SX1    X1-TIET
00358  M01S00178.286l859 +++|          ZR     X1,END7     IF USER BREAK ONE
00359  M01S00179.286l859 +++|          REPRIEVE  RPVB,RESET,0  RESET SYSTEM ERROR
00360  M01S00180.286l859 +++|
00361  M01S00181.286l859 +++| END7     REPRIEVE  RPVB,SET,0  DISABLE REPRIEVE PROCESSING
00362  M01S00182.286l859 +++|          SA1    ABTF
00363  M01S00183.286l859 +++|          ZR     X1,END8     IF NO ABORT
00364  M01S00184.286l859 +++|          ABORT
00365  M01S00185.286l859 +++|
00366  M01S00186.286l859 +++| END8     ENDRUN
00367  M01S00187.286l859 +++| RPV      SPACE  4,20
00368  M01S00188.286l859 +++|**        RPV - REPRIEVE SYSTEM ERROR.
00369  M01S00189.286l859 +++|*
00370  M01S00190.286l859 +++|*         EXIT   TO *ABT* IF INTERRUPTS NOT DISABLED.
00371  M01S00191.286l859 +++|*                TO POINT OF INTERRUPT IN INTERRUPT HANDLER MODE IF
00372  M01S00192.286l859 +++|*                  INTERRUPTS DISABLED.  THE SYSTEM ERROR CAUSING THE
00373  M01S00193.286l859 +++|*                  REPRIEVE WILL BE RESET TO ABORT THE JOB WHEN
00374  M01S00194.286l859 +++|*                  TERMINATION (NORMAL OR ABORT) PROCESSING IS
00375  M01S00195.286l859 +++|*                  COMPLETE.
00376  M01S00196.286l859 +++|*                (ABTF) .NE. 0.
00377  M01S00197.286l859 +++|*
00378  M01S00198.286l859 +++|*         USES   X - 1, 5, 6.
00379  M01S00199.286l859 +++|*                A - 1, 6.
00380  M01S00200.286l859 +++|*
00381  M01S00201.286l859 +++|*         CALLS  RIP.
00382  M01S00202.286l859 +++|*
00383  M01S00203.286l859 +++|*         MACROS REPRIEVE.
00384  M01S00204.286l859 +++|
00385  M01S00205.286l859 +++|
00386  M01S00206.286l859 +++| RPV      BSS    0           ENTRY
00387  M01S00207.286l859 +++|          SA1    DINF
00388  M01S00208.286l859 +++|          SX6    1
00389  M01S00209.286l859 +++|          SA6    ABTF        SET ABORT FLAG
00390  M01S00210.286l859 +++|          ZR     X1,RPV1     IF INTERRUPTS NOT DISABLED
00391  M01S00211.286l859 +++|          REPRIEVE  RPVB,IRESUME,277B  RESUME PROCESSING
00392  M01S00212.286l859 +++|
00393  M01S00213.286l859 +++| RPV1     BX6    X6-X6       CLEAR REPRIEVED SYSTEM REQUEST
00394  M01S00214.286l859 +++|          SA6    RPVB+/COMSRPV/PRAR
00395  M01S00215.286l859 +++|          RJ     RIP         EXECUTE REPRIEVE INTERRUPT PROCESSOR
00396  M01S00216.286l859 +++|          SB2    EREF        * ERROR FLAG TERMINATION.*
00397  M01S00217.286l859 +++|          EQ     ABT         ABORT UTILITY
00398  M01S00180.comcpfs +++|          SPACE  4,10
Line S00181 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00181.286l859 ---| COM$     IF     DEF,COM$
00400  M01S00218.286l859 +++|**        TERMINATION CONTROL DATA.
00401  M01S00219.286l859 +++|
00402  M01S00220.286l859 +++|
00403  M01S00221.286l859 +++| ABTF     CON    0           ABORT FLAG
00404  M01S00222.286l859 +++| DINF     CON    0           DISABLE INTERRUPTS FLAG
00405  M01S00223.286l859 +++|
00406  M01S00224.286l859 +++| RPVB     RPVBLK RPV         REPRIEVE BLOCK
00407  M01S00225.286l859 +++|          SPACE  4,10
00408  M01S00226.286l859 +++|*         MESSAGES.
00409  M01S00227.286l859 +++|
00410  M01S00228.286l859 +++| EREF     DATA   C* ERROR FLAG TERMINATION.*
00411  M01S00229.286l859 +++| MECM     DATA   C* ??????? COMPLETE.*
00412  M01S00182.comcpfs +++|          TITLE  COMCPFS - MESSAGE GENERATION ROUTINES.
Line S00183 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00413  M02S00183.286l859 ---| BEL      SPACE  4,15
Line S00184 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00414  M02S00184.286l859 ---|**        BEL - BUILD ERRLOG MESSAGE.
00415  M01S00230.286l859 +++| CFE      SPACE  4,10
00416  M01S00231.286l859 +++|**        CFE - COUNT FILE SKIPPED WITH ERROR.
00417  M01S00185.comcpfs +++|*
Line S00186 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00418  M02S00186.286l859 ---|*         ENTRY  (X5) = DAYFILE MESSAGE ADDRESS.
Line S00187 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00419  M02S00187.286l859 ---|*                (MPDN) = DEVICE NUMBER.
Line S00188 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00420  M02S00188.286l859 ---|*                (MPEQ) = EST ORDINAL.
00421  M01S00232.286l859 +++|*         EXIT   FILES SKIPPED WITH ERRORS COUNT INCREMENTED.
00422  M01S00189.comcpfs +++|*
Line S00190 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00423  M02S00190.286l859 ---|*         EXIT   (X5) = ERRLOG MESSAGE ADDRESS.
Line S00191 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00424  M02S00191.286l859 ---|*
Line S00192 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00425  M02S00192.286l859 ---|*         USES   X - ALL.
Line S00193 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00426  M02S00193.286l859 ---|*                A - 1, 2, 3, 6.
Line S00194 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00427  M02S00194.286l859 ---|*                B - 2, 3, 4.
Line S00195 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00428  M02S00195.286l859 ---|*
Line S00196 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00429  M02S00196.286l859 ---|*         CALLS  COD.
00430  M01S00233.286l859 +++|*         USES   X - 1, 6.
00431  M01S00234.286l859 +++|*                A - 1, 6.
00432  M01S00197.comcpfs +++|
00433  M01S00198.comcpfs +++|
Line S00199 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00434  M02S00199.286l859 ---| BEL      SUBR               ENTRY/EXIT
00435  M01S00235.286l859 +++| CFE      SUBR               ENTRY/EXIT
Line S00200 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00436  M02S00200.286l859 ---|
Line S00201 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00437  M02S00201.286l859 ---|*         SET UP ERRLOG MESSAGE PREFIX.
Line S00202 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00438  M02S00202.286l859 ---|
Line S00203 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00439  M02S00203.286l859 ---|          SA1    MPEQ        SET EST ORDINAL
Line S00204 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00440  M02S00204.286l859 ---|          SX1    X1+1000B    ENSURE LEADING ZEROES
Line S00205 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00441  M02S00205.286l859 ---|          RJ     COD         CONVERT OCTAL TO DISPLAY CODE
Line S00206 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00442  M02S00206.286l859 ---|          SA1    BELA
Line S00207 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00443  M02S00207.286l859 ---|          MX0    -18
Line S00208 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00444  M02S00208.286l859 ---|          BX6    -X0*X6
Line S00209 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00445  M02S00209.286l859 ---|          LX0    47-17
Line S00210 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00446  M02S00210.286l859 ---|          LX6    47-17
Line S00211 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00447  M02S00211.286l859 ---|          BX1    X0*X1
Line S00212 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00448  M02S00212.286l859 ---|          BX6    X1+X6
Line S00213 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00449  M02S00213.286l859 ---|          SA6    A1+
Line S00214 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00450  M02S00214.286l859 ---|          SA1    MPDN        SET DEVICE NUMBER
Line S00215 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00451  M02S00215.286l859 ---|          SX1    X1+100B     INSURE LEADING ZERO
Line S00216 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00452  M02S00216.286l859 ---|          RJ     COD         CONVERT OCTAL TO DISPLAY CODE
Line S00217 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00453  M02S00217.286l859 ---|          SA1    BELA
Line S00218 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00454  M02S00218.286l859 ---|          MX0    -12
Line S00219 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00455  M02S00219.286l859 ---|          BX6    -X0*X6
Line S00220 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00220.286l859 ---|          BX1    X0*X1
Line S00221 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00457  M02S00221.286l859 ---|          BX6    X1+X6
Line S00222 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00458  M02S00222.286l859 ---|          SA6    A1
Line S00223 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00459  M02S00223.286l859 ---|
Line S00224 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00460  M02S00224.286l859 ---|*         MOVE DAYFILE MESSAGE DESCRIPTIVE STRING TO ERRLOG MESSAGE.
Line S00225 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00461  M02S00225.286l859 ---|
Line S00226 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00462  M02S00226.286l859 ---|          SB2    B0          INITIALIZE WORD INDEX
Line S00227 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00463  M02S00227.286l859 ---|          SB4    10D
Line S00228 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00464  M02S00228.286l859 ---| BEL1     SB3    B0          INITIALIZE CHARACTER INDEX
Line S00229 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00465  M02S00229.286l859 ---|          SA2    =1L,        SET SEARCH CHARACTER
Line S00230 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00466  M02S00230.286l859 ---|          MX0    6           SET SEARCH MASK
Line S00231 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00467  M02S00231.286l859 ---|          SA3    BELB+B2     GET ERRLOG MESSAGE WORD
Line S00232 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00468  M02S00232.286l859 ---|          SA1    X5+B2       GET DAYFILE MESSAGE WORD
Line S00233 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00469  M02S00233.286l859 ---|          BX6    X3
Line S00234 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00470  M02S00234.286l859 ---| BEL2     BX4    X0*X1       GET DAYFILE MESSAGE CHARACTER
Line S00235 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00471  M02S00235.286l859 ---|          BX7    X2-X4
Line S00236 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00472  M02S00236.286l859 ---|          ZR     X7,BEL3     IF SEARCH CHARACTER FOUND
Line S00237 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00473  M02S00237.286l859 ---|          BX6    -X0*X6      INSERT DAYFILE CHARACTER
Line S00238 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00474  M02S00238.286l859 ---|          BX6    X4+X6
Line S00239 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00475  M02S00239.286l859 ---|          LX0    -6          SETUP FOR NEXT CHARACTER
Line S00240 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00476  M02S00240.286l859 ---|          LX2    -6
Line S00241 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00477  M02S00241.286l859 ---|          SB3    B3+B1       INCREMENT CHARACTER INDEX
Line S00242 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00478  M02S00242.286l859 ---|          LT     B3,B4,BEL2  IF MORE CHARACTERS
Line S00243 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00479  M02S00243.286l859 ---|          SA6    A3          SAVE NEW ERRLOG MESSAGE WORD
Line S00244 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00480  M02S00244.286l859 ---|          SB2    B2+B1       INCREMENT WORD INDEX
Line S00245 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00481  M02S00245.286l859 ---|          SX1    B2-7
Line S00246 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00482  M02S00246.286l859 ---|          NG     X1,BEL1     IF MORE WORDS
Line S00247 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00483  M02S00247.286l859 ---|          EQ     BEL4        ADD LINE TERMINATOR
Line S00248 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00484  M02S00248.286l859 ---|
Line S00249 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00485  M02S00249.286l859 ---|*         TERMINATE DESCRIPTIVE STRING WITH A PERIOD.
Line S00250 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00486  M02S00250.286l859 ---|
Line S00251 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00487  M02S00251.286l859 ---| BEL3     SX2    B3
Line S00252 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00488  M02S00252.286l859 ---|          LX2    2
Line S00253 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00489  M02S00253.286l859 ---|          SX3    B3
Line S00254 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00490  M02S00254.286l859 ---|          LX3    1
Line S00255 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00491  M02S00255.286l859 ---|          IX2    X2+X3
Line S00256 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00492  M02S00256.286l859 ---|          SB4    60D
Line S00257 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00493  M02S00257.286l859 ---|          SB3    X2          6*CHARACTER INDEX (0-9)
Line S00258 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00494  M02S00258.286l859 ---|          SB3    B4-B3
Line S00259 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00495  M02S00259.286l859 ---|          SA2    =1L.        REPLACE COMMA WITH PERIOD
Line S00260 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00496  M02S00260.286l859 ---|          LX2    B3,X2
Line S00261 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00497  M02S00261.286l859 ---|          BX6    -X0*X6
Line S00262 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00498  M02S00262.286l859 ---|          BX6    X2+X6
Line S00263 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00499  M02S00263.286l859 ---|
Line S00264 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00500  M02S00264.286l859 ---|*         INSERT COMMA AFTER DEVICE NUMBER, ADD END OF LINE.
Line S00265 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00501  M02S00265.286l859 ---|
Line S00266 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00502  M02S00266.286l859 ---|          SB2    -B3         CONSTRUCT MASK TO ZERO FILL WORD
Line S00267 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00503  M02S00267.286l859 ---|          MX0    1
Line S00268 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00504  M02S00268.286l859 ---|          SB3    59+6+B2
Line S00269 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00505  M02S00269.286l859 ---|          AX0    B3
Line S00270 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00506  M02S00270.286l859 ---|          BX6    X0*X6
Line S00271 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00507  M02S00271.286l859 ---|          SA6    A3+         SAVE LAST ERRLOG MESSAGE WORD
Line S00272 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00508  M02S00272.286l859 ---| BEL4     BX6    X6-X6
Line S00273 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00273.286l859 ---|          SA6    A3+B1       ADD LINE TERMINATOR
Line S00274 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00510  M02S00274.286l859 ---|          SX6    1R,&1R      INSERT COMMA AFTER DEVICE NUMBER
Line S00275 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00511  M02S00275.286l859 ---|          SA3    BELA+1
Line S00276 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00512  M02S00276.286l859 ---|          LX6    54
Line S00277 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00513  M02S00277.286l859 ---|          BX6    X3-X6
Line S00278 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00514  M02S00278.286l859 ---|          SA6    A3+
Line S00279 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00515  M02S00279.286l859 ---|          SX5    BELA        SET ERRLOG MESSAGE ADDRESS
Line S00280 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00516  M02S00280.286l859 ---|          EQ     BELX        RETURN
Line S00281 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00517  M02S00281.286l859 ---|
Line S00282 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00518  M02S00282.286l859 ---|
Line S00283 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00519  M02S00283.286l859 ---| BELA     DATA   10HEQXXX,DNXX  ERRLOG MESSAGE PREFIX
Line S00284 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00520  M02S00284.286l859 ---| BELB     BSSZ   8
00521  M01S00236.286l859 +++|          SA1    SEFC
00522  M01S00237.286l859 +++|          SX6    B1
00523  M01S00238.286l859 +++|          IX6    X6+X1
00524  M01S00239.286l859 +++|          SA6    A1          COUNT FILE NOT PROCESSED
00525  M01S00240.286l859 +++|          EQ     CFEX        RETURN
Line S00285 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00526  M02S00285.286l859 ---| EDS      SPACE  4,60
Line S00286 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00527  M02S00286.286l859 ---|**        EDS - EDIT MESSAGE STRING.
Line S00287 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00528  M02S00287.286l859 ---|*
Line S00288 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00529  M02S00288.286l859 ---|*                THE EDIT STRING SUBROUTINE FORMATS A MESSAGE USING
Line S00289 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00530  M02S00289.286l859 ---|*         A MESSAGE PARAMETER SKELETON AND A MESSAGE DESCRIPTION
Line S00290 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00531  M02S00290.286l859 ---|*         STRING.  THE SKELETON CONTAINS SEARCH CHARACTERS, *$*,
Line S00291 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00532  M02S00291.286l859 ---|*         WHEREVER A STRING SUBSTITUTION IS TO BE MADE.  IF A MESSAGE
Line S00292 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00533  M02S00292.286l859 ---|*         DESCRIPTION STRING IS SPECIFIED, IT IS SUBSTITUTED INTO THE
Line S00293 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00534  M02S00293.286l859 ---|*         SKELETON AT THE FIRST SEARCH CHARACTER FOUND.  THE
Line S00294 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00535  M02S00294.286l859 ---|*         DESCRIPTION STRING MUST BE DISPLAY CODED AND IN *C* FORMAT.
Line S00295 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00536  M02S00295.286l859 ---|*         IF NO DESCRIPTION STRING IS SPECIFIED OR ONCE IT HAS BEEN
Line S00296 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00537  M02S00296.286l859 ---|*         SUBSTITUTED INTO THE SKELETON, THE SKELETON IS SCANNED FOR
Line S00297 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00538  M02S00297.286l859 ---|*         SEARCH CHARACTERS AND THE VALUES SPECIFIED ARE SUBSTITUTED
Line S00298 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00539  M02S00298.286l859 ---|*         WHEN EACH SEARCH CHARACTER IS ENCOUNTERED.  VALUES MAY BE
Line S00299 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00540  M02S00299.286l859 ---|*         DISPLAY CODED OR NUMERIC.  NUMERIC VALUES WILL BE CONVERTED
Line S00300 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00541  M02S00300.286l859 ---|*         TO DISPLAY CODE AND MUST BE SPECIFIED BY BITS 59 AND 58
Line S00301 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00542  M02S00301.286l859 ---|*         IN TABLE *TMSP*.
Line S00302 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00543  M02S00302.286l859 ---|*                THE FIRST SEARCH CHARACTER IN THE SKELETON MAY STAND
Line S00303 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00544  M02S00303.286l859 ---|*         ALONE IF IT IS REPRESENTING THE DESCRIPTION STRING.  ANY AND
Line S00304 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00545  M02S00304.286l859 ---|*         ALL OTHER SEARCH CHARACTERS MEANT FOR SUBSTITUTION MUST BE
Line S00305 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00546  M02S00305.286l859 ---|*         FOLLOWED BY 3 CHARACTERS, THE FIRST 2 BEING OCTAL DIGITS FOR
Line S00306 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00547  M02S00306.286l859 ---|*         THE BINARY VALUE OF THE PARAMETER ADDRESS LOCATION IN TABLE
Line S00307 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00548  M02S00307.286l859 ---|*         *TMSP* (THE *LOC* ADDRESS).  THE THIRD CHARACTER REPRESENTS
Line S00308 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00549  M02S00308.286l859 ---|*         A FORMATTING CONTROL FOR THE PARAMETER.  IF THE CHARACTER IS
Line S00309 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00550  M02S00309.286l859 ---|*         A DIGIT IT SPECIFIES THE NUMBER OF CHARACTERS-1 OF THE
Line S00310 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00551  M02S00310.286l859 ---|*         PARAMETER VALUE TO INSERT IN THE MESSAGE.  IF THE PARAMETER
Line S00311 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00552  M02S00311.286l859 ---|*         IS DISPLAY CODED, THE CHARACTERS ARE TAKEN STARTING WITH THE
Line S00312 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00553  M02S00312.286l859 ---|*         LEFTMOST NON-ZERO CHARACTER AND DISPLAYED WITH TRAILING
Line S00313 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00554  M02S00313.286l859 ---|*         BLANKS IF NECESSARY.  IF THE PARAMETER IS NUMERIC, THE
Line S00314 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00555  M02S00314.286l859 ---|*         CHARACTERS ARE TAKEN STARTING WITH THE LEAST SIGNIFICANT
Line S00315 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00556  M02S00315.286l859 ---|*         DIGIT (RIGHTMOST CHARACTER) AND DISPLAYED WITH LEADING
Line S00316 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00557  M02S00316.286l859 ---|*         ZEROS.  IF THE FORMATTING CONTROL CHARACTER IS A *B*, ALL
Line S00317 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00558  M02S00317.286l859 ---|*         PARAMETER VALUES ARE DISPLAYED AS 10 CHARACTERS WITH
Line S00318 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00559  M02S00318.286l859 ---|*         LEADING BLANK, RIGHT JUSTIFIED NUMERICAL VALUES AND
Line S00319 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00560  M02S00319.286l859 ---|*         TRAILING BLANK, LEFT JUSTIFIED DISPLAY CODED VALUES.  IF
Line S00320 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00561  M02S00320.286l859 ---|*         THE FORMATTING CONTROL CHARACTER IS ANY NON-DIGIT OTHER
Line S00321 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00562  M02S00321.286l859 ---|*         THAN *B*, CHARACTERS FROM THE VALUE ARE DISPLAYED STARTING
Line S00322 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00563  M02S00322.286l859 ---|*         WITH THE LEFTMOST CHARACTER AND CONTINUING ACROSS WORD
Line S00323 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00564  M02S00323.286l859 ---|*         BOUNDARIES, IF NECESSARY, UNTIL A ZERO CHARACTER IS FOUND.
Line S00324 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00565  M02S00324.286l859 ---|*         TO DISPLAY A DOLLAR SIGN IN THE MESSAGE, 2 DOLLAR SIGNS,
Line S00325 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00566  M02S00325.286l859 ---|*         *$$*, MUST BE PLACED IN THE SKELETON.
Line S00326 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00567  M02S00326.286l859 ---|*
Line S00327 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00568  M02S00327.286l859 ---|*         ENTRY  (B6) = ADDRESS OF MESSAGE PARAMETER SKELETON.
Line S00328 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00569  M02S00328.286l859 ---|*                (X6) = MESSAGE DESCRIPTION STRING ADDRESS.
Line S00329 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00570  M02S00329.286l859 ---|*                TABLE OF PARAMETERS, *TMSP*, WITH ENTRIES IN FORM -
Line S00330 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00571  M02S00330.286l859 ---|*                1/CONVERT VALUE,1/DECIMAL PARAMETER,58/VALUE ADDRESS.
Line S00331 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00572  M02S00331.286l859 ---|*
Line S00332 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00573  M02S00332.286l859 ---|*         EXIT   (X5) = ADDRESS OF FORMATTED MESSAGE IN *C* FORMAT.
Line S00333 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00574  M02S00333.286l859 ---|*
Line S00334 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00575  M02S00334.286l859 ---|*         USES   X - ALL.
Line S00335 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00576  M02S00335.286l859 ---|*                A - ALL.
Line S00336 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00577  M02S00336.286l859 ---|*                B - 2, 3, 4, 5, 6, 7.
Line S00337 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00578  M02S00337.286l859 ---|*
Line S00338 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00579  M02S00338.286l859 ---|*         CALLS  CDD, COD, DXB, ZTB.
Line S00339 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00580  M02S00339.286l859 ---|
Line S00340 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00581  M02S00340.286l859 ---|
Line S00341 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00582  M02S00341.286l859 ---|*         END MESSAGE.
Line S00342 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00583  M02S00342.286l859 ---|
Line S00343 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00584  M02S00343.286l859 ---| EDS21    SX2    B4          INSURE EVEN NUMBER OF CHARACTERS
Line S00344 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00585  M02S00344.286l859 ---|          LX2    -1
Line S00345 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00586  M02S00345.286l859 ---|          PL     X2,EDS22    IF NOT ODD NUMBER
Line S00346 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00587  M02S00346.286l859 ---|          LX7    6           ADD TRAILING BLANK
Line S00347 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00588  M02S00347.286l859 ---|          SX3    1R
Line S00348 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00589  M02S00348.286l859 ---|          SB4    B4-B1
Line S00349 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00590  M02S00349.286l859 ---|          BX7    X3+X7
Line S00350 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00591  M02S00350.286l859 ---| EDS22    SB4    B4+B4       LEFT JUSTIFY LAST WORD OF NEW MESSAGE
Line S00351 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00592  M02S00351.286l859 ---|          SB3    B4+B4
Line S00352 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00593  M02S00352.286l859 ---|          SB4    B3+B4
Line S00353 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00594  M02S00353.286l859 ---|          LX7    X7,B4
Line S00354 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00595  M02S00354.286l859 ---|          SA7    A0+
Line S00355 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00596  M02S00355.286l859 ---|          BX6    X6-X6       GUARANTEE END OF LINE
Line S00356 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00597  M02S00356.286l859 ---|          SA6    A0+B1
Line S00357 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00598  M02S00357.286l859 ---|          SX5    EDBF        SET MESSAGE ADDRESS
Line S00358 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00599  M02S00358.286l859 ---|
Line S00359 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00600  M02S00359.286l859 ---| EDS      SUBR               ENTRY/EXIT
Line S00360 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00601  M02S00360.286l859 ---|          SA6    EDSA        SAVE MESSAGE DESCRIPTION STRING ADDRESS
Line S00361 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00602  M02S00361.286l859 ---|          SA0    EDBF        SET FORMATTED MESSAGE ADDRESS
Line S00362 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00603  M02S00362.286l859 ---|          SA4    B6-B1       INITIALIZE REGISTER
Line S00363 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00604  M02S00363.286l859 ---|          SB4    10          NEW MESSAGE WORD CHARACTER COUNT
Line S00364 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00605  M02S00364.286l859 ---|          SB3    B0          OLD MESSAGE WORD CHARACTER COUNT
Line S00365 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00606  M02S00365.286l859 ---|          BX7    X7-X7       ASSEMBLY REGISTER
Line S00366 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00607  M02S00366.286l859 ---|          MX0    -6
Line S00367 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00608  M02S00367.286l859 ---|
Line S00368 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00609  M02S00368.286l859 ---|*         CHECK FOR SEARCH CHARACTERS IN MESSAGE SKELETON.
Line S00369 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00610  M02S00369.286l859 ---|
Line S00370 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00611  M02S00370.286l859 ---| EDS1     SX5    1R$         SET SEARCH CHARACTER
Line S00371 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00612  M02S00371.286l859 ---|          SB3    B3-1        DECREMENT OLD MESSAGE COUNT
Line S00372 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00613  M02S00372.286l859 ---|          PL     B3,EDS2     IF MORE CHARACTERS IN OLD WORD
Line S00373 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00614  M02S00373.286l859 ---|          SA4    A4+1        GET NEXT OLD MESSAGE WORD
Line S00374 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00615  M02S00374.286l859 ---|          SB3    9           RESET OLD MESSAGE WORD CHARACTER COUNT
Line S00375 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00616  M02S00375.286l859 ---| EDS2     LX4    6           GET NEXT CHARACTER FROM OLD MESSAGE
Line S00376 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00617  M02S00376.286l859 ---|          BX2    -X0*X4
Line S00377 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00618  M02S00377.286l859 ---|          ZR     X2,EDS21    IF END OF LINE
Line S00378 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00619  M02S00378.286l859 ---|          SB6    B0
Line S00379 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00620  M02S00379.286l859 ---|          BX3    X5-X2
Line S00380 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00621  M02S00380.286l859 ---|          NZ     X3,EDS19    IF NOT SEARCH CHARACTER
Line S00381 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00622  M02S00381.286l859 ---|
Line S00382 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00623  M02S00382.286l859 ---|*         INSERT DESCRIPTION STRING INTO MESSAGE.
Line S00383 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00624  M02S00383.286l859 ---|
Line S00384 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00625  M02S00384.286l859 ---|          SX6    B0+
Line S00385 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00626  M02S00385.286l859 ---|          SA2    EDSA
Line S00386 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00627  M02S00386.286l859 ---|          ZR     X2,EDS5     IF DESCRIPTION STRING INSERTED
Line S00387 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00628  M02S00387.286l859 ---|          SA1    X2+         GET MESSAGE DESCRIPTION WORD
Line S00388 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00629  M02S00388.286l859 ---|          SB2    10
Line S00389 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00630  M02S00389.286l859 ---|          SA6    A2+         CLEAR DESCRIPTION STRING FLAG
Line S00390 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00631  M02S00390.286l859 ---| EDS3     SB2    B2-1
Line S00391 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00391.286l859 ---|          PL     B2,EDS4     IF MORE CHARACTERS IN WORD
Line S00392 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00633  M02S00392.286l859 ---|          SA1    A1+1        GET NEXT WORD IN DESCRIPTION STRING
Line S00393 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00393.286l859 ---|          SB2    9
Line S00394 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00394.286l859 ---| EDS4     LX1    6           GET NEXT CHARACTER
Line S00395 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00395.286l859 ---|          BX2    -X0*X1
Line S00396 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00637  M02S00396.286l859 ---|          ZR     X2,EDS1     IF DESCRIPTION STRING INSERTED IN MESSAGE
Line S00397 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00638  M02S00397.286l859 ---|          SB6    -B1
Line S00398 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00639  M02S00398.286l859 ---|          EQ     EDS19       INSERT CHARACTER IN NEW MESSAGE
Line S00399 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00640  M02S00399.286l859 ---|
Line S00400 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00400.286l859 ---|*         EXTRACT PARAMETER DESCRIPTOR AND FORMAT CONTROL CHARACTERS.
Line S00401 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00642  M02S00401.286l859 ---|
Line S00402 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00643  M02S00402.286l859 ---| EDS5     SB3    B3-1
Line S00403 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00644  M02S00403.286l859 ---|          PL     B3,EDS6     IF MORE CHARACTERS IN OLD WORD
Line S00404 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00645  M02S00404.286l859 ---|          SA4    A4+1        GET NEXT WORD
Line S00405 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00646  M02S00405.286l859 ---|          SB3    9
Line S00406 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00647  M02S00406.286l859 ---| EDS6     LX4    6           GET NEXT CHARACTER
Line S00407 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00648  M02S00407.286l859 ---|          BX3    -X0*X4
Line S00408 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00649  M02S00408.286l859 ---|          NG     X6,EDS8     IF FORMAT CONTROL CHARACTER
Line S00409 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00650  M02S00409.286l859 ---|          NZ     X6,EDS7     IF SECOND DESCRIPTOR CHARACTER
Line S00410 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00651  M02S00410.286l859 ---|          BX6    X5-X3       CHECK FOR DOUBLE SEARCH CHARACTER
Line S00411 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00652  M02S00411.286l859 ---|          SX2    X5
Line S00412 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00653  M02S00412.286l859 ---|          ZR     X6,EDS19    IF NOT MEANT TO BE A SEARCH CHARACTER
Line S00413 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00654  M02S00413.286l859 ---|          LX3    6           SAVE FIRST PARAMETER DESCRIPTOR CHARACTER
Line S00414 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00655  M02S00414.286l859 ---|          BX6    X3
Line S00415 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00656  M02S00415.286l859 ---|          EQ     EDS5        EXTRACT NEXT CHARACTER
Line S00416 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00657  M02S00416.286l859 ---|
Line S00417 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00658  M02S00417.286l859 ---| EDS7     BX6    X6+X3       MERGE DESCRIPTOR CHARACTERS
Line S00418 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00418.286l859 ---|          LX6    -12
Line S00419 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00660  M02S00419.286l859 ---|          SA6    EDSB
Line S00420 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00661  M02S00420.286l859 ---|          SX6    -B1
Line S00421 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00662  M02S00421.286l859 ---|          EQ     EDS5        GET FORMAT CHARACTER
Line S00422 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00663  M02S00422.286l859 ---|
Line S00423 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00664  M02S00423.286l859 ---| EDS8     SA7    EDSC        SAVE REGISTERS
Line S00424 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00665  M02S00424.286l859 ---|          SX6    A4
Line S00425 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00666  M02S00425.286l859 ---|          SA6    A7+B1
Line S00426 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00667  M02S00426.286l859 ---|          BX7    X4
Line S00427 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00668  M02S00427.286l859 ---|          SA7    A6+B1
Line S00428 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00669  M02S00428.286l859 ---|          SX6    B3
Line S00429 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00670  M02S00429.286l859 ---|          SX7    B4
Line S00430 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00671  M02S00430.286l859 ---|          SA6    A7+B1
Line S00431 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00672  M02S00431.286l859 ---|          SA7    A6+B1
Line S00432 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00673  M02S00432.286l859 ---|          SX6    -1          CHECK FOR *B* FORMAT CHARACTER
Line S00433 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00674  M02S00433.286l859 ---|          SX5    X3-1RB
Line S00434 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00675  M02S00434.286l859 ---|          ZR     X5,EDS9     IF *B* CHARACTER
Line S00435 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00435.286l859 ---|          SX6    B0+         CHECK FOR NON-DIGIT
Line S00436 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00677  M02S00436.286l859 ---|          SX2    X3-1R0
Line S00437 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00678  M02S00437.286l859 ---|          NG     X2,EDS9     IF ALPHABETIC CHARACTER
Line S00438 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00679  M02S00438.286l859 ---|          SX5    X3-1R+
Line S00439 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00680  M02S00439.286l859 ---|          PL     X5,EDS9     IF NON-DIGIT
Line S00440 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00681  M02S00440.286l859 ---|          LX3    -6          CONVERT LENGTH CHARACTER TO BINARY
Line S00441 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00682  M02S00441.286l859 ---|          BX5    X3
Line S00442 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00683  M02S00442.286l859 ---|          SB7    B1
Line S00443 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00684  M02S00443.286l859 ---|          RJ     DXB
Line S00444 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00685  M02S00444.286l859 ---|          SX6    X6+B1       SET MASK LENGTH - 1
Line S00445 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00686  M02S00445.286l859 ---|          SX7    6
Line S00446 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00687  M02S00446.286l859 ---|          IX1    X6*X7
Line S00447 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00688  M02S00447.286l859 ---|          SX6    X1-1
Line S00448 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00689  M02S00448.286l859 ---| EDS9     SA5    EDSB        CONVERT DESCRIPTOR CHARACTERS TO BINARY
Line S00449 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00690  M02S00449.286l859 ---|          SB7    B0
Line S00450 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00691  M02S00450.286l859 ---|          SA6    A5          SAVE FORMAT CONTROL VALUE
Line S00451 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00692  M02S00451.286l859 ---|          RJ     DXB
Line S00452 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00693  M02S00452.286l859 ---|
Line S00453 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00694  M02S00453.286l859 ---|*         CONVERT NUMERICAL PARAMETERS.
Line S00454 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00695  M02S00454.286l859 ---|
Line S00455 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00696  M02S00455.286l859 ---|          SA3    TMSP+X6     GET PARAMETER ADDRESS
Line S00456 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00697  M02S00456.286l859 ---|          SA1    X3+
Line S00457 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00698  M02S00457.286l859 ---|          PL     X3,EDS13    IF DISPLAY CODED PARAMETER
Line S00458 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00699  M02S00458.286l859 ---|          LX3    59-58
Line S00459 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00700  M02S00459.286l859 ---|          NG     X3,EDS10    IF DECIMAL PARAMETER
Line S00460 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00701  M02S00460.286l859 ---|          RJ     COD         CONVERT TO DISPLAY CODE
Line S00461 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00702  M02S00461.286l859 ---|          EQ     EDS11       CHECK FORMATTING CONTROL
Line S00462 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00703  M02S00462.286l859 ---|
Line S00463 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00704  M02S00463.286l859 ---| EDS10    RJ     CDD         CONVERT TO DISPLAY CODE
Line S00464 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00705  M02S00464.286l859 ---| EDS11    SA2    EDSB
Line S00465 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00706  M02S00465.286l859 ---|          SB5    B1          SET ONE WORD MAXIMUM
Line S00466 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00707  M02S00466.286l859 ---|          BX1    X6
Line S00467 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00708  M02S00467.286l859 ---|          NG     X2,EDS16    IF TO PUT OUT WITH BLANK FILL
Line S00468 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00709  M02S00468.286l859 ---|
Line S00469 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00710  M02S00469.286l859 ---|*         SUPPRESS LEADING ZEROS ON NUMERICAL FIELDS.
Line S00470 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00711  M02S00470.286l859 ---|
Line S00471 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00712  M02S00471.286l859 ---|          SB2    B2-B1       MASK OFF SIGNIFICANT CHARACTERS
Line S00472 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00713  M02S00472.286l859 ---|          MX3    1
Line S00473 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00714  M02S00473.286l859 ---|          AX3    X3,B2
Line S00474 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00715  M02S00474.286l859 ---|          BX1    X3*X4
Line S00475 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00716  M02S00475.286l859 ---|          ZR     X2,EDS16    IF TO SUPPRESS LEADING ZEROS
Line S00476 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00717  M02S00476.286l859 ---|
Line S00477 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00718  M02S00477.286l859 ---|*         USE NUMBER OF CHARACTERS AS SPECIFIED IN SKELETON.
Line S00478 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00719  M02S00478.286l859 ---|
Line S00479 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00720  M02S00479.286l859 ---|          SA4    EDSD        ZERO FILL WORD
Line S00480 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00721  M02S00480.286l859 ---|          BX4    -X3*X4
Line S00481 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00722  M02S00481.286l859 ---|          BX6    X1+X4
Line S00482 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00723  M02S00482.286l859 ---|          SB7    X2          FORM MASK
Line S00483 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00724  M02S00483.286l859 ---|          MX3    1
Line S00484 Modification History
M01 (Added by) comcpfs
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00725  M02S00484.286l859 ---|          SB2    B2-B7       CALCULATE SHIFT COUNT
Proceed to Part 1
cdc/nos2.source/opl.opl871/common/comcpfs.txt · Last modified: by 127.0.0.1