Just change the source to place some literal into working-storage prior to
performing paragraph DO-READ.
Example:
01 FILLER PIC X(14) VALUE 'W-WHO-AM-I-->'.
01 W-WHO-AM-I PIC X(20) VALUE SPACES.
.
.
.
.
PROCEDURE DIVISION.
.
.
.
--STUFF--
.
.
.
0001-PARAGRAPH-1.
MOVE 'AT 0001-PARAGRAPH-1' TO W-WHO-AM-I
PERFORM DO-READ.
MOVE SPACES TO W-WHO-AM-I.
.
.
.
0002-PARAGRAPH-2.
MOVE 'AT 0002-PARAGRAPH-2' TO W-WHO-AM-I
PERFORM DO-READ.
MOVE SPACES TO W-WHO-AM-I.
.
.
.
0003-PARAGRAPH-3.
MOVE 'AT 0003-PARAGRAPH-3' TO W-WHO-AM-I
PERFORM DO-READ.
MOVE SPACES TO W-WHO-AM-I.
.
.
.
--STUFF--
.
.
.
When an ABEND occurs just scan for "W-WHO-AM-I" in working storage and the
paragraph who was ding the perform will be magically revealed to you.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Mike Schwab
Sent: Friday, April 08, 2011 2:17 PM
To: [email protected]
Subject: Re: COBOL abend debug question with AbendAid/CICS dump
Double check for a PERFORM label THRU DO-READ. If present it should be
using the label before the DO-READ.
On Fri, Apr 8, 2011 at 2:03 PM, McKown, John <[email protected]>
wrote:
> I am not really a COBOL programmer. But I am familar with COBOL. Anyway,
we had a looping transaction in CICS/TS 3.2 on z/OS 1.10. I used a monitor
program - Mainview for CICS from BMC, to abend the transaction. This
produced an AbendAid/CICS dump. Which is of little use because our COBOL
code is very PERFORM heavy. Basically what the dump showed was that I was in
a paragraph which looked mainly like:
>
> DO-READ.
> EXEC CICS READ ...
> END EXEC.
>
>
> The paragraph DO-READ is referenced via a PERFORM verb in about 10
different places to read this file. How do I tell which PERFORM was the one
which was most likely looping? I.e. I know how to backtrace a series of CALL
verbs via save areas. But how is this done for a PERFORM backtrace?
>
> John McKown
--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to [email protected] with the message: GET IBM-MAIN INFO Search the
archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
