Re: Compiler error RNF5377 with embedded SQL

["Michael Ryan" <michaelrtr@xxxxxxxxx>]

Are you trying to do free form RPG? Embedded SQL (until V5R4) requires fixed
format. the rest of your code can be free format, but the SQL stuff needs a
/End-Free above it to seperate it from free form.

On 4/7/06, Valerio Vincenti <vvincenti@xxxxxxxxxxxxxxxxxx> wrote:
>
> I'm having trouble compiling a QRPGLESRC program that uses embedded SQL.
> Let me state first that I'm not very familiar with embedded sql, so you
> can expect to see something stupid here.
>
> My goal is to have a subfile loaded dynamically with data matching a
> wildcard entered by the user in a field in the SFLCTL format. I need the
> subfile to be populated with the results of the following sql
> statement:
> select fielda, fieldb from lib/file where upper(fielda) like '%X%'
> (where X is the wild card value from the field in the SFLCTL format.
>
> Following recommendations and examples from a medley of articles that I
> have gathered about embedding sql, I have defined a stand alone field
> which contains the static part of the sql statement. Then, using CAT, I
> complete the statement with the dynamic portion (quotes, percent signs
> and the wild card value) into another stand alone field that I named
> SQLSTMT. So, if the user enters 'AMB', the field SQLSTMT contains:
> select CUJGTX, CUJHTX from COREDTA10/RECUREP where upper(CUJGTX) like
> '%AMB%'
>
> Then I coded the prepare:
> C/EXEC SQL
> C+ PREPARE SEL FROM :SQLSTMT
> C/END-EXEC
>
> followed by the cursor declaration:
> C/EXEC SQL
> C+ DECLARE PREMCSR SCROLL CURSOR FOR SEL
> C/END-EXEC
>
> and the cursor opening:
> C/EXEC SQL
> C+ OPEN PREMCSR
> C/END-EXEC
>
> Finally, in the subfile load routine, I loop thru the result set to
> populate the subfile:
> C/EXEC SQL
> C+ FETCH NEXT FROM PREMCSR
> C+            INTO :W02LastNm, :W02FirstNm
> C/END-EXEC
>
> When I try to compile using the CRTSQLRPGI command, I get error
> *RNF5377 (The end of the expression is expected.). Below is an excerpt
> of the compile list where the error occurs (lines 234 thru 241 are not
> in my code but are added by the compiler):
>
>    228  * Get the next row from the SQL Cursor
>    229  *
>    230 C*EXEC SQL
>    231 C* FETCH NEXT FROM PREMCSR
>    232 C*            INTO :W02LastNm, :W02FirstNm
>    233 C*END-EXEC
> *RNF5377 20    226 013400  The end of the expression is expected.
>    234 C                   Z-ADD     -4            SQLER6
>    235 C                   CALL      SQLROUTE
>    236 C                   PARM                    SQLCA
>    237 C                   PARM                    SQL_00006
>    238 C     SQL_00009     IFEQ      '1'
>    239 C                   EVAL      W02LASTNM = SQL_00011
>    240 C                   EVAL      W02FIRSTNM = SQL_00012
>    241 C                   END
>
> As I said, I'm not a sql expert, but I can't see anything wrong with
> that expression.
> Any suggestion would be greatly appreciated.
>
> Thanks!
> Val
>
> Valerio Vincenti
> IT Business Analyst
> County of Spotsylvania, I.S. Department
> Spotsylvania, VA 22553
> Phone (540) 507-7507
> Fax (540) 582-9841
> e-mail: vvincenti@xxxxxxxxxxxxxxxxxx
>
> --
> 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.
>
>