Sample ENFREQ DELETE request
After issuing an ENFREQ LISTEN request, the module saves, for later
use, the returned DTOKEN and does one of the following:
- Ends Processing
- Waits for completion of processing (using a WTOR or STIMER WAIT request for testing purposes)
When the listening program no longer needs the listener user exit routine, the program deletes the listen request by issuing an ENFREQ DELETE request specifying the DTOKEN that was returned on the ENFREQ LISTEN request.
The following code segment shows the ENFREQ DELETE request for
the DTOKEN that was returned on the LISTEN request for the SMFLSTAL
exit:
*
* Issue DELETE Request for SMF Event Code (all functions)
ENFREQ ACTION=DELETE, +
CODE=ENFC37, +
DTOKEN=SMFLALLT
*
* Check the return code from ENFREQ - if not zero issue message
*
The following code segment shows the ENFREQ DELETE request for
the DTOKEN that was returned on the LISTEN request for the SMFLST00
exit:
* Issue DELETE Request for SMF Event Code (Qualifier ENF37Q00)
ENFREQ ACTION=DELETE, +
CODE=ENFC37, +
DTOKEN=SMFL00T
*
* Check the return code from ENFREQ - if not zero issue message
*
The following code segment shows the ENFREQ DELETE request for
the DTOKEN that was returned on the LISTEN request for the SMFLST01
exit:
* Issue DELETE Request for SMF Event Code (Qualifier ENF37Q01)
ENFREQ ACTION=DELETE, +
CODE=ENFC37, +
DTOKEN=SMFL01T
*
* Check the return code from ENFREQ - if not zero issue message
*
The listening program must do the following to complete clean up
and end the module:
- Release ESTAE for module
- Free Automatic Storage
- Perform Exit Linkage
- MODESET back to problem state
- Return to caller