Re: justifying a character variable

[bmorris@xxxxxxxxxx]

>Date: Mon, 15 Jan 2001 15:38:03 -0500
>From: "Lynette Chronister" <lchronis@MasonicHomesPA.org>
>
>what is the easiest way to right justify a character variable.
>example
>
>char1 = 'NAMEbbbbb' (b = blanks)
> i want 'bbbbbNAME'
>
>i can get this done, im just thinking there HAS to be an easier way.
>TIA
>oh, p.s. im writing in 400 not ILE.

Lynette,

Here's a way to do this in RPG/400: use CHEKR to find the
length of the data, subtract that length from the full
length to get the number of blanks, and then use CAT,
specifying that number of blanks (where 50 is the length
of CHAR1)

C           ' '       CHEKRCHAR1     LEN     50
C           100       SUB  LEN       BLK     50
C           ' '       CAT  CHAR1:BLK CHAR1

You didn't say how you were already doing it; maybe this isn't
any easier.

If you want to avoid hard-coding the 100:

C           *LIKE     DEFN CHAR1     LENCH1
C                     MOVE 'Z'       LENCH1
C           ' '       CHEKRLENCH1    TOTLEN  50
C           ' '       CHEKRCHAR1     LEN     50
C           TOTLEN    SUB  LEN       BLK     50
C           ' '       CAT  CHAR1:BLK CHAR1

Barbara Morris


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---