Re: %subst as a result.

[Mel Rothman <mel@xxxxxxxxxxxxxx>]

An additional thought: if the third parameter of %subst is not specified, anything that 
was in title to the right of where cTitle is substituted, is replaced with blanks.  If the 
entire contents of title are to be preserved (except for the positions to be replaced by 
cTitle), the third parameter must be the size of cTitle.

In the following code, the results without and with the third parameter are:
      ....5...10...15...20...25...30...35...40...45...50...55...60
 1   'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxHello                   '
61   '                    '

and

      ....5...10...15...20...25...30...35...40...45...50...55...60
 1   'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxHelloxxxxxxxxxxxxxxxxxxx'
61   'xxxxxxxxxxxxxxxxxxxx'

Here is the code:

D Title           s             80    inz(*all'x')
D cTitle          c                   'Hello'
 /free
   %subst(title:%int((%size(title) - %size(ctitle)) / 2)) = cTitle;
   reset title;
   %subst(title:%int((%size(title) - %size(ctitle)) / 2):
     %size(cTitle)) = cTitle;
   *inlr = *on;
 /end-free

Mel Rothman


Mel Rothman wrote:
> Rick Baird hit the nail on the head.
>
> The second parameter of %subst must be an integer value. If the length of cTitle is odd, 
> dividing it by 2 gives a non-integer result. Adding %int, as shown below, compiles and 
> runs correctly.
>
> /free 
>
>    title = %subst(title:%int((%size(title) - %size(cTitle) / 2)));
> /end-free
>
> Booth Martin 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?