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