PH607F on AS/400 define using Right Justify in QUICK

Peter Bateman shediac92@hotmail.com
Thu, 2 Jan 2003 10:27:43 -0400


Daniel & Steve:

Right justify has to establish  a right hand margin. It gets this from the
size of the source not the target.
Steve you created a 12 byte string defined item  which  became your source
for right justify.
This could also be accomplished with the substring function. Substring pads
with blanks on the right
if there are less  than the length parameter source characters available.

define disp-1mo char*12 = rj((cconvert(t-1mo,,6) + "%")[1:12])

----- Original Message -----
From: "Daniel Mielke" <DMielke@aic.com>
To: "'Steve T Wright'" <Steve.Wright@Nevamar.com>
Cc: "Powerhouse List (E-mail)" <powerh-l@cube.swau.edu>
Sent: Monday, December 30, 2002 3:24 PM
Subject: RE: PH607F on AS/400 define using Right Justify in QUICK


> Thanks Steve, that worked..
>
> -----Original Message-----
> From: Steve T Wright [mailto:Steve.Wright@Nevamar.com]
> Sent: Monday, December 30, 2002 1:49 PM
> To: Daniel Mielke
> Subject: Re: PH607F on AS/400 define using Right Justify in QUICK
>
>
>
> Daniel,
>
> Don't know why... but sometimes you must create an intermediate step in
> order to make conversions and right adjust work correctly in Powerhouse..
>
> For example..
>
> disp-1mo-temp char*12 = (cconvert(t-1mo,,6) + "%")
> disp-1mo      char*12 = rj(disp-1mo-temp)
>
> Hope this works.... steve wright
>
>
>
>
>
>
> "Daniel Mielke" <DMielke@aic.com>@cube.swau.edu on 12/30/2002 01:33:05 PM
>
> Sent by:    powerh-l-admin@cube.swau.edu
>
>
> To:    "Powerhouse List (E-mail)" <powerh-l@cube.swau.edu>
> cc:
> Subject:    PH607F on AS/400 define using Right Justify in QUICK
>
>
> Hi all,
>
> t-1mo is a float*11
>
> define disp-1mo char*12 = rj((cconvert(t-1mo,,6) + "%")) doesn't seem to
> work.  Any clues?
>
> Thanks
>
> > BUY. HOLD. AND PROSPER.
> >
> > Daniel Mielke
> > Business Systems Analyst
> > AIC Limited
> > 1-888-710-4242 (4614)
> > dmielke@aic.com
> > www.aic.com
> >
> >
> = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> Mailing list: powerh-l@lists.swau.edu
> Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
> Unsubscribe: "unsubscribe" in message body to
> powerh-l-request@lists.swau.edu
> http://lists.swau.edu/mailman/listinfo/powerh-l
> This list is closed, thus to post to the list you must be a subscriber.
>
>
>
>
>
> = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> Mailing list: powerh-l@lists.swau.edu
> Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
> Unsubscribe: "unsubscribe" in message body to
powerh-l-request@lists.swau.edu
> http://lists.swau.edu/mailman/listinfo/powerh-l
> This list is closed, thus to post to the list you must be a subscriber.
>