The closing of program library members can be monitored by means of two exit points:
At the request exit systems support can obtain information on the member, in the same way as via the return exit of the OPEN member. The CLOSE member cannot be prevented.
At the return exit the member has already been closed. Here systems support receives the full identification of the member, including the date on which members were generated or modified.
Request exit (007)
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 CLOSE member rejected (ignored by PLAM)
In addition to the return code in register 15, the PMCLM field is also filled.
Return exit (008)
The return exit is identical to the request exit.
DSECT
The DSECT for the parameter area can be generated by means of the EX007 macro:
name EX007 D[,[prefix],[ALL]]
EX007 D
IEX007 DSECT
DS 0F
*****************************************************
* CLOSE 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' '
PMCLM DC CL1' ' CLOSE MODE: Y: KEEP
* N: DELETE
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