Re: Moving a field and removing blanks

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Hi Elbert,

> When I code subfiles with multiple line formats.
> I'll code the sfl record with a single 79 character field

Hmmm... now THAT is something I do all the time.  (I mean *all* the 
time...  though... not usually to a subfile, but more commonly to an IFS 
text file.)

However, I've not needed to right justify text when I do it.  I just do 
something like this:

  eval  output = %editc(Custno:'X') + ' '
               + CustName + ' '
               + %char(InvDate:*MDY) + ' '
               + %editc(InvAmt: 'L')
               ... etc...

The numbers are right-justified within their allotted space because the 
output of %EDITC does exactly that.  It's very simple.

If I did have a character field that I needed to right-justify, I would 
have an allotted space within the output field (i.e. the positions that 
represent that particular column) where that field would go, so it'd be 
easy to do (in this example, occupying positions 41-50 of the 'subfile'):

      evalr %subst(output: 41: 10) = %trim(ccode);

Or, if there's a lot of it, I might use a data structure.

But, in any event, no need to have an evalr(O) option, because the 
columns 41-50 are allocated to that field, I don't have to worry about 
blanking them out and filling them in...

In Pete's case he wanted to occupy the last X spaces of a field (where X 
is the string length) without erasing anything else.  Sure, it can be 
done with %SUBST or %REPLACE but it's a bit more involved because you 
have to calculate the starting position and length first.  THAT is the 
situation that comes up only rarely.