Re: Free-Format Question

[Jon Paris <Jon.Paris@xxxxxxxxxxxxxx>]

On 29-Feb-08, at 5:11 PM, Jerry Adams wrote:

> I neglected to ask her, though, just what is the purpose/function  
> of =+
> or =- (both of which I have, as I said, fat fingered).  I tried to  
> find
> an explanation of the =+ in Jim Martin's book on Free-Format and in  
> both
> the ILE RPG Reference and Programmer's Guide manuals for an  
> explanation
> of what =+ or =- is for.

Maybe Jim's book didn't mention it because it is not actually a /Free  
issue.  This syntax has always existed in EVALs (i.e. Since the  
original V3R1 release). Not sure why it wouldn't be mentioned in the  
manual though. The -varName just negates the value.  +varName is  
effectively a no-op.

This:

d  a              s              9  0 inz(25)
d  b              s             11s 0 inz(-50)
 /free
  dsply ('a = ' + %char(a) + ' and -a = ' + %char(-a));
  dsply ('b = ' + %char(b) + ' and -b = ' + %char(-b));

Produces this:

DSPLY  a = 25 and -a = -25
DSPLY  b = -50 and -b = 50


Jon Paris

www.Partner400.com
www.SystemiDeveloper.com