Using EVAL

[Guest.Visitor]

Carolyn, There could be a couple of ways to do this. (See Chapter 1.4.4.3 of the ILE RPG/400 Reference manual QBKAQE01 for further reference). Movea '000' *IN(01) I've seen the following done back in RPG/400 (this was probably valid even on the /38). Movea '000' *IN,01 Bill Carolyn Cilla wrote: Using ILE is there a way to set *on or *off a string of indicators? Example: EVAL *in01 = (*in02 = (*in03 = *on)). I have tried this and it doesn't seem to work. Is there a better way.

[Guest.Visitor]

On Tuesday, June 23, 1998, 08:35 AM, Carolyn Cilla wrote: >BR> Using ILE is there a way to set *on or *off a string of indicators? Example: EVAL *in01 = (*in02 = (*in03 = *on)). I have tried this and it doesn't seem to work. Is there a better way. Carolyn, Yes, if the indicators are contiguous you can do it like this.

 D Indicators DS BASED(IndPtr) D iAllowF1 1 1A D iAllowF2 2 2A D iAllowF3 3 3A D D iOptionalKeys 1 3A D D IndPtr S * INZ(%ADDR(*IN)) C EVAL iOptionalKeys = *ALL'0' 

And as a by-product you get named indicators without waiting for V4R2... hth, Derek