Issue listen request without qualifier

The following code segment loads the SMFLSTAL listener user exit routine into common storage and issues the ENFREQ LISTEN request to listen for all event code 37 (SMF accounting) events. Because this ENFREQ request does not use the QUAL and QMASK keywords, the program listens for all code 37 events. For a description of the exit routine, see SMFLSTAL - Sample ENF listener user exit routine. For a description of the variables, see Module declarations.

* Load ENF Listen Exit (SMFLSTAL) into common storage and save address
* SMFLALL@ contains the address of the listener user exit routine
         .
         .
         ST    R00,SMFLALL@
*
* Issue LISTEN Request for SMF Event Code (all functions)
         L     R02,SMFLALL@
         ENFREQ ACTION=LISTEN,    -- Function                          +
               CODE=ENFC37,       -- Event Code                        +
               EXIT=(R02),        -- Exit Address                      +
               ESTBNME=THISMOD,   -- Establisher Name                  +
               EXITNME=SMFLSTAL,  -- Exit Name                         +
               DTOKEN=SMFLALLT    -- Returned Token Field
*
* Check the return code from ENFREQ - if not zero issue message
*