It seems to have been some kind of invisible characters.
If you look, I had 2 spaces between C+ and the SQL instruction on each line. I backspaced each line one column and it compiled. By that I mean I effectively deleted what was in column 9. I'd written the code in WDSc so I'm suspecting that.
Although in SEU no errors were highlighted. Thanks both.
C MOVE *ON *INLR
C MOVE *BLANK WNORF 7
C Z-ADD0 OCLTNO 90
C/EXEC SQL
C+ SELECT DNORF INTO : WNORF
C+ FROM DOSCLT
C+ WHERE DCLTNO = : OCLTNO AND
C+ DDOSAN = ' ' AND
C+ DDOSTY = 'R'
C+ FETCH FIRST ROW ONLY
C/END-EXEC
-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Colpaert, Peter
Envoyé : jeudi 2 octobre 2008 10:12
À : RPG programming on the AS400 / iSeries
Objet : RE: SQLRPG
Are the positions before the C really blanks?
I've had it happen that there were tabs instead of blanks, and that also caused this kind of errors.
HTH,
Peter Colpaert
Software Engineer, Consumer Luminaires
Industrieterrein Satenrozen 11, 2550 Kontich, Belgium Tel. +32/ 3 450 74 09, Fax +32/ 3 450 74 33, Internal 1317 peter.colpaert@xxxxxxxxxxx, www.philips.com
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-
bounces@xxxxxxxxxxxx] On Behalf Of Simon Coulter
Sent: donderdag 2 oktober 2008 9:57
To: RPG programming on the AS400 / iSeries
Subject: Re: SQLRPG
On 02/10/2008, at 5:06 PM, David FOXWELL wrote:
Here's my SEU screen :
....CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComments++++
************** Début des données
************************************
C MOVE *ON *INLR
C MOVE *BLANK WNORF 7
C Z-ADD0 WCLTNO 90
C/EXEC SQL
Don't know why SEU isn't complaining but have a close look at the
alignment of your specification with the template. Notice anything?
Perhaps only a copy-and-paste issue but perhaps not.
Regards,
Simon Coulter.
The information contained in this message may be confidential and legally protected under applicable law. The message is intended solely for the addressee(s). If you are not the intended recipient, you are hereby notified that any use, forwarding, dissemination, or reproduction of this message is strictly prohibited and may be unlawful. If you are not the intended recipient, please contact the sender by return e-mail and destroy all copies of the original message.
--
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.
midrange.com
