Problem:
Trying to run an IMS online MPP application that uses an allocation from the Control Region's startup JCL on the host. How can we get SYSOUT and a QSAM dataset allocated to the IMS TM Region in MFE?
Resolution:
To do this in MFE, one has to use a CLIST. It can be placed at the root of the MFE project directory or anywhere along the Workgroup's concatenation (in a CLIST folder).
A sample CLIST follows:
/*==================================================*/
/* USERIMS.TSO IMS Initialization/Termination CLIST */
/*==================================================*/
PROC 0 TERM
IF &TERM = TERM THEN -
DO
/*==================================================*/
/* Termination */
/*==================================================*/
/* FREE ALL */
/* FREE F(ddname) */
/*==================================================*/
END
ELSE -
DO
/*==================================================*/
/* Initialization */
/*==================================================*/
/* This defines a DD for IMS MPPs that have */
/* Cobol DISPLAY statements, first catalog the */
/* desired file in MFE for example: PS,LSEQ,121,A */
ALLOC FI(SYSOUT) DA('IMS.COBOL.SYSOUT') MOD
/* */
/* This defines the user QSAM dataset listed in the */
/* startup JCL for the IMS Control Region */
/* For MFE, define it in the MFE Catalog, */
/* for example: PS,LSEQ,90,A */
ALLOC FI(LORINCE) DA('IMS.LORINCE') MOD
/*==================================================*/
END
#MFDS
#EnterpriseDeveloper
