Re: Newbie To Procedures With Problem

I found the "DB2 Universal Database for iSeries Embedded SQL" manual
useful, it contains info on using SQL embedded in other languages like
RPGLE or C. However, it sort of assumes you know SQL already.

The answer to your problem was in there, "All host variables within an SQL
statement must be preceded by a colon (:)."

Stu



On Fri, Sep 6, 2013 at 1:14 PM, arthur perkins <atrain01us@xxxxxxxxx> wrote:

Thanks for the reply! That did it!

Are there any websites I can check out or books I can buy that would be
good for someone like me who wants to learn SQL without being
overwhelmed?

Thanks again for the info!

Arthur


________________________________
From: Scott Mildenberger <SMildenberger@xxxxxxxxxxxxxxxxxx>
To: RPG programming on the IBM i (AS/400 and iSeries) <
rpg400-l@xxxxxxxxxxxx>
Sent: Friday, September 6, 2013 1:57 PM
Subject: RE: Newbie To Procedures With Problem


Need a colon in front of the field name OrgComp# like

exec sql select * into :ds_dbifgls from dbifgls where DGLSCMPNY =
:OrgComp#;

Not related to being in a procedure at all, just the SQL syntax.

Scott Mildenberger
Programmer/Analyst
Davis Transport Inc.
Missoula, MT
406-728-5510 x128

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of arthur perkins
Sent: Friday, September 06, 2013 10:28 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Newbie To Procedures With Problem

Hi all,

I'm new to the world of procedures. I am in the process of learning to
develop procedures on the Iseries and have run into the following problem:

I am developing a procedure that takes an alphanumeric field and converts
it to numeric. My problem is that I defined the local variable in the
procedure yet the compile crashes because it says it can't find the object.
The code in question is below:

d GetPostDate pr like(postdate) d
org1 like(emporgun1) value



GetPostDate b GetPostDate pi like(postdate)
Org1 like(emporgun1) value
ReturnValue s like(postdate) OrgComp#
s 4 0
free


// Convert the company# from character to numeric for the SQL exec
command.


OrgComp# =
%dec(Org1:4:0);


// Retrieve the record from DBIFGLS for the company being
processed.


exec sql select * into :ds_dbifgls from dbifgls where DGLSCMPNY =

OrgComp#;

Here is the error message from the compile below:

...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8
exec sql set option commit = *none, naming = *sys;

OrgComp#;

Position 36 Object ORGCOMP# in *LIBL not found.

To me, everything looks ok and is a relativly simple procedure. What am I
doing wrong or missing?

Thanks,

Arthur
--
This is the RPG programming on the IBM i (AS/400 and 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 IBM i (AS/400 and 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.