Rocket® Enterprise Developer (formerly a product of Micro Focus or formerly a product of Open Text) documentation, created before Rocket Software acquired certain products from OpenText, may include outdated references to "Micro Focus" or "OpenText", both of which are trademarks of OpenText or its affiliates. Rocket Software is not affiliated with Micro Focus or OpenText and has since rebranded these products as Rocket® products. You may also encounter outdated links in this documentation. If you do, please contact Rocket Support (support@rocketsoftware.com) for assistance.
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.