Re: How to move string value to right?

[Mark Lazarus <mlazarus@xxxxxxxx>]

Hans,

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

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

 How about a plain old MOVE?  Or maybe IBM should include EVAL(R) in the
next release ??  BTW, did XOR make the cut yet?

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