User exit before 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 is about to be deleted

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

IDENTIFICATION DIVISION.
PROGRAM-ID. MFMONPDL. 
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.

Note: Note:

If you do not want the workstation file to be deleted, ensure that MFMONPDL sets this 256 byte area to an empty string before it exits.