Re: [EXTERNAL] Re: Converting RPG to free

On 2020-06-18 11:11 a.m., Alan Shore via RPG400-L wrote:

...
But I found another line of old code (missed it before) but this is the last line of old code

C MOVEA *ZERO *IN

Is there a free form equivalent of this - or do I need to create a loop clearing each indicator?

Lots of suggestions for using Clear, which works fine.

I just wanted to mention one other way. All of of these will set all the elements of *IN to zero.
*IN = *ZERO;
*IN = *OFF; // I think this one is even clearer than CLEAR
*IN = '0';

I would not use RESET to set all the indicators to '0'. RESET causes the compiler to save off the value of *IN at the beginning of the program, so it uses up extra storage and extra time (ok, not very much storage or time, but still ...). I would only use RESET for times when I had some complicated code to do the initial initialization.