Re: SQLRPGLE Compile Error -- RPG400-L

I don't know if this is an issue, but when we upgraded to 7.1, the
installer accidentally missed upgrading the RPG compiler. Since we are
slowly sunsetting our system (thus my lack of interaction here anymore) we
figured it'd be okay at the time. I know it compiled in 6.1 just fine. Here
is one of the snippets. I think we only don't have one PTF pack installed.

[image: image.png]

--
Mike Wills
http://mikewills.me
Ph: 507-933-0880

On Fri, Aug 17, 2018 at 8:51 AM Birgitta Hauser <Hauser@xxxxxxxxxxxxxxx>
wrote:

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
Brown)
"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.

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

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

*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
calculation
specification.

032000 C SQL_00008 |IFEQ 0
SQL 032000
======>aa

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

--
Mike Wills
http://mikewills.me
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,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link:
http://amzn.to/2dEadiD

--
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,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD