MACRO                                                          00001000
         DOSCON                                                         00002000
         SYSCOM    CSECT                                                00003000
         BGCOM     CSECT                                                00004000
         PIB2TAB   CSECT                                                00005000
         SPACE 3                                                        00006000
         PIBTAB    CSECT                                                00007000
         EJECT                                                          00008000
         PUBTAB    CSECT                                                00009000
         SPACE 2                                                        00010000
         ABTAB                                                          00011000
         SPACE 2                                                        00012000
         PCTAB                                                          00013000
         SPACE 2                                                        00014000
         FICL                                                           00015000
         SPACE 2                                                        00016000
         NICL                                                           00017000
         SPACE 2                                                        00018000
         LUBTAB    CSECT                                                00019000
         SPACE 2                                                        00020000
         PUBOWNER                                                       00021000
         EJECT                                                          00022000
         BBOX      CSECT                                                00023000
         SPACE 2                                                        00024000
         DOSAVE    CSECT                                                00025000
         SPACE 2                                                        00026000
         EXCPW                                                          00027000
         EJECT                                                          00028000
         FCHTAB    CSECT                                                00029000
         MEND                                                           00030000