ca.portal.admin

SNAP verb in CICS program? (my cics program,ing ignorance is

Discussion created by ca.portal.admin on Jul 14, 2008
Latest reply on Jul 14, 2008 by ca.portal.admin
showing)

we are trying to trap errors in a CICS program (protocol CICS-EXEC) and
using the following:

01 WS-SNAP-TITLE PIC X(134) VALUE ' TB08TB08 ERR'.

in working storage, and

SNAP TITLE IS WS-SNAP-TITLE
FROM ERROR-STATUS LENGTH +4.

in the procedure division

however, the SNAP verb is not being detected in the precompiler as a
IDMS verb.

is SNAP not permitted in a CICS program?
if not, any alternatives?

thanks,

Chris Hoelscher
Senior IDMS & DB2 Database Administrator Humana Inc
502-476-2538
choelscher@humana.com



The information transmitted is intended only for the person or entity to
which it is addressed and may contain CONFIDENTIAL material. If you
receive this material/information in error, please contact the sender
and delete or destroy the material/information.
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
"Re: SNAP verb in CICS program? (my cics program,ing ignorance is showing)"
"Alternative, Issue multi-address spaces dump against CICS & IDMS address
spaces.

Rob Klan/Cincinnati/IBM
Phone: 1-877-205-4871 (T/L: 349-2446)
VOIP Users 1-513-897-8148
ITN: 23492446
Email: rklan@us.ibm.com



""Rozeboom, Kay [DAS]"" <KAY.ROZEBOOM@IOWA.GOV>
Sent by: IDMS Public Discussion Forum <IDMS-L@LISTSERV.IUASSN.COM>
07/14/2008 12:59 PM
Please respond to
IDMS Public Discussion Forum <IDMS-L@LISTSERV.IUASSN.COM>


To
IDMS-L@LISTSERV.IUASSN.COM
cc

Subject
Re: SNAP verb in CICS program? (my cics program,ing ignorance is showing)






Chris,
You can display info on the CICS log. Not the same as a snap, but better
than nothing. Sample code:

01 CSMT-MESSAGE.
05 FILLER PIC X(04)
VALUE '*** '.
05 CSMT-PROGRAM-NAME PIC X(08).
05 FILLER PIC X(02)
VALUE ': '.
05 CSMT-MESSAGE-TEXT PIC X(100).

EXEC CICS WRITEQ TD
QUEUE('CSMT')
FROM(CSMT-MESSAGE)
LENGTH(114)
END-EXEC.

The CICS log can be viewed using transaction CLOG. It's even less
user-friendly than OLP.

Outcomes