ca.portal.admin

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

Discussion created by ca.portal.admin on Jul 14, 2008
ng)

we are trying to trap errors in a CICS program (protocol CICS-EXEC) and usi=
ng 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 v=
erb.

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 wh=
ich 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 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
"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