RE: Numeric to character conversion in RPGIII -- RPG400-L

If SQL or api is not acceptable, I think you probably can use the good old check and xlate opcodes to do the job . It's been a while, here I go ((not pretty but should work):

C Z-ADD100 NUMFLD 50
C MOVE NUMFLD ALPFLD 5
*
* founf the first non 0
C '0' CHECKALPFLD POS 10
*
* if contain leading 0, change all 0 to blanks
* and then put all blanks back to 0 starting from the non 0 pos
C POS IFGT 0
C '0':' ' XLATEALPFLD ALPFLD
C ' ':'0' XLATEALPFLD:POSALPFLD
C ENDIF
*
C MOVE '1' *INLR

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Vaidhyanathan, Prakash
Sent: Tuesday, March 18, 2008 3:00 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Numeric to character conversion in RPGIII

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
--
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.

--
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.

--
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.

--
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.