cdc:nos2.source:opl.opl871:deck:catlist.001
Deck CATLIST Part 001
16 Modifications
Listing Sections
- Deck CATLIST Start
- Deck CATLIST Part 1 (Line 1067)
- Deck CATLIST Part 2 (Line 2213)
Source
Seq # *Modification Id* Act ----------------------------+ 01067 M01S00572.catli1 ---| SSL4 SA3 SSLA 01068 M01S00573.catli1 ---| SX6 X3-1 01069 M01S00574.catli1 ---| SA6 A3 01070 M01S00575.catli1 ---| NG X6,SSL5 IF END OF ENTRIES 01071 M01S00576.catli1 ---| SA1 SBUF+B7 01072 M01S00577.catli1 ---| LX1 6 GET ACTUAL ENTRY 01073 M01S00578.catli1 ---| BX6 X1 01074 M01S00579.catli1 ---| SA6 CBUF 01075 M01S00580.catli1 ---| RJ GSL GENERATE SHORT LIST 01076 M01S00581.catli1 ---| SB7 B7+B1 01077 M01S00582.catli1 ---| EQ SSL4 GET NEXT ENTRY 01078 M01S00583.catli1 ---| 01079 M01S00584.catli1 ---| SSL5 SA2 MODE 01080 M01S00585.catli1 ---| SA2 X2+TOFP 01081 M01S00586.catli1 ---| SB2 X2 01082 M01S00587.catli1 ---| JP B2 GO TO OVERFLOW PROCESSOR
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | catli1 |
Seq # *Modification Id* Act ----------------------------+ 01083 M01S00016.catli1 +++| SA3 BOVF CHECK IF MESSAGE NEEDED
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | catli1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01084 M02S00017.253l688 ---| NZ X3,SSL6 IF MESSAGE PREVIOUSLY OUTPUT
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01085 M01S00037.253l688 +++| NZ X3,SSL7 IF MESSAGE PREVIOUSLY OUTPUT
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | catli1 |
Seq # *Modification Id* Act ----------------------------+ 01086 M01S00018.catli1 +++| MX6 1 SET BUFFER OVERFLOW FLAG 01087 M01S00019.catli1 +++| SB2 B1 01088 M01S00020.catli1 +++| SA6 BOVF 01089 M01S00021.catli1 +++| RJ ALN ADVANCE LINE NUMBER 01090 M01S00022.catli1 +++| WRITEC O,SSLD OUTPUT WARNING MESSAGE 01091 M01S00023.catli1 +++| WRITEC O,BLK 01092 M00S00588.catlist +++| 01093 M00S00589.catlist +++|* SORT DIRECT AND INDIRECT FILES ALPHABETICALLY. 01094 M00S00590.catlist +++|
| Line S00591 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01095 M01S00591.253l688 ---| SSL6 SX1 A0 NUMBER OF ENTRIES
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01096 M01S00038.253l688 +++| SSL7 SX1 A0 NUMBER OF ENTRIES 01097 M00S00592.catlist +++| ZR X1,CTL7 IF NO CATALOGS 01098 M00S00593.catlist +++| SB2 B1 01099 M00S00594.catlist +++| RJ ALN ADVANCE LINE NUMBER 01100 M00S00595.catlist +++| SX1 A0 01101 M00S00596.catlist +++| SB7 SBUF ADDRESS OF BUFFER 01102 M00S00597.catlist +++| RJ SST= SORT ENTRIES 01103 M00S00598.catlist +++| SB2 B0 DETERMINE COUNT OF EACH TYPE
| Line S00599 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01104 M01S00599.253l688 ---| SSL7 SA1 SBUF+B2
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01105 M01S00039.253l688 +++| SSL8 SA1 SBUF+B2 01106 M00S00600.catlist +++| LX1 59-57
| Line S00601 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01107 M01S00601.253l688 ---| NG X1,SSL8 IF DIRECT ACCESS FILE
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01108 M01S00040.253l688 +++| NG X1,SSL9 IF DIRECT ACCESS FILE 01109 M00S00602.catlist +++| SB2 B2+B1 01110 M00S00603.catlist +++| SB3 A0-B2
| Line S00604 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01111 M01S00604.253l688 ---| NZ B3,SSL7 IF NOT END OF BUFFER 01112 M01S00605.253l688 ---| SSL8 SX6 B2 NUMBER OF INDIRECT ACCESS FILES
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01113 M01S00041.253l688 +++| NZ B3,SSL8 IF NOT END OF BUFFER 01114 M01S00042.253l688 +++| SSL9 SX6 B2 NUMBER OF INDIRECT ACCESS FILES 01115 M00S00606.catlist +++| SA6 SSLA 01116 M00S00607.catlist +++| SX7 A0-B2 NUMBER OF DIRECT ACCESS FILES 01117 M00S00608.catlist +++| SA6 SSLC 01118 M00S00609.catlist +++| SA7 SSLB 01119 M00S00610.catlist +++| 01120 M00S00611.catlist +++|* LIST INDIRECT ACCESS FILES. 01121 M00S00612.catlist +++| 01122 M00S00613.catlist +++| SA1 SSLA GET COUNT OF INDIRECT ACCESS FILES
| Line S00614 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01123 M01S00614.253l688 ---| ZR X1,SSL11 IF NO INDIRECT ACCESS FILES
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01124 M01S00043.253l688 +++| ZR X1,SSL12 IF NO INDIRECT ACCESS FILES
| Line S00615 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01125 M01S00615.ns22000 ---| RJ NIP PRESET *GNI*
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | catli1 |
Seq # *Modification Id* Act ----------------------------+ 01126 M01S00024.catli1 +++| WRITEC O,BLK 01127 M00S00616.catlist +++| WRITEH O,SSLE,SSLEL 01128 M00S00617.catlist +++| WRITEC O,BLK
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | catli3 |
Seq # *Modification Id* Act ----------------------------+ 01129 M01S00001.catli3 +++| SB2 B1+B1 01130 M01S00002.catli3 +++| RJ ALN ADVANCE LINE NUMBER
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | catli1 |
Seq # *Modification Id* Act ----------------------------+ 01131 M01S00025.catli1 +++| SX7 8 SET LINE POSITION 01132 M01S00026.catli1 +++| SA7 GSLA
| Line S00618 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01133 M01S00618.ns22000 ---| SSL9 SA3 SSLA
| Line S00188 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01134 M01S00188.ns22000 +++| SB2 B1+ 01135 M01S00189.ns22000 +++| RJ ALN 01136 M01S00190.ns22000 +++| SA1 SSLA GET NUMBER OF INDIRECT FILES 01137 M01S00191.ns22000 +++| RJ SNP SET NEXT PAGE
| Line S00192 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01138 M02S00192.253l688 ---| SSL9 SA3 BL
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01139 M01S00044.253l688 +++| SSL10 SA3 BL 01140 M00S00619.catlist +++| SX6 X3-1 01141 M00S00620.catlist +++| SA6 A3+
| Line S00621 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01142 M01S00621.253l688 ---| NG X6,SSL10 IF END OF ENTRIES
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01143 M01S00045.253l688 +++| NG X6,SSL11 IF END OF ENTRIES 01144 M00S00622.catlist +++| RJ GNI GET NEXT ENTRY
| Line S00193 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01145 M01S00193.ns22000 +++| SA3 BO CURRENT BUFFER OFFSET 01146 M01S00194.ns22000 +++| IX1 X1+X3 01147 M00S00623.catlist +++| SA1 X1+SBUF GET ACTUAL ENTRY 01148 M00S00624.catlist +++| LX1 6 01149 M00S00625.catlist +++| BX6 X1 01150 M00S00626.catlist +++| SA6 CBUF
| Line S00627 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01151 M01S00627.253l688 ---| RJ GSL GENERATE SHORT LIST 01152 M01S00628.253l688 ---| EQ SSL9
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01153 M01S00046.253l688 +++| RJ GSL GENERATE ENTRY FOR SHORT LIST 01154 M01S00047.253l688 +++| EQ SSL10 GET NEXT ENTRY 01155 M00S00629.catlist +++|
| Line S00630 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01156 M01S00630.253l688 ---| SSL10 WRITEC O,LBUF LAST LINE OF INDIRECT ACCESS FILES
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01157 M01S00048.253l688 +++| SSL11 WRITEC O,LBUF LAST LINE OF INDIRECT ACCESS FILES
| Line S00195 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01158 M01S00195.ns22000 +++| SA1 SSLA 01159 M01S00196.ns22000 +++| RJ DSB DISPLAY SORT BREAK 01160 M01S00197.ns22000 +++| SA1 SSLA 01161 M01S00198.ns22000 +++| RJ SNP SET NEXT PAGE
| Line S00199 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01162 M02S00199.253l688 ---| NZ X1,SSL9 IF MORE FILES TO LIST
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01163 M01S00049.253l688 +++| NZ X1,SSL10 IF MORE FILES TO LIST 01164 M00S00631.catlist +++| 01165 M00S00632.catlist +++|* LIST DIRECT ACCESS FILES. 01166 M00S00633.catlist +++|
| Line S00634 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01167 M01S00634.253l688 ---| SSL11 SA1 SSLB 01168 M01S00635.253l688 ---| ZR X1,SSL15 IF NO DIRECT ACCESS FILES
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01169 M01S00050.253l688 +++| SSL12 SA1 SSLB 01170 M01S00051.253l688 +++| ZR X1,SSL17 IF NO DIRECT ACCESS FILES
| Line S00636 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01171 M01S00636.ns22000 ---| RJ NIP PRESET *GNI* 01172 M00S00637.catlist +++| SA1 SSLA CHECK IF ANY INDIRECT ACCESS FILES
| Line S00638 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01173 M01S00638.253l688 ---| ZR X1,SSL12 IF NO INDIRECT ACCESS FILES
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01174 M01S00052.253l688 +++| ZR X1,SSL13 IF NO INDIRECT ACCESS FILES 01175 M00S00639.catlist +++| WRITEC O,BLK
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | catli3 |
Seq # *Modification Id* Act ----------------------------+ 01176 M01S00003.catli3 +++| SB2 B1 01177 M01S00004.catli3 +++| RJ ALN ADVANCE LINE NUMBER
| Line S00640 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01178 M01S00640.253l688 ---| SSL12 WRITEH O,SSLF,SSLFL
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01179 M01S00053.253l688 +++| SSL13 WRITEH O,SSLF,SSLFL
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | catli3 |
Seq # *Modification Id* Act ----------------------------+ 01180 M01S00005.catli3 +++| SB2 B1 01181 M01S00006.catli3 +++| RJ ALN ADVANCE LINE NUMBER 01182 M01S00007.catli3 +++| SA1 LN CHECK IF HEADER JUST PRINTED 01183 M01S00008.catli3 +++| SX2 3 01184 M01S00009.catli3 +++| IX1 X2-X1
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | catli3 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01185 M02S00010.253l688 ---| ZR X1,SSL12.1 IF HEADER JUST PRINTED
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01186 M01S00054.253l688 +++| ZR X1,SSL14 IF HEADER JUST PRINTED 01187 M00S00641.catlist +++| WRITEC O,BLK
| Line S00642 Modification History | |
|---|---|
M01 (Removed by) | catli1 |
M02 (Removed by) | catli3 |
Seq # *Modification Id* Act ----------------------------+ 01188 M02S00642.catli3 ---| SX7 8 RESET *GSLA*
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | catli3 |
Seq # *Modification Id* Act ----------------------------+ 01189 M01S00011.catli3 +++| SB2 B1 01190 M01S00012.catli3 +++| RJ ALN ADVANCE LINE NUMBER
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | catli3 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01191 M02S00013.253l688 ---| SSL12.1 SX7 8 RESET *GSLA*
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | catli1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01192 M02S00027.253l688 ---| SX7 8 RESET LINE POSITION
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01193 M01S00055.253l688 +++| SSL14 SX7 8 RESET LINE POSITION 01194 M00S00643.catlist +++| SA7 GSLA
| Line S00644 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01195 M01S00644.ns22000 ---| SSL13 SA3 SSLB
| Line S00200 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01196 M01S00200.ns22000 +++| SA1 SSLB 01197 M01S00201.ns22000 +++| RJ SNP SET UP NEXT PAGE
| Line S00202 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01198 M02S00202.253l688 ---| SSL13 SA3 BL DECREMENT NUMBER OF DIRECT FILES
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01199 M01S00056.253l688 +++| SSL15 SA3 BL DECREMENT NUMBER OF DIRECT FILES 01200 M00S00645.catlist +++| SX6 X3-1 01201 M00S00646.catlist +++| SA6 A3+
| Line S00647 Modification History | |
|---|---|
M01 (Removed by) | catli1 |
Seq # *Modification Id* Act ----------------------------+ 01202 M01S00647.catli1 ---| NG X6,SSL14 IF END OF NETRIES
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | catli1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01203 M02S00028.253l688 ---| NG X6,SSL14 IF END OF ENTRIES
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01204 M01S00057.253l688 +++| NG X6,SSL16 IF END OF ENTRIES 01205 M00S00648.catlist +++| RJ GNI GET NEXT ENTRY 01206 M00S00649.catlist +++| SA2 SSLC DETERMINE POSITION IN BUFFER
| Line S00203 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01207 M01S00203.ns22000 +++| SA3 BO GET CURRENT BUFFER OFFSET 01208 M01S00204.ns22000 +++| IX2 X2+X3 01209 M00S00650.catlist +++| SB2 SBUF+X2 01210 M00S00651.catlist +++| SA1 X1+B2 GET ACTUAL ENTRY 01211 M00S00652.catlist +++| LX1 6 01212 M00S00653.catlist +++| BX6 X1 01213 M00S00654.catlist +++| SA6 CBUF
| Line S00655 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01214 M01S00655.253l688 ---| RJ GSL GENERATE SHORT LIST 01215 M01S00656.253l688 ---| EQ SSL13 GET NEXT ENTRY
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01216 M01S00058.253l688 +++| RJ GSL GENERATE ENTRY FOR SHORT LIST 01217 M01S00059.253l688 +++| EQ SSL15 GET NEXT ENTRY 01218 M00S00657.catlist +++|
| Line S00658 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01219 M01S00658.253l688 ---| SSL14 WRITEC O,LBUF LAST LINE
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01220 M01S00060.253l688 +++| SSL16 WRITEC O,LBUF LAST LINE
| Line S00205 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01221 M01S00205.ns22000 +++| SA1 SSLB 01222 M01S00206.ns22000 +++| RJ DSB DISPLAY SORT BREAK 01223 M01S00207.ns22000 +++| SA1 SSLB 01224 M01S00208.ns22000 +++| RJ SNP SET NEXT PAGE
| Line S00209 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01225 M02S00209.253l688 ---| NZ X1,SSL13 IF MORE FILE NAMES TO LIST
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01226 M01S00061.253l688 +++| NZ X1,SSL15 IF MORE FILE NAMES TO LIST
| Line S00210 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01227 M01S00210.ns22000 +++| SB2 B1+ 01228 M01S00211.ns22000 +++| RJ ALN
| Line S00659 Modification History | |
|---|---|
M01 (Removed by) | catli1 |
Seq # *Modification Id* Act ----------------------------+ 01229 M01S00659.catli1 ---| SSL15 WRITEC O,BLK
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | catli1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01230 M02S00029.253l688 ---| SSL15 SA2 ERRF CHECK ERROR FLAG 01231 M02S00030.253l688 ---| NZ X2,SSL16 IF *PFM* ERROR
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01232 M01S00062.253l688 +++| SSL17 SA2 ERRF CHECK ERROR FLAG 01233 M01S00063.253l688 +++| NZ X2,SSL18 IF *PFM* ERROR
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | catli1 |
Seq # *Modification Id* Act ----------------------------+ 01234 M01S00031.catli1 +++| SA2 BOVF CHECK OVERFLOW FLAG
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | catli1 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01235 M02S00032.ns22000 ---| NZ X2,SSL IF OVERFLOW CONDITION
| Line S00212 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01236 M02S00212.253l688 ---| NZ X2,SSL0 IF OVERFLOW OCCURRED (MORE FILES TO LIST)
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | catli1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01237 M02S00033.253l688 ---| SSL16 WRITEC O,BLK
| Line S00660 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01238 M01S00660.253l688 ---| RJ PAS PRINT ACCUMULATED SIZE
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01239 M01S00064.253l688 +++| NZ X2,SSL1 IF OVERFLOW OCCURRED (MORE FILES TO LIST) 01240 M01S00065.253l688 +++| SSL18 WRITEC O,BLK 01241 M01S00066.253l688 +++| RJ PAS PRINT ACCUMULATED STATISTICS 01242 M00S00661.catlist +++| EQ CTL3 CONTINUE PROCESSING 01243 M00S00662.catlist +++| 01244 M00S00663.catlist +++| 01245 M00S00664.catlist +++| SSLA CON 0 NUMBER OF INDIRECT ACCESS FILES 01246 M00S00665.catlist +++| SSLB CON 0 NUMBER OF DIRECT ACCESS FILES 01247 M00S00666.catlist +++| SSLC CON 0 COUNT OF ENTRIES BEFORE DIRECT ACCESS FILE
| Line S00667 Modification History | |
|---|---|
M01 (Removed by) | catli1 |
Seq # *Modification Id* Act ----------------------------+ 01248 M01S00667.catli1 ---| SSLD DATA C* ALL FILES LISTED BUT NOT SORTED.*
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | catli1 |
Seq # *Modification Id* Act ----------------------------+ 01249 M01S00034.catli1 +++| SSLD DATA C* BUFFER OVERFLOW - ALL FILES LISTED BUT NOT SORTED.*
| Line S00668 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01250 M01S00668.ns22000 ---| SSLE DATA C* INDIRECT ACCESS FILE(S)*
| Line S00213 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01251 M01S00213.ns22000 +++| SSLE DATA C* INDIRECT ACCESS FILES* 01252 M00S00669.catlist +++| SSLEL EQU *-SSLE
| Line S00670 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01253 M01S00670.ns22000 ---| SSLF DATA C* DIRECT ACCESS FILE(S)*
| Line S00214 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01254 M01S00214.ns22000 +++| SSLF DATA C* DIRECT ACCESS FILES* 01255 M00S00671.catlist +++| SSLFL EQU *-SSLF
| Line S00672 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01256 M01S00672.ns22000 ---| TITLE GENERAL SUBROUTINES 01257 M01S00673.ns22000 ---| FCB SPACE 1
| Line S00215 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01258 M01S00215.ns22000 +++| TITLE GENERAL SUBROUTINES. 01259 M01S00216.ns22000 +++| AEN SPACE 4,15 01260 M01S00217.ns22000 +++|** AEN - ADVANCE ENTRY NUMBER. 01261 M01S00218.ns22000 +++|* 01262 M01S00219.ns22000 +++|* ENTRY (NO) = NUMBER OF FILES. 01263 M01S00220.ns22000 +++|* 01264 M01S00221.ns22000 +++|* EXIT (NO) ADVANCED. 01265 M01S00222.ns22000 +++|* (FLN) = ADVANCED FILE NUMBER IN DISPLAY CODE. 01266 M01S00223.ns22000 +++|* 01267 M01S00224.ns22000 +++|* USES X - 0, 1, 6. 01268 M01S00225.ns22000 +++|* A - 1, 6. 01269 M01S00226.ns22000 +++|* 01270 M01S00227.ns22000 +++|* CALLS CDD. 01271 M01S00228.ns22000 +++| 01272 M01S00229.ns22000 +++| 01273 M01S00230.ns22000 +++| AEN SUBR ENTRY/EXIT 01274 M01S00231.ns22000 +++| SA1 NO ADVANCE FILE NUMBER 01275 M01S00232.ns22000 +++| SX1 X1+B1 01276 M01S00233.ns22000 +++| BX6 X1 01277 M01S00234.ns22000 +++| SA6 A1 01278 M01S00235.ns22000 +++| RJ CDD 01279 M01S00236.ns22000 +++| SX1 1R. SET PERIOD 01280 M01S00237.ns22000 +++| MX0 54 01281 M01S00238.ns22000 +++| LX6 6 01282 M01S00239.ns22000 +++| BX6 X0*X6 01283 M01S00240.ns22000 +++| BX6 X1+X6 01284 M01S00241.ns22000 +++| SA6 FLN 01285 M01S00242.ns22000 +++| EQ AENX RETURN
| Line S00243 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01286 M02S00243.253l688 ---| AFS SPACE 4,15 01287 M02S00244.253l688 ---|** AFS - ACCUMULATE FILE SIZE.
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01288 M01S00067.253l688 +++| AFS SPACE 4,20 01289 M01S00068.253l688 +++|** AFS - ACCUMULATE FILE STATISTICS.
| Line S00245 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01290 M01S00245.ns22000 +++|*
| Line S00246 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01291 M02S00246.253l688 ---|* *AFS* INCREMENTS THE INDIRECT/DIRECT ACCESS FILE 01292 M02S00247.253l688 ---|* COUNT AND ACCUMULATES THE TOTAL PRUS FOR EACH FILE TYPE.
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01293 M01S00069.253l688 +++|* INCREMENT THE FILE COUNT AND TOTAL PRU-S FOR - 01294 M01S00070.253l688 +++|* INDIRECT ACCESS FILES ON DISK. 01295 M01S00071.253l688 +++|* DIRECT ACCESS FILES ON DISK.
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01296 M02S00072.catli7 ---|* FILES ON CARTRIDGE. 01297 M02S00073.catli7 ---|* FILES ON TAPE.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01298 M01S00010.catli7 +++|* IAPF-S ON ALTERNATE STORAGE. 01299 M01S00011.catli7 +++|* DAPF-S ON ALTERNATE STORAGE.
| Line S00248 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01300 M01S00248.ns22000 +++|* 01301 M01S00249.ns22000 +++|* ENTRY (CBUF) = CATALOG ENTRY. 01302 M01S00250.ns22000 +++|*
| Line S00251 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01303 M02S00251.253l688 ---|* EXIT (FSI) OR (FSD) UPDATED. 01304 M02S00252.253l688 ---|* (FCI) OR (FCD) UPDATED. 01305 M02S00253.253l688 ---|* (X1) = 1 IF DIRECT ACCESS FILE, 0 IF INDIRECT.
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01306 M01S00074.253l688 +++|* EXIT COUNTERS UPDATED. 01307 M01S00075.253l688 +++|* (X1) = 1 IF DIRECT ACCESS FILE. 01308 M01S00076.253l688 +++|* = 0 IF INDIRECT ACCESS FILE. 01309 M01S00077.253l688 +++|* (B2) = 0 IF FILE ON DISK.
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01310 M02S00078.catli7 ---|* = 1 IF FILE ON CARTRIDGE. 01311 M02S00079.catli7 ---|* = 2 IF FILE ON TAPE.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01312 M01S00012.catli7 +++|* = 1 IF FILE ON ALTERNATE STORAGE.
| Line S00254 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01313 M01S00254.ns22000 +++|* 01314 M01S00255.ns22000 +++|* USES X - 1, 2, 3, 6. 01315 M01S00256.ns22000 +++|* A - 1, 2, 3, 6.
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01316 M01S00080.253l688 +++|* B - 2.
| Line S00257 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01317 M01S00257.ns22000 +++| 01318 M01S00258.ns22000 +++| 01319 M01S00259.ns22000 +++| AFS SUBR ENTRY/EXIT
| Line S00260 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | catli8 |
Seq # *Modification Id* Act ----------------------------+ 01320 M02S00260.catli8 ---| SA1 CBUF+1 GET FILE LENGTH
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | catli8 |
Seq # *Modification Id* Act ----------------------------+ 01321 M01S00019.catli8 +++| SA1 CBUF+FCLF GET LENGTH OF FILE
| Line S00261 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01322 M01S00261.ns22000 +++| MX2 -24
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01323 M01S00081.253l688 +++| BX3 -X2*X1 GET TRACK POINTER 01324 M01S00082.253l688 +++| AX3 12
| Line S00262 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01325 M01S00262.ns22000 +++| LX1 24 01326 M01S00263.ns22000 +++| BX6 -X2*X1 01327 M01S00264.ns22000 +++| LX1 0-11-24+60 CHECK FILE TYPE 01328 M01S00265.ns22000 +++| MX2 -1 01329 M01S00266.ns22000 +++| BX1 -X2*X1 (X1)=1 IF DIRECT, 0 IF INDIRECT
| Line S00267 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01330 M02S00267.253l688 ---| SA2 FSI UPDATE INDIRECT ACCESS PARAMETERS
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01331 M01S00083.253l688 +++| ZR X3,AFS2 IF FILE NOT ON DISK 01332 M01S00084.253l688 +++| SB2 B0+ SET RESIDENCE TO DISK
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01333 M02S00085.catli7 ---| SA2 FSI SET COUNTERS FOR INDIRECT ACCESS DISK FILE
| Line S00268 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01334 M02S00268.catli7 ---| SA3 FCI
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01335 M01S00013.catli7 +++| SA2 FSID SET COUNTERS FOR INDIRECT ACCESS DISK FILE 01336 M01S00014.catli7 +++| SA3 FCID
| Line S00269 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01337 M01S00269.ns22000 +++| ZR X1,AFS1 IF INDIRECT ACCESS FILE
| Line S00270 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01338 M02S00270.253l688 ---| SA2 FSD UPDATE DIRECT ACCESS PARAMETERS
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01339 M02S00086.catli7 ---| SA2 FSD SET COUNTERS FOR DIRECT ACCESS DISK FILE
| Line S00271 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01340 M02S00271.catli7 ---| SA3 FCD
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01341 M01S00015.catli7 +++| SA2 FSDD SET COUNTERS FOR DIRECT ACCESS DISK FILE 01342 M01S00016.catli7 +++| SA3 FCDD
| Line S00272 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01343 M01S00272.ns22000 +++| AFS1 IX6 X6+X2 INCREMENT ACCUMULATED SIZE 01344 M01S00273.ns22000 +++| SA6 A2 01345 M01S00274.ns22000 +++| SX6 X3+B1 INCREMENT FILE COUNT 01346 M01S00275.ns22000 +++| SA6 A3 01347 M01S00276.ns22000 +++| EQ AFSX RETURN
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01348 M01S00087.253l688 +++|
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01349 M02S00088.catli7 ---|* FILE NOT DISK RESIDENT. CHECK IF CARTRIDGE OR TAPE RESIDENT.
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01350 M01S00017.catli7 +++|* FILE ON ALTERNATE STORAGE.
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01351 M01S00089.253l688 +++|
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01352 M02S00090.catli7 ---| AFS2 SB2 B1 SET RESIDENCE TO CARTRIDGE 01353 M02S00091.catli7 ---| SA2 CBUF+FCAA 01354 M02S00092.catli7 ---| ZR X2,AFS3 IF NO CARTRIDGE ASA 01355 M02S00093.catli7 ---| LX2 59-48 01356 M02S00094.catli7 ---| NG X2,AFS3 IF OBSOLETE 01357 M02S00095.catli7 ---| SA2 FSC SET COUNTERS FOR CARTRIDGE 01358 M02S00096.catli7 ---| SA3 FCC 01359 M02S00097.catli7 ---| EQ AFS1 UPDATE COUNTERS 01360 M02S00098.catli7 ---| 01361 M02S00099.catli7 ---| AFS3 SB2 B1+B1 SET RESIDENCE TO TAPE 01362 M02S00100.catli7 ---| SA2 FST SET COUNTERS FOR TAPE 01363 M02S00101.catli7 ---| SA3 FCT
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01364 M01S00018.catli7 +++| AFS2 SB2 B1+ SET RESIDENCE TO ALTERNATE STORAGE 01365 M01S00019.catli7 +++| SA2 FSIA SET COUNTERS FOR IAPF ON ALTERNATE STORAGE 01366 M01S00020.catli7 +++| SA3 FCIA 01367 M01S00021.catli7 +++| ZR X1,AFS1 IF INDIRECT ACCESS FILE 01368 M01S00022.catli7 +++| SA2 FSDA SET COUNTERS FOR DAPF ON ALTERNATE STORAGE 01369 M01S00023.catli7 +++| SA3 FCDA
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01370 M01S00102.253l688 +++| EQ AFS1 UPDATE COUNTERS
| Line S00277 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01371 M01S00277.ns22000 +++| ALN SPACE 4,15 01372 M01S00278.ns22000 +++|** ALN - ADVANCE LINE NUMBER. 01373 M01S00279.ns22000 +++|* 01374 M01S00280.ns22000 +++|* ENTRY (LN) = CURRENT PAGE LINE NUMBER. 01375 M01S00281.ns22000 +++|* (B2) = NUMBER OF LINES TO ADVANCE. 01376 M01S00282.ns22000 +++|* 01377 M01S00283.ns22000 +++|* EXIT FILE NUMBER UPDATED IN OUTPUT LINE. 01378 M01S00284.ns22000 +++|* LINE BUFFER CLEARED. 01379 M01S00285.ns22000 +++|* 01380 M01S00286.ns22000 +++|* USES X - 1, 6. 01381 M01S00287.ns22000 +++|* A - 1, 6. 01382 M01S00288.ns22000 +++|* B - 2. 01383 M01S00289.ns22000 +++|* 01384 M01S00290.ns22000 +++|* CALLS HDR, PTP. 01385 M01S00291.ns22000 +++| 01386 M01S00292.ns22000 +++| 01387 M01S00293.ns22000 +++| ALN SUBR ENTRY/EXIT 01388 M01S00294.ns22000 +++| SA1 LN ADVANCE LINE NUMBER 01389 M01S00295.ns22000 +++| SX6 X1+B2 01390 M01S00296.ns22000 +++| SA6 A1 01391 M01S00297.ns22000 +++| SA1 LL GET LINE LIMIT 01392 M01S00298.ns22000 +++| IX1 X1-X6 01393 M01S00299.ns22000 +++| PL X1,ALN2 IF NOT END OF PAGE 01394 M01S00300.ns22000 +++| SX6 B2 01395 M01S00301.ns22000 +++| SA6 A6 RESET LINE NUMBER 01396 M01S00302.ns22000 +++| SA1 DT CHECK DEVICE TYPE 01397 M01S00303.ns22000 +++| NZ X1,ALN1 IF FILE NOT ASSIGNED TO A TERMINAL 01398 M01S00304.ns22000 +++| SA1 TP CHECK IF TITLE PAGE ALREADY PRINTED 01399 M01S00305.ns22000 +++| NZ X1,ALN2 IF TITLE ALREADY PRINTED 01400 M01S00306.ns22000 +++| ALN1 RJ PTP PRINT TITLE PAGE 01401 M01S00307.ns22000 +++| SX6 B1 SET TITLE PAGE FLAG FOR TERMINAL 01402 M01S00308.ns22000 +++| SA6 TP 01403 M01S00309.ns22000 +++| RJ HDR PRINT HEADER 01404 M01S00310.ns22000 +++| ALN2 SB2 7 CLEAR LINE BUFFER 01405 M01S00311.ns22000 +++| SX6 B0 01406 M01S00312.ns22000 +++| ALN3 ZR B2,ALNX IF END OF LINE BUFFER 01407 M01S00313.ns22000 +++| SA6 LBUF+B2 01408 M01S00314.ns22000 +++| SB2 B2-B1 01409 M01S00315.ns22000 +++| EQ ALN3 CLEAR NEXT WORD
| Line S00316 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 01410 M02S00316.ns2573 ---| CSM SPACE 4,15 01411 M02S00317.ns2573 ---|** CSM - CHECK SELECTION MASK.
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 01412 M01S00158.ns2573 +++| CFN SPACE 4,15 01413 M01S00159.ns2573 +++|** CFN - CHECK FILENAME IN LIST.
| Line S00318 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01414 M01S00318.ns22000 +++|*
| Line S00319 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 01415 M02S00319.ns2573 ---|* *CSM* CHECKS TO SEE IF A FILE NAME MASK IS PRESENT AND 01416 M02S00320.ns2573 ---|* IF SO THEN THE FILE NAME IS CHECKED AGAINST THE MASK TO 01417 M02S00321.ns2573 ---|* SEE IF THE FILE IS TO BE LISTED.
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 01418 M01S00160.ns2573 +++|* *CFN* CHECKS A FILE NAME FOR INCLUSION IN A LIST, 01419 M01S00161.ns2573 +++|* WITH WILDCARD MATCHING.
| Line S00322 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01420 M01S00322.ns22000 +++|*
| Line S00323 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 01421 M02S00323.ns2573 ---|* ENTRY (CBUF) = CATALOG ENTRY. 01422 M02S00324.ns2573 ---|* (FNM) = FILE NAME MASK. 01423 M02S00325.ns2573 ---|* (FNS) = STRIPPED FILE NAME.
| Line S00162 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 01424 M01S00162.ns2573 +++|* ENTRY (X3) = FILENAME. 01425 M01S00163.ns2573 +++|* (B2) = FWA OF LIST.
| Line S00326 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01426 M01S00326.ns22000 +++|*
| Line S00327 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 01427 M02S00327.ns2573 ---|* EXIT (X1) = 0 IF FILE IS TO BE LISTED OR IF NO 01428 M02S00328.ns2573 ---|* MASK IS PRESENT. 01429 M02S00329.ns2573 ---|* = NONZERO IF MASK SPECIFIED BUT FILE NOT 01430 M02S00330.ns2573 ---|* TO BE LISTED.
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 01431 M01S00164.ns2573 +++|* EXIT (X6) = 0 IF FILE IN LIST.
| Line S00331 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01432 M01S00331.ns22000 +++|*
| Line S00332 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 01433 M02S00332.ns2573 ---|* USES X - 1, 2, 3. 01434 M02S00333.ns2573 ---|* A - 1, 2, 3.
| Line S00165 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 01435 M01S00165.ns2573 +++|* USES X - 1, 3, 4, 5, 6, 7. 01436 M01S00166.ns2573 +++|* A - 1, 4, 5. 01437 M01S00167.ns2573 +++|* B - 2.
| Line S00334 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01438 M01S00334.ns22000 +++| 01439 M01S00335.ns22000 +++|
| Line S00336 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 01440 M02S00336.ns2573 ---| CSM SUBR ENTRY/EXIT 01441 M02S00337.ns2573 ---| SA1 FNM FILE NAME MASK 01442 M02S00338.ns2573 ---| SA2 CBUF CHECK CATALOG ENTRY 01443 M02S00339.ns2573 ---| ZR X1,CSM IF NO MASK SPECIFIED 01444 M02S00340.ns2573 ---| SA3 FNS (FNS) = STRIPPED FILE NAME 01445 M02S00341.ns2573 ---| BX2 X2-X3 01446 M02S00342.ns2573 ---| BX1 X1*X2 01447 M02S00343.ns2573 ---| EQ CSMX RETURN
| Line S00168 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 01448 M01S00168.ns2573 +++| CFN2 SX6 B1+ 01449 M01S00169.ns2573 +++| 01450 M01S00170.ns2573 +++| CFN SUBR ENTRY/EXIT 01451 M01S00171.ns2573 +++| MX7 42 01452 M01S00172.ns2573 +++| BX3 X7*X3 01453 M01S00173.ns2573 +++| CFN1 SA4 B2 01454 M01S00174.ns2573 +++| SB2 B2+B1 01455 M01S00175.ns2573 +++| ZR X4,CFN2 IF END OF LIST 01456 M01S00176.ns2573 +++| SA1 CFNA CHARACTER MASK 01457 M01S00177.ns2573 +++| SA5 CFNB ASTERISKS 01458 M01S00178.ns2573 +++| BX5 X4-X5 01459 M01S00179.ns2573 +++| BX6 X1*X5 01460 M01S00180.ns2573 +++| BX7 -X1*X5 01461 M01S00181.ns2573 +++| IX6 X1+X6 01462 M01S00182.ns2573 +++| BX6 X6+X7 01463 M01S00183.ns2573 +++| BX7 -X1*X6 01464 M01S00184.ns2573 +++| BX6 X7 01465 M01S00185.ns2573 +++| LX7 -5 01466 M01S00186.ns2573 +++| IX7 X6-X7 01467 M01S00187.ns2573 +++| BX7 X6+X7 01468 M01S00188.ns2573 +++| BX6 X4-X3 01469 M01S00189.ns2573 +++| BX6 X7*X6 01470 M01S00190.ns2573 +++| ZR X6,CFNX IF IN LIST 01471 M01S00191.ns2573 +++| EQ CFN1 CHECK NEXT ENTRY IN LIST 01472 M01S00192.ns2573 +++| 01473 M01S00193.ns2573 +++| 01474 M01S00194.ns2573 +++| CFNA CON 37373737373737000000B 01475 M01S00195.ns2573 +++| CFNB CON 7L*******
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns2740 |
Seq # *Modification Id* Act ----------------------------+ 01476 M01S00030.ns2740 +++| CRS SPACE 4,15
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns2740 |
M02 (Removed by) | catli8 |
Seq # *Modification Id* Act ----------------------------+ 01477 M02S00031.catli8 ---|** CRS - CHECK RESIDENCE OF FILE.
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | catli8 |
Seq # *Modification Id* Act ----------------------------+ 01478 M01S00020.catli8 +++|** CRS - CHECK RESIDENCE AND FILE TYPE.
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns2740 |
Seq # *Modification Id* Act ----------------------------+ 01479 M01S00032.ns2740 +++|*
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns2740 |
M02 (Removed by) | catli8 |
Seq # *Modification Id* Act ----------------------------+ 01480 M02S00033.catli8 ---|* *CRS* CHECKS TO SEE IF THE FILE RESIDENCE SPECIFIED 01481 M02S00034.catli8 ---|* MATCHES THE CURRENT FILE'S RESIDENCE TO DETERMINE IF
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | catli8 |
Seq # *Modification Id* Act ----------------------------+ 01482 M01S00021.catli8 +++|* *CRS* CHECKS TO SEE IF THE FILE RESIDENCE AND TYPE SELECTED 01483 M01S00022.catli8 +++|* MATCH THE CURRENT FILE RESIDENCE AND TYPE, TO DETERMINE IF
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | ns2740 |
Seq # *Modification Id* Act ----------------------------+ 01484 M01S00035.ns2740 +++|* THE FILE IS TO BE LISTED. 01485 M01S00036.ns2740 +++|* 01486 M01S00037.ns2740 +++|* ENTRY (CBUF) = CATALOG ENTRY. 01487 M01S00038.ns2740 +++|* (RSM) = FILE RESIDENCE SELECTION MASK.
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | catli8 |
Seq # *Modification Id* Act ----------------------------+ 01488 M01S00023.catli8 +++|* (TYM) = FILE TYPE SELECTION MASK.
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | ns2740 |
Seq # *Modification Id* Act ----------------------------+ 01489 M01S00039.ns2740 +++|* 01490 M01S00040.ns2740 +++|* EXIT (X1) = 0 IF FILE IS NOT TO BE LISTED. 01491 M01S00041.ns2740 +++|* 01492 M01S00042.ns2740 +++|* USES X - 1, 3. 01493 M01S00043.ns2740 +++|* A - 3. 01494 M01S00044.ns2740 +++|* B - 3, 6. 01495 M01S00045.ns2740 +++| 01496 M01S00046.ns2740 +++| 01497 M01S00047.ns2740 +++| CRS SUBR ENTRY/EXIT 01498 M01S00048.ns2740 +++| SB6 CBUF 01499 M01S00049.ns2740 +++| SB3 B0 INITIALIZE FILE RESIDENCE 01500 M01S00050.ns2740 +++| SA3 B6+FCBT CHECK FOR DISK RESIDENCE 01501 M01S00051.ns2740 +++| MX1 -24 01502 M01S00052.ns2740 +++| BX3 -X1*X3 01503 M01S00053.ns2740 +++| AX3 12 EXAMINE TRACK ONLY 01504 M01S00054.ns2740 +++| ZR X3,CRS1 IF NOT DISK RESIDENT 01505 M01S00055.ns2740 +++| SB3 B3+4 SET DISK RESIDENT INDICATOR 01506 M01S00056.ns2740 +++| CRS1 SA3 B6+FCAA CHECK FOR CARTRIDGE RESIDENCE 01507 M01S00057.ns2740 +++| MX1 -36 01508 M01S00058.ns2740 +++| BX1 -X1*X3 01509 M01S00059.ns2740 +++| ZR X1,CRS2 IF NOT CARTRIDGE RESIDENT 01510 M01S00060.ns2740 +++| LX3 59-48 CHECK FOR OBSOLETE FLAG 01511 M01S00061.ns2740 +++| NG X3,CRS2 IF CARTRIDGE COPY OBSOLETE 01512 M01S00062.ns2740 +++| SB3 B3+B1 SET CARTRIDGE RESIDENCE INDICATOR 01513 M01S00063.ns2740 +++| CRS2 SA3 B6+FCTV CHECK FOR TAPE VSN 01514 M01S00064.ns2740 +++| MX1 -24 01515 M01S00065.ns2740 +++| BX3 -X1*X3 01516 M01S00066.ns2740 +++| ZR X3,CRS3 IF NO TAPE VSN 01517 M01S00067.ns2740 +++| SB3 B3+2 SET TAPE RESIDENT INDICATOR 01518 M01S00068.ns2740 +++| CRS3 SA3 RSM GET FILE RESIDENCE SELECTION MASK 01519 M01S00069.ns2740 +++| SX1 B3 GET ACTUAL FILE RESIDENCE 01520 M01S00070.ns2740 +++| BX1 X1*X3 COMPARE ACTUAL AND SELECTED RESIDENCE
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | catli8 |
Seq # *Modification Id* Act ----------------------------+ 01521 M01S00024.catli8 +++| ZR X1,CRSX IF FILE FAILED RESIDENCE CRITERIA 01522 M01S00025.catli8 +++| SA1 B6+FCBS CHECK FILE TYPE 01523 M01S00026.catli8 +++| MX3 -1 01524 M01S00027.catli8 +++| LX1 0-11 01525 M01S00028.catli8 +++| BX3 -X3*X1 01 = DIRECT, 00 = INDIRECT 01526 M01S00029.catli8 +++| SX1 X3+B1 10 = DIRECT, 01 = INDIRECT 01527 M01S00030.catli8 +++| SA3 TYM 01528 M01S00031.catli8 +++| ZR X3,CRSX IF FILE TYPE NOT SPECIFIED 01529 M01S00032.catli8 +++| BX1 X1*X3 CHECK FILE TYPE MATCH
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | ns2740 |
Seq # *Modification Id* Act ----------------------------+ 01530 M01S00071.ns2740 +++| EQ CRSX RETURN
| Line S00344 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01531 M01S00344.ns22000 +++| CSU SPACE 4,15 01532 M01S00345.ns22000 +++|** CSU - CHECK FOR SPECIAL USER. 01533 M01S00346.ns22000 +++|* 01534 M01S00347.ns22000 +++|* ENTRY (AUSER) = ALTERNATE USER.
| Line S00348 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01535 M02S00348.v23l617 ---|* (USER) = USER NUMBER OF CALLER.
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01536 M01S00017.v23l617 +++|* (USER) = USER NAME OF CALLER.
| Line S00349 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01537 M01S00349.ns22000 +++|* 01538 M01S00350.ns22000 +++|* EXIT (MODE) UPDATED TO NON-ALTERNATE CATALOG IF 01539 M01S00351.ns22000 +++|* USER REQUESTING CATLIST HAS AUTOMATIC PERMISSION. 01540 M01S00352.ns22000 +++|* 01541 M01S00353.ns22000 +++|* USES X - 0, 1, 2, 3, 6, 7.
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | ns2740 |
Seq # *Modification Id* Act ----------------------------+ 01542 M01S00072.ns2740 +++|* A - 1, 2, 6.
| Line S00354 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01543 M01S00354.ns22000 +++|* B - 2.
| Line S00355 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2740 |
Seq # *Modification Id* Act ----------------------------+ 01544 M02S00355.ns2740 ---|* A - 1, 2, 6.
| Line S00356 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01545 M01S00356.ns22000 +++| 01546 M01S00357.ns22000 +++| 01547 M01S00358.ns22000 +++| CSU SUBR ENTRY/EXIT 01548 M01S00359.ns22000 +++| SA2 MODE 01549 M01S00360.ns22000 +++| SX2 X2-PMTL 01550 M01S00361.ns22000 +++| PL X2,CSUX IF PERMIT DATA REQUEST 01551 M01S00362.ns22000 +++| SA2 AUSER 01552 M01S00363.ns22000 +++| ZR X2,CSUX IF NO ALTERNATE USER 01553 M01S00364.ns22000 +++| SA1 USER 01554 M01S00365.ns22000 +++| MX0 -6 01555 M01S00366.ns22000 +++| SB2 8 01556 M01S00367.ns22000 +++| CSU1 LX1 6 POSITION NEXT CHARACTER 01557 M01S00368.ns22000 +++| LX2 6 01558 M01S00369.ns22000 +++| SB2 B2-B1
| Line S00370 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01559 M02S00370.v23l617 ---| ZR B2,CSU2 IF USER NUMBERS MATCH
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01560 M01S00018.v23l617 +++| ZR B2,CSU2 IF USER NAMES MATCH
| Line S00371 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01561 M01S00371.ns22000 +++| BX3 -X0*X1 USER 01562 M01S00372.ns22000 +++| BX6 -X0*X2 AUSER 01563 M01S00373.ns22000 +++| SX7 X3-1R* 01564 M01S00374.ns22000 +++| ZR X7,CSU1 IF CHARACTER = * 01565 M01S00375.ns22000 +++| IX6 X3-X6 01566 M01S00376.ns22000 +++| ZR X6,CSU1 IF CHARACTERS COMPARE 01567 M01S00377.ns22000 +++| EQ CSUX EXIT 01568 M01S00378.ns22000 +++| 01569 M01S00379.ns22000 +++| CSU2 SA1 MODE PROCEED AS NON-ALTERNATE CATALOG 01570 M01S00380.ns22000 +++| SX6 X1-ALTC 01571 M01S00381.ns22000 +++| SA6 A1 01572 M01S00382.ns22000 +++| EQ CSUX RETURN 01573 M01S00383.ns22000 +++|DSB SPACE 4,15 01574 M01S00384.ns22000 +++|** DSB - DISPLAY SORT BREAK. 01575 M01S00385.ns22000 +++|* 01576 M01S00386.ns22000 +++|* ENTRY (X1) = TOTAL NUMBER OF FILE NAMES. 01577 M01S00387.ns22000 +++|* (BO) = CURRENT BUFFER OFFSET. 01578 M01S00388.ns22000 +++|* 01579 M01S00389.ns22000 +++|* EXIT SORT-BREAK LINE DISPLAYED. 01580 M01S00390.ns22000 +++|* 01581 M01S00391.ns22000 +++|* USES X - 2, 3. 01582 M01S00392.ns22000 +++|* A - 2. 01583 M01S00393.ns22000 +++|* B - 2. 01584 M01S00394.ns22000 +++|* 01585 M01S00395.ns22000 +++|* CALLS ALN. 01586 M01S00396.ns22000 +++|* 01587 M01S00397.ns22000 +++|* MACROS WRITEC. 01588 M01S00398.ns22000 +++| 01589 M01S00399.ns22000 +++| 01590 M01S00400.ns22000 +++| DSB SUBR ENTRY/EXIT 01591 M01S00401.ns22000 +++| SA2 BO+1 GET CURRENT BUFFER OFFSET 01592 M01S00402.ns22000 +++| IX3 X2-X1 01593 M01S00403.ns22000 +++| ZR X3,DSBX IF NO MORE FILES IN THIS GROUP 01594 M01S00404.ns22000 +++| SA2 DT 01595 M01S00405.ns22000 +++| NZ X2,DSBX IF NOT TERMINAL FILE 01596 M01S00406.ns22000 +++| SB2 1 01597 M01S00407.ns22000 +++| RJ ALN ADVANCE LINE NUMBER 01598 M01S00408.ns22000 +++| WRITEC O,(=C* ...*) 01599 M01S00409.ns22000 +++| EQ DSBX RETURN 01600 M01S00410.ns22000 +++| FCB SPACE 4,10 01601 M00S00674.catlist +++|** FCB - FILL CATALOG AND PERMIT BUFFER. 01602 M00S00675.catlist +++|*
| Line S00676 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01603 M01S00676.ns22000 ---|* 01604 M01S00677.ns22000 ---|* EXIT IF (X6) .GE. 0, NUMBER OF WORDS READ. 01605 M01S00678.ns22000 ---|* IF (X6) .LT. 0, ERROR RETURN SET.
| Line S00411 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01606 M01S00411.ns22000 +++|* EXIT (X6) = NUMBER OF WORDS READ. 01607 M01S00412.ns22000 +++|* (X6) .LT. 0, IF ERROR DETECTED. 01608 M00S00679.catlist +++|* 01609 M00S00680.catlist +++|* USES X - 0, 1, 2, 6. 01610 M00S00681.catlist +++|* A - 1, 2, 6. 01611 M00S00682.catlist +++|*
| Line S00683 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01612 M01S00683.ns22000 ---|* CALLS PFM=. 01613 M01S00684.ns22000 ---|
| Line S00413 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01614 M01S00413.ns22000 +++|* MACROS CATLIST. 01615 M00S00685.catlist +++| 01616 M00S00686.catlist +++| 01617 M00S00687.catlist +++| FCB1 SA6 ERRF SET *PFM* ERROR FLAG 01618 M00S00688.catlist +++| 01619 M00S00689.catlist +++| FCB SUBR ENTRY/EXIT 01620 M00S00690.catlist +++| SA1 I CHECK FOR EOI ON LAST READ 01621 M00S00691.catlist +++| LX1 59-9 01622 M00S00692.catlist +++| SX6 B0 01623 M00S00693.catlist +++| NG X1,FCBX IF EOI ENCOUNTERED 01624 M00S00694.catlist +++| SA2 A1+B1 SET IN = OUT = FIRST 01625 M00S00695.catlist +++| SX6 X2 01626 M00S00696.catlist +++| SA6 A2+B1 SET IN 01627 M00S00697.catlist +++| SA6 A6+B1 SET OUT 01628 M00S00698.catlist +++| CATLIST A1,,,,,,,DN 01629 M00S00699.catlist +++| SA1 X2+ CHECK ERROR STATUS 01630 M00S00700.catlist +++| MX0 -8 01631 M00S00701.catlist +++| AX1 10 01632 M00S00702.catlist +++| BX2 -X0*X1 01633 M00S00703.catlist +++| MX6 1 SET ERROR RETURN CONDITION 01634 M00S00704.catlist +++| NZ X2,FCB1 IF ERROR RETURN STATUS SET 01635 M00S00705.catlist +++| SA1 A1+2 SET NUMBER OF WORDS READ 01636 M00S00706.catlist +++| SA2 A1+B1 01637 M00S00707.catlist +++| IX6 X1-X2 01638 M00S00708.catlist +++| EQ FCBX RETURN
| Line S00709 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01639 M01S00709.ns22000 ---| CSU SPACE 4 01640 M01S00710.ns22000 ---|** CSU - CHECK FOR SPECIAL USER. 01641 M01S00711.ns22000 ---|* 01642 M01S00712.ns22000 ---|* ENTRY (AUSER) = ALTERNATE USER. 01643 M01S00713.ns22000 ---|* (USER) = USER NUMBER OF CALLER. 01644 M01S00714.ns22000 ---|* 01645 M01S00715.ns22000 ---|* EXIT (MODE) UPDATED TO NON-ALTERNATE CATALOG IF 01646 M01S00716.ns22000 ---|* USER REQUESTING CATLIST HAS AUTOMATIC PERMISSION. 01647 M01S00717.ns22000 ---|* 01648 M01S00718.ns22000 ---|* USES X - 0, 1, 2, 3, 6, 7. 01649 M01S00719.ns22000 ---|* B - 2. 01650 M01S00720.ns22000 ---|* A - 1, 2, 6. 01651 M01S00721.ns22000 ---| 01652 M01S00722.ns22000 ---| 01653 M01S00723.ns22000 ---| CSU SUBR ENTRY/EXIT 01654 M01S00724.ns22000 ---| SA2 MODE 01655 M01S00725.ns22000 ---| SX2 X2-PMTL 01656 M01S00726.ns22000 ---| PL X2,CSUX IF PERMIT DATA REQUEST 01657 M01S00727.ns22000 ---| SA2 AUSER 01658 M01S00728.ns22000 ---| ZR X2,CSUX IF NO ALTERNATE USER 01659 M01S00729.ns22000 ---| SA1 USER 01660 M01S00730.ns22000 ---| MX0 -6 01661 M01S00731.ns22000 ---| SB2 8 01662 M01S00732.ns22000 ---| CSU1 LX1 6 POSITION NEXT CHARACTER 01663 M01S00733.ns22000 ---| LX2 6 01664 M01S00734.ns22000 ---| SB2 B2-B1 01665 M01S00735.ns22000 ---| ZR B2,CSU2 IF USER NUMBERS MATCH 01666 M01S00736.ns22000 ---| BX3 -X0*X1 USER 01667 M01S00737.ns22000 ---| BX6 -X0*X2 AUSER 01668 M01S00738.ns22000 ---| SX7 X3-1R* 01669 M01S00739.ns22000 ---| ZR X7,CSU1 IF CHARACTER = * 01670 M01S00740.ns22000 ---| IX6 X3-X6 01671 M01S00741.ns22000 ---| ZR X6,CSU1 IF CHARACTERS COMPARE 01672 M01S00742.ns22000 ---| EQ CSUX EXIT 01673 M01S00743.ns22000 ---| 01674 M01S00744.ns22000 ---| CSU2 SA1 MODE PROCEED AS NON-ALTERNATE CATALOG 01675 M01S00745.ns22000 ---| SX6 X1-2 01676 M01S00746.ns22000 ---| SA6 A1 01677 M01S00747.ns22000 ---| EQ CSUX RETURN 01678 M01S00748.ns22000 ---| ALN SPACE 4 01679 M01S00749.ns22000 ---|** ALN - ADVANCE LINE NUMBER 01680 M01S00750.ns22000 ---|* 01681 M01S00751.ns22000 ---|* ENTRY (LN) = CURRENT PAGE LINE NUMBER 01682 M01S00752.ns22000 ---|* (B2) = NUMBER OF LINES TO ADVANCE 01683 M01S00753.ns22000 ---|* 01684 M01S00754.ns22000 ---|* EXIT FILE NUMBER UPDATED IN OUTPUT LINE 01685 M01S00755.ns22000 ---|* LINE BUFFER CLEARED 01686 M01S00756.ns22000 ---|* 01687 M01S00757.ns22000 ---|* USES X 1, 6. 01688 M01S00758.ns22000 ---|* B 2. 01689 M01S00759.ns22000 ---|* A 1, 6. 01690 M01S00760.ns22000 ---|* 01691 M01S00761.ns22000 ---|* CALLS HDR, PTP. 01692 M01S00762.ns22000 ---| 01693 M01S00763.ns22000 ---| 01694 M01S00764.ns22000 ---| ALN SUBR ENTRY/EXIT 01695 M01S00765.ns22000 ---| SA1 LN ADVANCE LINE NUMBER 01696 M01S00766.ns22000 ---| SX6 X1+B2 01697 M01S00767.ns22000 ---| SA6 A1 01698 M01S00768.ns22000 ---| SX1 X6-LINP 01699 M01S00769.ns22000 ---| NG X1,ALN2 IF NOT END OF PAGE 01700 M01S00770.ns22000 ---| SA1 DT CHECK DEVICE TYPE 01701 M01S00771.ns22000 ---| NZ X1,ALN1 IF FILE NOT ASSIGNED TO A TERMINAL 01702 M01S00772.ns22000 ---| SA1 TP CHECK IF TITLE PAGE ALREADY PRINTED 01703 M01S00773.ns22000 ---| NZ X1,ALN2 IF TITLE ALREADY PRINTED 01704 M01S00774.ns22000 ---| ALN1 RJ PTP PRINT TITLE PAGE 01705 M01S00775.ns22000 ---| SX6 B1 SET TITLE PAGE FLAG FOR TERMINAL 01706 M01S00776.ns22000 ---| SA6 TP
| Line S00777 Modification History | |
|---|---|
M01 (Removed by) | catli5 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01707 M02S00777.ns22000 ---| SA1 MODE 01708 M02S00778.ns22000 ---| ZR X1,ALN2 IF SHORT FILE LIST
| Line S00779 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01709 M01S00779.ns22000 ---| RJ HDR PRINT HEADER 01710 M01S00780.ns22000 ---| ALN2 SB2 7 CLEAR LINE BUFFER 01711 M01S00781.ns22000 ---| SX6 B0 01712 M01S00782.ns22000 ---| ALN3 ZR B2,ALNX IF END OF LINE BUFFER 01713 M01S00783.ns22000 ---| SA6 LBUF+B2 01714 M01S00784.ns22000 ---| SB2 B2-B1 01715 M01S00785.ns22000 ---| EQ ALN3 01716 M01S00786.ns22000 ---| AEN SPACE 4 01717 M01S00787.ns22000 ---|** AEN - ADVANCE ENTRY NUMBER. 01718 M01S00788.ns22000 ---|* 01719 M01S00789.ns22000 ---|* ENTRY (NO) = NUMBER OF FILES. 01720 M01S00790.ns22000 ---|* 01721 M01S00791.ns22000 ---|* EXIT (NO) ADVANCED 01722 M01S00792.ns22000 ---|* (FLN) = ADVANCED FILE NUMBER IN DISPLAY CODE 01723 M01S00793.ns22000 ---|* 01724 M01S00794.ns22000 ---|* USES X 0, 1, 6. 01725 M01S00795.ns22000 ---|* A 1, 6. 01726 M01S00796.ns22000 ---|* 01727 M01S00797.ns22000 ---|* CALLS CDD. 01728 M01S00798.ns22000 ---| 01729 M01S00799.ns22000 ---| 01730 M01S00800.ns22000 ---| AEN SUBR ENTRY/EXIT 01731 M01S00801.ns22000 ---| SA1 NO ADVANCE FILE NUMBER 01732 M01S00802.ns22000 ---| SX1 X1+B1 01733 M01S00803.ns22000 ---| BX6 X1 01734 M01S00804.ns22000 ---| SA6 A1 01735 M01S00805.ns22000 ---| RJ CDD 01736 M01S00806.ns22000 ---| SX1 1R. SET PERIOD 01737 M01S00807.ns22000 ---| MX0 54 01738 M01S00808.ns22000 ---| LX6 6 01739 M01S00809.ns22000 ---| BX6 X0*X6 01740 M01S00810.ns22000 ---| BX6 X1+X6 01741 M01S00811.ns22000 ---| SA6 FLN 01742 M01S00812.ns22000 ---| EQ AENX 01743 M01S00813.ns22000 ---| AFS SPACE 4,15 01744 M01S00814.ns22000 ---|** AFS - ACCUMULATE FILE SIZE. 01745 M01S00815.ns22000 ---|* 01746 M01S00816.ns22000 ---|* *AFS* INCREMENTS THE INDIRECT/DIRECT ACCESS FILE 01747 M01S00817.ns22000 ---|* COUNT AND ACCUMULATES THE TOTAL PRUS FOR EACH FILE TYPE. 01748 M01S00818.ns22000 ---|* 01749 M01S00819.ns22000 ---|* ENTRY (CBUF) = CATALOG ENTRY. 01750 M01S00820.ns22000 ---|* 01751 M01S00821.ns22000 ---|* EXIT (FSI) OR (FSD) UPDATED. 01752 M01S00822.ns22000 ---|* (FCI) OR (FCD) UPDATED. 01753 M01S00823.ns22000 ---|* (X1) = 1 IF DIRECT ACCESS FILE, 0 IF INDIRECT. 01754 M01S00824.ns22000 ---|* 01755 M01S00825.ns22000 ---|* USES X - 1, 2, 6. 01756 M01S00826.ns22000 ---|* A - 1, 2, 6. 01757 M01S00827.ns22000 ---| 01758 M01S00828.ns22000 ---| 01759 M01S00829.ns22000 ---| AFS SUBR ENTRY/EXIT 01760 M01S00830.ns22000 ---| SA1 CBUF+1 GET FILE LENGTH 01761 M01S00831.ns22000 ---| MX2 -24 01762 M01S00832.ns22000 ---| LX1 24 01763 M01S00833.ns22000 ---| BX6 -X2*X1 01764 M01S00834.ns22000 ---| LX1 60-24-11 CHECK FILE TYPE 01765 M01S00835.ns22000 ---| MX2 -1 01766 M01S00836.ns22000 ---| BX1 -X2*X1 (X1)=1 IF DIRECT, 0 IF INDIRECT 01767 M01S00837.ns22000 ---| SA2 FSI+X1 GET ACCUMULATED SIZE 01768 M01S00838.ns22000 ---| IX6 X6+X2 INCREMENT ACCUMULATED SIZE 01769 M01S00839.ns22000 ---| SA6 A2 01770 M01S00840.ns22000 ---| SA2 FCI+X1 GET FILE TYPE COUNT 01771 M01S00841.ns22000 ---| SX6 X2+B1 01772 M01S00842.ns22000 ---| SA6 A2 01773 M01S00843.ns22000 ---| EQ AFSX RETURN 01774 M01S00844.ns22000 ---| CSM SPACE 4,15 01775 M01S00845.ns22000 ---|** CSM - CHECK SELECTION MASK. 01776 M01S00846.ns22000 ---|* 01777 M01S00847.ns22000 ---|* 01778 M01S00848.ns22000 ---|* *CSM* CHECKS TO SEE IF A FILE NAME MASK IS PRESENT AND 01779 M01S00849.ns22000 ---|* IF SO THEN THE FILE NAME IS CHECKED AGAINST THE MASK TO 01780 M01S00850.ns22000 ---|* SEE IF THE FILE IS TO BE LISTED. 01781 M01S00851.ns22000 ---|* 01782 M01S00852.ns22000 ---|* ENTRY (CBUF) = CATALOG ENTRY. 01783 M01S00853.ns22000 ---|* (FNM) = FILE NAME MASK. 01784 M01S00854.ns22000 ---|* (FNS) = STRIPPED FILE NAME. 01785 M01S00855.ns22000 ---|* 01786 M01S00856.ns22000 ---|* EXIT (X1) = 0 IF FILE IS TO BE LISTED OR IF NO 01787 M01S00857.ns22000 ---|* MASK IS PRESENT. 01788 M01S00858.ns22000 ---|* = NONZERO IF MASK SPECIFIED BUT FILE NOT 01789 M01S00859.ns22000 ---|* TO BE LISTED. 01790 M01S00860.ns22000 ---|* 01791 M01S00861.ns22000 ---|* USES X - 1, 2, 3. 01792 M01S00862.ns22000 ---|* A - 1, 2, 3. 01793 M01S00863.ns22000 ---| 01794 M01S00864.ns22000 ---| 01795 M01S00865.ns22000 ---| CSM SUBR ENTRY/EXIT 01796 M01S00866.ns22000 ---| SA1 FNM FILE NAME MASK 01797 M01S00867.ns22000 ---| SA2 CBUF CHECK CATALOG ENTRY 01798 M01S00868.ns22000 ---| ZR X1,CSM IF NO MASK SPECIFIED 01799 M01S00869.ns22000 ---| SA3 FNS (FNS) = STRIPPED FILE NAME 01800 M01S00870.ns22000 ---| BX2 X2-X3 01801 M01S00871.ns22000 ---| BX1 X1*X2 01802 M01S00872.ns22000 ---| EQ CSMX RETURN 01803 M00S00873.catlist +++| GNI SPACE 4,15 01804 M00S00874.catlist +++|** GNI - GET NEXT ENTRY INDEX. 01805 M00S00875.catlist +++|* 01806 M00S00876.catlist +++|* ENTRY MUST HAVE GONE TO *NIP* TO PRESET INDEX. 01807 M00S00877.catlist +++|* 01808 M00S00878.catlist +++|* EXIT (X1) = INDEX FOR NEXT ENTRY TO PROVIDE A SORTED 01809 M00S00879.catlist +++|* LIST ORDERED BY COLUMNS. 01810 M00S00880.catlist +++|* 01811 M00S00881.catlist +++|* USES X - 1, 2, 3, 4, 6. 01812 M00S00882.catlist +++|* A - 1, 2, 4, 6. 01813 M00S00883.catlist +++| 01814 M00S00884.catlist +++| 01815 M00S00885.catlist +++| GNI3 IX6 X1+X4 ADD INCREMENT 01816 M00S00886.catlist +++| SA6 GNIB 01817 M00S00887.catlist +++| 01818 M00S00888.catlist +++| GNI SUBR ENTRY/EXIT 01819 M00S00889.catlist +++| SA2 GNIA 01820 M00S00890.catlist +++| SX3 7 CHECK LINE LENGTH 01821 M00S00891.catlist +++| IX4 X2-X3 01822 M00S00892.catlist +++| PL X4,GNI2 IF END OF LINE 01823 M00S00893.catlist +++| SA1 A2+B1 GET ENTRY BIAS 01824 M00S00894.catlist +++| GNI1 SX6 X2+B1 UPDATE COLUMN NUMBER 01825 M00S00895.catlist +++| SA4 GNID GET REMAINDER 01826 M00S00896.catlist +++| SA6 A2 01827 M00S00897.catlist +++| IX3 X2-X4 01828 M00S00898.catlist +++| SA4 A4-B1 GET INCREMENT 01829 M00S00899.catlist +++| NG X3,GNI3 IF FULL INCREMENT TO BE USED 01830 M00S00900.catlist +++| SX4 X4-1 01831 M00S00901.catlist +++| EQ GNI3 USE INCREMENT-1 01832 M00S00902.catlist +++| 01833 M00S00903.catlist +++| GNI2 SA1 GNIE GET LINE INDEX 01834 M00S00904.catlist +++| SX6 X1+B1 01835 M00S00905.catlist +++| MX2 0 CLEAR C0LUMN NUMBER 01836 M00S00906.catlist +++| BX1 X6 01837 M00S00907.catlist +++| SA6 A1 01838 M00S00908.catlist +++| EQ GNI1 SET CELLS FOR NEW LINE 01839 M00S00909.catlist +++| 01840 M00S00910.catlist +++| 01841 M00S00911.catlist +++| GNIA CON 0 COLUMN NUMBER 01842 M00S00912.catlist +++| GNIB CON 0 ENTRY BIAS 01843 M00S00913.catlist +++| GNIC CON 0 ROW INCREMENT 01844 M00S00914.catlist +++| GNID CON 0 REMAINDER 01845 M00S00915.catlist +++| GNIE CON 0 LINE INDEX
| Line S00916 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01846 M01S00916.ns22000 ---| NIP SPACE 4,15 01847 M01S00917.ns22000 ---|** NIP - NEXT INDEX PRESET. 01848 M01S00918.ns22000 ---|* 01849 M01S00919.ns22000 ---|* ENTRY (X1) = ENTRY COUNT. 01850 M01S00920.ns22000 ---|* 01851 M01S00921.ns22000 ---|* EXIT TEMPORARY CELLS PRESET FOR *GNI*. 01852 M01S00922.ns22000 ---|* 01853 M01S00923.ns22000 ---|* USES X - 1, 3, 6, 7. 01854 M01S00924.ns22000 ---|* A - 6, 7. 01855 M01S00925.ns22000 ---| 01856 M01S00926.ns22000 ---| 01857 M01S00927.ns22000 ---| NIP SUBR ENTRY/EXIT 01858 M01S00928.ns22000 ---| MX6 0 01859 M01S00929.ns22000 ---| SX3 7 LINE LENGTH 01860 M01S00930.ns22000 ---| SA6 GNIA 01861 M01S00931.ns22000 ---| SA6 GNIB 01862 M01S00932.ns22000 ---| SA6 GNIE 01863 M01S00933.ns22000 ---| NIP1 IX1 X1-X3 DIVIDE BY 7 01864 M01S00934.ns22000 ---| SX6 X6+B1 01865 M01S00935.ns22000 ---| PL X1,NIP1 IF NOT POSITION IN ROW 01866 M01S00936.ns22000 ---| IX7 X3+X1 01867 M01S00937.ns22000 ---| SA6 GNIC 01868 M01S00938.ns22000 ---| SA7 GNID 01869 M01S00939.ns22000 ---| EQ NIP RETURN 01870 M01S00940.ns22000 ---| GSL SPACE 4
| Line S00414 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01871 M02S00414.253l688 ---| GSL SPACE 4,15
| Line S00941 Modification History | |
|---|---|
M01 (Removed by) | catli1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01872 M02S00941.253l688 ---|** GSL - GENERATE SHORT LIST 01873 M02S00942.253l688 ---|* 01874 M02S00943.253l688 ---|* ENTRY (CBUF) = CATALOG ENTRY
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | catli1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01875 M02S00035.253l688 ---|** GSL - GENERATE SHORT LIST.
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01876 M01S00103.253l688 +++| GSL SPACE 4,25 01877 M01S00104.253l688 +++|** GSL - GENERATE ENTRY FOR SHORT LIST.
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | catli1 |
Seq # *Modification Id* Act ----------------------------+ 01878 M01S00036.catli1 +++|*
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | catli1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01879 M02S00037.253l688 ---|* ENTRY (CBUF) = CATALOG ENTRY.
| Line S00105 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01880 M01S00105.253l688 +++|* ENTRY (CBUF) = FILE/USER DESCRIPTOR. 01881 M01S00106.253l688 +++|* FOR *SSL* CALL -
| Line S00107 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01882 M02S00107.catli7 ---|* 42/PFN,7/0,1/T,1/N,3/EC,2/0,1/D,3/0.
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01883 M01S00024.catli7 +++|* 42/PFN,8/0,1/N,3/EC,2/0,1/D,3/0.
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01884 M01S00108.253l688 +++|* PFN = PERMANENT FILE NAME.
| Line S00109 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01885 M02S00109.catli7 ---|* T = 1 IF FILE ON TAPE.
| Line S00110 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01886 M01S00110.253l688 +++|* N = 1 IF FILE NOT ON DISK. 01887 M01S00111.253l688 +++|* EC = ERROR CODE FROM PFC. 01888 M01S00112.253l688 +++|* D = 1 IF DIRECT ACCESS FILE. 01889 M01S00113.253l688 +++|* FOR *SPD* CALL - 01890 M01S00114.253l688 +++|* 42/USERNAME,18/0
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | catli1 |
Seq # *Modification Id* Act ----------------------------+ 01891 M01S00038.catli1 +++|* 01892 M01S00039.catli1 +++|* EXIT FILE NAME SET IN OUTPUT LINE.
| Line S00115 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01893 M02S00115.catli7 ---|* IF FILE ON CARTRIDGE, FILE NAME IN ( ). 01894 M02S00116.catli7 ---|* IF FILE ON TAPE, FILE NAME IN < >.
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01895 M01S00025.catli7 +++|* IF FILE ON ALTERNATE STORAGE, FILE NAME IN ( ).
| Line S00117 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01896 M01S00117.253l688 +++|* IF ERROR CODE PRESENT, LEADING ASTERISK ON FILE NAME.
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | catli1 |
Seq # *Modification Id* Act ----------------------------+ 01897 M01S00040.catli1 +++|*
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | catli1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01898 M02S00041.253l688 ---|* USES X - 0, 1, 2, 3, 5, 6. 01899 M02S00042.253l688 ---|* A - 1, 2, 3, 5, 6.
| Line S00118 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01900 M01S00118.253l688 +++|* USES X - 0, 1, 2, 3, 4, 5, 6, 7. 01901 M01S00119.253l688 +++|* A - 1, 2, 3, 4, 5, 6.
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | catli1 |
Seq # *Modification Id* Act ----------------------------+ 01902 M01S00043.catli1 +++|* B - 2. 01903 M01S00044.catli1 +++|*
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | catli1 |
M02 (Removed by) | catli6 |
Seq # *Modification Id* Act ----------------------------+ 01904 M02S00045.catli6 ---|* CALLS AEN, ALN, SFN.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | catli6 |
Seq # *Modification Id* Act ----------------------------+ 01905 M01S00010.catli6 +++|* CALLS AEN, ALN, MTP, SFN.
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | catli1 |
Seq # *Modification Id* Act ----------------------------+ 01906 M01S00046.catli1 +++|* 01907 M01S00047.catli1 +++|* MACROS WRITEC. 01908 M00S00944.catlist +++| 01909 M00S00945.catlist +++| 01910 M00S00946.catlist +++| GSL SUBR ENTRY/EXIT
| Line S00947 Modification History | |
|---|---|
M01 (Removed by) | catli1 |
Seq # *Modification Id* Act ----------------------------+ 01911 M01S00947.catli1 ---| 01912 M00S00948.catlist +++| SA5 GSLA CHECK LINE FILE COUNT 01913 M00S00949.catlist +++| SX2 7 01914 M00S00950.catlist +++| IX2 X2-X5 01915 M00S00951.catlist +++| NG X2,GSL1 IF FIRST ENTRY 01916 M00S00952.catlist +++| NZ X2,GSL2 IF NOT END OF LINE 01917 M00S00953.catlist +++| WRITEC O,LBUF 01918 M00S00954.catlist +++| GSL1 SB2 B1 ADVANCE LINE NUMBER BY 1 01919 M00S00955.catlist +++| RJ ALN 01920 M00S00956.catlist +++| SX5 B0 RESET LINE COUNT
| Line S00957 Modification History | |
|---|---|
M01 (Removed by) | catli1 |
Seq # *Modification Id* Act ----------------------------+ 01921 M01S00957.catli1 ---| 01922 M00S00958.catlist +++| GSL2 RJ AEN ADVANCE ENTRY NUMBER
| Line S00959 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01923 M01S00959.253l688 ---| SA1 CBUF PICK ENTRY
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01924 M01S00120.253l688 +++| SA3 CBUF PICK ENTRY 01925 M01S00121.253l688 +++| SA4 MODE 01926 M01S00122.253l688 +++| SB2 B0 SET DEFAULT IMAGE PATTERN 01927 M00S00960.catlist +++| MX0 42
| Line S00961 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01928 M01S00961.253l688 ---| BX1 X0*X1 01929 M01S00962.253l688 ---| ZR X1,GSLX IF NO NAME 01930 M01S00963.253l688 ---| RJ SFN SPACE FILL NAME 01931 M01S00964.253l688 ---| SA2 MODE CHECK LIST MODE 01932 M01S00965.253l688 ---| SX2 X2-MOSP
| Line S00966 Modification History | |
|---|---|
M01 (Removed by) | catli6 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01933 M02S00966.253l688 ---| ZR X2,GSL3 IF SHORT PERMIT LIST MODE
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | catli6 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01934 M02S00011.253l688 ---| ZR X2,GSL4 IF SHORT PERMIT LIST MODE
| Line S00967 Modification History | |
|---|---|
M01 (Removed by) | catli1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01935 M02S00967.253l688 ---| SA3 CBUF+FCEC CHECK ERROR CODES 01936 M02S00968.253l688 ---| SA2 ECT GET ERROR COUNT
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | catli1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01937 M02S00048.253l688 ---| SA3 CBUF CHECK ERROR CODE
| Line S00969 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01938 M01S00969.253l688 ---| MX1 -3
| Line S00970 Modification History | |
|---|---|
M01 (Removed by) | catli1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01939 M02S00970.253l688 ---| LX3 59-41
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | catli1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01940 M02S00049.253l688 ---| LX3 -6
| Line S00971 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01941 M01S00971.253l688 ---| BX1 -X1*X3 01942 M01S00972.253l688 ---| ZR X1,GSL3 IF NO ERRORS
| Line S00973 Modification History | |
|---|---|
M01 (Removed by) | catli1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01943 M02S00973.253l688 ---| SX7 X2+B1 INCREMENT ERROR COUNT
| Line S00974 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01944 M01S00974.253l688 ---| SX1 1R &1R* SET * TO INDICATE THE ERROR 01945 M01S00975.253l688 ---| BX6 X6-X1
| Line S00976 Modification History | |
|---|---|
M01 (Removed by) | catli1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01946 M02S00976.253l688 ---| SA7 A2
| Line S00977 Modification History | |
|---|---|
M01 (Removed by) | catli6 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01947 M02S00977.253l688 ---| GSL3 LX6 48
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | catli6 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01948 M02S00012.253l688 ---| EQ GSL4 ADVANCE LINE FILE COUNT 01949 M02S00013.253l688 ---| 01950 M02S00014.253l688 ---| GSL3 LX3 59-11 01951 M02S00015.253l688 ---| PL X3,GSL4 IF FILE DISK RESIDENT 01952 M02S00016.253l688 ---| SX1 1R &1R( SET *(* TO INDICATE NOT DISK RESIDENT 01953 M02S00017.253l688 ---| BX6 X6-X1 01954 M02S00018.253l688 ---| RJ MTP MARK WITH TERMINATING PARENTHESIS 01955 M02S00019.253l688 ---| GSL4 LX6 48
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01956 M01S00123.253l688 +++| BX1 X0*X3 01957 M01S00124.253l688 +++| MX6 -3 01958 M01S00125.253l688 +++| SX4 X4-MOSP 01959 M01S00126.253l688 +++| LX3 0-6 01960 M01S00127.253l688 +++| BX6 -X6*X3 EXTRACT ERROR CODE 01961 M01S00128.253l688 +++| LX3 59-9-0+6 01962 M01S00129.253l688 +++| ZR X4,GSL4 IF SHORT PERMIT MODE CATLIST 01963 M01S00130.253l688 +++| ZR X6,GSL3 IF NO ERROR CODE 01964 M01S00131.253l688 +++| SB2 B2+1 SET IMAGE PATTERN FOR ERROR 01965 M01S00132.253l688 +++| GSL3 PL X3,GSL4 IF FILE ON DISK
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01966 M02S00133.catli7 ---| SB2 B2+2 SET IMAGE PATTERNS FOR CARTRIDGE 01967 M02S00134.catli7 ---| LX3 59-10-59+9 01968 M02S00135.catli7 ---| PL X3,GSL4 IF FILE NOT ON TAPE 01969 M02S00136.catli7 ---| SB2 B2+2 SET IMAGE PATTERNS FOR TAPE
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 01970 M01S00026.catli7 +++| SB2 B2+2 SET IMAGE PATTERNS FOR ALTERNATE STORAGE
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01971 M01S00137.253l688 +++| GSL4 SA2 GSLB+B2 LOAD IMAGE 01972 M01S00138.253l688 +++| SA4 GSLC =01010101010101010101B 01973 M01S00139.253l688 +++| SX6 B1 01974 M01S00140.253l688 +++| IX3 X1-X6 EXTEND RIGHTMOST BIT 01975 M01S00141.253l688 +++| BX3 X3-X1 REMOVE ALL UNCHANGED BITS 01976 M01S00142.253l688 +++| IX3 X3+X6 SET RIGHTMOST BIT OF FILE NAME 01977 M01S00143.253l688 +++| BX7 X3 01978 M01S00144.253l688 +++| LX7 -6 01979 M01S00145.253l688 +++| IX3 X3-X7 SHIFT 1 AND EXTEND 6 (RIGHTMOST BIT) 01980 M01S00146.253l688 +++| BX3 X4*X3 ISOLATE SINGLE BIT 01981 M01S00147.253l688 +++| LX3 -6 POSITION FOR CHARACTER TO RIGHT 01982 M01S00148.253l688 +++| BX3 X3+X6 ADD IN BOTTOM CHARACTER OF WORD 01983 M01S00149.253l688 +++| BX7 X3 01984 M01S00150.253l688 +++| LX3 6 01985 M01S00151.253l688 +++| IX3 X3-X7 PREPARE MASK OF SURROUNDING CHARACTERS 01986 M01S00152.253l688 +++| BX2 X3*X2 ISOLATE SURROUNDING CHARACTERS 01987 M01S00153.253l688 +++| LX6 6 01988 M01S00154.253l688 +++| IX6 X3-X6 EXTEND MASK OF REMAINING CHARACTERS 01989 M01S00155.253l688 +++| BX6 -X3*X6 FINALIZE MASK 01990 M01S00156.253l688 +++| SA4 GSLD 01991 M01S00157.253l688 +++| BX4 X6*X4 EXTRACT REQUIRED BLANKS 01992 M01S00158.253l688 +++| BX6 X1+X2 MERGE CHARACTERS INTO FINAL ASSEMBLY 01993 M01S00159.253l688 +++| BX6 X6+X4 01994 M01S00160.253l688 +++| LX6 48 01995 M00S00978.catlist +++| SA6 LBUF+X5 01996 M00S00979.catlist +++| SX6 X5+B1 ADVANCE LINE FILE COUNT 01997 M00S00980.catlist +++| SA6 GSLA 01998 M00S00981.catlist +++| EQ GSLX EXIT 01999 M00S00982.catlist +++| 02000 M00S00983.catlist +++| 02001 M00S00984.catlist +++| GSLA CON 8 LINE POSITION
| Line S00161 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02002 M01S00161.253l688 +++| GSLB BSS 0 IMAGE MAPS 02003 M01S00162.253l688 +++| DATA 10H NO ERROR, FILE ON DISK 02004 M01S00163.253l688 +++| DATA 10H * ERROR, FILE ON DISK
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 02005 M02S00164.catli7 ---| DATA 10H)))))))) ( NO ERROR, FILE ON CARTRIDGE 02006 M02S00165.catli7 ---| DATA 10H)))))))) * ERROR, FILE ON CARTRIDGE 02007 M02S00166.catli7 ---| DATA 10H>>>>>>>> < NO ERROR, FILE ON TAPE 02008 M02S00167.catli7 ---| DATA 10H>>>>>>>> * ERROR, FILE ON TAPE
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | catli7 |
Seq # *Modification Id* Act ----------------------------+ 02009 M01S00027.catli7 +++| DATA 10H)))))))) ( NO ERROR, FILE ON ALTERNATE STORAGE 02010 M01S00028.catli7 +++| DATA 10H)))))))) * ERROR, FILE ON ALTERNATE STORAGE
| Line S00168 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02011 M01S00168.253l688 +++| GSLC DATA 01010101010101010101B 02012 M01S00169.253l688 +++| GSLD EQU GSLB =10H
| Line S00985 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02013 M01S00985.ns22000 ---| HDR SPACE 4
| Line S00415 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02014 M01S00415.ns22000 +++| HDR SPACE 4,15 02015 M00S00986.catlist +++|** HDR - HEADERS FOR LISTING CATALOGS AND PERMIT BUFFERS. 02016 M00S00987.catlist +++|*
| Line S00988 Modification History | |
|---|---|
M01 (Removed by) | catli5 |
Seq # *Modification Id* Act ----------------------------+ 02017 M01S00988.catli5 ---|* ENTRY (MODE) = MODE OF LISTING 02018 M01S00989.catli5 ---|* EXIT HEADER LINE PLACED IN OUTPUT BUFFER
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | catli5 |
Seq # *Modification Id* Act ----------------------------+ 02019 M01S00014.catli5 +++|* ENTRY (MODE) = MODE OF LISTING. 02020 M01S00015.catli5 +++|* 02021 M01S00016.catli5 +++|* EXIT HEADER LINE PLACED IN OUTPUT BUFFER. 02022 M00S00990.catlist +++|*
| Line S00991 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02023 M01S00991.ns22000 ---|* USES A - 1, 6. 02024 M01S00992.ns22000 ---|* X - 0, 1, 6.
| Line S00416 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02025 M01S00416.ns22000 +++|* USES X - 0, 1, 6. 02026 M01S00417.ns22000 +++|* A - 1, 6. 02027 M01S00418.ns22000 +++|* 02028 M01S00419.ns22000 +++|* MACROS WRITEC. 02029 M00S00993.catlist +++| 02030 M00S00994.catlist +++| 02031 M00S00995.catlist +++| HDR SUBR ENTRY/EXIT
| Line S00996 Modification History | |
|---|---|
M01 (Removed by) | catli5 |
Seq # *Modification Id* Act ----------------------------+ 02032 M01S00996.catli5 ---| SA1 MODE INDEX INTO HEADER POINTER TABLE
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | catli5 |
M02 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 02033 M02S00017.ns2573 ---| SA1 FNM
| Line S00196 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 02034 M01S00196.ns2573 +++| SA1 HDRI
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | catli5 |
Seq # *Modification Id* Act ----------------------------+ 02035 M01S00018.catli5 +++| SX0 B0+ INITIALIZE LINE COUNT
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | catli5 |
M02 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 02036 M02S00019.ns2573 ---| ZR X1,HDR0 IF NO ASTERISK IN *FN* 02037 M02S00020.ns2573 ---| SA1 HDRI PRINT *FILE NAME* HEADER
| Line S00197 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 02038 M01S00197.ns2573 +++| ZR X1,HDR0 IF NO FILE NAMES SPECIFIED
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | catli5 |
Seq # *Modification Id* Act ----------------------------+ 02039 M01S00021.catli5 +++| SX0 B1+B1 INCREMENT LINE COUNT
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | catli5 |
M02 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 02040 M02S00022.ns2573 ---| WRITEC O,X1
| Line S00198 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 02041 M01S00198.ns2573 +++| WRITEC O,X1 PRINT FILE NAME SUBHEADER
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | catli5 |
Seq # *Modification Id* Act ----------------------------+ 02042 M01S00023.catli5 +++| WRITEC O,BLK 02043 M01S00024.catli5 +++| HDR0 SA1 MODE INDEX INTO HEADER POINTER TABLE 02044 M00S00997.catlist +++| SA1 X1+HDRB
| Line S00998 Modification History | |
|---|---|
M01 (Removed by) | catli5 |
Seq # *Modification Id* Act ----------------------------+ 02045 M01S00998.catli5 ---| BX0 X0-X0 INITIALIZE FOR LINE COUNT
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | catli5 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02046 M02S00025.ns22000 ---| ZR X1,HDR1 IF NO HEADER MESSAGE
| Line S00420 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02047 M01S00420.ns22000 +++| ZR X1,HDR2 IF NO HEADER MESSAGE DEFINED 02048 M00S00999.catlist +++| BX6 X1 02049 M00S01000.catlist +++| SA6 HDRA SET INDEX BASE OF HEADER MESSAGES FOR MODE 02050 M00S01001.catlist +++| 02051 M00S01002.catlist +++|* LOOP PRINTING HEADER MESSAGE LINES. 02052 M00S01003.catlist +++| 02053 M00S01004.catlist +++| HDR1 SA1 HDRA EXAMINE CURRENT MESSAGE POINTER 02054 M00S01005.catlist +++| SA1 X1 02055 M00S01006.catlist +++| ZR X1,HDR2 IF END OF HEADER MESSAGES 02056 M00S01007.catlist +++| SX6 A1+B1 SET NEXT MESSAGE POINTER 02057 M00S01008.catlist +++| SA6 HDRA 02058 M00S01009.catlist +++| SX0 X0+B1 INCREMENT LINE COUNT 02059 M00S01010.catlist +++| WRITEC O,X1 02060 M00S01011.catlist +++| EQ HDR1 CONTINUE LOOP 02061 M00S01012.catlist +++| 02062 M00S01013.catlist +++|* COMPLETE HEADER PROCESSING. 02063 M00S01014.catlist +++| 02064 M00S01015.catlist +++| HDR2 WRITEC O,BLK
| Line S01016 Modification History | |
|---|---|
M01 (Removed by) | catli5 |
Seq # *Modification Id* Act ----------------------------+ 02065 M01S01016.catli5 ---| WRITEC O,BLK 02066 M00S01017.catlist +++| SA1 LN INCREMENT LINE COUNT 02067 M00S01018.catlist +++| IX6 X1+X0
| Line S01019 Modification History | |
|---|---|
M01 (Removed by) | catli5 |
Seq # *Modification Id* Act ----------------------------+ 02068 M01S01019.catli5 ---| SX6 X6+2
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | catli5 |
Seq # *Modification Id* Act ----------------------------+ 02069 M01S00026.catli5 +++| SX1 B1 02070 M01S00027.catli5 +++| IX6 X6+X1 02071 M00S01020.catlist +++| SA6 A1 02072 M00S01021.catlist +++| EQ HDRX RETURN 02073 M00S01022.catlist +++| 02074 M00S01023.catlist +++|* HEADER MESSAGE BASE POINTERS. 02075 M00S01024.catlist +++| 02076 M00S01025.catlist +++| HDRA CON 0
| Line S01026 Modification History | |
|---|---|
M01 (Removed by) | catli5 |
Seq # *Modification Id* Act ----------------------------+ 02077 M01S01026.catli5 ---| HDRB CON HDRC,HDRD,HDRE,HDRF,HDRG,HDRH
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | catli5 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02078 M02S00028.ns22000 ---| HDRB CON 0,HDRD,0,HDRF,HDRG,HDRH
| Line S00421 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02079 M01S00421.ns22000 +++| HDRB CON 0,HDRD,HDRD,0,HDRF,HDRG,HDRH 02080 M00S01027.catlist +++| 02081 M00S01028.catlist +++|* HEADER MESSAGE POINTERS. 02082 M00S01029.catlist +++|
| Line S01030 Modification History | |
|---|---|
M01 (Removed by) | catli5 |
Seq # *Modification Id* Act ----------------------------+ 02083 M01S01030.catli5 ---| HDRC CON HDR11 SHORT FILE LIST 02084 M01S01031.catli5 ---| CON 0 02085 M01S01032.catli5 ---| 02086 M00S01033.catlist +++| HDRD CON /COMCFCE/CHDR1 FULL FILE LIST 02087 M00S01034.catlist +++| CON /COMCFCE/CHDR2 02088 M00S01035.catlist +++| CON /COMCFCE/CHDR3
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02089 M01S00019.v23l617 +++| CON /COMCFCE/CHDR4 02090 M00S01036.catlist +++| CON 0 02091 M00S01037.catlist +++|
| Line S01038 Modification History | |
|---|---|
M01 (Removed by) | catli5 |
Seq # *Modification Id* Act ----------------------------+ 02092 M01S01038.catli5 ---| HDRE CON HDR11 SHORT ALTERNATE CATALOG 02093 M01S01039.catli5 ---| CON 0 02094 M01S01040.catli5 ---| 02095 M00S01041.catlist +++| HDRF CON /COMCFCE/CHDR1 FULL ALTERNATE CATALOG 02096 M00S01042.catlist +++| CON HDR42
| Line S01043 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02097 M01S01043.v23l617 ---| CON /COMCFCE/CHDR3
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02098 M01S00020.v23l617 +++| CON HDR43
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02099 M02S00021.253l688 ---| CON /COMCFCE/CHDR4
| Line S00170 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02100 M01S00170.253l688 +++| CON HDR44 02101 M00S01044.catlist +++| CON 0 02102 M00S01045.catlist +++| 02103 M00S01046.catlist +++| HDRG CON HDR51 SHORT PERMIT ENTRIES 02104 M00S01047.catlist +++| CON 0 02105 M00S01048.catlist +++| 02106 M00S01049.catlist +++| HDRH CON HDR61 FULL PERMIT ENTRIES 02107 M00S01050.catlist +++| CON 0 02108 M00S01051.catlist +++|
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | catli5 |
M02 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 02109 M02S00029.ns2573 ---| HDRI CON HDR71 ASTERISK IN *FN*
| Line S00199 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 02110 M01S00199.ns2573 +++| HDRI CON 0 SUBHEADER IF FILE NAMES SPECIFIED 02111 M01S00200.ns2573 +++|* CON HDR71 (SINGLE FILE NAME TEMPLATE SPECIFIED) 02112 M01S00201.ns2573 +++|* CON HDR72 (MULTIPLE FILE NAMES SPECIFIED)
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | catli5 |
Seq # *Modification Id* Act ----------------------------+ 02113 M01S00030.catli5 +++| CON 0 02114 M01S00031.catli5 +++|
| Line S01052 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02115 M01S01052.v23l617 ---|** HEADERS
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02116 M01S00022.v23l617 +++|* HEADERS. 02117 M00S01053.catlist +++|
| Line S01054 Modification History | |
|---|---|
M01 (Removed by) | catli5 |
Seq # *Modification Id* Act ----------------------------+ 02118 M01S01054.catli5 ---| HDR11 DATA C* FILE NAME(S)* 02119 M01S01055.catli5 ---|
| Line S01056 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02120 M01S01056.v23l617 ---| HDR42 DATA C* MD/CNT INDEX PERM. SUBSYS DATE/TIME DAT 02121 M01S01057.v23l617 ---|,E/TIME DATE/TIME*
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02122 M02S00023.253l688 ---| HDR42 DATA C* COUNT INDEX PERM. SUBSYS DATE/TIME DA
| Line S00171 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02123 M01S00171.253l688 +++| HDR42 DATA C* COUNT PERM. SUBSYS DATE/TIME DA
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02124 M01S00024.v23l617 +++|,TE/TIME DATE/TIME*
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02125 M02S00025.253l688 ---| HDR43 DATA C* LEVEL PR BR RS AC*
| Line S00172 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02126 M01S00172.253l688 +++| HDR43 DATA C* PR BR AC RS* 02127 M01S00173.253l688 +++| 02128 M01S00174.253l688 +++| HDR44 DATA 40C 02129 M00S01058.catlist +++|
| Line S01059 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02130 M01S01059.ns22000 ---| HDR51 DATA C* USER NUMBER(S)*
| Line S00422 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02131 M01S00422.ns22000 +++| HDR51 DATA C* USER NAMES* 02132 M00S01060.catlist +++|
| Line S01061 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02133 M01S01061.ns22000 ---| HDR61 DATA C* USER NUMBER PERM. ACCESSES DATE TIME*
| Line S00423 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02134 M01S00423.ns22000 +++| HDR61 DATA C* USER NAME PERM. EXPIRES ACCESSES DATE 02135 M01S00424.ns22000 +++|,TIME*
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | catli5 |
Seq # *Modification Id* Act ----------------------------+ 02136 M01S00032.catli5 +++| 02137 M01S00033.catli5 +++| HDR71 CON 1H 02138 M01S00034.catli5 +++| CON 10HFILE NAME 02139 M00S01062.catlist +++| CON 0
| Line S00202 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 02140 M01S00202.ns2573 +++| 02141 M01S00203.ns2573 +++| HDR72 CON 1H 02142 M01S00204.ns2573 +++| DATA C*SELECTED FILES*
| Line S00425 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02143 M01S00425.ns22000 +++| LCS SPACE 4,15 02144 M01S00426.ns22000 +++|** LCS - LIST CATEGORY SET FOR FILE. 02145 M01S00427.ns22000 +++|* 02146 M01S00428.ns22000 +++|* ENTRY (CBUF) = CATALOG ENTRY. 02147 M01S00429.ns22000 +++|* 02148 M01S00430.ns22000 +++|* EXIT FILE-S CATEGORY SET IS SORTED AND LISTED. 02149 M01S00431.ns22000 +++|* 02150 M01S00432.ns22000 +++|* USES X - 0, 1, 2, 6, 7. 02151 M01S00433.ns22000 +++|* A - 0, 1, 2, 6, 7. 02152 M01S00434.ns22000 +++|* B - 2, 7. 02153 M01S00435.ns22000 +++|* 02154 M01S00436.ns22000 +++|* CALLS ALN, GNI, GSL, NIP. 02155 M01S00437.ns22000 +++|* 02156 M01S00438.ns22000 +++|* MACROS WRITEC, WRITEH. 02157 M01S00439.ns22000 +++| 02158 M01S00440.ns22000 +++| 02159 M01S00441.ns22000 +++| LCS SUBR ENTRY/EXIT 02160 M01S00442.ns22000 +++| SA1 CBUF+FCFC CATEGORY SET WORD 02161 M01S00443.ns22000 +++| MX0 -32 02162 M01S00444.ns22000 +++| BX1 -X0*X1 02163 M01S00445.ns22000 +++| SB2 32 NUMBER OF CATEGORIES POSSIBLE 02164 M01S00446.ns22000 +++| SA0 B0 INITIALIZE CATEGORY SET COUNTER 02165 M01S00447.ns22000 +++| MX0 42 02166 M01S00448.ns22000 +++| LX1 59-32 02167 M01S00449.ns22000 +++| LCS1 SB2 B2-B1 02168 M01S00450.ns22000 +++| NG B2,LCS2 IF DONE ANALYZING CATEGORY WORD 02169 M01S00451.ns22000 +++| LX1 1 02170 M01S00452.ns22000 +++| PL X1,LCS1 IF CATEGORY NOT VALIDATED 02171 M01S00453.ns22000 +++| SA2 TACT+B2 SET CATEGORY MNEMONIC IN BUFFER 02172 M01S00454.ns22000 +++| BX6 X0*X2 02173 M01S00455.ns22000 +++| SA6 SBUF+A0 02174 M01S00456.ns22000 +++| SA0 A0+B1 02175 M01S00457.ns22000 +++| EQ LCS1 CHECK NEXT CATEGORY 02176 M01S00458.ns22000 +++| 02177 M01S00459.ns22000 +++| LCS2 SX1 A0 02178 M01S00460.ns22000 +++| ZR X1,LCSX IF NO ACCESS CATEGORY SET ENTRIES 02179 M01S00461.ns22000 +++| SB7 SBUF SORT CATEGORY ENTRIES 02180 M01S00462.ns22000 +++| RJ SST= 02181 M01S00463.ns22000 +++| SX1 A0 02182 M01S00464.ns22000 +++| SX6 A0 02183 M01S00465.ns22000 +++| SA6 LCSA 02184 M01S00466.ns22000 +++| RJ NIP PRESET *GNI* 02185 M01S00467.ns22000 +++| WRITEH O,LCSB,LCSBL 02186 M01S00468.ns22000 +++| WRITEC O,BLK 02187 M01S00469.ns22000 +++| SB2 B1+B1 02188 M01S00470.ns22000 +++| RJ ALN ADVANCE LINE NUMBER 02189 M01S00471.ns22000 +++| SX7 8 02190 M01S00472.ns22000 +++| SA7 GSLA 02191 M01S00473.ns22000 +++| LCS3 SA1 LCSA 02192 M01S00474.ns22000 +++| SX6 X1-1 02193 M01S00475.ns22000 +++| SA6 A1 02194 M01S00476.ns22000 +++| NG X6,LCS4 IF END OF ENTRIES 02195 M01S00477.ns22000 +++| RJ GNI GET NEXT ENTRY 02196 M01S00478.ns22000 +++| SA1 X1+SBUF GET ACTUAL ENTRY 02197 M01S00479.ns22000 +++| BX6 X1 02198 M01S00480.ns22000 +++| SA6 CBUF 02199 M01S00481.ns22000 +++| RJ GSL GENERATE SHORT LIST 02200 M01S00482.ns22000 +++| EQ LCS3 GET NEXT CATEGORY ENTRY 02201 M01S00483.ns22000 +++| 02202 M01S00484.ns22000 +++| LCS4 WRITEC O,LBUF LAST LINE OF CATEGORY SET 02203 M01S00485.ns22000 +++| WRITEC O,BLK 02204 M01S00486.ns22000 +++| EQ LCSX RETURN 02205 M01S00487.ns22000 +++| 02206 M01S00488.ns22000 +++| LCSA CON 0 NUMBER OF VALIDATED CATEGORY SETS 02207 M01S00489.ns22000 +++| LCSB DATA C* FILE ACCESS CATEGORY SET* 02208 M01S00490.ns22000 +++| LCSBL EQU *-LCSB
| Line S00491 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | catli6 |
Seq # *Modification Id* Act ----------------------------+ 02209 M02S00491.catli6 ---| NIP SPACE 4,15
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | catli6 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02210 M02S00020.253l688 ---| MTP SPACE 4,10 02211 M02S00021.253l688 ---|** MTP - MARK WITH TERMINATING PARENTHESIS. 02212 M02S00022.253l688 ---|*
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/catlist.001.txt · Last modified: (external edit)