CICS: 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.