DELETE-Element-Exits (055/056)

Das Löschen von Progammbibliothekselementen kann über zwei Exit-Punkte von der Systembetreuung überwacht werden.

• Am Request Exit kann die Systembetreuung den DELETE-Aufruf zurückweisen, bevor der Aufruf ausgeführt wird.

• Am Return Exit ist das Element bereits gelöscht. Die Systembetreuung erhält hier die volle Identifikation des gelöschten Elements.

Request Exit (055)

Folgende Informationen werden an die Exit-Routine übergeben:

R1 = A(Exit-Parameterbereich)
R12 = A(TPR Program Manager)
R13 = A(Sicherungsbereich der rufenden Komponente)
R14 = A(indirekter Rücksprung)
R15 = A(Exit-Routine)

(siehe „System Exits für Programmbibliotheken“)

Rückkehrinformation:

R15 = X'000000RR'
   RR = Rückkehrinformation der Exit-Routine
   00  keine Fehler
   04  (Delete-Element abgewiesen)

Return Exit (056)

Der Return Exit ist identisch mit dem Request Exit.

 

DSECT

Die DSECT für den Parameterbereich kann mit dem Makro EX055 generiert werden:

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