Maybe I am reading too much into it, but on the lines you have errors there is a "C" in position 6-7, mmmm like in a non-free RPG pgm?
Thanks & Regards,
Danny Hayes
IT-Developer
Genuine Parts Company, APG IT
3100 Windy Hill Road
Atlanta, Georgia 30339
mailto:Danny_Hayes@xxxxxxxxx
(904) 502-2969
Why is it that all of the instruments seeking intelligent life in the universe are pointed away from earth?
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Brian Parkins
Sent: Friday, August 17, 2018 7:06 AM
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxx>
Subject: [EXT] Re: SQLRPGLE Compile Error
You probably know this already, Mike. The SQL pre-processor converts your SQL statements to API calls in RPG IV. But the RPG IV code that's generated is - shall we say - ugly. (But then, we would not normally see it. Provided it works OK, who cares?)
It would help to see a little more of the original source code. On first inspection, I wonder if the IF SQLSTT statement, (which, BTW can be written as IF SQLSTATE) should be shifted a little to the right, (column
8 onwards)? (It doesn't look as though you're using **FREE.)
Brian.
On 17/08/2018 04:22, Mike Wills wrote:
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
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fmikewi
lls.me&data=02%7C01%7Cdanny_hayes%40genpt.com%7Ccc4fe8c66866462a57
8d08d604317f02%7Cb439d764f2cb43eaac052e373c83043e%7C0%7C0%7C6367010079
66439268&sdata=Q3tiuVKAbFJvrr7E330QoXVO3FUkdnuGMbuiuad8Jxg%3D&
reserved=0
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://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Flists.midrange.com%2Fmailman%2Flistinfo%2Frpg400-l&data=02%7C01%7Cdanny_hayes%40genpt.com%7Ccc4fe8c66866462a578d08d604317f02%7Cb439d764f2cb43eaac052e373c83043e%7C0%7C0%7C636701007966439268&sdata=a8NqwNLYiQ2njvyl1oMX8W5X8RZQnuSahH7UKWqezyk%3D&reserved=0
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Farchive.midrange.com%2Frpg400-l&data=02%7C01%7Cdanny_hayes%40genpt.com%7Ccc4fe8c66866462a578d08d604317f02%7Cb439d764f2cb43eaac052e373c83043e%7C0%7C0%7C636701007966439268&sdata=Lj9FIftgwKGOpjtgHNREgVzwkt5C%2FwBDtL4A30dW3ko%3D&reserved=0.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Famzn.to%2F2dEadiD&data=02%7C01%7Cdanny_hayes%40genpt.com%7Ccc4fe8c66866462a578d08d604317f02%7Cb439d764f2cb43eaac052e373c83043e%7C0%7C0%7C636701007966439268&sdata=j4Tl2MjFiQvQ13dqVrjVU6%2B%2BBDj9xX%2BZgRsczLsg5bw%3D&reserved=0
"This email and any attachments, contain Genuine Parts Company confidential information that is proprietary, privileged, and protected by applicable laws. If you have received this message in error and are not the intended recipient, you should not retain, distribute, disclose or use any of this information and you should destroy this email, any attachments or copies therein forthwith. Please notify the sender immediately by email if you have received this email in error."
midrange.com
