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