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 19 byte area containing the 16 byte mainframe member name used in the import, and a 3 byte field containing ADD if this was a new member being imported, or REP if this was a replacement member being imported.

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

IDENTIFICATION DIVISION.
PROGRAM-ID. MFMONIMP. 
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-MEMBERAREA. 
   05 P-MEMBERNAME  PIC X(16). 
   05 P-MEMBERFLAG  PIC X(3). 
PROCEDURE DIVISION USING P-WORKSTATION P-DATASETNAME 
                         P-MEMBERAREA. 
*> EXECUTE CODE HERE 
   GOBACK.