MACRO                                                          00001000
         PIBTAB &SECT                                                   00002000
         PUSH  PRINT                                                    00002100
         AIF   ('&SYSPARM' NE 'SUP').ACC01                              00002200
         PRINT OFF,NOGEN                                                00002300
.ACC01   ANOP                                                           00002400
         AIF   ('&SECT' EQ 'CSECT').CSECT                               00003000
PIBADR   DSECT                    PROGRAM INFORMATION BLOCK             00004000
PIBFLG   DS    X                  FLAGS                                 00005000
PIBCNCL  DS    X                  CANCEL CODE                           00006000
PIBLOGID DS    XL2                SYSLOG ID                             00007000
PIBSAVE  DS    XL4                ADDRESS OF SAVE AREA                  00008000
ARFLG    EQU   PIBADR+8           SAVE AREA ADDRESS                     00009000
PIBSAV2  DS    XL4                ADDRESS OF SYSTEM SAVE AREA           00010000
PIBPUBAS DS    X                  PUB ASSIGN FLAGS                      00011000
PIBLUBID DS    X                  LUB NO OF FIRST PROB. PROG. LUB       00012000
PIBLUBNO DS    C                  NUMBER OF LUBS                        00013000
PIBFLG2  DS    C                  MORE FLAGS                            00014000
         ORG   PIBADR             PIB EXTENSION DSECT                   00015000
PIBCOMRA DS    XL2                COMMUNICATIONS REGION ADDRESS         00016000
SYSLUBX  DS    XL2                SYSTEM CLASS LUB INDEX                00017000
INTINFO  DS    XL4                INTERRUPT INFORMATION                 00018000
SVCIC    EQU   INTINFO+3                                                00019000
PIBECB   DS    XL4                ECB ADDRESS                           00020000
PIBPIK   DS    XL2                PIK                                   00021000
         DS    XL2                RESERVED                              00022000
         EJECT                                                          00023000
         AGO   .END                                                     00024000
.CSECT   ANOP                                                           00025000
PIBTAB   DS    0F .               PIB TABLE                             00026000
         ENTRY PIBTAB                                                   00027000
*                                                                       00028000
*        ATTENTION PIB TABLE                                            00029000
*                                                                       00030000
         DC    X'80' .            PIBFLAG                               00031000
         DC    X'00' .            CANCEL CODE                           00032000
         DC    C'AR' .            SYSLOG IDENTIFIER                     00033000
         DC    F'0' .             USED BY TASK SELECTION                00034000
         DC    A(LTASAVE) .       ADDRESS OF LTA SAVE AREA              00035000
         DC    X'00' .            PIB ASSIGN FLAG MASK                  00036000
         DC    AL1(14)        .   USER LUB INDEX               @VA05625 00037000
         DC    AL1(241) .         NUMBER OF USER LUBS                   00038000
         DC    X'80' .            MORE FLAGS                            00039000
*                                                                       00040000
*        BACKGROUND PIB TABLE                                           00041000
*                                                                       00042000
         DC    X'83' .            PIBFLAG                               00043000
         DC    X'00' .            CANCEL CODE                           00044000
         DC    C'BG' .            SYSLOG IDENTIFIER                     00045000
         DC    A(PPSAVE) .        BG SAVE AREA ADDRESS                  00046000
         DC    AL1(0) .           GATE IDENTIFIER                       00047000
         DC    AL3(0) .           POINTER TO SYSTEM SAVE AREA           00048000
         DC    X'00' .            PIB ASSIGN FLAG MASK                  00049000
         DC    AL1(14)        .   USER LUB INDEX               @VA05625 00050000
         DC    AL1(241) .         NUMBER OF USER LUBS                   00051000
         DC    X'80' .            MORE FLAGS                            00052000
.END     ANOP                                                           00053000
         POP   PRINT                                                    00053100
         MEND                                                           00054000