CQS - z/OS log stream example

The merged z/OS® log stream can be used to examine CQS log records. IEBGENER can be used along with the default log stream subsystem exit routine, IXGSEXIT, to copy the log records at time of failure for later analysis.

//CQSCPYLG  JOB  USERID,USERID,MSGLEVEL=1,CLASS=K
//*********************************************************************
//*  This job copies a CQS log stream to a dataset (max 32K / record) *
//*                                                                   *
//*    - Replace the DSN on the SYSUT1 card with your CQS logstream   *
//*      name.                                                        *
//*                                                                   *
//*    - Replace the DSN on the SYSUT2 card with your desired output  *
//*      dataset name.  You may also need to adjust the space         *
//*      allocations, depending on the size of your logstream.        *
//*********************************************************************
//STEP1    EXEC  PGM=IEBGENER,REGION=1024K
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSIN    DD  DUMMY
//SYSUT1   DD  DSN=SYSLOG.MSGQ01.LOG,
//             SUBSYS=(LOGR,IXGSEXIT),
//             DCB=(BLKSIZE=32760)
//SYSUT2   DD  DSN=CQS.LOG.COPY,
//             DISP=(NEW,KEEP,DELETE),
//             VOL=SER=USER05,
//             SPACE=(CYL,(2,10)),
//             UNIT=SYSDA