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