Write a DADS Plus for CICS message the system log

Products

• DADS Plus

Issue/Introduction

It is possible with DADS Plus for CICS to write user specified messages to the System log in addition to the DADSLOG. Support for this feature is implemented by coding, assembling and link-editing a SYSLOG message table called DADSMSGT. DADS Plus  for CICS will use DADSMSGT to determine whether a message should be written to the SYSLOG. A default SYSLOG message table is supplied in CAI.LOADLIB. No messages are sent to the MVS SYSLOG when the default table is used. When this feature is automated, automated operations software can be used to key off of the SYSLOG message to notify technical support of a possible application problem.

Environment

Release: 4.0
Component: DADS Plus for CICS

Resolution

The following sample JCL will write DADSP558 to the SYSLOG.

//DADSMSGT JOB (000000000),'XXXXXXX',CLASS=A,MSGCLASS=A,
//         MSGLEVEL=(1,1),NOTIFY=XXXXXXX,REGION=1024K
//ASM     EXEC PGM=ASMA90,
//             PARM='XREF(SHORT),NODECK,OBJECT,TERM'
//SYSLIB   DD  DSN=DADSPL40.SAMPLIB,DISP=SHR
//         DD  DSN=SYS1.MACLIB,DISP=SHR
//         DD  DSN=SYS1.AMODGEN,DISP=SHR
//*
//SYSUT1   DD  DSN=&SYSUT1,SPACE=(1024,(120,120),,,ROUND),UNIT=VIO,
//             DCB=BUFNO=1
//SYSPUNCH DD  SYSOUT=B
//SYSTERM  DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSLIN   DD  DSN=&OBJ,SPACE=(3040,(40,40),,,ROUND),UNIT=VIO,
//             DISP=(MOD,PASS),
//             DCB=(BLKSIZE=3040,LRECL=80,RECFM=FBS,BUFNO=1)
//SYSIN    DD  *
   DADSMTAB NUMBER=DADSP558,ROUTCDE=(2,5,11)
   DADSMTAB END
   END
//*
//LINKED  EXEC PGM=IEWL,
//             REGION=512K,
//             PARM='LIST,LET,XREF,MAP'
//SYSLIN   DD  DSN=&OBJ,DISP=(OLD,PASS)
//         DD  DDNAME=SYSIN
//SYSLMOD  DD  DSN=HLQ.LOADLIB(DADSMSGT),DISP=SHR
//SYSUT1   DD  DSN=&SYSUT1,SPACE=(1024,(120,120),,,ROUND),UNIT=VIO,
//             DCB=BUFNO=1
//SYSPRINT DD  SYSOUT=*
//*
//