RE: Old rpg Left Justify ?

-----Message d'origine-----
De : David FOXWELL
Envoyé : lundi 20 septembre 2010 15:15
À : 'RPG programming on the IBM i / System i'
Objet : RE: Old rpg Left Justify ?


C/EXEC SQL
C+ SET : NEWFIELD = CHAR ( OLDFIELD ) FROM SYSIBM/SYSDUMMY1
C/END-EXEC

C/EXEC SQL
C+ SET : NEWFIELD = CHAR ( OLDFIELD )
C/END-EXEC

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Smith, Mike
Envoyé : lundi 20 septembre 2010 14:57 À : RPG programming

on the IBM

i / System i Objet : Old rpg Left Justify ?

I have a old rpg program that I need to make a change to.
I need to left justify a right justified field.
For instance. FLDA is 6.0 contains 000123 I need to put

it in FLDB

which is 6 alpha. I need the result to be '123 '
This is not a program I can convert to ile.

As a side note, I have this working, but it seems like so

much code to

do this.
I'm just wondering if there is a simpler method than what I came up
with.

Thanks

Mike



NOTICE: This message, including any attachment, is intended as a
confidential and privileged communication. If you have

received this

message in error, or are not the named recipient(s), please
immediately notify the sender and delete this message.
--
This is the RPG programming on the IBM i / System i
(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.