Re: Simple Question for Embedded RPG Gurus...

I think the other posters may have missed the boat a little bit on this
question.  If I understand you correctly, it is an embedded apostrophe in
the data that you are trying to put into the file...

In this case, wouldn't you need to parse the data field that COULD have an
embedded apostrophe, and replace it with '' (two apostrophes), so that it
would be interpreted as a single apostrophe with the field data?

Example:
I created a simple file named TEXT that has one field named TEXT.

This fails:
insert into TEXT values('Denny's')
Token S was not valid. Valid tokens: ) ,.

This works:
insert into text values('Denny''s')
1 rows inserted in TEXT in AUSLMPLIB.

Steve Landess

----- Original Message -----
From: "Konrad Underkofler" <kdunderk@hoshizaki.com>
To: "Rpg400-L (E-mail)" <rpg400-l@midrange.com>
Sent: Friday, October 25, 2002 9:37 AM
Subject: Simple Question for Embedded RPG Gurus...


> We are doing a dynamic prepare of a statement to update a record
> and have found one field can contain the dreaded single quote.
> The joblog indicates that token "s" is not valid because of the
> CusNam of Denny's.
>
>  EVAL      SqlStmt = ''
>            + 'UPDATE HWSRSRL                          '
>            + ' SET                                    '
>            + '   BLCONO = ' + %EDITC(Co#:'3')
>            + '  ,BLCUST = ' + %EDITC(Cus#:'3')
>            + '  ,BLCSTN = ''' + CusNam + ''''
>            + '  ,BLCODE = ''' + NewStat + ''''
>
> Simple fix? Any universal way to fix this?
>
> Thanks ahead of time.
>
> Konrad Underkofler
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>