Re: Beginning SQL question

you don't need end-exec with free-format SQL...just a semi-colon just like
any another line of free-format code.

Thanks,
Tommy Holden



"Leonid Gruzmark" <grleonid@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
08/20/2007 01:23 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Beginning SQL question






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.

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

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