cdc:nos2.source:opl.opl871:common:comcpfs
Common COMCPFS
10 Modifications
Listing Sections
- Common COMCPFS Start
- Common COMCPFS Part 1 (Line 726)
- Common COMCPFS Part 2 (Line 1784)
- Common COMCPFS Part 3 (Line 2751)
- Common COMCPFS Part 4 (Line 3760)
- Common COMCPFS Part 5 (Line 4541)
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