MVSFORUMS.com

[jctgf]

hi there,

program A only performs screen operations.

program B only performs db2 i/o operations.

firstly program A invokes program B's "open cursor" function in order to open a db2 cursor. a set of lines from a db2 table is selected;

control returns to program A and a sqlcode 0 is received from program B;

program A invokes program B's "fetch cursor" function, in order to read the first line of the previously opened cursor;

control returns to program A once again but now a -501 sqlcode is received from program B;

the cursor previously successfully opened by program B is no longer available.

i was told it happens because i am running in a cics pseudo conversational mode.

how to get a sqlcode 0 after calling program B for the second time?

thanks

[jctgf]

i forgot to mention:

program A is cobol cics;

program B is cobol cics/db2.

thanks

[kolusu]

jctgf,

In a psuedo-converstational program every time you invoke the program B it is treated as the first time. So you need to open and fetch the rows once again. You cannot issue a direct fetch.

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[dbzTHEdinosauer]

cics link to pgm b with a copybook that contains a cursor start point (key for second screen) and a table to contain enough rows to fill a screen. pgm a invokes pgm b only once per 'screen fill', and pgm a saves that key of the first and last displayed to enable scrolling.
_________________
Dick Brenholtz
American living in Varel, Germany

[nagasadhu]

Would it make a difference if you use CURSOR WITH HOLD option?

[kolusu]