MACRO 00001000 LUBTAB &SECT 00002000 PUSH PRINT 00002100 AIF ('&SYSPARM' NE 'SUP').ACC01 00002200 PRINT OFF,NOGEN 00002300 .ACC01 ANOP 00002400 AIF ('&SECT' EQ 'CSECT').CSECT 00003000 LUBTAB DSECT SYSTEM LUBS FOR PARTITION 00004000 LUBRDR DS XL2 00005000 LUBIPT DS XL2 00006000 LUBPCH DS XL2 00007000 LUBLST DS XL2 00008000 LUBLOG DS XL2 00009000 LUBLNK DS XL2 00010000 LUBRES DS XL2 00011000 LUBSLB DS XL2 00012000 LUBRLB DS XL2 00013000 LUBUSE DS XL2 00014000 LUBREC DS XL2 00015000 LUBCLB DS XL2 00016000 LUBVIS DS XL2 00017000 LUBCAT DS XL2 00018000 EJECT 00019000 LUBPR DSECT PROGRAMMER LUBS FOR PARTITION 00020000 LUB000 DS XL2 00021000 LUB001 DS XL2 00022000 LUB002 DS XL2 00023000 LUB003 DS XL2 00024000 LUB004 DS XL2 00025000 LUB005 DS XL2 00026000 LUB006 DS XL2 00027000 LUB007 DS XL2 00028000 LUB008 DS XL2 00029000 LUB009 DS XL2 00030000 LUB010 DS XL2 00031000 LUB011 DS XL2 00032000 LUB012 DS XL2 00033000 LUB013 DS XL2 00034000 LUB014 DS XL2 00035000 LUB015 DS XL2 00036000 LUB016 DS XL2 00037000 LUB017 DS XL2 00038000 LUB018 DS XL2 00039000 LUB019 DS XL2 00040000 LUB020 DS XL2 00041000 LUB021 DS XL2 00042000 LUB022 DS XL2 00043000 LUB023 DS XL2 00044000 LUB024 DS XL2 00045000 LUB025 DS XL2 00046000 LUB026 DS XL2 00047000 LUB027 DS XL2 00048000 LUB028 DS XL2 00049000 LUB029 DS XL2 00050000 LUB030 DS XL2 00051000 LUB031 DS XL2 00052000 LUB032 DS XL2 00053000 LUB033 DS XL2 00054000 LUB034 DS XL2 00055000 LUB035 DS XL2 00056000 LUB036 DS XL2 00057000 LUB037 DS XL2 00058000 LUB038 DS XL2 00059000 LUB039 DS XL2 00060000 LUB040 DS XL2 00061000 LUB041 DS XL2 00062000 LUB042 DS XL2 00063000 LUB043 DS XL2 00064000 LUB044 DS XL2 00065000 LUB045 DS XL2 00066000 LUB046 DS XL2 00067000 LUB047 DS XL2 00068000 LUB048 DS XL2 00069000 LUB049 DS XL2 00070000 LUB050 DS XL2 00071000 EJECT 00072000 LUB051 DS XL2 00073000 LUB052 DS XL2 00074000 LUB053 DS XL2 00075000 LUB054 DS XL2 00076000 LUB055 DS XL2 00077000 LUB056 DS XL2 00078000 LUB057 DS XL2 00079000 LUB058 DS XL2 00080000 LUB059 DS XL2 00081000 LUB060 DS XL2 00082000 LUB061 DS XL2 00083000 LUB062 DS XL2 00084000 LUB063 DS XL2 00085000 LUB064 DS XL2 00086000 LUB065 DS XL2 00087000 LUB066 DS XL2 00088000 LUB067 DS XL2 00089000 LUB068 DS XL2 00090000 LUB069 DS XL2 00091000 LUB070 DS XL2 00092000 LUB071 DS XL2 00093000 LUB072 DS XL2 00094000 LUB073 DS XL2 00095000 LUB074 DS XL2 00096000 LUB075 DS XL2 00097000 LUB076 DS XL2 00098000 LUB077 DS XL2 00099000 LUB078 DS XL2 00100000 LUB079 DS XL2 00101000 LUB080 DS XL2 00102000 LUB081 DS XL2 00103000 LUB082 DS XL2 00104000 LUB083 DS XL2 00105000 LUB084 DS XL2 00106000 LUB085 DS XL2 00107000 LUB086 DS XL2 00108000 LUB087 DS XL2 00109000 LUB088 DS XL2 00110000 LUB089 DS XL2 00111000 LUB090 DS XL2 00112000 LUB091 DS XL2 00113000 LUB092 DS XL2 00114000 LUB093 DS XL2 00115000 LUB094 DS XL2 00116000 LUB095 DS XL2 00117000 LUB096 DS XL2 00118000 LUB097 DS XL2 00119000 LUB098 DS XL2 00120000 LUB099 DS XL2 00121000 LUB100 DS XL2 00122000 EJECT 00123000 LUB101 DS XL2 00124000 LUB102 DS XL2 00125000 LUB103 DS XL2 00126000 LUB104 DS XL2 00127000 LUB105 DS XL2 00128000 LUB106 DS XL2 00129000 LUB107 DS XL2 00130000 LUB108 DS XL2 00131000 LUB109 DS XL2 00132000 LUB110 DS XL2 00133000 LUB111 DS XL2 00134000 LUB112 DS XL2 00135000 LUB113 DS XL2 00136000 LUB114 DS XL2 00137000 LUB115 DS XL2 00138000 LUB116 DS XL2 00139000 LUB117 DS XL2 00140000 LUB118 DS XL2 00141000 LUB119 DS XL2 00142000 LUB120 DS XL2 00143000 LUB121 DS XL2 00144000 LUB122 DS XL2 00145000 LUB123 DS XL2 00146000 LUB124 DS XL2 00147000 LUB125 DS XL2 00148000 LUB126 DS XL2 00149000 LUB127 DS XL2 00150000 LUB128 DS XL2 00151000 LUB129 DS XL2 00152000 LUB130 DS XL2 00153000 LUB131 DS XL2 00154000 LUB132 DS XL2 00155000 LUB133 DS XL2 00156000 LUB134 DS XL2 00157000 LUB135 DS XL2 00158000 LUB136 DS XL2 00159000 LUB137 DS XL2 00160000 LUB138 DS XL2 00161000 LUB139 DS XL2 00162000 LUB140 DS XL2 00163000 LUB141 DS XL2 00164000 LUB142 DS XL2 00165000 LUB143 DS XL2 00166000 LUB144 DS XL2 00167000 LUB145 DS XL2 00168000 LUB146 DS XL2 00169000 LUB147 DS XL2 00170000 LUB148 DS XL2 00171000 LUB149 DS XL2 00172000 LUB150 DS XL2 00173000 EJECT 00174000 LUB151 DS XL2 00175000 LUB152 DS XL2 00176000 LUB153 DS XL2 00177000 LUB154 DS XL2 00178000 LUB155 DS XL2 00179000 LUB156 DS XL2 00180000 LUB157 DS XL2 00181000 LUB158 DS XL2 00182000 LUB159 DS XL2 00183000 LUB160 DS XL2 00184000 LUB161 DS XL2 00185000 LUB162 DS XL2 00186000 LUB163 DS XL2 00187000 LUB164 DS XL2 00188000 LUB165 DS XL2 00189000 LUB166 DS XL2 00190000 LUB167 DS XL2 00191000 LUB168 DS XL2 00192000 LUB169 DS XL2 00193000 LUB170 DS XL2 00194000 LUB171 DS XL2 00195000 LUB172 DS XL2 00196000 LUB173 DS XL2 00197000 LUB174 DS XL2 00198000 LUB175 DS XL2 00199000 LUB176 DS XL2 00200000 LUB177 DS XL2 00201000 LUB178 DS XL2 00202000 LUB179 DS XL2 00203000 LUB180 DS XL2 00204000 LUB181 DS XL2 00205000 LUB182 DS XL2 00206000 LUB183 DS XL2 00207000 LUB184 DS XL2 00208000 LUB185 DS XL2 00209000 LUB186 DS XL2 00210000 LUB187 DS XL2 00211000 LUB188 DS XL2 00212000 LUB189 DS XL2 00213000 LUB190 DS XL2 00214000 LUB191 DS XL2 00215000 LUB192 DS XL2 00216000 LUB193 DS XL2 00217000 LUB194 DS XL2 00218000 LUB195 DS XL2 00219000 LUB196 DS XL2 00220000 LUB197 DS XL2 00221000 LUB198 DS XL2 00222000 LUB199 DS XL2 00223000 LUB200 DS XL2 00224000 EJECT 00225000 LUB201 DS XL2 00226000 LUB202 DS XL2 00227000 LUB203 DS XL2 00228000 LUB204 DS XL2 00229000 LUB205 DS XL2 00230000 LUB206 DS XL2 00231000 LUB207 DS XL2 00232000 LUB208 DS XL2 00233000 LUB209 DS XL2 00234000 LUB210 DS XL2 00235000 LUB211 DS XL2 00236000 LUB212 DS XL2 00237000 LUB213 DS XL2 00238000 LUB214 DS XL2 00239000 LUB215 DS XL2 00240000 LUB216 DS XL2 00241000 LUB217 DS XL2 00242000 LUB218 DS XL2 00243000 LUB219 DS XL2 00244000 LUB220 DS XL2 00245000 LUB221 DS XL2 00246000 LUB222 DS XL2 00247000 LUB223 DS XL2 00248000 LUB224 DS XL2 00249000 LUB225 DS XL2 00250000 LUB226 DS XL2 00251000 LUB227 DS XL2 00252000 LUB228 DS XL2 00253000 LUB229 DS XL2 00254000 LUB230 DS XL2 00255000 LUB231 DS XL2 00256000 LUB232 DS XL2 00257000 LUB233 DS XL2 00258000 LUB234 DS XL2 00259000 LUB235 DS XL2 00260000 LUB236 DS XL2 00261000 LUB237 DS XL2 00262000 LUB238 DS XL2 00263000 LUB239 DS XL2 00264000 LUB240 DS XL2 00265000 LUB241 DS XL2 00266000 LUBP EQU 0 DISPLACEMENT TO PUB POINTER 00267000 LUBJ EQU 1 DISPLACEMENT TO JIB POINTER 00268000 LUBL EQU *-LUB241 LUB LENGTH 00269000 EJECT 00270000 AGO .END 00271000 .CSECT ANOP 00272000 LUBTAB DS 0H . LUB TABLE 00273000 ENTRY LUBTAB 00274000 SSSLUB DC 14X'FFFF' . BG SYSTEM LUBS 00275000 PGRLUB DC 242X'FFFF' . BG PROGRAMMER LUBS 00276000 .END ANOP 00277000 POP PRINT 00277100 MEND 00278000