User exit after a workstation delete

If the ALLOW WORKSTATION DELETES option is on, a user exit is called and if it exists, it will be passed the following 1 parameter address:

• A 256 byte area containing the fully qualified name of the workstation file that was deleted

You may write your own user exit in COBOL if you desire. The name of the program must be MFMONDEL.

IDENTIFICATION DIVISION.
PROGRAM-ID. MFMONDEL. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION.
SOURCE-COMPUTER.    IBM-PC. 
OBJECT-COMPUTER.    IBM-PC. 
DATA DIVISION. 
LINKAGE SECTION. 
01 P-WORKSTATION    PIC X(256). 
PROCEDURE DIVISION USING P-WORKSTATION.
*> EXECUTE CODE HERE 
   GOBACK.