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