open cursor getting executed multiple times without error

cdhami · New User Joined: 24 Jan 2006 Posts: 28

Hi all,
I have a program where i retreive a IMS record and declare cursor then open cursor and then continue retreiving next IMS record.

problem here is i forgot to close the cursor, still i am not getting -502 abend since i do open multiple times without closing it.

does anybody knows why this is happening

is it because of declare used just before open cursor causing the cursor to get reset.???

Let me know ..
Thanks
Cdhami

sushanth bobby · Posted: Fri Apr 23, 2010 9:38 pm

Cdhami,

Can you show us your code...

Sushanth

agkshirsagar · Posted: Fri Apr 23, 2010 11:45 pm

Cdhami,
Declare cursor is not an executable DB2 statement.
I am not IMS expert but did you code IMS checkpoint command that is executed before coming to open cursor command again?
We may be missing something here.
As requested earlier, it will be best if you could paste your code removing any site specific information that you may have.

cdhami · New User Joined: 24 Jan 2006 Posts: 28

Here is my code snippet

PERFORM 2000-PROCESS-IMSQ
UNTIL STATUS-CODE IN IO-PCB = 'QC'

2000-PROCESS-IMSQ

Read IMSQ
IF STATUS-CODE IN IO-PCB IS EQUAL TO SPACES
Perform 2251-DECL-POSTING-CS

EXEC SQL
DECLARE TLA-POSTING CURSOR WITH HOLD FOR
SELECT DISTINCT POST_VALUE_DATE
FROM TLA_POSTDATA
WHERE ACCT_SWIFT_ADDR
=:DCLTLA-POSTDATA.ACCT-SWIFT-ADDR
ORDER BY POST_VALUE_DATE ASC
FETCH FIRST 5 ROWS ONLY
END-EXEC.

EXEC SQL
OPEN TLA-POSTING
END-EXEC.

PERFORM 2252-FETCH-PRCS-POSTING
UNTIL FORWARD-DT-NOT or no-record-found

2252-FETCH-PRCS-POSTING.

EXEC SQL
FETCH TLA-POSTING
INTO :DCLTLA-POSTDATA.POST-VALUE-DATE
END-EXEC.
do processing

End of code

As above,
Para 2000-PROCESS-IMSQ is executed multiple times, the declare is inside this. There is no closing of cursor. since no closing of cursor is done, the cursor is still open when processing next record.
when i process multiple records then also program doesn't abend

whereas in other code, i receive -502 error code where cursor is not closed.

Thanks

dick scherrer · Posted: Mon Apr 26, 2010 12:44 pm

Hello,

Suggest you look at the expanded cobol code. The declare is only done once, not each time thru the code. What causes you to believe the declare is actually executed multiple times?

I suspect there is some other misunderstanding or that there is a bit of code that makes a difference that has not been posted. Please do not post the entire program as it is too big for this.

Anuj Dhawan · Posted: Mon Apr 26, 2010 9:37 pm