MACRO                                                          00001000
         PUBTAB &SECT                                                   00002000
         AIF   ('&SECT' EQ 'CSECT').CSECT                               00003000
PUBADR   DSECT                    PHYSICAL UNIT BLOCK                   00004000
PUBCHANN DS    XL2 .              CHANNEL AND DEVICE NUMBER             00005000
PUBCHQPT DS    X .                CHQ. NO. OF FIRST REQUEST FOR PUB     00006000
PUBERR   DS    X .                ERROR RETRY COUNTER OR TEB POINTER    00007000
PUBDEVTY DS    X .                DEVICE TYPE CODE                      00008000
PUBOPTN  DS    X .                SET MODE COMMAND OR OTHER OPTIONS     00009000
PUBCSFLG DS    X .                CHANNEL SCHEDULER FLAGS               00010000
PUBJCFLG DS    X .                JOB CONTROL FLAGS                     00011000
NEXTPUB  DS    X .                FIRST BYTE OF NEXT PUB ENTRY          00012000
PUBWIT   EQU   *-PUBADR .         LENGTH OF PUB TABLE                   00013000
PUBPTR   EQU   NEXTPUB .          POINTER TO ORIG. PUB                  00014000
         EJECT                                                          00015000
         AGO   .END                                                     00016000
.CSECT   ANOP                                                           00017000
PUBTAB   DS    0F                                                       00018000
         ENTRY PUBTAB                                                   00019000
         DC    18X'FF00000000000000' . PUB TABLE                        00020000
PUBEND   EQU   * .                     END OF PUB TABLE                 00021000
         DC    X'FF' .                 DELIMITER OF PUB TABLE           00022000
.END     ANOP                                                           00023000
         MEND                                                           00024000