Re: Beginning SQL question

["Leonid Gruzmark" <grleonid@xxxxxxxxx>]

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.