How to move string value to right?

["Hans Boldt" <hboldt@xxxxxxxxxxxx>]

Suresh <as4_tlsp1@sriven.scs.co.in> wrote:

> Hi All !
>
> In RPG value for string operation will be moved to left of result
> field.Would anyone please tell me how to move the value to right of result
> field for string operation.
>
> Thanks in advance,
>
> Suresh K.N

There are lots of ways of right-adjusting data within a field.  Here are
a couple of methods.  The second performs the right-adjusting in just
one statement.  But I would guess that the first is faster.  (The second
one requires V3R7.)

-----------------------------------------------------------------------
 1    * "i" is a numeric field.
 1   C     ' '           checkr    field         i
 1   C                   if        i <> %size (field)
 1   C                   eval      field = %subst (field:i+1)
 1   C                                   + %subst (field:1:i)
 1   C                   endif
-----------------------------------------------------------------------

-----------------------------------------------------------------------
 2    * "blanks" is a character field as large as field "field" and
 2    * initialized to all blanks.
 2   C                   eval      field = %subst(blanks:1
 2   C                                 :%len(field)-%len(%trimr(field)))
 2   C                                  + field
-----------------------------------------------------------------------

Cheers!  Hans

Hans Boldt, ILE RPG Development, IBM Toronto Lab, hboldt@vnet.ibm.com
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---