Re: Quik question

[EThompson@xxxxxxxx]

can also use arrays, should work in RPG400 or RPGLE

D  oldarr S         1    DIM(6)
D  newarr S         1    DIM(6)

C              movea          oldfield   oldarr
C              z-add          6          i    2 0
C              z-add          6          j    2 0
C    i         dowge          1
C    oldarr(i) ifeq      ' '
C              sub       1         i
C              else
C              move      oldarr(i) newarr(j)
C              sub       1         i
C              sub       1         j
C              endif
C              enddo
C*
C              movea          newarr          newfield
C*

Elonna Thompson
Worldnet Services Corp
Information Technologies
850-432-1700  x2204



                    "DB_Caloway
                    Caloway"                To:     rpg400-l@midrange.com
                    <db_caloway@hotma       cc:
                    il.com>                 Subject:     Re: Quik question
                    Sent by:
                    rpg400-l-admin@mi
                    drange.com


                    10/11/01 02:05 PM
                    Please respond to
                    rpg400-l






Opps sorry I said it all wrong. Sending field is left justfied and but I
would like to be right justified when it gets recieved.
Thanks


>From: "Eric Graeb" <eric_graeb@kingoptical.com>
>Reply-To: rpg400-l@midrange.com
>To: <rpg400-l@midrange.com>
>Subject: Re: Quik question
>Date: Thu, 11 Oct 2001 14:02:33 -0500
>
>I believe MOVEL will give you what you want.
>
>----- Original Message -----
>From: "DB_Caloway Caloway" <db_caloway@hotmail.com>
>To: <rpg400-l@midrange.com>
>Sent: Thursday, October 11, 2001 1:32 PM
>Subject: Quik question
>
>
> > Hi folks, I am trying to move a charcter fiield that is 6 ong to
another
> > field with the same length. The first is right justfied but would like
>it
>to
> > be left justified when moved to the recieving field. Some of the
recodrs
>in
> > the sending file are 6 and some 5,4,3 long.
> > Thanks for your help
> >
> > _________________________________________________________________
> > Get your FREE download of MSN Explorer at
>http://explorer.msn.com/intl.asp
> >
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
>list
> > To post a message email: RPG400-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > or email: RPG400-L-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
>
>_______________________________________________
>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
>To post a message email: RPG400-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
>or email: RPG400-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/rpg400-l.
>


_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.