Check whether all PTFs are installed.
There was a time (between 2 TRs) when the SQL Precompiler still produced
fixed format RPG. The compiler team had a trick that even allowed fixed
format C-Specs in Full-Free RPG.
If you are on the current PTF level the source code that is included by the
SQL Precompiler is in FREE format.

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
?Train people well enough so they can leave, treat them well enough so they
don't want to.? (Richard Branson)

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxx> On Behalf Of Mike Wills
Sent: Freitag, 17. August 2018 05:23
To: rpg400-l@xxxxxxxxxxxx
Subject: SQLRPGLE Compile Error

Wow, I am really out of practice. I am having a compile error on a program
that I wrote quite a while ago. I am having issues getting it to compile.
I'm using free-format SQL and it appears like it's trying to compile this
into C specs. Thoughts as to where to look? This is program in production
and I need to make a minor change to.

031600 if sqlStt = SQL_SUCCESS;
031700 //* exec sql
031800 //* declare c1 cursor for sel;
031900 //* exec sql
032000 //* open c1;
032000 C |Z-ADD -4
SQLER6 SQL 032000
======>aa b

*RNF5505 30 a 032000 Positions 6-7 are not blank in a free-format

*RNF5347 30 b 032000 An assignment operator is expected with the
EVAL operation.
*RNF5501 20 032000 The comment entry on a free-form calculation is
not valid.
*RNF5505 30 Positions 6-7 are not blank in a free-format

032000 C SQL_00008 |IFEQ 0
SQL 032000

*RNF5505 30 a 032000 Positions 6-7 are not blank in a free-format

Mike Wills
Ph: 507-933-0880
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support by shopping at with our affiliate link:

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by 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].