Re: Converting RPG to free

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

This is setting exactly 1 indicator on - you can use this -

*IN(QQ) = *ON;

Indicators *IN01 to *IN99 can also be specified in the *IN() array, 
which is of dimension 99. Assuming that QQ is a numeric variable, this 
sets 1 element in the array.

Do you have to guarantee that QQ is no larger than 99?

HTH
Vern

On 6/18/2020 9:53 AM, Alan Shore via RPG400-L wrote:
> Hi everyone
> Before I forget - we are on V7r3
>
> Whenever I have to make a change to an RPG program, I ALLWAYS convert that to ILE as the first step
> If the program is not a monolith, I am now converting to free as well
> With that being said - I have come across a piece of code that I don't know what to do with, and its just 2 separate lines - both the same
>
> 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
>
> As always - all replies GREATLY appreciated
>
>
>
> Alan Shore
> E-mail : ASHORE@xxxxxxxx<mailto:ASHORE@xxxxxxxx>
> Phone [O] : (631) 200-5019
> Phone [C] : (631) 880-8640
> 'If you're going through hell, keep going.'
> Winston Churchill