User exit after a successful export

After each successful export of a member to the mainframe, a user exit is called and if it exists, it will be passed the following 3 parameter addresses:

• A 256 byte area containing the fully qualified name of the workstation file that was used in the export
• A 160 byte area containing the mainframe data set name or parameters used in the export
• A 16 byte area containing the mainframe member name used in the export

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

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