Hi,
The problem is the use of a variable named like as an OPCODE.
The compiler cannot distinguish between variable and OPCODE, but interprets
the variable SELECT as Opcode and expects a semi colon immediately after
SELECT.
The only way to get your program compiled is to use the OPCODE eval.
If you change your statement as follows it will be compiled.
/Free
Eval Select = 'LIBR/NV' + %editc(l$cust : 'X');
/End-Free
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!"
-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [
mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von Jerry Adams
Gesendet: Friday, June 08, 2007 14:53
An: RPG Midrange
Betreff: Missing Semi-Colon - Not
I am definitely losing it. Perhaps because it's early in the morning.
I am getting the following error while entering the following line.
While this snippet is from WDSc, I get the same error in SEU so this is
not a WDSc issue.
Select = 'LIBR/NV' + %editc(l$cust : 'X');
RNF5507E A semi-colon is not specified at the end of a free-format
specification.
This is odd because, as you can see, there is a semi-colon at the end of
the line. Odd, too, is that the examples in the ILE RPG Reference
manual are in fixed format, while nearly every other %bif is in /free
format.
midrange.com
