MACRO 00001000
PIB2TAB &SECT 00002000
PUSH PRINT 00002100
AIF ('&SYSPARM' NE 'SUP').ACC01 00002200
PRINT OFF,NOGEN 00002300
.ACC01 ANOP 00002400
AIF ('&SECT' EQ 'CSECT').CSECT 00003000
PIB2TAB DSECT PROGRAM INFORMATION BLOCK EXTENSION 00004000
PIBCOMR1 DS XL2 ADDRESS OF COMMUNICATION REGION 00005000
SYSLUBX DS XL2 SYSTEM LUB INDEX 00006000
INTINFO DS XL4 USED FOR INTERRUPTION CODE 00007000
SVCIC EQU INTINFO+3 SVC INTERRUPT CODE 00008000
PIBECB DS XL4 ADDRESS OF TERMINATION ECB, IF ANY 00009000
PIBPIK DS XL2 PIK 00010000
DS XL2 00011000
EJECT 00012000
AGO .END 00013000
.CSECT ANOP 00014000
PIB2TAB DS 0D 00015000
ENTRY PIB2TAB 00016000
USING PIB2TAB,0 00017000
* 00018000
* ATTENTION PIB EXTENSION 00019000
* 00020000
DC S(BGCOM) . ADDRESS OF COMMUNICATION REGION 00021000
DC H'0' . ATTN SSSTEM LUB INDEX 00022000
DC F'0' . USED FOR INTERRUPTION CODE 00023000
DC F'0' . ZERO 00024000
DC X'0000' . ATTN PIK 00025000
DC H'0' . RESERVED 00026000
* 00027000
* BACKGROUND PIB EXTENSION 00028000
* 00029000
DC S(BGCOM) . ADDRESS OF COMMUNICATION REGION 00030000
DC H'0' . BG SYSTEM LUB INDEX 00031000
DC F'0' . USED FOR INTERRUPTION CODE 00032000
DC F'0' . ZERO 00033000
DC X'0000' . BG PIK 00034000
DC H'0' . RESERVED 00035000
DROP 0 00036000
.END ANOP 00037000
POP PRINT 00037100
MEND 00038000