RENAME member exits (057/058)

Systems support can monitor the renaming of program library members by means of two exit points:

• At the request exit systems support can reject the RENAME call before the function is performed.

• At the return exit the member has already been renamed. Here systems support receives the full identification of the member, i.e. both the original and the new identification.

Request exit (057)

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 (058)

The return exit is identical to the request exit.

 

DSECT

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

name EX057 [D]
         EX057 D
IEX057   DSECT
         DS    0F
*****************************************************
* RENAME  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
PMTYP2   DC    A(0)                    A(MEMBER TYPE 2):    CL8
PMNAM2   DC    A(0)                    A(MEMBER NAME 2):    CL64
PMVER2   DC    A(0)                    A(MEMBER VERSION 2): CL24
LEN      EQU   *-PMRC