2012年2月11日 星期六

How to display messages to SYSOUT from CICS program

1. Define an extra partition TDQ as shown below.

I TDQ(CSSL)
RESULT - OVERTYPE TO MODIFY
Tdqueue(CSSL)
Type(Extra)
Nameind()
Triggerlevel( )
Enablestatus( Enabled )
Openstatus( Open )
Termid()
Tranid()
Userid()
Disposition(Mod)
Iotype(Output)
Indoubt()
Indoubtwait()
Databuffers(001)
Ddname(MSGUSR)
Dsname(DXXC01.CICTTEST.S0006329.D0000110.?)
Member()
+ Installtime(12/06/11 18:31:55)

2. In the CICS statup job code "//MSGUSR DD SYSOUT=*"

3. Write the messages from your application program to that TDQ. Whatever you write to the TDQ from your application will appear in the SYSOUT.