         PROC                                                           PIB00000
ZM#DPIB  NAME                                                           PIB00100
ZA#DPIB  DSECT PROGRAM-INFORMATION-BLOCK                                PIB00200
ZA#PSC   DS    H                   STATUS-CODE                          PIB00300
ZA#PDSC  DS    H                   DETAILED-STATUS-CODE                 PIB00400
ZA#PSID  DS    CL6                 SUCCESSOR-ID                         PIB00500
ZA#PSIND DS    CL1                 TERMINATION-INDICATOR                PIB00600
* * *    EQUATES FOR ZA#PSIND                                           PIB00700
ZA#PSNN  EQU   C'N'                NORMAL TERM                          PIB00800
ZA#PSNA  EQU   C'A'                ABNORMAL TERM                        PIB00900
ZA#PSNS  EQU   C'S'                ABNORMAL TERM WITH SNAP              PIB01000
ZA#PSNI  EQU   C'I'                IMMEDIATE INTERNAL SUCCESSION        PIB01100
ZA#PSND  EQU   C'D'                DELAYED INTERNAL SUCCESSION          PIB01200
ZA#PSNE  EQU   C'E'                EXTERNAL SUCCESSION                  PIB01300
ZA#PLRI  DS    CL1                 LOCK-ROLLBACK-INDICATOR              PIB01400
* * *    EQUATES FOR ZA#PLRI                                            PIB01500
ZA#PLRIN EQU   C'N'                WRITE ROLLBACK POINT,RELEASE LOCKS   PIB01600
ZA#PLRIO EQU   C'O'                ROLLBACK UPDATES                     PIB01700
ZA#PTID  DS    CL8                 TRANSACTION-ID                       PIB01800
ZA#PDDRN DS    CL7                 DATA-DEF-REC-NAME                    PIB01900
ZA#PDFN  DS    CL7                 DEFINED-FILE-NAME                    PIB02000
ZA#PMLL  DS    H                   STANDARD-MSG-LINE-LENGTH             PIB02100
ZA#PMNL  DS    H                   STANDARD-MSG-NUMBER-LINES            PIB02200
ZA#PWA   DS    H                   WORK-AREA-LENGTH                     PIB02300
ZA#PCDIN DS    H                   CONTINUITY-DATA-INPUT-LENGTH         PIB02400
ZA#PCDL  EQU   *                   CDA LEN : OS/3 BASIC                 PIB02500
ZA#PCDO  DS    H                   CONTINUITY-DATA-OUTPUT-LENGTH        PIB02600
ZA#PWAI  DS    H                   WORK-AREA-INC                        PIB02700
ZA#PCDI  DS    H                   CONTINUITY-DATA-AREA-INC             PIB02800
ZT#HSAAP   EQU                 *   ACTION PROGRAM SAVE AREA             PIB02900
ZA#PSAAP EQU   *                   ACTION PROGRAM SAVE AREA             PIB03000
ZT#HSAIW EQU   *+28                CONT ACT AND INTERNAL                PIB03100
ZA#PSAVE DS    18A                 SAVE AREA                            PIB03200
*                                  R0$=FM ENTRY PT USED BY LNK MOD      PIB03300
         CNOP  0,8                                                      PIB03400
ZA#PLGTH EQU   *-ZA#DPIB                                                PIB03500
ZA#PLEN  EQU   *-ZA#DPIB           PIB LENGTH                           PIB03600
&SYSECT  CSECT                                                          PIB03700
         END                                                            PIB03800
