× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.