Re: First pure SQL program not running.

Bob,

What about your UPC5Main subroutine? What is it doing? Also, you need to
decide when your cursor is going to be closed. The compilation default
is CLOSQLCSR(*ENDACTGRP ) that is, at the end of your activation group. You
can override your SQL options in your program, like in this example:

EXEC SQL
Set Option Commit = *NONE,
CloSQLCsr = *ENDMOD,
DatFmt = *ISO,
TimFmt = *ISO;

Be sure of declaring them before any other SQL statements.

HTH,

Luis Rodriguez
IBM Certified Systems Expert â eServer i5 iSeries


On Fri, Jun 4, 2010 at 7:59 AM, Bob Anderson
<banderson@xxxxxxxxxxxxxxxxxxx>wrote:

Hello,
I am writing new from scratch SQL program. I have created the source
as SQLRPGLE and written the non EXEC SQL sections in free form. This
program builds a cursor on a logical file that is attached to a MAPICS file
to read the entire file and update another with the results from the first
cursor.
It has compiled cleanly with the create sql program.
However when I do a call program it starts and just sits there I
have changed the program to declare the cursor and then set *INLR to on and
do a return but still the program just sits there I have let get to 1.1 on
the CPU in wrkactjob and then killed it. This really has me stumped.
Here is what I am talking about:
//********************************************************************
// Calculate UPC (SCC-14) check digit.
//*******************************************************************
/Free
BEGSR UPC5Main;
/END-FREE
C/EXEC SQL
C+ Declare @C1 CURSOR for SELECT B2OEMN FROM CMALIB/MBB2CP99
C/END-EXEC
/Free
*INLR = *ON;
RETURN;
/END-FREE


Thanks in advance for any help you can supply


Bob Anderson

IT Manager
Kent Sporting Goods Inc.
433 Park Ave. S
New London OH 44851
419-929-7021 x315
ï Please consider the environment before printing this e-mail.


--
This is the RPG programming on the IBM i / System i (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.