RE: Is SQL cursor open at the job level?

- I'm using ILERPG ==> activation group level.
- We are still on V5R2 ==> It would be awhile before we move to V5R3.
- Thanks for the sql sample.  It's going to take me awhile to digest it.




-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wilt, Charles
Sent: Wednesday, April 12, 2006 3:15 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Is SQL cursor open at the job level?

In answer to your question in the subject line

Yes, if using RPG III
No, its at the activation group level in RPG IV.


Besides Carel's option, you could always upgrade to v5r4 and take
advantage of the new SQL support of recursion.
(from
http://www.iseriesnetwork.com/artarchive/index.cfm?fuseaction=viewarticl
e&CO_ContentID=20437&channel=art&subart=issue&issueid=1140
Or http://tinyurl.com/rolyj)

WITH emp_list (level,
  empid, name) AS
  (SELECT 1, empid, name 
    FROM emp
    WHERE name = 'Carfino'
  UNION ALL
  SELECT o.level + 1, next_layer.empid, next_layer.name 
    FROM emp as next_layer, emp_list o
    WHERE o.empid = next_layer.mgrid )
SELECT level, name FROM emp_list;


Charles Wilt
--
iSeries Systems Administrator / Developer Mitsubishi Electric Automotive
America
ph: 513-573-4343
fax: 513-398-1121
  

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
> Sent: Wednesday, April 12, 2006 2:41 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Is SQL cursor open at the job level?
> 
> 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.
> 
>