Problem:
IBM does not allow one to do this on the host according to the CICS Applicaiton Programming manual
Resolution:
Although IBM specifically lists a COBOL DISPLAY as one of the verbs that request system services (MVS not CICS) and they say it must not be used in a CICS COBOL program, under Mainframe Express (MFE) one can code DISPLAYs and have them re-directed to a file. These steps must be taken:
- go to the MFE Catalog and right click, select 'Allocate'
- name the dataset anything you want (I used 'mfiuve.cics.sysout' )
- give it DCB attributes, I used PS,F,121
- edit the CLIST to look like this one included here
/*==============================================*/
/* USERCICS.TSO - MODIFIED CLIST FOR CICS USAGE */
/*==============================================*/
PROC 0 TERM
ALLOC FI(SYSOUT) DSN(CICS.SYSOUT) SHR
IF &TERM = TERM THEN -
DO
/*==========================================*/
/* PERFORM TERMINATION */
/*==========================================*/
WRITE USERTSO Termination in Progress...
WRITE USERTSO Termination Complete
END
ELSE -
DO
/*===========================================*/
/* PERFORM INITIALIZATION */
/*===========================================*/
WRITE USERTSO Initialization in Progress...
/*===========================================*/
/* PERFORM DATASET PREALLOCATION */
/*===========================================*/
WRITE USERTSO Initialization Complete
END
Notice that the high level qualifier is left off.
My default in MFE is 'MFIUVE', so it was used. Also notice WHERE
the allocation is placed and that I used an actual DSN.
- run the CICS transaction
- the MFE Catalog now has entries in the catalogued dataset (yes, in EBCDIC)
#EnterpriseDeveloper
#MFDS
