Re: Using VARLEN DDS keyword

["Peter Dow" <pcdow@xxxxxxxxxxxxxxx>]

Hi Jim,

I remember when you had to do this the hard way with arrays and stuff. Would

    C        EVALR    Char1 = %trim(Char1)

do the same thing?  BTW, did you mean MOVE or is MOVER a new opcode?

Regards,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

----- Original Message -----
From: "Jim Langston" <jimlangston@conexfreight.com>
To: <RPG400-L@midrange.com>
Sent: Monday, January 15, 2001 1:12 PM
Subject: Re: Using VARLEN DDS keyword


> Off the top of my head:
>
> C           Eval   CharTemp = %Trim(Char1)
> C           Eval   Char1 = *Blanks
> C           MOVER  CharTemp     Char1
>
> Char1 = 'NAMEbbbb' to start with.
> CharTemp = 'NAME'
> Char1 = 'bbbbbbbb'
> Char1 = 'bbbbNAME'
>
> Regards,
>
> Jim Langston
>
> Lynette Chronister wrote:
> >
> > 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 Chronister
> > Programmer/Analyst
> > Elizabethtown, PA
> >
> > +---
> > | 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
> > +---
> +---
> | 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
> +---

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