RE: First pure SQL program not running.

Charles,
Thank you. You made me look above the BEGSR and realize that I had never done the EXSR for it

Duhhhhhhhh a 2 day loss. Must have really been asleep.

Bob
IT Manager


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Charles Wilt
Sent: Friday, June 04, 2010 10:25 AM
To: RPG programming on the IBM i / System i
Subject: Re: First pure SQL program not running.

If this is the whole program...

Then you've placed the code in a sub routine, (BEGSR) which means that
the mainline is empty...which means the program starts and never does
anything...

Are you learning RPG in addition to SQL?

Note that this isn't "pure SQL", this is RPG with embedded SQL.

"pure SQL" would be using SQL only

create procedure MyProc
language SQL
reads SQL data

begin
declare cursor C1 for
SELECT B2OEMN FROM CMALIB/MBB2CP99;

open C1;
end;


HTH,

Charles


On Fri, Jun 4, 2010 at 8:29 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.