Previous Topic Next topic Print topic


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:

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

IDENTIFICATION DIVISION.
PROGRAM-ID. MFMONEXP. 
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.
Previous Topic Next topic Print topic