RE: Old rpg Left Justify ?

[David FOXWELL <David.FOXWELL@xxxxxxxxx>]

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


Dagnabbit :-(

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