Example:
DK1EXDFN TYPE=ENTRY,NAME=cccccccc,LEVEL=xxxxxxxx,PRVTWORK=nnn,DISABLED=xxx
NAME=cccccccc
This is the name of the module that is invoked for the specific exit indicated by the LEVEL parameter, explained below. This module must be on a library pointed to by the STEPLIB DD statement/concatenation.
LEVEL=xxxxxxxx
This is the exit point at which the named module will be invoked. Table 18 lists the six exit points and their descriptions.
Exit Point or Level |
Description |
---|---|
XLBCEUSR |
BEFORE COMMAND exit – invoked before each tableBASE command. |
XLACEUSR |
AFTER COMMAND exit – invoked after each tableBASE command. |
XLARIUSR |
AFTER REGION INITIALIZATION exit – invoked after tableBASE region initialization. |
XLBRTUSR |
BEFORE REGION TERMINATION exit – invoked before tableBASE region termination. |
XLATIUSR |
AFTER THREAD INITIALIZATION exit – invoked after thread initialization. |
XLBTTUSR |
BEFORE THREAD TERMINATION exit – invoked before thread termination. |
PRVTWORK=nnn
This parameter was added with Release 6.1.0 and replaces the WRKAREA parameter for the TYPE=ENTRY macro from previous releases of Version 6. The WRKAREA parameter will still be supported for backward compatibility.
This is the size of a PRIVATE area of storage that is to be passed to the exit, that is, it will not be shared, and will be discarded at the completion of the exit. This area can be used as working storage for an exit to avoid having to allocate memory in the exit. The size of the private work area is user defined and can be set to zero, if not used.
The DK1EXDFN macro forces any defined PRVTWORK area to be a multiple of eight. If the PRVTWORK value is defined to be any other number, it will be rounded up to the next multiple of 8, and a warning message will be generated.
When an exit is invoked, the address of the private, thread-related work area will be passed as Parameter 4. For more information, see Parameter 4: Private Thread Related Work Area.
DISABLED=YES | NO
This parameter determines if this exit is to be in use while tableBASE is processing, where
- YES—the exit is disabled, and will not be used
- NO—enable the exit (default)