Re: SQL Close Cursor Action -- RPG400-L

You mean like
execsql close C1;

This can get tricky if using any of the sql syntax "goto", like wheneversqlerror goto xxx.

If you skip to just before the close cursor, and the cursor is not open, the

close cursor itself is an error. You can check the sqlstt and sqlcod todetermine

what to do. I'd show a sample but can't get to the code today.

The other option is to not use whenever statements, but then you need tohandle

things like the cursor not opening..
jim franz

----- Original Message -----From: <rob@xxxxxxxxx>

To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Monday, May 22, 2006 4:13 PM
Subject: Re: SQL Close Cursor Action

You mean like
execsql close C1;

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Jeff Young <cooljeff913@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
05/22/2006 03:54 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Subject
SQL Close Cursor Action






When creating an SQLRPGLE module, the only actions I can specify for
closing a cursor are *ENDMOD or *ENDACTGRP.
 What I would like to do is have all cursors closed when the program that
the module is a member of ends.
 Is there any way I can do this short of calling the module at program
end with a code to have it manualy close the cursor?

 TIA,



Jeff Young
Sr. Programmer Analyst
Dynax Solutions, Inc.
A wholly owned subsidiary of enherent Corp.
IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions
V5R2
IBM  Certified Specialist- e(logo) server i5Series Technical Solutions
Designer V5R3
IBM  Certified Specialist- e(logo)server i5Series Technical Solutions
Implementer V5R3












---------------------------------
Feel free to call! Free PC-to-PC calls. Low rates on PC-to-Phone.  Get
Yahoo! Messenger with Voice
--
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.