DELETE member exits (055/056)

Systems support can monitor the deletion of program library members by means of two exit points.

• At the request exit systems support can reject the DELETE call before it is executed.

• At the return exit the member has already been deleted. Here systems support receives the full identification of the deleted member.

Request exit (055)

The following information is passed to the exit routines:

R1 = A(exit parameter area)
R12 = A(TPR program manager)
R13 = A(save area of calling component)
R14 = A(indirect return)
R15 = A(exit routine)

(cf. “System exits for program libraries”)

Return code:

R15 = X'000000RR'
   RR = Return code of exit routine
   00  no error
   04  (DELETE member rejected)

Return exit (056)

The return exit is identical to the request exit.

 

DSECT

The DSECT for the parameter area can be generated by means of the EX055 macro:

name EX055 D[,[prefix],[ALL]]
         EX055 D
IEX055   DSECT
         DS    0F
*****************************************************
* DELETE  PARAMETER LIST FOR PLAM RZ ROUTINES       *
*****************************************************
PMRC     DC    F'0'                    PLAM RETURN CODE
PMRC1    DC    F'0'                    PLAM SECONDARY RETURN CODE
PMPLV    DC    CL8' '                  VERSION OF PLAM: VZZ.ZBZZ
PMLIB    DC    A(0)                    A(LIBRARY NAME):   CL54
PMLINK   DC    A(0)                    A(LIBRARY NAME LINK):   CL8
         DC    CL1' '
         DC    CL1' '
         DC    CL1' '
         DC    CL1' '
PMTYP    DC    A(0)                    A(MEMBER TYPE):    CL8
PMNAM    DC    A(0)                    A(MEMBER NAME):    CL64
PMVER    DC    A(0)                    A(MEMBER VERSION): CL24
PMVAR    DC    A(0)                    A(MEMBER VARIANT): F
PMDAT    DC    A(0)                    A(MODIFICATION DATE): CL14: DATE
*                                                           ,CL8:  TIME
         DC    A(0)
         DC    A(0)
         DC    A(0)
LEN      EQU   *-PMRC