cdc:nos2.source:opl.opl871:common:comcpfs
Common COMCPFS
Library Member Format: MODIFY
Listing Sections
- Common COMCPFS Start
- Common COMCPFS Part 1 (Line 1574)
- Common COMCPFS Part 2 (Line 3055)
- Common COMCPFS Part 3 (Line 4519)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comcpfs ---| CTEXT COMCPFS - PF UTILITY SUBROUTINES. 00002 M00S00002.comcpfs ---| SPACE 4,10 00003 M00S00003.comcpfs ---| IF -DEF,QUAL$ 00004 M00S00004.comcpfs ---| QUAL COMCPFS 00005 M00S00005.comcpfs ---| ENDIF 00006 M00S00006.comcpfs ---| BASE D
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00007.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M00S00008.comcpfs +++| SPACE 4,10 00010 M00S00009.comcpfs +++|*** COMCPFS - PF UTILITY SUBROUTINES. 00011 M00S00010.comcpfs +++|* 00012 M00S00011.comcpfs +++|* S. D. PAINTER 81/06/24. 00013 M00S00012.comcpfs +++|* R. C. SCHMITTER 82/10/08. 00014 M00S00013.comcpfs +++|* G. S. YODER 86/10/10. 00015 M00S00014.comcpfs +++| SPACE 4,10 00016 M00S00015.comcpfs +++|** *COMCPFS* CONTAINS COMMON ROUTINES THAT ARE USED BY 00017 M00S00016.comcpfs +++|* THE PERMANENT FILE UTILITIES. THIS DECK REQUIRES 00018 M00S00017.comcpfs +++|* THE PRESENCE OF *COMSPFM* AND *COMSPFS*.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00019 M01S00001.286l859 +++| TITLE COMCPFS - FILE SELECTION ROUTINES.
| Line S00018 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00020 M01S00018.286l859 ---| CSC SPACE 4,30 00021 M01S00019.286l859 ---|** CHECK SELECTION CRITERIA. 00022 M01S00020.286l859 ---|* 00023 M01S00021.286l859 ---|* THE FOLLOWING SELECTION CRITERIA MAY BE CHECKED. 00024 M01S00022.286l859 ---|* 00025 M01S00023.286l859 ---|* 1. USER INDEX AND FILE NAME. 00026 M01S00024.286l859 ---|* 2. ALTERNATE STORAGE RESIDENCE. 00027 M01S00025.286l859 ---|* 3. DIRECT/INDIRECT ACCESS FILES ONLY. 00028 M01S00026.286l859 ---|* 4. SECURITY ACCESS LEVELS. 00029 M01S00027.286l859 ---|* 5. DATE/TIME OF CREATION, ACCESS, OR MODIFICATION. 00030 M01S00028.286l859 ---|* 6. FILE LENGTH.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00031 M01S00002.286l859 +++| CSC SPACE 4,25 00032 M01S00003.286l859 +++|** CSC - CHECK SELECTION CRITERIA. 00033 M00S00029.comcpfs +++|* 00034 M00S00030.comcpfs +++|* NOTE - FOR *OP=M*, THE FILE WILL BE SELECTED IF THE 00035 M00S00031.comcpfs +++|* UTILITY CONTROL DATE AND TIME MEETS THE CRITERIA. IF NOT, 00036 M00S00032.comcpfs +++|* THE FILE WILL STILL BE SELECTED IF THE CONTROL MODIFICATION 00037 M00S00033.comcpfs +++|* DATE AND TIME MEETS THE CRITERIA AND IS MORE RECENT THAN 00038 M00S00034.comcpfs +++|* THE UTILITY CONTROL DATE AND TIME. 00039 M00S00035.comcpfs +++|* 00040 M00S00036.comcpfs +++|* ENTRY (B4) = FWA OF PF CATALOG ENTRY. 00041 M00S00037.comcpfs +++|* 00042 M00S00038.comcpfs +++|* EXIT (X6) = 0, IF FILE DOES NOT MEET SELECTION CRITERIA. 00043 M00S00039.comcpfs +++|* (X6) = 1, IF FILE MEETS SELECTION CRITERIA. 00044 M00S00040.comcpfs +++|* IF FILE IS NOT SELECTED, (X7) CONTAINS THE REASON. 00045 M00S00041.comcpfs +++|* (X7) = 0, IF REASON IS NOT DATE/TIME. 00046 M00S00042.comcpfs +++|* (X7) = 1, IF REASON IS DATE/TIME. 00047 M00S00043.comcpfs +++|* (B7) = 0 IF CONTROL MODIFICATION DATE NOT CHECKED. 00048 M00S00044.comcpfs +++|* (B7) = 1 IF CONTROL MODIFICATION DATE WAS CHECKED. 00049 M00S00045.comcpfs +++|* (B6) = ADDRESS OF FILE NAME, IF MATCH FOUND. 00050 M00S00046.comcpfs +++|* 00051 M00S00047.comcpfs +++|* USES X - 1, 2, 3, 4, 6, 7. 00052 M00S00048.comcpfs +++|* A - 1, 2, 3, 4. 00053 M00S00049.comcpfs +++|* B - 6, 7. 00054 M00S00050.comcpfs +++| 00055 M00S00051.comcpfs +++| 00056 M00S00052.comcpfs +++| CSC15 SX6 B0+ SET FILE NOT SELECTED 00057 M00S00053.comcpfs +++| SX7 B0+ SET REASON NOT DATE/TIME 00058 M00S00054.comcpfs +++| 00059 M00S00055.comcpfs +++| CSC SUBR ENTRY/EXIT 00060 M00S00056.comcpfs +++| SA1 /COMSPFS/FISP 00061 M00S00057.comcpfs +++| BX6 X6-X6 SET FILE NOT SELECTED 00062 M00S00058.comcpfs +++| SB6 B0 CLEAR FILE NAME ADDRESS 00063 M00S00059.comcpfs +++| ZR X1,CSC2 IF NO USER INDEX OR FILE NAME SELECTIONS 00064 M00S00060.comcpfs +++| SA1 X1-1 00065 M00S00061.comcpfs +++| SA3 B4+FCFN GET NAME AND USER INDEX OF FILE 00066 M00S00062.comcpfs +++| MX7 -18 00067 M00S00063.comcpfs +++| BX4 -X7*X3 USER INDEX OF FILE 00068 M00S00064.comcpfs +++| CSC1 SA1 A1+1 READ NEXT SELECTION 00069 M00S00065.comcpfs +++| ZR X1,CSC15 IF END OF SELECTIONS 00070 M00S00066.comcpfs +++| BX2 X1-X4 00071 M00S00067.comcpfs +++| BX1 X1-X3 00072 M00S00068.comcpfs +++| ZR X2,CSC2 IF ALL FILES FOR USER INDEX SELECTED 00073 M00S00069.comcpfs +++| NZ X1,CSC1 IF FILE NOT SELECTED BY NAME 00074 M00S00070.comcpfs +++| SB6 A1+ SET ADDRESS OF FILE NAME SELECTION
| Line S00071 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00075 M01S00071.286l859 ---| CSC2 SA1 CPAR+/COMSPFS/CPCA
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00072.comcpfs +++| ZR X1,CSC4 IF NO CARTRIDGE STORAGE SELECTION 00104 M00S00073.comcpfs +++| SA2 B4+FCAA 00105 M00S00074.comcpfs +++| MX6 -36 00106 M00S00075.comcpfs +++| BX6 -X6*X2 00107 M00S00076.comcpfs +++| LX2 59-48 00108 M00S00077.comcpfs +++| SX7 B1+B1 00109 M00S00078.comcpfs +++| ZR X6,CSC3 IF FILE NOT ON CARTRIDGE ALTERNATE STORAGE 00110 M00S00079.comcpfs +++| NG X2,CSC3 IF CARTRIDGE STORAGE COPY OBSOLETE 00111 M00S00080.comcpfs +++| SX7 B1+ 00112 M00S00081.comcpfs +++| CSC3 IX7 X7-X1 00113 M00S00082.comcpfs +++| NZ X7,CSC15 IF RESIDENCY DOES NOT MATCH SELECTION 00114 M00S00083.comcpfs +++| CSC4 SA1 CPAR+/COMSPFS/CPTA 00115 M00S00084.comcpfs +++| SA2 CPAR+/COMSPFS/CPTA+1 00116 M00S00085.comcpfs +++| BX6 X1+X2 00117 M00S00086.comcpfs +++| ZR X6,CSC7 IF NO TAPE STORAGE SELECTION CRITERIA 00118 M00S00087.comcpfs +++| MX7 -24 00119 M00S00088.comcpfs +++| SA3 B4+FCTV 00120 M00S00089.comcpfs +++| SX6 B1 00121 M00S00090.comcpfs +++| BX3 -X7*X3 00122 M00S00091.comcpfs +++| NZ X3,CSC5 IF FILE RESIDES ON TAPE ALTERNATE STORAGE 00123 M00S00092.comcpfs +++| SX6 2 00124 M00S00093.comcpfs +++| CSC5 IX6 X1-X6 00125 M00S00094.comcpfs +++| ZR X6,CSC7 IF MATCH ON GENERAL RESIDENCY CRITERION 00126 M00S00095.comcpfs +++| CSC6 ZR X2,CSC15 IF END OF VSN POINTER LIST 00127 M00S00096.comcpfs +++| BX6 X3-X2 00128 M00S00097.comcpfs +++| SA2 A2+B1 00129 M00S00098.comcpfs +++| NZ X6,CSC6 IF VSN NOT SELECTED
| Line S00099 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00130 M01S00099.286l859 ---| CSC7 SA1 CPAR+/COMSPFS/CPOP CHECK FOR IAPF/DAPF SPECIFIED
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00100.comcpfs +++| SA2 B4+FCBT 00158 M00S00101.comcpfs +++| LX2 59-11 00159 M00S00102.comcpfs +++| NG X2,CSC8 IF FILE IS DIRECT ACCESS 00160 M00S00103.comcpfs +++| LX1 59-55 00161 M00S00104.comcpfs +++| PL X1,CSC9 IF *OP=D* NOT SPECIFIED 00162 M00S00105.comcpfs +++| EQ CSC15 SET FILE NOT SELECTED 00163 M00S00106.comcpfs +++| 00164 M00S00107.comcpfs +++| CSC8 LX1 59-56 00165 M00S00108.comcpfs +++| NG X1,CSC15 IF *OP=I* SPECIFIED 00166 M00S00109.comcpfs +++| CSC9 SA2 CPAR+/COMSPFS/CPLA 00167 M00S00110.comcpfs +++| ZR X2,CSC10 IF SECURITY ACCESS LEVEL NOT SPECIFIED 00168 M00S00111.comcpfs +++| SA1 CPAR+/COMSPFS/CPUA 00169 M00S00112.comcpfs +++| SA3 B4+FCAL GET FILE ACCESS LEVEL 00170 M00S00113.comcpfs +++| MX7 -3 00171 M00S00114.comcpfs +++| BX2 -X7*X2 00172 M00S00115.comcpfs +++| BX1 -X7*X1 00173 M00S00116.comcpfs +++| AX3 36 00174 M00S00117.comcpfs +++| BX3 -X7*X3 00175 M00S00118.comcpfs +++| IX2 X3-X2 00176 M00S00119.comcpfs +++| IX1 X1-X3 00177 M00S00120.comcpfs +++| NG X2,CSC15 IF ACCESS LEVEL OUT OF RANGE 00178 M00S00121.comcpfs +++| NG X1,CSC15 IF ACCESS LEVEL OUT OF RANGE 00179 M00S00122.comcpfs +++| CSC10 SA2 CPAR+/COMSPFS/CPLS 00180 M00S00123.comcpfs +++| SA1 CPAR+/COMSPFS/CPUS 00181 M00S00124.comcpfs +++| SA3 B4+FCLF GET FILE LENGTH 00182 M00S00125.comcpfs +++| MX7 -24 00183 M00S00126.comcpfs +++| LX3 -36 00184 M00S00127.comcpfs +++| BX3 -X7*X3 00185 M00S00128.comcpfs +++| IX2 X3-X2 00186 M00S00129.comcpfs +++| IX1 X1-X3 00187 M00S00130.comcpfs +++| NG X2,CSC15 IF FILE LENGTH .LT. LOWER SIZE LIMIT 00188 M00S00131.comcpfs +++| NG X1,CSC15 IF FILE LENGTH .GT. UPPER SIZE LIMIT 00189 M00S00132.comcpfs +++| SX6 B1 SET FILE SELECTED 00190 M00S00133.comcpfs +++| 00191 M00S00134.comcpfs +++|* CHECK DATE/TIME INTERVAL. 00192 M00S00135.comcpfs +++| 00193 M00S00136.comcpfs +++| SB7 B0 SET CONTROL DATE NOT CHECKED 00194 M00S00137.comcpfs +++| SA2 CPAR+/COMSPFS/CPOP 00195 M00S00138.comcpfs +++| SX1 B1 00196 M00S00139.comcpfs +++| MX7 3 00197 M00S00140.comcpfs +++| LX1 44-0 00198 M00S00141.comcpfs +++| BX7 X7+X1 00199 M00S00142.comcpfs +++| BX2 X7*X2 00200 M00S00143.comcpfs +++| ZR X2,CSCX IF NO DATE OPTIONS SPECIFIED 00201 M00S00144.comcpfs +++| MX7 -36 00202 M00S00145.comcpfs +++| SA3 CPAR+/COMSPFS/CPAD AFTER DATE/TIME 00203 M00S00146.comcpfs +++| SA4 CPAR+/COMSPFS/CPBD BEFORE DATE/TIME 00204 M00S00147.comcpfs +++| BX3 -X7*X3 00205 M00S00148.comcpfs +++| BX4 -X7*X4 00206 M00S00149.comcpfs +++| SX1 B4+FCCD CREATION DATE 00207 M00S00150.comcpfs +++| NG X2,CSC11 IF CREATION DATE SPECIFIED 00208 M00S00151.comcpfs +++| LX2 59-58 00209 M00S00152.comcpfs +++| SX1 B4+FCAD ACCESS DATE 00210 M00S00153.comcpfs +++| NG X2,CSC11 IF ACCESS DATE SPECIFIED 00211 M00S00154.comcpfs +++| LX2 59-44-59+58 00212 M00S00155.comcpfs +++| SX1 B4+FCMD DATA MODIFICATION DATE 00213 M00S00156.comcpfs +++| NG X2,CSC11 IF DATA MODIFICATION DATE SPECIFIED 00214 M00S00157.comcpfs +++| SX1 B4+FCUD UTILITY CONTROL DATE 00215 M00S00158.comcpfs +++| CSC11 SA1 X1+ READ DATE AND TIME 00216 M00S00159.comcpfs +++| CSC12 BX1 -X7*X1 00217 M00S00160.comcpfs +++| IX7 X1-X3 00218 M00S00161.comcpfs +++| NG X7,CSC13 IF DATE NOT IN INTERVAL 00219 M00S00162.comcpfs +++| IX7 X4-X1 00220 M00S00163.comcpfs +++| ZR X4,CSCX IF NO BEFORE DATE SPECIFIED 00221 M00S00164.comcpfs +++| PL X7,CSCX IF DATE IN INTERVAL 00222 M00S00165.comcpfs +++| CSC13 NG X2,CSC14 IF NOT *OP=M* 00223 M00S00166.comcpfs +++| SA2 B4+FCKD CONTROL MODIFICATION DATE 00224 M00S00167.comcpfs +++| MX7 -36 00225 M00S00168.comcpfs +++| BX2 -X7*X2 00226 M00S00169.comcpfs +++| IX7 X1-X2 00227 M00S00170.comcpfs +++| SB7 B1 SET CONTROL MODIFICATION DATE CHECKED 00228 M00S00171.comcpfs +++| PL X7,CSC14 IF CONTROL MODIFICATION NOT MORE RECENT 00229 M00S00172.comcpfs +++| BX1 X2 00230 M00S00173.comcpfs +++| MX2 1 CLEAR *OP=M* 00231 M00S00174.comcpfs +++| MX7 -36 00232 M00S00175.comcpfs +++| EQ CSC12 CHECK CONTROL MODIFICATION 00233 M00S00176.comcpfs +++| 00234 M00S00177.comcpfs +++| CSC14 BX6 X6-X6 SET FILE NOT SELECTED 00235 M00S00178.comcpfs +++| SX7 B1 SET REASON IS DATE/TIME 00236 M00S00179.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 M00S00180.comcpfs +++| SPACE 4,10
| Line S00181 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00399 M01S00181.286l859 ---| COM$ IF DEF,COM$
| Line S00218 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00182.comcpfs +++| TITLE COMCPFS - MESSAGE GENERATION ROUTINES.
| Line S00183 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00413 M01S00183.286l859 ---| BEL SPACE 4,15 00414 M01S00184.286l859 ---|** BEL - BUILD ERRLOG MESSAGE.
| Line S00230 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00415 M01S00230.286l859 +++| CFE SPACE 4,10 00416 M01S00231.286l859 +++|** CFE - COUNT FILE SKIPPED WITH ERROR. 00417 M00S00185.comcpfs +++|*
| Line S00186 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00418 M01S00186.286l859 ---|* ENTRY (X5) = DAYFILE MESSAGE ADDRESS. 00419 M01S00187.286l859 ---|* (MPDN) = DEVICE NUMBER. 00420 M01S00188.286l859 ---|* (MPEQ) = EST ORDINAL.
| Line S00232 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00421 M01S00232.286l859 +++|* EXIT FILES SKIPPED WITH ERRORS COUNT INCREMENTED. 00422 M00S00189.comcpfs +++|*
| Line S00190 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00423 M01S00190.286l859 ---|* EXIT (X5) = ERRLOG MESSAGE ADDRESS. 00424 M01S00191.286l859 ---|* 00425 M01S00192.286l859 ---|* USES X - ALL. 00426 M01S00193.286l859 ---|* A - 1, 2, 3, 6. 00427 M01S00194.286l859 ---|* B - 2, 3, 4. 00428 M01S00195.286l859 ---|* 00429 M01S00196.286l859 ---|* CALLS COD.
| Line S00233 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00430 M01S00233.286l859 +++|* USES X - 1, 6. 00431 M01S00234.286l859 +++|* A - 1, 6. 00432 M00S00197.comcpfs +++| 00433 M00S00198.comcpfs +++|
| Line S00199 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00434 M01S00199.286l859 ---| BEL SUBR ENTRY/EXIT
| Line S00235 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00435 M01S00235.286l859 +++| CFE SUBR ENTRY/EXIT
| Line S00200 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00436 M01S00200.286l859 ---| 00437 M01S00201.286l859 ---|* SET UP ERRLOG MESSAGE PREFIX. 00438 M01S00202.286l859 ---| 00439 M01S00203.286l859 ---| SA1 MPEQ SET EST ORDINAL 00440 M01S00204.286l859 ---| SX1 X1+1000B ENSURE LEADING ZEROES 00441 M01S00205.286l859 ---| RJ COD CONVERT OCTAL TO DISPLAY CODE 00442 M01S00206.286l859 ---| SA1 BELA 00443 M01S00207.286l859 ---| MX0 -18 00444 M01S00208.286l859 ---| BX6 -X0*X6 00445 M01S00209.286l859 ---| LX0 47-17 00446 M01S00210.286l859 ---| LX6 47-17 00447 M01S00211.286l859 ---| BX1 X0*X1 00448 M01S00212.286l859 ---| BX6 X1+X6 00449 M01S00213.286l859 ---| SA6 A1+ 00450 M01S00214.286l859 ---| SA1 MPDN SET DEVICE NUMBER 00451 M01S00215.286l859 ---| SX1 X1+100B INSURE LEADING ZERO 00452 M01S00216.286l859 ---| RJ COD CONVERT OCTAL TO DISPLAY CODE 00453 M01S00217.286l859 ---| SA1 BELA 00454 M01S00218.286l859 ---| MX0 -12 00455 M01S00219.286l859 ---| BX6 -X0*X6 00456 M01S00220.286l859 ---| BX1 X0*X1 00457 M01S00221.286l859 ---| BX6 X1+X6 00458 M01S00222.286l859 ---| SA6 A1 00459 M01S00223.286l859 ---| 00460 M01S00224.286l859 ---|* MOVE DAYFILE MESSAGE DESCRIPTIVE STRING TO ERRLOG MESSAGE. 00461 M01S00225.286l859 ---| 00462 M01S00226.286l859 ---| SB2 B0 INITIALIZE WORD INDEX 00463 M01S00227.286l859 ---| SB4 10D 00464 M01S00228.286l859 ---| BEL1 SB3 B0 INITIALIZE CHARACTER INDEX 00465 M01S00229.286l859 ---| SA2 =1L, SET SEARCH CHARACTER 00466 M01S00230.286l859 ---| MX0 6 SET SEARCH MASK 00467 M01S00231.286l859 ---| SA3 BELB+B2 GET ERRLOG MESSAGE WORD 00468 M01S00232.286l859 ---| SA1 X5+B2 GET DAYFILE MESSAGE WORD 00469 M01S00233.286l859 ---| BX6 X3 00470 M01S00234.286l859 ---| BEL2 BX4 X0*X1 GET DAYFILE MESSAGE CHARACTER 00471 M01S00235.286l859 ---| BX7 X2-X4 00472 M01S00236.286l859 ---| ZR X7,BEL3 IF SEARCH CHARACTER FOUND 00473 M01S00237.286l859 ---| BX6 -X0*X6 INSERT DAYFILE CHARACTER 00474 M01S00238.286l859 ---| BX6 X4+X6 00475 M01S00239.286l859 ---| LX0 -6 SETUP FOR NEXT CHARACTER 00476 M01S00240.286l859 ---| LX2 -6 00477 M01S00241.286l859 ---| SB3 B3+B1 INCREMENT CHARACTER INDEX 00478 M01S00242.286l859 ---| LT B3,B4,BEL2 IF MORE CHARACTERS 00479 M01S00243.286l859 ---| SA6 A3 SAVE NEW ERRLOG MESSAGE WORD 00480 M01S00244.286l859 ---| SB2 B2+B1 INCREMENT WORD INDEX 00481 M01S00245.286l859 ---| SX1 B2-7 00482 M01S00246.286l859 ---| NG X1,BEL1 IF MORE WORDS 00483 M01S00247.286l859 ---| EQ BEL4 ADD LINE TERMINATOR 00484 M01S00248.286l859 ---| 00485 M01S00249.286l859 ---|* TERMINATE DESCRIPTIVE STRING WITH A PERIOD. 00486 M01S00250.286l859 ---| 00487 M01S00251.286l859 ---| BEL3 SX2 B3 00488 M01S00252.286l859 ---| LX2 2 00489 M01S00253.286l859 ---| SX3 B3 00490 M01S00254.286l859 ---| LX3 1 00491 M01S00255.286l859 ---| IX2 X2+X3 00492 M01S00256.286l859 ---| SB4 60D 00493 M01S00257.286l859 ---| SB3 X2 6*CHARACTER INDEX (0-9) 00494 M01S00258.286l859 ---| SB3 B4-B3 00495 M01S00259.286l859 ---| SA2 =1L. REPLACE COMMA WITH PERIOD 00496 M01S00260.286l859 ---| LX2 B3,X2 00497 M01S00261.286l859 ---| BX6 -X0*X6 00498 M01S00262.286l859 ---| BX6 X2+X6 00499 M01S00263.286l859 ---| 00500 M01S00264.286l859 ---|* INSERT COMMA AFTER DEVICE NUMBER, ADD END OF LINE. 00501 M01S00265.286l859 ---| 00502 M01S00266.286l859 ---| SB2 -B3 CONSTRUCT MASK TO ZERO FILL WORD 00503 M01S00267.286l859 ---| MX0 1 00504 M01S00268.286l859 ---| SB3 59+6+B2 00505 M01S00269.286l859 ---| AX0 B3 00506 M01S00270.286l859 ---| BX6 X0*X6 00507 M01S00271.286l859 ---| SA6 A3+ SAVE LAST ERRLOG MESSAGE WORD 00508 M01S00272.286l859 ---| BEL4 BX6 X6-X6 00509 M01S00273.286l859 ---| SA6 A3+B1 ADD LINE TERMINATOR 00510 M01S00274.286l859 ---| SX6 1R,&1R INSERT COMMA AFTER DEVICE NUMBER 00511 M01S00275.286l859 ---| SA3 BELA+1 00512 M01S00276.286l859 ---| LX6 54 00513 M01S00277.286l859 ---| BX6 X3-X6 00514 M01S00278.286l859 ---| SA6 A3+ 00515 M01S00279.286l859 ---| SX5 BELA SET ERRLOG MESSAGE ADDRESS 00516 M01S00280.286l859 ---| EQ BELX RETURN 00517 M01S00281.286l859 ---| 00518 M01S00282.286l859 ---| 00519 M01S00283.286l859 ---| BELA DATA 10HEQXXX,DNXX ERRLOG MESSAGE PREFIX 00520 M01S00284.286l859 ---| BELB BSSZ 8
| Line S00236 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00526 M01S00285.286l859 ---| EDS SPACE 4,60 00527 M01S00286.286l859 ---|** EDS - EDIT MESSAGE STRING. 00528 M01S00287.286l859 ---|* 00529 M01S00288.286l859 ---|* THE EDIT STRING SUBROUTINE FORMATS A MESSAGE USING 00530 M01S00289.286l859 ---|* A MESSAGE PARAMETER SKELETON AND A MESSAGE DESCRIPTION 00531 M01S00290.286l859 ---|* STRING. THE SKELETON CONTAINS SEARCH CHARACTERS, *$*, 00532 M01S00291.286l859 ---|* WHEREVER A STRING SUBSTITUTION IS TO BE MADE. IF A MESSAGE 00533 M01S00292.286l859 ---|* DESCRIPTION STRING IS SPECIFIED, IT IS SUBSTITUTED INTO THE 00534 M01S00293.286l859 ---|* SKELETON AT THE FIRST SEARCH CHARACTER FOUND. THE 00535 M01S00294.286l859 ---|* DESCRIPTION STRING MUST BE DISPLAY CODED AND IN *C* FORMAT. 00536 M01S00295.286l859 ---|* IF NO DESCRIPTION STRING IS SPECIFIED OR ONCE IT HAS BEEN 00537 M01S00296.286l859 ---|* SUBSTITUTED INTO THE SKELETON, THE SKELETON IS SCANNED FOR 00538 M01S00297.286l859 ---|* SEARCH CHARACTERS AND THE VALUES SPECIFIED ARE SUBSTITUTED 00539 M01S00298.286l859 ---|* WHEN EACH SEARCH CHARACTER IS ENCOUNTERED. VALUES MAY BE 00540 M01S00299.286l859 ---|* DISPLAY CODED OR NUMERIC. NUMERIC VALUES WILL BE CONVERTED 00541 M01S00300.286l859 ---|* TO DISPLAY CODE AND MUST BE SPECIFIED BY BITS 59 AND 58 00542 M01S00301.286l859 ---|* IN TABLE *TMSP*. 00543 M01S00302.286l859 ---|* THE FIRST SEARCH CHARACTER IN THE SKELETON MAY STAND 00544 M01S00303.286l859 ---|* ALONE IF IT IS REPRESENTING THE DESCRIPTION STRING. ANY AND 00545 M01S00304.286l859 ---|* ALL OTHER SEARCH CHARACTERS MEANT FOR SUBSTITUTION MUST BE 00546 M01S00305.286l859 ---|* FOLLOWED BY 3 CHARACTERS, THE FIRST 2 BEING OCTAL DIGITS FOR 00547 M01S00306.286l859 ---|* THE BINARY VALUE OF THE PARAMETER ADDRESS LOCATION IN TABLE 00548 M01S00307.286l859 ---|* *TMSP* (THE *LOC* ADDRESS). THE THIRD CHARACTER REPRESENTS 00549 M01S00308.286l859 ---|* A FORMATTING CONTROL FOR THE PARAMETER. IF THE CHARACTER IS 00550 M01S00309.286l859 ---|* A DIGIT IT SPECIFIES THE NUMBER OF CHARACTERS-1 OF THE 00551 M01S00310.286l859 ---|* PARAMETER VALUE TO INSERT IN THE MESSAGE. IF THE PARAMETER 00552 M01S00311.286l859 ---|* IS DISPLAY CODED, THE CHARACTERS ARE TAKEN STARTING WITH THE 00553 M01S00312.286l859 ---|* LEFTMOST NON-ZERO CHARACTER AND DISPLAYED WITH TRAILING 00554 M01S00313.286l859 ---|* BLANKS IF NECESSARY. IF THE PARAMETER IS NUMERIC, THE 00555 M01S00314.286l859 ---|* CHARACTERS ARE TAKEN STARTING WITH THE LEAST SIGNIFICANT 00556 M01S00315.286l859 ---|* DIGIT (RIGHTMOST CHARACTER) AND DISPLAYED WITH LEADING 00557 M01S00316.286l859 ---|* ZEROS. IF THE FORMATTING CONTROL CHARACTER IS A *B*, ALL 00558 M01S00317.286l859 ---|* PARAMETER VALUES ARE DISPLAYED AS 10 CHARACTERS WITH 00559 M01S00318.286l859 ---|* LEADING BLANK, RIGHT JUSTIFIED NUMERICAL VALUES AND 00560 M01S00319.286l859 ---|* TRAILING BLANK, LEFT JUSTIFIED DISPLAY CODED VALUES. IF 00561 M01S00320.286l859 ---|* THE FORMATTING CONTROL CHARACTER IS ANY NON-DIGIT OTHER 00562 M01S00321.286l859 ---|* THAN *B*, CHARACTERS FROM THE VALUE ARE DISPLAYED STARTING 00563 M01S00322.286l859 ---|* WITH THE LEFTMOST CHARACTER AND CONTINUING ACROSS WORD 00564 M01S00323.286l859 ---|* BOUNDARIES, IF NECESSARY, UNTIL A ZERO CHARACTER IS FOUND. 00565 M01S00324.286l859 ---|* TO DISPLAY A DOLLAR SIGN IN THE MESSAGE, 2 DOLLAR SIGNS, 00566 M01S00325.286l859 ---|* *$$*, MUST BE PLACED IN THE SKELETON. 00567 M01S00326.286l859 ---|* 00568 M01S00327.286l859 ---|* ENTRY (B6) = ADDRESS OF MESSAGE PARAMETER SKELETON. 00569 M01S00328.286l859 ---|* (X6) = MESSAGE DESCRIPTION STRING ADDRESS. 00570 M01S00329.286l859 ---|* TABLE OF PARAMETERS, *TMSP*, WITH ENTRIES IN FORM - 00571 M01S00330.286l859 ---|* 1/CONVERT VALUE,1/DECIMAL PARAMETER,58/VALUE ADDRESS. 00572 M01S00331.286l859 ---|* 00573 M01S00332.286l859 ---|* EXIT (X5) = ADDRESS OF FORMATTED MESSAGE IN *C* FORMAT. 00574 M01S00333.286l859 ---|* 00575 M01S00334.286l859 ---|* USES X - ALL. 00576 M01S00335.286l859 ---|* A - ALL. 00577 M01S00336.286l859 ---|* B - 2, 3, 4, 5, 6, 7. 00578 M01S00337.286l859 ---|* 00579 M01S00338.286l859 ---|* CALLS CDD, COD, DXB, ZTB. 00580 M01S00339.286l859 ---| 00581 M01S00340.286l859 ---| 00582 M01S00341.286l859 ---|* END MESSAGE. 00583 M01S00342.286l859 ---| 00584 M01S00343.286l859 ---| EDS21 SX2 B4 INSURE EVEN NUMBER OF CHARACTERS 00585 M01S00344.286l859 ---| LX2 -1 00586 M01S00345.286l859 ---| PL X2,EDS22 IF NOT ODD NUMBER 00587 M01S00346.286l859 ---| LX7 6 ADD TRAILING BLANK 00588 M01S00347.286l859 ---| SX3 1R 00589 M01S00348.286l859 ---| SB4 B4-B1 00590 M01S00349.286l859 ---| BX7 X3+X7 00591 M01S00350.286l859 ---| EDS22 SB4 B4+B4 LEFT JUSTIFY LAST WORD OF NEW MESSAGE 00592 M01S00351.286l859 ---| SB3 B4+B4 00593 M01S00352.286l859 ---| SB4 B3+B4 00594 M01S00353.286l859 ---| LX7 X7,B4 00595 M01S00354.286l859 ---| SA7 A0+ 00596 M01S00355.286l859 ---| BX6 X6-X6 GUARANTEE END OF LINE 00597 M01S00356.286l859 ---| SA6 A0+B1 00598 M01S00357.286l859 ---| SX5 EDBF SET MESSAGE ADDRESS 00599 M01S00358.286l859 ---| 00600 M01S00359.286l859 ---| EDS SUBR ENTRY/EXIT 00601 M01S00360.286l859 ---| SA6 EDSA SAVE MESSAGE DESCRIPTION STRING ADDRESS 00602 M01S00361.286l859 ---| SA0 EDBF SET FORMATTED MESSAGE ADDRESS 00603 M01S00362.286l859 ---| SA4 B6-B1 INITIALIZE REGISTER 00604 M01S00363.286l859 ---| SB4 10 NEW MESSAGE WORD CHARACTER COUNT 00605 M01S00364.286l859 ---| SB3 B0 OLD MESSAGE WORD CHARACTER COUNT 00606 M01S00365.286l859 ---| BX7 X7-X7 ASSEMBLY REGISTER 00607 M01S00366.286l859 ---| MX0 -6 00608 M01S00367.286l859 ---| 00609 M01S00368.286l859 ---|* CHECK FOR SEARCH CHARACTERS IN MESSAGE SKELETON. 00610 M01S00369.286l859 ---| 00611 M01S00370.286l859 ---| EDS1 SX5 1R$ SET SEARCH CHARACTER 00612 M01S00371.286l859 ---| SB3 B3-1 DECREMENT OLD MESSAGE COUNT 00613 M01S00372.286l859 ---| PL B3,EDS2 IF MORE CHARACTERS IN OLD WORD 00614 M01S00373.286l859 ---| SA4 A4+1 GET NEXT OLD MESSAGE WORD 00615 M01S00374.286l859 ---| SB3 9 RESET OLD MESSAGE WORD CHARACTER COUNT 00616 M01S00375.286l859 ---| EDS2 LX4 6 GET NEXT CHARACTER FROM OLD MESSAGE 00617 M01S00376.286l859 ---| BX2 -X0*X4 00618 M01S00377.286l859 ---| ZR X2,EDS21 IF END OF LINE 00619 M01S00378.286l859 ---| SB6 B0 00620 M01S00379.286l859 ---| BX3 X5-X2 00621 M01S00380.286l859 ---| NZ X3,EDS19 IF NOT SEARCH CHARACTER 00622 M01S00381.286l859 ---| 00623 M01S00382.286l859 ---|* INSERT DESCRIPTION STRING INTO MESSAGE. 00624 M01S00383.286l859 ---| 00625 M01S00384.286l859 ---| SX6 B0+ 00626 M01S00385.286l859 ---| SA2 EDSA 00627 M01S00386.286l859 ---| ZR X2,EDS5 IF DESCRIPTION STRING INSERTED 00628 M01S00387.286l859 ---| SA1 X2+ GET MESSAGE DESCRIPTION WORD 00629 M01S00388.286l859 ---| SB2 10 00630 M01S00389.286l859 ---| SA6 A2+ CLEAR DESCRIPTION STRING FLAG 00631 M01S00390.286l859 ---| EDS3 SB2 B2-1 00632 M01S00391.286l859 ---| PL B2,EDS4 IF MORE CHARACTERS IN WORD 00633 M01S00392.286l859 ---| SA1 A1+1 GET NEXT WORD IN DESCRIPTION STRING 00634 M01S00393.286l859 ---| SB2 9 00635 M01S00394.286l859 ---| EDS4 LX1 6 GET NEXT CHARACTER 00636 M01S00395.286l859 ---| BX2 -X0*X1 00637 M01S00396.286l859 ---| ZR X2,EDS1 IF DESCRIPTION STRING INSERTED IN MESSAGE 00638 M01S00397.286l859 ---| SB6 -B1 00639 M01S00398.286l859 ---| EQ EDS19 INSERT CHARACTER IN NEW MESSAGE 00640 M01S00399.286l859 ---| 00641 M01S00400.286l859 ---|* EXTRACT PARAMETER DESCRIPTOR AND FORMAT CONTROL CHARACTERS. 00642 M01S00401.286l859 ---| 00643 M01S00402.286l859 ---| EDS5 SB3 B3-1 00644 M01S00403.286l859 ---| PL B3,EDS6 IF MORE CHARACTERS IN OLD WORD 00645 M01S00404.286l859 ---| SA4 A4+1 GET NEXT WORD 00646 M01S00405.286l859 ---| SB3 9 00647 M01S00406.286l859 ---| EDS6 LX4 6 GET NEXT CHARACTER 00648 M01S00407.286l859 ---| BX3 -X0*X4 00649 M01S00408.286l859 ---| NG X6,EDS8 IF FORMAT CONTROL CHARACTER 00650 M01S00409.286l859 ---| NZ X6,EDS7 IF SECOND DESCRIPTOR CHARACTER 00651 M01S00410.286l859 ---| BX6 X5-X3 CHECK FOR DOUBLE SEARCH CHARACTER 00652 M01S00411.286l859 ---| SX2 X5 00653 M01S00412.286l859 ---| ZR X6,EDS19 IF NOT MEANT TO BE A SEARCH CHARACTER 00654 M01S00413.286l859 ---| LX3 6 SAVE FIRST PARAMETER DESCRIPTOR CHARACTER 00655 M01S00414.286l859 ---| BX6 X3 00656 M01S00415.286l859 ---| EQ EDS5 EXTRACT NEXT CHARACTER 00657 M01S00416.286l859 ---| 00658 M01S00417.286l859 ---| EDS7 BX6 X6+X3 MERGE DESCRIPTOR CHARACTERS 00659 M01S00418.286l859 ---| LX6 -12 00660 M01S00419.286l859 ---| SA6 EDSB 00661 M01S00420.286l859 ---| SX6 -B1 00662 M01S00421.286l859 ---| EQ EDS5 GET FORMAT CHARACTER 00663 M01S00422.286l859 ---| 00664 M01S00423.286l859 ---| EDS8 SA7 EDSC SAVE REGISTERS 00665 M01S00424.286l859 ---| SX6 A4 00666 M01S00425.286l859 ---| SA6 A7+B1 00667 M01S00426.286l859 ---| BX7 X4 00668 M01S00427.286l859 ---| SA7 A6+B1 00669 M01S00428.286l859 ---| SX6 B3 00670 M01S00429.286l859 ---| SX7 B4 00671 M01S00430.286l859 ---| SA6 A7+B1 00672 M01S00431.286l859 ---| SA7 A6+B1 00673 M01S00432.286l859 ---| SX6 -1 CHECK FOR *B* FORMAT CHARACTER 00674 M01S00433.286l859 ---| SX5 X3-1RB 00675 M01S00434.286l859 ---| ZR X5,EDS9 IF *B* CHARACTER 00676 M01S00435.286l859 ---| SX6 B0+ CHECK FOR NON-DIGIT 00677 M01S00436.286l859 ---| SX2 X3-1R0 00678 M01S00437.286l859 ---| NG X2,EDS9 IF ALPHABETIC CHARACTER 00679 M01S00438.286l859 ---| SX5 X3-1R+ 00680 M01S00439.286l859 ---| PL X5,EDS9 IF NON-DIGIT 00681 M01S00440.286l859 ---| LX3 -6 CONVERT LENGTH CHARACTER TO BINARY 00682 M01S00441.286l859 ---| BX5 X3 00683 M01S00442.286l859 ---| SB7 B1 00684 M01S00443.286l859 ---| RJ DXB 00685 M01S00444.286l859 ---| SX6 X6+B1 SET MASK LENGTH - 1 00686 M01S00445.286l859 ---| SX7 6 00687 M01S00446.286l859 ---| IX1 X6*X7 00688 M01S00447.286l859 ---| SX6 X1-1 00689 M01S00448.286l859 ---| EDS9 SA5 EDSB CONVERT DESCRIPTOR CHARACTERS TO BINARY 00690 M01S00449.286l859 ---| SB7 B0 00691 M01S00450.286l859 ---| SA6 A5 SAVE FORMAT CONTROL VALUE 00692 M01S00451.286l859 ---| RJ DXB 00693 M01S00452.286l859 ---| 00694 M01S00453.286l859 ---|* CONVERT NUMERICAL PARAMETERS. 00695 M01S00454.286l859 ---| 00696 M01S00455.286l859 ---| SA3 TMSP+X6 GET PARAMETER ADDRESS 00697 M01S00456.286l859 ---| SA1 X3+ 00698 M01S00457.286l859 ---| PL X3,EDS13 IF DISPLAY CODED PARAMETER 00699 M01S00458.286l859 ---| LX3 59-58 00700 M01S00459.286l859 ---| NG X3,EDS10 IF DECIMAL PARAMETER 00701 M01S00460.286l859 ---| RJ COD CONVERT TO DISPLAY CODE 00702 M01S00461.286l859 ---| EQ EDS11 CHECK FORMATTING CONTROL 00703 M01S00462.286l859 ---| 00704 M01S00463.286l859 ---| EDS10 RJ CDD CONVERT TO DISPLAY CODE 00705 M01S00464.286l859 ---| EDS11 SA2 EDSB 00706 M01S00465.286l859 ---| SB5 B1 SET ONE WORD MAXIMUM 00707 M01S00466.286l859 ---| BX1 X6 00708 M01S00467.286l859 ---| NG X2,EDS16 IF TO PUT OUT WITH BLANK FILL 00709 M01S00468.286l859 ---| 00710 M01S00469.286l859 ---|* SUPPRESS LEADING ZEROS ON NUMERICAL FIELDS. 00711 M01S00470.286l859 ---| 00712 M01S00471.286l859 ---| SB2 B2-B1 MASK OFF SIGNIFICANT CHARACTERS 00713 M01S00472.286l859 ---| MX3 1 00714 M01S00473.286l859 ---| AX3 X3,B2 00715 M01S00474.286l859 ---| BX1 X3*X4 00716 M01S00475.286l859 ---| ZR X2,EDS16 IF TO SUPPRESS LEADING ZEROS 00717 M01S00476.286l859 ---| 00718 M01S00477.286l859 ---|* USE NUMBER OF CHARACTERS AS SPECIFIED IN SKELETON. 00719 M01S00478.286l859 ---| 00720 M01S00479.286l859 ---| SA4 EDSD ZERO FILL WORD 00721 M01S00480.286l859 ---| BX4 -X3*X4 00722 M01S00481.286l859 ---| BX6 X1+X4 00723 M01S00482.286l859 ---| SB7 X2 FORM MASK 00724 M01S00483.286l859 ---| MX3 1 00725 M01S00484.286l859 ---| SB2 B2-B7 CALCULATE SHIFT COUNT 00726 M01S00485.286l859 ---| AX3 X3,B7 00727 M01S00486.286l859 ---| PL B2,EDS12 IF LEFT CIRCULAR SHIFT 00728 M01S00487.286l859 ---| SB2 B2+60 INSURE LEFT SHIFT 00729 M01S00488.286l859 ---| EDS12 LX6 X6,B2 00730 M01S00489.286l859 ---| BX1 X3*X6 00731 M01S00490.286l859 ---| EQ EDS16 RESTORE REGISTERS 00732 M01S00491.286l859 ---| 00733 M01S00492.286l859 ---|* PROCESS DISPLAY CODED PARAMETER. 00734 M01S00493.286l859 ---| 00735 M01S00494.286l859 ---| EDS13 SA2 EDSB 00736 M01S00495.286l859 ---| SB5 EDBFL-1 SET MAXIMUM WORDS POSSIBLE 00737 M01S00496.286l859 ---| ZR X2,EDS16 IF TO TAKE WHAT IS GIVEN IN *C* FORMAT 00738 M01S00497.286l859 ---| RJ ZTB CONVERT ZEROS TO BLANKS 00739 M01S00498.286l859 ---| SB3 10 00740 M01S00499.286l859 ---| BX1 X6 00741 M01S00500.286l859 ---| SB5 B1 SET ONE WORD MAXIMUM 00742 M01S00501.286l859 ---| EDS14 SX7 1R CHECK FOR FIRST NON-BLANK CHARACTER 00743 M01S00502.286l859 ---| LX7 -6 00744 M01S00503.286l859 ---| MX0 6 00745 M01S00504.286l859 ---| BX6 X0*X1 00746 M01S00505.286l859 ---| BX3 X6-X7 00747 M01S00506.286l859 ---| NZ X3,EDS15 IF NON-BLANK FOUND 00748 M01S00507.286l859 ---| SB3 B3-B1 00749 M01S00508.286l859 ---| LX1 6 SHIFT TO CHECK NEXT CHARACTER 00750 M01S00509.286l859 ---| NZ B3,EDS14 IF NOT ALL CHARACTERS CHECKED 00751 M01S00510.286l859 ---| EDS15 NG X2,EDS16 IF TO BE LEFT JUSTIFIED WITH BLANK FILL 00752 M01S00511.286l859 ---| SB7 X2 FORM MASK 00753 M01S00512.286l859 ---| MX3 1 00754 M01S00513.286l859 ---| AX3 X3,B7 00755 M01S00514.286l859 ---| BX1 X3*X1 GET SPECIFIED NUMBER OF CHARACTERS 00756 M01S00515.286l859 ---| 00757 M01S00516.286l859 ---|* INSERT PARAMETER VALUE INTO MESSAGE. 00758 M01S00517.286l859 ---| 00759 M01S00518.286l859 ---| EDS16 SA2 EDSC RESTORE REGISTERS SAVED 00760 M01S00519.286l859 ---| BX7 X2 00761 M01S00520.286l859 ---| SA2 A2+B1 00762 M01S00521.286l859 ---| SA4 X2 00763 M01S00522.286l859 ---| SA3 A2+B1 00764 M01S00523.286l859 ---| BX4 X3 00765 M01S00524.286l859 ---| SA2 A3+B1 00766 M01S00525.286l859 ---| SB3 X2+ 00767 M01S00526.286l859 ---| SA3 A2+1 00768 M01S00527.286l859 ---| SB4 X3 00769 M01S00528.286l859 ---| SB2 10 SET MAXIMUM CHARACTERS TO TRANSFER 00770 M01S00529.286l859 ---| MX0 -6 00771 M01S00530.286l859 ---| EDS17 SB2 B2-B1 00772 M01S00531.286l859 ---| PL B2,EDS18 IF NOT END OF WORD 00773 M01S00532.286l859 ---| SB5 B5-B1 00774 M01S00533.286l859 ---| ZR B5,EDS1 IF ALL CHARACTERS TRANSFERRED 00775 M01S00534.286l859 ---| SA1 A1+1 GET NEXT WORD 00776 M01S00535.286l859 ---| SB2 9 00777 M01S00536.286l859 ---| EDS18 LX1 6 GET NEXT CHARACTER 00778 M01S00537.286l859 ---| BX2 -X0*X1 00779 M01S00538.286l859 ---| ZR X2,EDS1 IF ALL NON-ZERO CHARACTERS TRANSFERRED 00780 M01S00539.286l859 ---| SB6 B1+ 00781 M01S00540.286l859 ---| 00782 M01S00541.286l859 ---|* INSERT CHARACTER INTO NEW MESSAGE. 00783 M01S00542.286l859 ---| 00784 M01S00543.286l859 ---| EDS19 LX7 6 ENTER CHARACTER INTO NEW MESSAGE 00785 M01S00544.286l859 ---| BX7 X7+X2 00786 M01S00545.286l859 ---| SB4 B4-1 DECREMENT NEW MESSAGE CHARACTER COUNT 00787 M01S00546.286l859 ---| GT B4,EDS20 IF NEW MESSAGE WORD NOT FULL 00788 M01S00547.286l859 ---| SX6 A0-EDBF-EDBFL+2 00789 M01S00548.286l859 ---| ZR X6,EDS21 IF END OF MESSAGE BUFFER 00790 M01S00549.286l859 ---| SA7 A0+ SAVE NEW MESSAGE WORD 00791 M01S00550.286l859 ---| SA0 A0+B1 00792 M01S00551.286l859 ---| BX7 X7-X7 00793 M01S00552.286l859 ---| SB4 10 RESET CHARACTER COUNT 00794 M01S00553.286l859 ---| EDS20 ZR B6,EDS1 IF NON-REPLACEMENT CHARACTER 00795 M01S00554.286l859 ---| NG B6,EDS3 IF ERROR TYPE MESSAGE REPLACEMENT 00796 M01S00555.286l859 ---| EQ EDS17 INSERT NEXT PARAMETER CHARACTER 00797 M01S00556.286l859 ---| 00798 M01S00557.286l859 ---| 00799 M01S00558.286l859 ---| EDSA CON 0 ERROR TYPE ADDRESS 00800 M01S00559.286l859 ---| EDSB CON 0 CONVERTED FORMAT CONTROL CHARACTER 00801 M01S00560.286l859 ---| EDSC BSS 5 REGISTER SAVE AREA 00802 M01S00561.286l859 ---| EDSD DATA 10L0000000000 00803 M01S00562.286l859 ---| SEM SPACE 4,20
| Line S00241 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00804 M01S00241.286l859 +++| IFC SPACE 4,25 00805 M01S00242.286l859 +++|** IFC - ISSUE FILE COUNT MESSAGES. 00806 M01S00243.286l859 +++|* 00807 M01S00244.286l859 +++|* ENTRY (A5) = ADDRESS OF FIRST MESSAGE CONTROL TABLE ENTRY. 00808 M01S00245.286l859 +++|* (X5) = FIRST MESSAGE CONTROL TABLE ENTRY. 00809 M01S00246.286l859 +++|* 00810 M01S00247.286l859 +++|* EXIT FILE COUNT MESSAGES ISSUED TO DAYFILE. 00811 M01S00248.286l859 +++|* 00812 M01S00249.286l859 +++|* USES X - 1, 5, 6. 00813 M01S00250.286l859 +++|* A - 1, 5. 00814 M01S00251.286l859 +++|* B - 2, 3, 5. 00815 M01S00252.286l859 +++|* 00816 M01S00253.286l859 +++|* CALLS CDD, SNM. 00817 M01S00254.286l859 +++|* 00818 M01S00255.286l859 +++|* MACROS MESSAGE. 00819 M01S00256.286l859 +++|* 00820 M01S00257.286l859 +++|* MESSAGE CONTROL TABLE FORMAT - 00821 M01S00258.286l859 +++|* 00822 M01S00259.286l859 +++|* 1/ ZR,1/ SS,22/ ,18/ MS,18/ CT 00823 M01S00260.286l859 +++|* 00824 M01S00261.286l859 +++|* ZR = ISSUE MESSAGE IF COUNT = 0. 00825 M01S00262.286l859 +++|* SS = SUPRESS LEADING SPACES IN CONVERTED COUNT. 00826 M01S00263.286l859 +++|* MS = ADDRESS OF MESSAGE. 00827 M01S00264.286l859 +++|* CT = ADDRESS OF COUNT. 00828 M01S00265.286l859 +++| 00829 M01S00266.286l859 +++| 00830 M01S00267.286l859 +++| IFC SUBR ENTRY/EXIT 00831 M01S00268.286l859 +++| IFC1 ZR X5,IFCX IF NO MORE MESSAGES 00832 M01S00269.286l859 +++| SA1 X5+ GET FILE COUNT 00833 M01S00270.286l859 +++| NZ X1,IFC2 IF COUNT .NE. 0 00834 M01S00271.286l859 +++| PL X5,IFC6 IF NOT TO ISSUE MESSAGE 00835 M01S00272.286l859 +++| IFC2 RJ CDD CONVERT COUNT 00836 M01S00273.286l859 +++| LX5 59-58 00837 M01S00274.286l859 +++| MX1 1 00838 M01S00275.286l859 +++| SB3 60 00839 M01S00276.286l859 +++| NG X5,IFC4 IF TO SUPRESS LEADING SPACES 00840 M01S00277.286l859 +++| SB2 36 SET FIELD WIDTH 00841 M01S00278.286l859 +++| IFC4 SB3 B3-B2 00842 M01S00279.286l859 +++| SB2 B2-1 00843 M01S00280.286l859 +++| LX6 B3 00844 M01S00281.286l859 +++| AX1 B2 00845 M01S00282.286l859 +++| LX5 -19 00846 M01S00283.286l859 +++| BX1 X1*X6 00847 M01S00284.286l859 +++| SB5 X5 MESSAGE ADDRESS 00848 M01S00285.286l859 +++| SB2 1R? 00849 M01S00286.286l859 +++| RJ SNM SET COUNT IN MESSAGE 00850 M01S00287.286l859 +++| LX5 18 00851 M01S00288.286l859 +++| SA2 X5 RESET COUNT 00852 M01S00289.286l859 +++| SX1 1RS 00853 M01S00290.286l859 +++| LX1 -6 00854 M01S00291.286l859 +++| SX6 1 00855 M01S00292.286l859 +++| IX6 X2-X6 00856 M01S00293.286l859 +++| NZ X6,IFC5 IF COUNT .NE. 1 00857 M01S00294.286l859 +++| SX1 0 00858 M01S00295.286l859 +++| IFC5 SB2 1R! 00859 M01S00296.286l859 +++| RJ SNM SET SINGULAR OR PLURAL MESSAGE 00860 M01S00297.286l859 +++| MESSAGE B5 00861 M01S00298.286l859 +++| IFC6 SA5 A5+B1 GET NEXT ADDRESS 00862 M01S00299.286l859 +++| EQ IFC1 PROCESS NEXT MESSAGE
| Line S00300 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 00863 M02S00300.cpfs2 ---| SDE SPACE 4,10
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 00864 M01S00001.cpfs2 +++| SDE SPACE 4,15
| Line S00301 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00865 M01S00301.286l859 +++|** SDE - SEND FILE ERROR MESSAGE WITH DEVICE NUMBER. 00866 M01S00302.286l859 +++|* 00867 M01S00303.286l859 +++|* ENTRY (X1) = FILE NAME AND USER INDEX. 00868 M01S00304.286l859 +++|* (X2) = DEVICE NUMBER. 00869 M01S00305.286l859 +++|* (B2) = MESSAGE TEMPLATE ADDRESS. 00870 M01S00306.286l859 +++|* 00871 M01S00307.286l859 +++|* EXIT ERROR MESSAGE ISSUED. 00872 M01S00308.286l859 +++|* 00873 M01S00309.286l859 +++|* USES X - 1, 6. 00874 M01S00310.286l859 +++|* A - 1, 6.
| Line S00311 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 00875 M02S00311.cpfs2 ---|* B - 2, 5.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 00876 M01S00002.cpfs2 +++|* B - 2.
| Line S00312 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00877 M01S00312.286l859 +++|* 00878 M01S00313.286l859 +++|* CALLS COD, SEM, SNM. 00879 M01S00314.286l859 +++| 00880 M01S00315.286l859 +++| 00881 M01S00316.286l859 +++| SDE SUBR ENTRY/EXIT 00882 M01S00317.286l859 +++| SX6 X2+ 00883 M01S00318.286l859 +++| SA6 SDEA SAVE DEVICE NUMBER 00884 M01S00319.286l859 +++| RJ SFU SET FILE NAME AND USER INDEX 00885 M01S00320.286l859 +++| SA1 SDEA 00886 M01S00321.286l859 +++| RJ COD CONVERT DEVICE NUMBER
| Line S00322 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 00887 M02S00322.cpfs2 ---| BX1 X4
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 00888 M01S00003.cpfs2 +++| SB2 B2-B1 00889 M01S00004.cpfs2 +++| MX6 1 00890 M01S00005.cpfs2 +++| AX6 B2 SET DIGITS MASK 00891 M01S00006.cpfs2 +++| BX1 X6*X4 REMOVE TRAILING BLANKS
| Line S00323 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00892 M01S00323.286l859 +++| SB2 1R+
| Line S00324 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 00893 M02S00324.cpfs2 ---| SB5 MSGB
| Line S00325 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00894 M01S00325.286l859 +++| RJ SNM SET DEVICE NUMBER IN MESSAGE 00895 M01S00326.286l859 +++| SB2 MSGB SET MESSAGE ADDRESS 00896 M01S00327.286l859 +++| RJ SEM SEND ERROR MESSAGE 00897 M01S00328.286l859 +++| EQ SDEX RETURN 00898 M01S00329.286l859 +++| 00899 M01S00330.286l859 +++| 00900 M01S00331.286l859 +++| SDEA CON 0 DEVICE NUMBER 00901 M01S00332.286l859 +++| SEM SPACE 4,15 00902 M00S00563.comcpfs +++|** SEM - SEND ERROR MESSAGE. 00903 M00S00564.comcpfs +++|*
| Line S00565 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00904 M01S00565.286l859 ---|* ENTRY (X5) = MESSAGE ADDRESS.
| Line S00333 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00905 M01S00333.286l859 +++|* ENTRY (B2) = MESSAGE ADDRESS.
| Line S00566 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00906 M01S00566.286l859 ---|* (ELFG) = 0, IF MESSAGE NOT TO BE INCLUDED IN ERRLOG. 00907 M01S00567.286l859 ---|* = 1, IF MESSAGE TO BE INCLUDED IN ERRLOG. 00908 M00S00568.comcpfs ---|* 00909 M00S00569.comcpfs ---|* EXIT MESSAGE SENT TO DAYFILE. 00910 M00S00570.comcpfs ---|* IF *LO=E*, MESSAGE SENT TO OUTPUT FILE. 00911 M01S00571.286l859 ---|* IF (ELFG) = 1, MESSAGE SENT TO ERRLOG. 00912 M01S00572.286l859 ---|* (ELFG) = 0. 00913 M00S00573.comcpfs ---|* 00914 M01S00574.286l859 ---|* USES X - 0, 1, 6. 00915 M01S00575.286l859 ---|* A - 1, 6.
| Line S00334 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00916 M01S00334.286l859 +++|* USES X - 1, 6. 00917 M01S00335.286l859 +++|* A - 1. 00918 M00S00576.comcpfs +++|*
| Line S00577 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00919 M01S00577.286l859 ---|* CALLS ALN, BEL.
| Line S00336 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00920 M01S00336.286l859 +++|* CALLS ALN. 00921 M00S00578.comcpfs +++|*
| Line S00579 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00922 M01S00579.286l859 ---|* MACROS MESSAGE, WRITEC, WRITEH.
| Line S00337 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00923 M01S00337.286l859 +++|* MACROS MESSAGE, MOVE, WRITEC, WRITEH. 00924 M00S00580.comcpfs +++| 00925 M00S00581.comcpfs +++| 00926 M00S00582.comcpfs +++| SEM SUBR ENTRY/EXIT 00927 M01S00338.286l859 +++| SX1 B2-MSGB 00928 M01S00339.286l859 +++| ZR X1,SEM1 IF MESSAGE ALREADY IN BUFFER 00929 M01S00340.286l859 +++| MOVE 8,B2,MSGB MOVE MESSAGE TO BUFFER 00930 M01S00341.286l859 +++| SEM1 MESSAGE MSGB ISSUE DAYFILE MESSAGE 00931 M00S00583.comcpfs +++| SA1 CPAR+/COMSPFS/CPLO
| Line S00584 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00932 M01S00584.286l859 ---| LX1 2 00933 M01S00585.286l859 ---| PL X1,SEM1 IF LO = E NOT SPECIFIED
| Line S00342 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00934 M01S00342.286l859 +++| LX1 59-57 00935 M01S00343.286l859 +++| PL X1,SEMX IF LO = E NOT SPECIFIED 00936 M01S00344.286l859 +++| SA1 O 00937 M01S00345.286l859 +++| AX1 18 00938 M01S00346.286l859 +++| ZR X1,SEMX IF OUTPUT FILE NOT INITIALIZED 00939 M00S00586.comcpfs +++| SX6 2 ALLOCATE TWO LINES
| Line S00587 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00940 M01S00587.286l859 ---| SX0 OUTPUT SET OUTPUT FILE FET ADDRESS 00941 M00S00588.comcpfs ---| RJ ALN 00942 M01S00589.286l859 ---| WRITEH OUTPUT,BLAN,1 PRINT ERROR MESSAGE
| Line S00347 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00943 M01S00347.286l859 +++| WRITEH O,BLAN,1 WRITE MESSAGE TO OUTPUT FILE
| Line S00590 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00944 M01S00590.286l859 ---| WRITEC X2,X5
| Line S00348 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00945 M01S00348.286l859 +++| WRITEC X2,MSGB
| Line S00591 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00946 M01S00591.286l859 ---| SEM1 MESSAGE X5 00947 M01S00592.286l859 ---| SA1 ELFG 00948 M01S00593.286l859 ---| ZR X1,SEM2 IF ERRLOG ENTRY NOT DESIRED 00949 M01S00594.286l859 ---| RJ BEL BUILD ERRLOG MESSAGE 00950 M01S00595.286l859 ---| MESSAGE X5,4 00951 M01S00596.286l859 ---| BX6 X6-X6 CLEAR ERRLOG FLAG 00952 M01S00597.286l859 ---| SA6 ELFG 00953 M01S00598.286l859 ---| SEM2 SX6 B1+ SET ERROR MESSAGE ISSUED FLAG 00954 M01S00599.286l859 ---| SA6 EMIF 00955 M00S00600.comcpfs ---| EQ SEMX RETURN
| Line S00349 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00956 M01S00349.286l859 +++| SFE SPACE 4,10 00957 M01S00350.286l859 +++|** SFE - SEND ERROR MESSAGE WITH FILE NAME AND USER INDEX. 00958 M01S00351.286l859 +++|* 00959 M01S00352.286l859 +++|* ENTRY (X1) = FILE NAME AND USER INDEX. 00960 M01S00353.286l859 +++|* (B2) = MESSAGE TEMPLATE ADDRESS. 00961 M01S00354.286l859 +++|* 00962 M01S00355.286l859 +++|* USES B - 2. 00963 M01S00356.286l859 +++|* 00964 M01S00357.286l859 +++|* CALLS SEM, SFU. 00965 M01S00358.286l859 +++| 00966 M01S00359.286l859 +++| 00967 M01S00360.286l859 +++| SFE SUBR ENTRY/EXIT 00968 M01S00361.286l859 +++| RJ SFU SET FILE NAME AND USER INDEX 00969 M01S00362.286l859 +++| SB2 MSGB SET MESSAGE ADDRESS 00970 M01S00363.286l859 +++| RJ SEM SEND ERROR MESSAGE 00971 M01S00364.286l859 +++| EQ SFEX RETURN
| Line S00365 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 00972 M02S00365.cpfs2 ---| SFU SPACE 4,10
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 00973 M01S00007.cpfs2 +++| SFU SPACE 4,15
| Line S00366 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00974 M01S00366.286l859 +++|** SFU - SET FILE NAME AND USER INDEX IN MESSAGE. 00975 M01S00367.286l859 +++|* 00976 M01S00368.286l859 +++|* ENTRY (B2) = MESSAGE TEMPLATE ADDRESS. 00977 M01S00369.286l859 +++|* (X1) = FILE NAME AND USER INDEX. 00978 M01S00370.286l859 +++|* 00979 M01S00371.286l859 +++|* EXIT MESSAGE WITH FILE NAME AND USER INDEX IN *MSGB*.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 00980 M01S00008.cpfs2 +++|* (B5) = *MSGB*.
| Line S00372 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00981 M01S00372.286l859 +++|* 00982 M01S00373.286l859 +++|* USES X - 1, 6, 7. 00983 M01S00374.286l859 +++|* A - 1. 00984 M01S00375.286l859 +++|* B - 2, 3, 5. 00985 M01S00376.286l859 +++|* 00986 M01S00377.286l859 +++|* CALLS COD, SNM. 00987 M01S00378.286l859 +++| 00988 M01S00379.286l859 +++| 00989 M01S00380.286l859 +++| SFU SUBR ENTRY/EXIT 00990 M01S00381.286l859 +++| MX6 -18 00991 M01S00382.286l859 +++| BX7 -X6*X1 USER INDEX 00992 M01S00383.286l859 +++| BX1 X6*X1 FILE NAME 00993 M01S00384.286l859 +++| SB5 -B2 SET TEMPLATE ADDRESS 00994 M01S00385.286l859 +++| SA7 SFUA SAVE USER INDEX 00995 M01S00386.286l859 +++| SB2 1R? 00996 M01S00387.286l859 +++| SB3 MSGB SET ASSEMBLY AREA ADDRESS 00997 M01S00388.286l859 +++| RJ SNM SET FILE NAME IN MESSAGE 00998 M01S00389.286l859 +++| SA1 SFUA 00999 M01S00390.286l859 +++| RJ COD CONVERT USER INDEX
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 01000 M01S00009.cpfs2 +++| SB2 B2-B1
| Line S00391 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01001 M01S00391.286l859 +++| MX6 1 01002 M01S00392.286l859 +++| AX6 B2 SET DIGITS MASK
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 01003 M01S00010.cpfs2 +++| BX1 X6*X4 REMOVE TRAILING BLANKS
| Line S00393 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01004 M01S00393.286l859 +++| SB2 1R! 01005 M01S00394.286l859 +++| SB5 MSGB
| Line S00395 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 01006 M02S00395.cpfs2 ---| BX1 X6*X4 REMOVE TRAILING BLANKS
| Line S00396 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01007 M01S00396.286l859 +++| RJ SNM SET USER INDEX IN MESSAGE 01008 M01S00397.286l859 +++| EQ SFUX RETURN 01009 M01S00398.286l859 +++| 01010 M01S00399.286l859 +++| 01011 M01S00400.286l859 +++| SFUA CON 0 USER INDEX 01012 M00S00601.comcpfs +++| SPACE 4,10 01013 M00S00602.comcpfs +++|* MESSAGE CONTROL FLAGS AND EDIT STRING BUFFER. 01014 M00S00603.comcpfs +++| 01015 M00S00604.comcpfs +++|
| Line S00605 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01016 M01S00605.286l859 ---| ELFG BSSZ 1 ISSUE MESSAGE TO ERROR LOG FLAG 01017 M01S00606.286l859 ---| EMIF BSSZ 1 ERROR MESSAGE ISSUED TO DAYFILE FLAG 01018 M01S00607.286l859 ---| EDBF BSSZ 9 EDIT STRING BUFFER 01019 M01S00608.286l859 ---| EDBFL EQU *-EDBF EDIT STRING BUFFER LENGTH 01020 M01S00609.286l859 ---| SPACE 4,10 01021 M01S00610.286l859 ---|** MESSAGE PARAMETER SKELETONS. 01022 M01S00611.286l859 ---|* 01023 M01S00612.286l859 ---|* SEE ROUTINE *EDS* FOR DOCUMENTATION ON MESSAGE FORMAT. 01024 M01S00613.286l859 ---| 01025 M01S00614.286l859 ---| 01026 M01S00615.286l859 ---| MSCT DATA C*$,FM=$00Z,DN$021,CT$102,EQ$032,T$063,S$073.* 01027 M01S00616.286l859 ---| MSDF DATA C*$ $046$05B*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2673 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01028 M02S00001.286l859 ---| MSFF DATA C*$,FN=$04Z,UI=$05Z,FM=$00Z.*
| Line S00617 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01029 M01S00617.286l859 ---| MSFM DATA C*$,FM=$00Z,DN$021,EQ$032,T$063,S$073.* 01030 M01S00618.286l859 ---| MSFN DATA C*$,FN=$04Z,UI=$05Z.* 01031 M01S00619.286l859 ---| MSMD DATA C*$,FN=$04Z,UI=$05Z,DN$021.* 01032 M01S00620.286l859 ---| MSNI DATA C*$,$129$139.* 01033 M01S00621.286l859 ---| MSPN DATA C*$,PN=$01Z,EQ$032,T$063,S$073.* 01034 M01S00622.286l859 ---| MSPR DATA C*$,FN=$04Z,UI=$05Z,PRU=$11Z.* 01035 M01S00623.286l859 ---| TMSP SPACE 4,10 01036 M01S00624.286l859 ---|** TMSP - TABLE OF MESSAGE PARAMETER SKELETON PARAMETERS. 01037 M01S00625.286l859 ---|* 01038 M01S00626.286l859 ---|* THE ASSOCIATED NUMERICAL VALUE FROM THE *LOC* IS USED IN THE 01039 M01S00627.286l859 ---|* SKELETONS TO SPECIFY THE PARAMETER. 01040 M01S00628.286l859 ---|* 01041 M01S00629.286l859 ---|* 1/CONVERSION NEEDED,1/DECIMAL PARAMETER,58/ADDRESS OF VALUE 01042 M01S00630.286l859 ---| 01043 M01S00631.286l859 ---| 01044 M01S00632.286l859 ---| TMSP BSS 0 01045 M01S00633.286l859 ---| LOC 0 01046 M01S00634.286l859 ---| VFD 1/0,1/0,58/MPFM FAMILY NAME 01047 M01S00635.286l859 ---| VFD 1/0,1/0,58/MPPN PACKNAME 01048 M01S00636.286l859 ---| VFD 1/1,1/0,58/MPDN DEVICE NUMBER 01049 M01S00637.286l859 ---| VFD 1/1,1/0,58/MPEQ EST ORDINAL 01050 M01S00638.286l859 ---| VFD 1/0,1/0,58/MPFN FILE NAME 01051 M01S00639.286l859 ---| VFD 1/1,1/0,58/MPUI USER INDEX 01052 M01S00640.286l859 ---| VFD 1/1,1/0,58/MPTK TRACK 01053 M01S00641.286l859 ---| VFD 1/1,1/0,58/MPSC SECTOR 01054 M01S00642.286l859 ---| VFD 1/1,1/0,58/MPCT CATALOG TRACK 01055 M01S00643.286l859 ---| VFD 1/1,1/1,58/MPPR PRU NUMBER 01056 M01S00644.286l859 ---| VFD 1/1,1/0,58/MPUH UPPER HALF OCTAL WORD 01057 M01S00645.286l859 ---| VFD 1/1,1/0,58/MPLH LOWER HALF OCTAL WORD 01058 M01S00646.286l859 ---| 01059 M01S00647.286l859 ---| ERRPL *-101B IF MORE THAN 2 CHARACTERS NECESSARY 01060 M01S00648.286l859 ---| LOC *O 01061 M01S00649.286l859 ---| SPACE 4,10 01062 M01S00650.286l859 ---|* MESSAGE PARAMETERS. 01063 M01S00651.286l859 ---| 01064 M01S00652.286l859 ---| 01065 M01S00653.286l859 ---| MPFM BSS 1 FAMILY NAME 01066 M01S00654.286l859 ---| MPPN BSS 1 PACK NAME 01067 M01S00655.286l859 ---| MPDN BSS 1 DEVICE NUMBER 01068 M01S00656.286l859 ---| MPEQ BSS 1 EST ORDINAL 01069 M01S00657.286l859 ---| MPFN BSS 1 FILE NAME 01070 M01S00658.286l859 ---| MPUI BSS 1 USER INDEX 01071 M01S00659.286l859 ---| MPTK BSS 1 TRACK 01072 M01S00660.286l859 ---| MPSC BSS 1 SECTOR 01073 M01S00661.286l859 ---| MPCT BSS 1 CATALOG TRACK 01074 M01S00662.286l859 ---| MPPR BSS 1 PRU NUMBER 01075 M01S00663.286l859 ---| MPUH BSS 1 UPPER HALF OF OCTAL WORD 01076 M01S00664.286l859 ---| MPLH BSS 1 LOWER HALF OF OCTAL WORD
| Line S00401 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01077 M01S00401.286l859 +++| MSGB BSSZ 9 MESSAGE ASSEMBLY BUFFER
| Line S00665 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01078 M01S00665.286l859 ---| TITLE COMCPFS - OUTPUT FILE ROUTINES.
| Line S00402 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01079 M01S00402.286l859 +++| TITLE COMCPFS - OUTPUT AND SUMMARY FILE MAIN ROUTINES. 01080 M01S00403.286l859 +++| SPACE 4,10 01081 M01S00404.286l859 +++|** ASSEMBLY CONSTANTS. 01082 M01S00405.286l859 +++| 01083 M01S00406.286l859 +++| 01084 M01S00407.286l859 +++| NWCI EQU 2 NUMBER OF WORDS IN CIR ENTRY 01085 M01S00408.286l859 +++| CFP SPACE 4,20 01086 M01S00409.286l859 +++|** CFP - COUNT FILE PROCESSED. 01087 M01S00410.286l859 +++|* 01088 M01S00411.286l859 +++|* ENTRY (A0) = CATALOG ENTRY ADDRESS. 01089 M01S00412.286l859 +++|* (FLST) = FILE STATUS WORD. 01090 M01S00413.286l859 +++|* 01091 M01S00414.286l859 +++|* EXIT FILE COUNTS UPDATED. 01092 M01S00415.286l859 +++|* CATALOG DATA WRITTEN TO OUTPUT FILE IF UNSORTED OUTPUT 01093 M01S00416.286l859 +++|* SELECTED. 01094 M01S00417.286l859 +++|* CATALOG DATA WRITTEN TO SUMMARY FILE IF SELECTED. 01095 M01S00418.286l859 +++|* CATALOG DATA WRITTEN TO SORT INPUT FILE IF SORTED OR 01096 M01S00419.286l859 +++|* STATISTICAL OUTPUT SELECTED. 01097 M01S00420.286l859 +++|* 01098 M01S00421.286l859 +++|* USES X - 0, 1, 2, 3, 6, 7. 01099 M01S00422.286l859 +++|* A - 1, 2, 3, 6. 01100 M01S00423.286l859 +++|*
| Line S00424 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01101 M02S00424.ns2790 ---|* CALLS MWA, WCO.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01102 M01S00001.ns2790 +++|* CALLS MWA.
| Line S00425 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01103 M01S00425.286l859 +++|* 01104 M01S00426.286l859 +++|* MACROS WRITEW. 01105 M01S00427.286l859 +++| 01106 M01S00428.286l859 +++| 01107 M01S00429.286l859 +++| CFP SUBR ENTRY/EXIT 01108 M01S00430.286l859 +++| 01109 M01S00431.286l859 +++|* UPDATE FILE COUNTS. 01110 M01S00432.286l859 +++| 01111 M01S00433.286l859 +++| SA1 FLST 01112 M01S00434.286l859 +++| SA2 PRFC 01113 M01S00435.286l859 +++| SA3 POFC 01114 M01S00436.286l859 +++| SX7 B1 01115 M01S00437.286l859 +++| MX4 -2 01116 M01S00438.286l859 +++| LX1 59-0 01117 M01S00439.286l859 +++| IX6 X2+X7 COUNT FILE PROCESSED 01118 M01S00440.286l859 +++| BX4 -X4*X1 EXTRACT FILE PROCESSING ERROR FLAGS 01119 M01S00441.286l859 +++| SA6 A2 01120 M01S00442.286l859 +++| PL X1,CFP1 IF NOT PFC ONLY FILE 01121 M01S00443.286l859 +++| IX6 X3+X7 COUNT PFC ONLY FILE 01122 M01S00444.286l859 +++| SA6 A3 01123 M01S00445.286l859 +++| CFP1 ZR X4,CFP2 IF NO PROCESSING ERRORS 01124 M01S00446.286l859 +++| SA2 PEFC 01125 M01S00447.286l859 +++| IX6 X2+X7 COUNT PROCESSING ERROR 01126 M01S00448.286l859 +++| SA6 PEFC 01127 M01S00449.286l859 +++|
| Line S00450 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01128 M02S00450.ns2790 ---|* WRITE OUTPUT FILE.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01129 M01S00002.ns2790 +++|* WRITE SUMMARY FILE.
| Line S00451 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01130 M01S00451.286l859 +++|
| Line S00452 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01131 M02S00452.ns2790 ---| CFP2 SA1 UFOF 01132 M02S00453.ns2790 ---| ZR X1,CFP3 IF UNSORTED FILE LIST NOT SELECTED 01133 M02S00454.ns2790 ---| RJ WCO WRITE CATALOG DATA TO OUTPUT FILE 01134 M02S00455.ns2790 ---| 01135 M02S00456.ns2790 ---|* WRITE SUMMARY FILE. 01136 M02S00457.ns2790 ---| 01137 M02S00458.ns2790 ---| CFP3 SA1 CPAR+/COMSPFS/CPSU 01138 M02S00459.ns2790 ---| ZR X1,CFP4 IF NO SUMMARY FILE
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01139 M01S00003.ns2790 +++| CFP2 SA1 CPAR+/COMSPFS/CPSU 01140 M01S00004.ns2790 +++| ZR X1,CFP3 IF NO SUMMARY FILE
| Line S00460 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01141 M01S00460.286l859 +++| SX2 A0 SET DATA ADDRESS 01142 M01S00461.286l859 +++| SX1 NWCE SET WORD COUNT 01143 M01S00462.286l859 +++| SX0 X1+B1 ALLOCATE ENTRY PLUS CONTROL WORD 01144 M01S00463.286l859 +++| RJ MWA MOVE CATALOG ENTRY TO ASSEMBLY BUFFER 01145 M01S00464.286l859 +++| SX1 B1 SET WORD COUNT 01146 M01S00465.286l859 +++| SX2 FLST SET STATUS WORD ADDRESS 01147 M01S00466.286l859 +++| SX0 B0 SET CONTINUATION STATUS 01148 M01S00467.286l859 +++| RJ MWA MOVE STATUS WORD TO ASSEMBLY BUFFER 01149 M01S00468.286l859 +++| 01150 M01S00469.286l859 +++|* WRITE PROCESSED FILE LIST. 01151 M01S00470.286l859 +++|
| Line S00471 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01152 M02S00471.ns2790 ---| CFP4 SA1 CASF
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01153 M01S00005.ns2790 +++| CFP3 SA1 CPAR+/COMSPFS/CPLO
| Line S00472 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01154 M01S00472.286l859 +++| SA2 A0+FCUI
| Line S00473 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01155 M02S00473.ns2790 ---| ZR X1,CFPX IF CATALOG SORT NOT REQUIRED
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01156 M01S00006.ns2790 +++| SX6 4400B 01157 M01S00007.ns2790 +++| LX6 48 01158 M01S00008.ns2790 +++| BX1 X6*X1 01159 M01S00009.ns2790 +++| ZR X1,CFPX IF *T* OR *S* LIST OPTION NOT SELECTED
| Line S00474 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01160 M01S00474.286l859 +++| LX2 -18 POSITION USER INDEX FOR SORT 01161 M01S00475.286l859 +++| BX6 X2 01162 M01S00476.286l859 +++| SA6 A2 01163 M01S00477.286l859 +++| WRITEW PF,A0,NWCE WRITE CATALOG ENTRY 01164 M01S00478.286l859 +++| WRITEW X2,FLST,1 WRITE STATUS WORD
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01165 M01S00010.ns2790 +++| WRITEW X2,PRFC,1 WRITE SEQUENCE NUMBER
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | cpfs3 |
Seq # *Modification Id* Act ----------------------------+ 01166 M01S00001.cpfs3 +++| SA2 A0+FCUI
| Line S00479 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01167 M01S00479.286l859 +++| SX6 1 01168 M01S00480.286l859 +++| SA6 FPSF SET FILE PROCESSED
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | cpfs3 |
Seq # *Modification Id* Act ----------------------------+ 01169 M01S00002.cpfs3 +++| LX2 18 01170 M01S00003.cpfs3 +++| BX6 X2 RESTORE FILE NAME AND USER INDEX 01171 M01S00004.cpfs3 +++| SA6 A2
| Line S00481 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01172 M01S00481.286l859 +++| EQ CFPX RETURN 01173 M01S00482.286l859 +++| OAL SPACE 4,20 01174 M01S00483.286l859 +++|** OAL - OUTPUT ARCHIVE FILE LABEL PARAMETERS. 01175 M01S00484.286l859 +++|* 01176 M01S00485.286l859 +++|* ENTRY ARCHIVE FILE LABEL PARAMETERS IN *AFIB*. 01177 M01S00486.286l859 +++|* 01178 M01S00487.286l859 +++|* EXIT ARCHIVE FILE INFORMATION SET IN OUTPUT FILE PAGE 01179 M01S00488.286l859 +++|* TITLE. 01180 M01S00489.286l859 +++|* ARCHIVE FILE BLOCK WRITTEN TO SUMMARY FILE IF 01181 M01S00490.286l859 +++|* SELECTED. 01182 M01S00491.286l859 +++|* 01183 M01S00492.286l859 +++|* USES X - 0, 1, 2, 5, 6. 01184 M01S00493.286l859 +++|* A - 1, 2, 5, 6. 01185 M01S00494.286l859 +++|* B - 2, 3, 5, 7. 01186 M01S00495.286l859 +++|* 01187 M01S00496.286l859 +++|* CALLS FAB, SCB, SNM, ZTB. 01188 M01S00497.286l859 +++|* 01189 M01S00498.286l859 +++|* MACROS EDATE, ETIME, MOVE. 01190 M01S00499.286l859 +++| 01191 M01S00500.286l859 +++| 01192 M01S00501.286l859 +++| OAL SUBR ENTRY/EXIT 01193 M01S00502.286l859 +++| 01194 M01S00503.286l859 +++|* SET INFORMATION IN OUTPUT FILE PAGE TITLE. 01195 M01S00504.286l859 +++| 01196 M01S00505.286l859 +++| SA1 AFIB 01197 M01S00506.286l859 +++| SA2 A1+B1 01198 M01S00507.286l859 +++| BX1 X1+X2 SET FAMILY OR PACK NAME 01199 M01S00508.286l859 +++| ZR X1,OAL2 IF ARCHIVE FILE LABEL NOT FOUND 01200 M01S00509.286l859 +++| SB5 -AFSB 01201 M01S00510.286l859 +++| ZR X2,OAL1 IF PACK NAME NOT PRESENT 01202 M01S00511.286l859 +++| SB5 -AFSC 01203 M01S00512.286l859 +++| OAL1 SB2 1R? 01204 M01S00513.286l859 +++| SB3 PGAF 01205 M01S00514.286l859 +++| RJ SNM SET FAMILY OR PACK NAME 01206 M01S00515.286l859 +++| SA1 PGAF+1 BLANK FILL FAMILY OR PACK NAME 01207 M01S00516.286l859 +++| RJ ZTB 01208 M01S00517.286l859 +++| SA6 PGAF+1 01209 M01S00518.286l859 +++| SA5 AFIB+2 GET ARCHIVE FILE CREATION DATE AND TIME 01210 M01S00519.286l859 +++| MX1 -18 01211 M01S00520.286l859 +++| BX1 -X1*X5 01212 M01S00521.286l859 +++| ETIME X1 01213 M01S00522.286l859 +++| SB7 AFSA SET BUFFER ADDRESS 01214 M01S00523.286l859 +++| SB3 AFSE SET DESCRIPTOR ADDRESS 01215 M01S00524.286l859 +++| RJ SCB SET LABEL DATE 01216 M01S00525.286l859 +++| AX5 18 01217 M01S00526.286l859 +++| BX1 X5 01218 M01S00527.286l859 +++| EDATE X1 01219 M01S00528.286l859 +++| SB3 AFSF SET DESCRIPTOR ADDRESS 01220 M01S00529.286l859 +++| RJ SCB SET LABEL TIME 01221 M01S00530.286l859 +++| MOVE 5,AFSA,PGAC MOVE PARAMETERS TO PAGE TITLE 01222 M01S00531.286l859 +++| EQ OAL3 WRITE SUMMARY FILE 01223 M01S00532.286l859 +++| 01224 M01S00533.286l859 +++| OAL2 MOVE 8,AFSD,PGTB+1 SET LABEL NOT FOUND MESSAGE 01225 M01S00534.286l859 +++| 01226 M01S00535.286l859 +++|* WRITE SUMMARY FILE. 01227 M01S00536.286l859 +++| 01228 M01S00537.286l859 +++| OAL3 SA1 CPAR+/COMSPFS/CPSU 01229 M01S00538.286l859 +++| ZR X1,OALX IF SUMMARY FILE NOT SELECTED 01230 M01S00539.286l859 +++| RJ FAB FLUSH ASSEMBLY BUFFER 01231 M01S00540.286l859 +++| SA1 TSBI+/COMSPFS/AFSB SET ARCHIVE FILE BLOCK TYPE 01232 M01S00541.286l859 +++| BX6 X1 01233 M01S00542.286l859 +++| SA6 CFBI 01234 M01S00543.286l859 +++| SX1 3 SET BLOCK WORD COUNT 01235 M01S00544.286l859 +++| SX2 AFIB SET DATA ADDRESS 01236 M01S00545.286l859 +++| SX0 3 SET NUMBER OF WORDS TO ALLOCATE 01237 M01S00546.286l859 +++| RJ MWA MOVE DATA TO ASSEMBLY BUFFER 01238 M01S00547.286l859 +++| EQ OALX RETURN 01239 M01S00548.286l859 +++| OCI SPACE 4,15 01240 M01S00549.286l859 +++|** OCI - OUTPUT CATALOG IMAGE ENTRIES. 01241 M01S00550.286l859 +++|* 01242 M01S00551.286l859 +++|* ENTRY (X6) = ADDRESS OF CIR ENTRIES BUFFER. 01243 M01S00552.286l859 +++|* (X7) = WORD COUNT OF CIR ENTRIES IN BUFFER. 01244 M01S00553.286l859 +++|*
| Line S00554 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01245 M02S00554.ns2790 ---|* EXIT CATALOG IMAGE RECORD DATA WRITTEN TO OUTPUT FILE, 01246 M02S00555.ns2790 ---|* SUMMARY FILE, AND SORT INPUT FILE IF SELECTED.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01247 M01S00011.ns2790 +++|* EXIT CATALOG IMAGE RECORD DATA WRITTEN TO SUMMARY FILE AND 01248 M01S00012.ns2790 +++|* SORT INPUT FILE IF SELECTED.
| Line S00556 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01249 M01S00556.286l859 +++|*
| Line S00557 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01250 M02S00557.ns2790 ---|* USES X - 0, 1, 2, 3, 6, 7. 01251 M02S00558.ns2790 ---|* A - 1, 2, 3, 6, 7.
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01252 M01S00013.ns2790 +++|* USES X - 0, 1, 2, 6, 7. 01253 M01S00014.ns2790 +++|* A - 1, 2, 6, 7.
| Line S00559 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01254 M01S00559.286l859 +++|* B - 3, 6, 7. 01255 M01S00560.286l859 +++|*
| Line S00561 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01256 M02S00561.ns2790 ---|* CALLS FCI, MWA.
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01257 M01S00015.ns2790 +++|* CALLS MWA. 01258 M01S00016.ns2790 +++|* 01259 M01S00017.ns2790 +++|* MACROS WRITEW.
| Line S00562 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01260 M01S00562.286l859 +++| 01261 M01S00563.286l859 +++| 01262 M01S00564.286l859 +++| OCI SUBR ENTRY/EXIT 01263 M01S00565.286l859 +++| ZR X7,OCIX IF NO ENTRIES 01264 M01S00566.286l859 +++| SA6 OCIA SAVE BUFFER ADDRESS
| Line S00567 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01265 M02S00567.ns2790 ---| SA6 OCIB SET OUT POINTER
| Line S00568 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01266 M01S00568.286l859 +++| IX7 X6+X7 SET BUFFER LWA+1
| Line S00569 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01267 M02S00569.ns2790 ---| SA7 OCIC 01268 M02S00570.ns2790 ---| 01269 M02S00571.ns2790 ---|* OUTPUT CATALOG IMAGE DATA TO OUTPUT FILE IF SELECTED. 01270 M02S00572.ns2790 ---| 01271 M02S00573.ns2790 ---| SA1 UCOF 01272 M02S00574.ns2790 ---| ZR X1,OCI2 IF UNSORTED CIR LIST NOT SELECTED 01273 M02S00575.ns2790 ---| OCI1 RJ FCI FORMAT CIR ENTRY FOR OUTPUT 01274 M02S00576.ns2790 ---| SA1 OCIB GET ADDRESS OF LAST CIR ENTRY 01275 M02S00577.ns2790 ---| SA2 OCIC GET END OF BUFFER POINTER 01276 M02S00578.ns2790 ---| SX6 X1+NWCI ADVANCE ENTRY ADDRESS 01277 M02S00579.ns2790 ---| IX2 X6-X2 01278 M02S00580.ns2790 ---| SA6 A1 01279 M02S00581.ns2790 ---| NZ X2,OCI1 IF ALL ENTRIES NOT PROCESSED
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01280 M01S00018.ns2790 +++| SA7 OCIB
| Line S00582 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01281 M01S00582.286l859 +++| 01282 M01S00583.286l859 +++|* WRITE CATALOG IMAGES TO SUMMARY FILE IF SELECTED. 01283 M01S00584.286l859 +++|
| Line S00585 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01284 M02S00585.ns2790 ---| OCI2 SA1 CPAR+/COMSPFS/CPSU 01285 M02S00586.ns2790 ---| ZR X1,OCI3 IF NO SUMMARY FILE 01286 M02S00587.ns2790 ---| SA1 OCIC
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01287 M01S00019.ns2790 +++| SA1 CPAR+/COMSPFS/CPSU 01288 M01S00020.ns2790 +++| ZR X1,OCI1 IF NO SUMMARY FILE 01289 M01S00021.ns2790 +++| SA1 OCIB
| Line S00588 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01290 M01S00588.286l859 +++| SA2 OCIA SET BUFFER ADDRESS 01291 M01S00589.286l859 +++| IX1 X1-X2 SET WORD COUNT 01292 M01S00590.286l859 +++| ERRNG SABFL-1000B BUFFER SIZE LESS THAN MAXIMUM BLOCK LENGTH 01293 M01S00591.286l859 +++| BX0 X1 SET WORDS TO ALLOCATE 01294 M01S00592.286l859 +++| RJ MWA MOVE DATA TO CIR BLOCK 01295 M01S00593.286l859 +++|
| Line S00594 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01296 M02S00594.ns2790 ---|* WRITE CIR ENTRIES TO FILE LIST IF SORTED CIR LIST SELECTED.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01297 M01S00022.ns2790 +++|* WRITE CIR ENTRIES TO FILE LIST IF CIR LIST SELECTED.
| Line S00595 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01298 M01S00595.286l859 +++|
| Line S00596 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01299 M02S00596.ns2790 ---| OCI3 SA1 CISF 01300 M02S00597.ns2790 ---| ZR X1,OCIX IF NO CIR SORT REQUIRED
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01301 M01S00023.ns2790 +++| OCI1 SA1 CPAR+/COMSPFS/CPLO 01302 M01S00024.ns2790 +++| LX1 59-58 01303 M01S00025.ns2790 +++| PL X1,OCIX IF NO CIR SORT REQUIRED
| Line S00598 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01304 M01S00598.286l859 +++| SA1 OCIA
| Line S00599 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01305 M02S00599.ns2790 ---| SA2 OCIC
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01306 M01S00026.ns2790 +++| SA2 OCIB
| Line S00600 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01307 M01S00600.286l859 +++| SB2 42 SET SHIFT COUNT FOR USER INDEX SORT 01308 M01S00601.286l859 +++| SB3 X1 01309 M01S00602.286l859 +++| SB6 X1 SET BUFFER FWA 01310 M01S00603.286l859 +++| SB7 X2 SET BUFFER LWA+1
| Line S00604 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01311 M02S00604.ns2790 ---| OCI4 SA2 B3
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01312 M01S00027.ns2790 +++| OCI2 SA2 B3
| Line S00605 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01313 M01S00605.286l859 +++| LX6 B2,X2 POSITION USER INDEX FOR SORT 01314 M01S00606.286l859 +++| SA6 A2+ 01315 M01S00607.286l859 +++| SB3 B3+NWCI
| Line S00608 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01316 M02S00608.ns2790 ---| LT B3,B7,OCI4 IF NOT END OF BUFFER
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01317 M01S00028.ns2790 +++| LT B3,B7,OCI2 IF NOT END OF BUFFER
| Line S00609 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01318 M01S00609.286l859 +++| SB7 B7-B6 SET WORD COUNT 01319 M01S00610.286l859 +++| WRITEW PF,B6,B7 WRITE CIR ENTRIES 01320 M01S00611.286l859 +++| SX6 1 01321 M01S00612.286l859 +++| SA6 FPSF SET FILES PROCESSED 01322 M01S00613.286l859 +++| EQ OCIX RETURN 01323 M01S00614.286l859 +++| 01324 M01S00615.286l859 +++| 01325 M01S00616.286l859 +++| OCIA CON 0 BUFFER ADDRESS
| Line S00617 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01326 M02S00617.ns2790 ---| OCIB CON 0 BUFFER OUT POINTER 01327 M02S00618.ns2790 ---| OCIC CON 0 BUFFER LWA+1
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01328 M01S00029.ns2790 +++| OCIB CON 0 BUFFER LWA+1
| Line S00619 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01329 M01S00619.286l859 +++| TITLE COMCPFS - SORTED AND STATISTICAL OUTPUT MAIN ROUTINES. 01330 M01S00620.286l859 +++| SPACE 4,10 01331 M01S00621.286l859 +++|** ASSEMBLY CONSTANTS. 01332 M01S00622.286l859 +++| 01333 M01S00623.286l859 +++|
| Line S00624 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01334 M02S00624.ns2790 ---| NWCS EQU NWCE+1 LENGTH OF CATALOG ENTRY WITH STATUS WORD
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01335 M01S00030.ns2790 +++| NWCS EQU NWCE+2 LENGTH OF CATALOG ENTRY WITH STATUS WORDS
| Line S00625 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01336 M01S00625.286l859 +++| SBCEC EQU SRTBL/NWCS MAXIMUM CATALOG ENTRIES IN SORT BUFFER 01337 M01S00626.286l859 +++| SBCIC EQU SRTBL/NWCI MAXIMUM CIR ENTRIES IN SORT BUFFER 01338 M01S00627.286l859 +++| SBCEL EQU SBCEC*NWCS MAXIMUM LENGTH OF CATALOG ENTRIES 01339 M01S00628.286l859 +++| SBCIL EQU SBCIC*NWCI MAXIMUM LENGTH OF CIR ENTRIES
| Line S00629 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01340 M02S00629.ns2790 ---| OSF SPACE 4,10
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01341 M01S00031.ns2790 +++| OSF SPACE 4,15
| Line S00630 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01342 M01S00630.286l859 +++|** OSF - OUTPUT SORTED FILE LIST. 01343 M01S00631.286l859 +++|* 01344 M01S00632.286l859 +++|* ENTRY SORTED CATALOG ENTRIES ON FILE *S3*. 01345 M01S00633.286l859 +++|* 01346 M01S00634.286l859 +++|* EXIT SORTED FILE LIST GENERATED IF SELECTED. 01347 M01S00635.286l859 +++|* 01348 M01S00636.286l859 +++|* USES X - 1, 2, 6. 01349 M01S00637.286l859 +++|* A - 0, 1 6. 01350 M01S00638.286l859 +++|* 01351 M01S00639.286l859 +++|* CALLS RPP, WCO. 01352 M01S00640.286l859 +++|* 01353 M01S00641.286l859 +++|* MACROS READ, READW, REWIND. 01354 M01S00642.286l859 +++| 01355 M01S00643.286l859 +++| 01356 M01S00644.286l859 +++| OSF SUBR ENTRY/EXIT 01357 M01S00645.286l859 +++| SA1 CPAR+/COMSPFS/CPLO
| Line S00646 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01358 M02S00646.ns2790 ---| SX6 4100B 01359 M02S00647.ns2790 ---| LX1 12 01360 M02S00648.ns2790 ---| BX1 X6*X1 *T* AND *U* LIST OPTIONS 01361 M02S00649.ns2790 ---| IX6 X1-X6 01362 M02S00650.ns2790 ---| NZ X6,OSFX IF SORTED FILE LIST NOT SELECTED 01363 M02S00651.ns2790 ---| SX2 FUTX
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01364 M01S00032.ns2790 +++| PL X1,OSFX IF FILE LIST NOT SELECTED 01365 M01S00033.ns2790 +++| SX2 FLTX
| Line S00652 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01366 M01S00652.286l859 +++| SX6 CES 01367 M01S00653.286l859 +++| RJ RPP RESET PAGE PARAMETERS 01368 M01S00654.286l859 +++| REWIND S3 01369 M01S00655.286l859 +++| READ S3 01370 M01S00656.286l859 +++| SA0 SW1B SET CATALOG ENTRY ADDRESS
| Line S00657 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01371 M02S00657.ns2790 ---| OSF1 READW S3,A0,NWCE READ CATALOG ENTRY
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01372 M01S00034.ns2790 +++| OSF1 READW S3,A0,NWCS READ CATALOG ENTRY AND STATUS
| Line S00658 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01373 M01S00658.286l859 +++| NZ X1,OSFX IF END OF ENTRIES
| Line S00659 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 01374 M02S00659.ns2790 ---| READW X2,FLST,1 READ STATUS WORD
| Line S00660 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01375 M01S00660.286l859 +++| SA1 A0+FCUI 01376 M01S00661.286l859 +++| LX1 18 RESTORE FILE NAME AND USER INDEX 01377 M01S00662.286l859 +++| BX6 X1 01378 M01S00663.286l859 +++| SA6 A1 RESTORE FILE NAME AND USER INDEX 01379 M01S00664.286l859 +++| RJ WCO WRITE CATALOG ENTRY DATA TO OUTPUT FILE 01380 M01S00665.286l859 +++| EQ OSF1 READ NEXT ENTRY 01381 M01S00666.286l859 +++| OTS SPACE 4,15 01382 M01S00667.286l859 +++|** OTS - OUTPUT TAPE ALTERNATE STORAGE STATISTICS. 01383 M01S00668.286l859 +++|* 01384 M01S00669.286l859 +++|* ENTRY CATALOG ENTRIES ON FILE *S3* SORTED BY TAPE ALTERNATE 01385 M01S00670.286l859 +++|* STORAGE TYPE AND VSN. 01386 M01S00671.286l859 +++|* 01387 M01S00672.286l859 +++|* EXIT TAPE ALTERNATE STORAGE STATISTICS OUTPUT COMPLETE. 01388 M01S00673.286l859 +++|* 01389 M01S00674.286l859 +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 01390 M01S00675.286l859 +++|* A - 1, 2, 3, 5, 6, 7. 01391 M01S00676.286l859 +++|* 01392 M01S00677.286l859 +++|* CALLS ALN, CDD, CFS, IFS, RPP, ZTB. 01393 M01S00678.286l859 +++|* 01394 M01S00679.286l859 +++|* MACROS READ, READW, REWIND, WRITEH. 01395 M01S00680.286l859 +++| 01396 M01S00681.286l859 +++| 01397 M01S00682.286l859 +++| OTS SUBR ENTRY/EXIT 01398 M01S00683.286l859 +++| 01399 M01S00684.286l859 +++|* INITIALIZE PAGE TITLE. 01400 M01S00685.286l859 +++| 01401 M01S00686.286l859 +++| REWIND S3 01402 M01S00687.286l859 +++| READ S3 01403 M01S00688.286l859 +++| SX2 TSTX 01404 M01S00689.286l859 +++| SX6 TSS 01405 M01S00690.286l859 +++| RJ RPP RESET PAGE PARAMETERS 01406 M01S00691.286l859 +++| SX6 B0+ 01407 M01S00692.286l859 +++| SA6 OTSA INITIALIZE VSN POINTER 01408 M01S00693.286l859 +++| 01409 M01S00694.286l859 +++|* CHECK NEXT ENTRY. 01410 M01S00695.286l859 +++| 01411 M01S00696.286l859 +++| OTS1 READW S3,SW1B,1 READ ENTRY 01412 M01S00697.286l859 +++| BX6 X1 01413 M01S00698.286l859 +++| SA6 OTSB SAVE EOR STATUS 01414 M01S00699.286l859 +++| SA5 OTSA 01415 M01S00700.286l859 +++| SA2 SW1B 01416 M01S00701.286l859 +++| SA3 TSKM 01417 M01S00702.286l859 +++| NZ X6,OTS2 IF END OF ENTRIES 01418 M01S00703.286l859 +++| BX6 X3*X2 TAPE IDENTIFIER FROM CURRENT ENTRY 01419 M01S00704.286l859 +++| BX2 X5-X6 01420 M01S00705.286l859 +++| ZR X2,OTS5 IF SAME TAPE AS PREVIOUS ENTRY 01421 M01S00706.286l859 +++| SA6 A5+ SET TAPE IDENTIFIER 01422 M01S00707.286l859 +++| ZR X5,OTS4 IF FIRST ENTRY 01423 M01S00708.286l859 +++| 01424 M01S00709.286l859 +++|* OUTPUT STATISTICS FOR PREVIOUS VSN. 01425 M01S00710.286l859 +++| 01426 M01S00711.286l859 +++| OTS2 LX5 59-56 01427 M01S00712.286l859 +++| SX1 2RAT SET ACS CARTRIDGE TAPE 01428 M01S00713.286l859 +++| LX4 X5,B1 01429 M01S00714.286l859 +++| NG X5,OTS3 IF ACS CARTRDIGE TAPE 01430 M01S00715.286l859 +++| SX1 2RCT SET CARTRIDGE TAPE 01431 M01S00716.286l859 +++| NG X4,OTS3 IF CARTRIDGE TAPE 01432 M01S00717.286l859 +++| SX1 2RNT SET NINE TRACK TAPE 01433 M01S00718.286l859 +++| OTS3 LX5 56-56-59+56 01434 M01S00719.286l859 +++| RJ ZTB BLANK FILL TAPE TYPE 01435 M01S00720.286l859 +++| SA6 COBF+0 SET TAPE IDENTIFIER 01436 M01S00721.286l859 +++| MX6 -12 01437 M01S00722.286l859 +++| BX1 -X6*X5 VSN SEQUENCE NUMBER 01438 M01S00723.286l859 +++| SX1 X1+10000D ADD BIAS TO FORCE LEADING ZEROES 01439 M01S00724.286l859 +++| RJ CDD CONVERT SEQUENCE NUMBER 01440 M01S00725.286l859 +++| MX7 -12 01441 M01S00726.286l859 +++| LX7 12 01442 M01S00727.286l859 +++| BX7 -X7*X5 VSN PREFIX 01443 M01S00728.286l859 +++| MX1 -24 01444 M01S00729.286l859 +++| LX7 12 01445 M01S00730.286l859 +++| BX1 -X1*X6 01446 M01S00731.286l859 +++| BX1 X7+X1 MERGE PREFIX AND SEQUENCE NUMBER 01447 M01S00732.286l859 +++| RJ ZTB BLANK FILL VSN 01448 M01S00733.286l859 +++| SA6 COBF+1 SET VSN 01449 M01S00734.286l859 +++| SA5 OTSC SET CONTROL TABLE ADDRESS 01450 M01S00735.286l859 +++| RJ CFS CONVERT FILE STATISTICS 01451 M01S00736.286l859 +++| SX6 1 01452 M01S00737.286l859 +++| RJ ALN ALLOCATE ONE LINE 01453 M01S00738.286l859 +++| WRITEH O,COBF,4 WRITE VSN STATISTICS 01454 M01S00739.286l859 +++| SA1 OTSB 01455 M01S00740.286l859 +++| NZ X1,OTSX IF END OF ENTRIES 01456 M01S00741.286l859 +++| OTS4 RJ IFS INITIALIZE STATISTICS FOR NEXT VSN 01457 M01S00742.286l859 +++| 01458 M01S00743.286l859 +++|* ACCUMULATE TAPE ALTERNATE STORAGE STATISTICS. 01459 M01S00744.286l859 +++| 01460 M01S00745.286l859 +++| OTS5 SA1 SW1B 01461 M01S00746.286l859 +++| SA2 NFIL+2 01462 M01S00747.286l859 +++| SA3 NSEC+2 01463 M01S00748.286l859 +++| SX6 B1 01464 M01S00749.286l859 +++| MX7 -24 01465 M01S00750.286l859 +++| LX1 -24 01466 M01S00751.286l859 +++| BX7 -X7*X1 FILE LENGTH 01467 M01S00752.286l859 +++| IX6 X2+X6 ACCUMULATE TOTAL FILES 01468 M01S00753.286l859 +++| IX7 X3+X7 ACCUMULATE TOTAL SECTORS 01469 M01S00754.286l859 +++| SA6 A2 01470 M01S00755.286l859 +++| SA7 A3 01471 M01S00756.286l859 +++| EQ OTS1 READ NEXT ENTRY 01472 M01S00757.286l859 +++| 01473 M01S00758.286l859 +++| 01474 M01S00759.286l859 +++| OTSA CON 0 PREVIOUS TAPE INDENTIFIER 01475 M01S00760.286l859 +++| OTSB CON 0 READ EOR STATUS 01476 M01S00761.286l859 +++| 01477 M01S00762.286l859 +++| OTSC BSS 0 START OF FILE STATISTICS CONVERSIONS 01478 M01S00763.286l859 +++| VFD 30/COBF+2,30/NFIL+2 TOTAL FILES 01479 M01S00764.286l859 +++| VFD 30/COBF+3,30/NSEC+2 TOTAL SECTORS 01480 M01S00765.286l859 +++| CON 0 END OF CONVERSIONS 01481 M01S00766.286l859 +++| OUS SPACE 4,15 01482 M01S00767.286l859 +++|** OUS - OUTPUT USER STATISTICS. 01483 M01S00768.286l859 +++|* 01484 M01S00769.286l859 +++|* ENTRY CATALOG ENTRIES ON FILE *S3* SORTED BY USER INDEX AND 01485 M01S00770.286l859 +++|* FILE NAME. 01486 M01S00771.286l859 +++|* 01487 M01S00772.286l859 +++|* EXIT USER SORTED STATISTICS OUTPUT COMPLETE. 01488 M01S00773.286l859 +++|* 01489 M01S00774.286l859 +++|* USES X - 1, 2, 3, 5, 6. 01490 M01S00775.286l859 +++|* A - 1, 2, 5, 6. 01491 M01S00776.286l859 +++|* 01492 M01S00777.286l859 +++|* CALLS AFS, ALN, CFS, COD, IFS, RPP, SID. 01493 M01S00778.286l859 +++|* 01494 M01S00779.286l859 +++|* MACROS READ, READW, REWIND, WRITEH. 01495 M01S00780.286l859 +++| 01496 M01S00781.286l859 +++| 01497 M01S00782.286l859 +++| OUS SUBR ENTRY/EXIT 01498 M01S00783.286l859 +++| 01499 M01S00784.286l859 +++|* INITIALIZE PAGE TITLE. 01500 M01S00785.286l859 +++| 01501 M01S00786.286l859 +++| SA1 CPAR+/COMSPFS/CPLO 01502 M01S00787.286l859 +++| LX1 59-56 01503 M01S00788.286l859 +++| PL X1,OUSX IF *S* LIST OPTION NOT SELECTED 01504 M01S00789.286l859 +++| REWIND S3 01505 M01S00790.286l859 +++| READ S3 01506 M01S00791.286l859 +++| SX2 USTX 01507 M01S00792.286l859 +++| SX6 USS 01508 M01S00793.286l859 +++| RJ RPP RESET PAGE PARAMETERS 01509 M01S00794.286l859 +++| SX6 0 01510 M01S00795.286l859 +++| SA6 OUSA CLEAR PREVIOUS ENTRY USER INDEX 01511 M01S00796.286l859 +++| 01512 M01S00797.286l859 +++|* CHECK NEXT CATALOG ENTRY. 01513 M01S00798.286l859 +++| 01514 M01S00799.286l859 +++| OUS1 READW S3,SW1B,NWCS READ ENTRY 01515 M01S00800.286l859 +++| BX6 X1 01516 M01S00801.286l859 +++| SA6 OUSB SAVE EOR STATUS 01517 M01S00802.286l859 +++| SA1 OUSA 01518 M01S00803.286l859 +++| SA2 SW1B+FCUI 01519 M01S00804.286l859 +++| NZ X6,OUS2 IF END OF ENTRIES 01520 M01S00805.286l859 +++| LX2 18 01521 M01S00806.286l859 +++| SX6 X2 USER INDEX FROM CURRENT ENTRY 01522 M01S00807.286l859 +++| BX2 X1-X6 01523 M01S00808.286l859 +++| SA6 A1+ SET USER INDEX 01524 M01S00809.286l859 +++| ZR X2,OUS4 IF SAME USER INDEX AS PREVIOUS ENTRY 01525 M01S00810.286l859 +++| ZR X1,OUS3 IF FIRST ENTRY 01526 M01S00811.286l859 +++| 01527 M01S00812.286l859 +++|* OUTPUT STATISTICS FOR PREVIOUS USER INDEX. 01528 M01S00813.286l859 +++| 01529 M01S00814.286l859 +++| OUS2 RJ COD CONVERT USER INDEX FOR OUTPUT 01530 M01S00815.286l859 +++| SA6 COBF+0 01531 M01S00816.286l859 +++| RJ SID SUM INDIRECT AND DIRECT FILE STATISTICS 01532 M01S00817.286l859 +++| SA1 NSEC+2 COMPUTE AVERAGE FILE SIZE 01533 M01S00818.286l859 +++| SA2 NFIL+2 01534 M01S00819.286l859 +++| IX6 X1/X2 01535 M01S00820.286l859 +++| SA6 AVFS SET AVERAGE FILE SIZE 01536 M01S00821.286l859 +++| SA5 OUSC SET CONTROL TABLE ADDRESS 01537 M01S00822.286l859 +++| RJ CFS CONVERT FILE STATISTICS 01538 M01S00823.286l859 +++| SX6 1 01539 M01S00824.286l859 +++| RJ ALN ALLOCATE ONE LINE 01540 M01S00825.286l859 +++| WRITEH O,COBF,12 WRITE USER STATISTICS 01541 M01S00826.286l859 +++| SA1 OUSB GET EOR STATUS 01542 M01S00827.286l859 +++| NZ X1,OUSX IF END OF ENTRIES 01543 M01S00828.286l859 +++| OUS3 RJ IFS INITIALIZE FILE STATISTICS FOR NEXT USER 01544 M01S00829.286l859 +++| 01545 M01S00830.286l859 +++|* ACCUMULATE FILE STATISTICS. 01546 M01S00831.286l859 +++| 01547 M01S00832.286l859 +++| OUS4 RJ AFS ACCUMULATE FILE STATISTICS 01548 M01S00833.286l859 +++| EQ OUS1 READ NEXT ENTRY 01549 M01S00834.286l859 +++| 01550 M01S00835.286l859 +++| 01551 M01S00836.286l859 +++| OUSA CON 0 PREVIOUS ENTRY USER INDEX 01552 M01S00837.286l859 +++| OUSB CON 0 READ EOR STATUS 01553 M01S00838.286l859 +++| 01554 M01S00839.286l859 +++| OUSC BSS 0 START OF FILE STATISTIC CONVERSIONS 01555 M01S00840.286l859 +++| VFD 30/COBF+1,30/NFIL+2 TOTAL FILES 01556 M01S00841.286l859 +++| VFD 30/COBF+2,30/NSEC+2 TOTAL SECTORS 01557 M01S00842.286l859 +++| VFD 30/COBF+3,30/AVFS AVERAGE FILE SIZE 01558 M01S00843.286l859 +++| VFD 30/COBF+4,30/NFIL+0 INDIRECT ACCESS FILES 01559 M01S00844.286l859 +++| VFD 30/COBF+5,30/NFIL+1 DIRECT ACCESS FILES 01560 M01S00845.286l859 +++| VFD 30/COBF+6,30/DFIL DISK RESIDENT FILES 01561 M01S00846.286l859 +++| VFD 30/COBF+7,30/DSEC DISK RESIDENT SECTORS 01562 M01S00847.286l859 +++| VFD 30/COBF+8,30/CFIL CARTRIDGE RESIDENT FILES 01563 M01S00848.286l859 +++| VFD 30/COBF+9,30/CSEC CARTRIDGE RESIDENT SECTORS 01564 M01S00849.286l859 +++| VFD 30/COBF+10,30/TFIL TAPE RESIDENT FILES 01565 M01S00850.286l859 +++| VFD 30/COBF+11,30/TSEC TAPE RESIDENT SECTORS 01566 M01S00851.286l859 +++| CON 0 END OF CONVERSIONS 01567 M01S00852.286l859 +++| PSF SPACE 4,15 01568 M01S00853.286l859 +++|** PSF - PROCESS SORTED FILE OUTPUT. 01569 M01S00854.286l859 +++|* 01570 M01S00855.286l859 +++|* ENTRY CATALOG ENTRIES ON FILE *PF* IF SORTED FILE LIST 01571 M01S00856.286l859 +++|* SELECTED. 01572 M01S00857.286l859 +++|* 01573 M01S00858.286l859 +++|* EXIT SORTED FILE LIST OUTPUT COMPLETE.
Proceed to Part 1
cdc/nos2.source/opl.opl871/common/comcpfs.txt · Last modified: by 127.0.0.1