will the cursor be closed when control is returned ?

ashimer · Posted: Fri Oct 20, 2006 2:59 pm

Hi
My main program is calling a subroutine (online ) ..in sub a cursor is opened ...but in case the control is returned back bfore i can close the cursor will the cursor be closed once control goes back to the main program ..... the subroutine can again be called from the main program depending on the feedback frm the sub ......
pls help ...

tia

UmeySan · Posted: Fri Oct 20, 2006 8:35 pm

Hi !

The cursor is not closes unless the logical unit of work (LUW) is ended.

In your example, the sub-pgm has to open and close the cursor for correct handling. If you write sub-pgms for getting data from db2 perhaps do it like this:

main -> call sub, function=Open / sub do the open and goback
main -> call sub, function=Fetch / sub does a fetch and goback
... with data in comarea
main processing data

main -> call sub, function=Fetch / sub does fetch and returns 100 EOF
main -> calls sub, Function=Cole / sub closes cursor

Hope it helps, regards, UmeySan