|
midrange.com
OK....one other possibility...
Open the cursor on the first call only...then have a separate procedure
close the cursor at termination time....
P getFamilyMember...
P B export
D pi 90 varying
D piMember 3 value
D prList s 90 varying static
D Open s n Static Inz(*OFF)
C if piMember = *blank
C return prList
C endif
C eval prList = prList+piMember+';'
C If Not Open
C/exec sql
C+ declare c1 scroll cursor for
C+ select *
C+ from MYFILE
C+ where PARENT = :piMember or
C+ CHILD = :piMember
C/end-exec
C/exec sql
C+ open C1
C/end-exec
C Eval Open = *On
C EndIf
C dou sqlCod <> 0
C/exec sql
C+ fetch next
C+ from C1
C+ into :child,:parent
C/end-exec
C if sqlCod <> 0
C leave
C endif
C if %scan(child :prList) = 0
C callp getfamilyMember(child)
C endif
C if child <> parent and
C %scan(parent :prList) = 0
C callp getfamilyMember(parent)
C endif
C enddo
C/exec sql
C+ close C1
C/end-exec
C return prList
P getFamilyMember...
P E
Thanks,
Tommy Holden
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
Sent: Wednesday, April 12, 2006 2:22 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Is SQL cursor open at the job level?
I can't close the cursor, the parent thread still needs it. See below
for detail on what I'm doing:
This is what I try to achieve:
Example:
1) MYFILE has 2 fields: CHILD and PARENT.
2) If the data looks like below
CHILD PARENT
AAA BBB
CCC AAA
DDD BBB
EEE JJJ
3) This procedure basically need to return all family member back to the
caller. If say the caller pass DDD, this procedure should return:
DDDBBBAAACCC
Below is what I got (Not able to test it because when it recursive calls
the getFamilyMember, it gets the cursor already open error and the
return result become incorrect:
D getFamilyMember...
D pr 90 varying
D piMember 3 value
D MYFILE E DS
D family s 90 varying
C eval family = getFamilyMember('DDD')
C eval *inlr = *on
*************************************************************
P getFamilyMember...
P B export
D pi 90 varying
D piMember 3 value
D prList s 90 varying static
C if piMember = *blank
C return prList
C endif
C eval prList = prList+piMember+';'
C/exec sql
C+ declare c1 scroll cursor for
C+ select *
C+ from MYFILE
C+ where PARENT = :piMember or
C+ CHILD = :piMember
C/end-exec
C/exec sql
C+ open C1
C/end-exec
C dou sqlCod <> 0
C/exec sql
C+ fetch next
C+ from C1
C+ into :child,:parent
C/end-exec
C if sqlCod <> 0
C leave
C endif
C if %scan(child :prList) = 0
C callp getfamilyMember(child)
C endif
C if child <> parent and
C %scan(parent :prList) = 0
C callp getfamilyMember(parent)
C endif
C enddo
C/exec sql
C+ close C1
C/end-exec
C return prList
P getFamilyMember...
P E
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Holden Tommy
Sent: Wednesday, April 12, 2006 1:50 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Is SQL cursor open at the job level?
OR....
Compile to CLOSQLCSR(*ENDMOD)
Or...
c/exec sql
C+ SET OPTION CLOSQLCSR=*ENDMOD
c/end-exec
Thanks,
Tommy Holden
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Michael_Schutte@xxxxxxxxxxxx
Sent: Wednesday, April 12, 2006 1:44 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Is SQL cursor open at the job level?
Is this a SQL Procedure or RPG Procedure using SQL?
If RPG, add the HSPEC
H ActGrp(*NEW)... I believe?
Michael Schutte
Work 614-492-7419
email michael_schutte@xxxxxxxxxxxx
"Lim Hock-Chai"
<Lim.Hock-Chai@us
amobility.com>
To
Sent by: "RPG programming on the AS400 /
rpg400-l-bounces@ iSeries" <rpg400-l@xxxxxxxxxxxx>
midrange.com
cc
Subject
04/12/2006 02:40 Is SQL cursor open at the job
PM level?
Please respond to
RPG programming
on the AS400 /
iSeries
<rpg400-l@midrang
e.com>
I need to do recursive call on a procedure that declare and open sql
cursor. I'm getting a cursor already open error when recursively
calling the procedure. Is there a way a go around that?
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
