User exit after a successful import

After each successful import of a member from 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 just created from the import
• A 160 byte area containing the mainframe data set name or parameters used in the import
• A 16 byte area containing the mainframe member name used in the import

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

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