Re: Compiler error RNF5377 with embedded SQL

No, it's fixed format

>>> michaelrtr@xxxxxxxxx 04/07/06 11:22AM >>> 
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 . 
> 
>