× 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.



Where is Your "end-exec "?

On 8/20/07, Bob Anderson <banderson@xxxxxxxxxxxxxxxxxxx> wrote:

Good Morning,
I am just starting to use SQL in an RPGLE program and I am
having a large problem. Here is the first part of the program:

D ParmData DS
D PONUM 12a
D INVNUM 14a
D PPV1 9p 4
D PPV2 9p 4
D SqlStateNoRow c Const( '02000' )
D MoreRows s 10A Inz('True')
D POHREC e ds EXTNAME(IMPPOHDR)
C *ENTRY PLIST
C PARM ParmData
/FREE
// TestVal = 'SC40242';
Exec SQL
Set Option Naming = *Sys,
Commit = *None,
UsrPrf = *User,
DynUsrPrf = *User,
Datfmt = *iso;

Exec SQL
Declare POHDCursor Cursor for
Select *
from KENTWEBF / IMPPOHDR
where IMPPONUM = :PONUM
for Read Only;

Exec SQL
Open POHDCursor;


When I compile in WDSC it give me 2 errors as follows:

SQL0312 Position 66 Variable POHREC not defined or not usable.
SQL1001 External file definition for IMPPOHDR not found.

I have check my library list and the library the table is in is right
below where the program resides. I must be having A Dark Monday here in
Ohio.

Thanks for any you can supply.

Bob Anderson
IT Guy
Kent Sporting Goods
433 Park Ave. S
New London OH 44851
419-929-7021 x315
email: banderson@xxxxxxxxxxxxxxxxxxx



--
This is the RPG programming on the AS400 / 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.



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.