Your Browser is not longer supported

Please use Google Chrome, Mozilla Firefox or Microsoft Edge to view the page correctly
Loading...

{{viewport.spaceProperty.prod}}

ATTACH library exit (054)

&pagelevel(3)&pagelevel

This exit point enables systems support to specify which program libraries are to be monitored. The exit routine is activated after every ATTACH library operation (open program library). With the aid of the system exit systems support determines whether the member accesses to the currently monitored library are to be checked.

The following information is passed to the exit routine:

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”)

Information in the parameter area:

  • library name

  • link name of the library

  • PLAM return code 1

  • PLAM return code 2

If the library was opened correctly, the PLAM return codes contain the value 0.

Return code:

R15 = X'000000RR'
   RR = Return code of exit routine
   00  library is to be monitored
   04  library is to be monitored

 

DSECT

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

name EX054 D[,[prefix],[ALL]]
         EX054 D
IEX054   DSECT
         DS    0F
*****************************************************
* ATTACH  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' '
         DC    A(0)
         DC    A(0)
         DC    A(0)
         DC    A(0)
         DC    A(0)
         DC    A(0)
         DC    A(0)
         DC    A(0)
LEN      EQU   *-PMRC