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