RE: %subst as a result.

["Holden Tommy" <Tommy.Holden@xxxxxxxxxxxxxxxxx>]

As to part 2 of the question....eval is a replacement operation no clear
is needed prior to the eval. 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rick baird
Sent: Monday, March 20, 2006 1:22 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: %subst as a result.

your divide by two could result in an intermediate answer with decimal
positions.

decimal positions are invalid for the param of %subst()

try this

d $beg      s                  3s 0

C eval   $beg = (%size(Title) - (%size(%trim((cTitle)) / 2)

C   eval  %subst(Title:$beg) = %trim(ctitle)





On 3/20/06, Booth Martin <booth@xxxxxxxxxxxx> wrote:
> %subst as a result.
>
> I can't figure out two problems I believe are simply solved by others.
>
> I wish to populate a field with a constant, and center the text.
>
> Lets say we have a field called Title that is 40/alpha.
> Lets say we have a constant field of cTitle, with a value of 'Screen
Title"
>
> I know how to do this with several lines of code, but I'd like to use
%subst
>
> I believe this should work, but it doesn't compile:
>
>   C   eval  %subst(Title:
>   C            ((%size(Title) - %size(cTitle) / 2)
>   C             = cTitle
>
> This does not compile and I can't see why not.
>
> If it did compile I would then ask my other question. How does one
also
> clear the target field?  Must that be done first?
>
> --
> -----------------------------------
> Booth Martin
> http://martinvt.com
> -----------------------------------
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>