Re: Converting RPG to free

On Thu, 18 Jun 2020 at 10:53, Alan Shore via RPG400-L
<rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

Here is that line including the converted line before it

Qq = 30 + Hh;
C MOVE '1' *IN(QQ)

This is (I believe) switching on an indicator *in01 through *in99 inclusive
If I am wrong, by all means let me know

More importantly - how can this be converted to free

MOVE is a very sexy opcode. It can do a LOT of things.
It gets a lot simpler to understand when Factor 2 and Result are both
CHAR(1), as they are in this case.

Factor 2 is a CHAR(1) because there is only one character between the
delimiters.
Result is a CHAR(1) because *IN is an array of 1 character variables.

MOVE replaces the contents of the array element with the literal '1'.
MOVE doesn't affect any other elements, because the literal is only 1 character.

It often helps me to think of a single array element as a regular
field with a funny name.

--buck