RE: Numeric to character conversion in RPGIII

Hi Prakash

That's too bad, although I kind of expected it. And the command for compiling is different, although not hard.

RPG III does not have a REPLACE opcode, e.g. SQL has a replace() function that is very powerful. If you want to replace apostrophes with 2 apostrophes, every time it occurs, this is a great solution. The code would look like this

c/exec sql
c* set :yourvar = replace(:yourvar, '''', '''''')
c/end-exec

yourvar is a character variable in your program - you put colons in front, because it is a host variable. It's that simple.

But I still understand that everyone there would need to go along with this.

HTH
Vern

At 02:00 PM 3/18/2008, you wrote:

Hi Vern,
SQL is taboo subject here. People are concerned that they might not be able to debug SQL statements

Thanks,
Prakash

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Vernon Hamberg
Sent: March 18, 2008 9:02 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Numeric to character conversion in RPGIII

David

SQL is a great idea - the SET statement gives the OP all kinds of possibilities, including trimming and conversion functions like DIGITS and REPLACE - as you know!

But maybe those who are reluctant to go to RPG IV would be just as leary of SQL - we shall see. I hope they are at a fairly new release of the OS.

Vern

At 02:51 AM 3/18/2008, you wrote:

>API ?! Is there something I'm missing ? Why didn't anyone suggest SQL?
>Presuming you have that possibility.
>
>-----Message d'origine-----
>De : rpg400-l-bounces@xxxxxxxxxxxx
>[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Vaidhyanathan,
>Prakash Envoyé : lundi 17 mars 2008 22:26 À : RPG programming on the
>AS400 / iSeries Objet : Numeric to character conversion in RPGIII
>
>Hello,
> Is there a way to suppress leading zeros while moving a numeric
>field to an alpha field in RPGIII (both fields have same length).
>Unfortunately my shop uses RPGIII and is loathe to convert to RPG1V.
>Please help
>
>Thanks,
>Prakash