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