RE: First pure SQL program not running.

Bob,



After the declare cursor, you need to open the cursor and then create a loop with a fetch statement:



C/Exec Sql

C+ Declare Cur03 Dynamic Scroll Cursor For

C+

C+ Select *

C+

C+ From BtChp

C+

C+ Where Status In (:XClose,:XErrors,:XLoaded,:XOpen)

C+

C+ Order By Btch# Desc

C/End-Exec





C/Exec sql

C+ Open Cur03

C/End-exec



C/Exec Sql

C+ Fetch Cur03

C+

C+ Into :Ds_BtChp

C/End-exec



Dow Sqlcod = *zeros

Process ....

C/Exec Sql

C+ Fetch Cur03

C+

C+ Into :Ds_BtChp

C/End-exec

ENDdo



This is just a basic sample











âIf you think education is expensive, try ignorance"
(Derek Bok, pres. of Harvard Univ. 1971-1990)

From: banderson@xxxxxxxxxxxxxxxxxxx
To: rpg400-l@xxxxxxxxxxxx
Date: Fri, 4 Jun 2010 08:29:59 -0400
Subject: First pure SQL program not running.

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.