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.
> 
>