Re: [EXTERNAL] Re: Converting RPG to free

Hi Alan

RESET and CLEAR CAN have subtle differences - here is something from the ILE RPG Reference -

The CLEAR operation sets all elements in a structure or variable to their default value depending on the field type (numeric, character, graphic, UCS-2, indicator, pointer, or date/time/timestamp).

The RESET operation sets all elements in a structure or variable to their initial values (the values they had at the end of the initialization step in the program cycle).

You are OK in this case, UNLESS you set any of the indicators *ON in an *INZSR subroutine.

So to return to defaults, RESET is the opcode to use.

The info here mentions the program cycle - we are encouraged not to used cycle techniques now, but if converting and older program, you are probably still doing so.

I've not had reason to ask, how does *INZSR relate to non-cycle coding? That seems like a subtlety I've not had to deal with.

Cheers
Vern

On 6/18/2020 10:32 AM, Alan Shore via RPG400-L wrote:

That would probably be it - but I found
Clear *in;

Thanks for the reply

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill


-----Original Message-----
From: Therrien, Paul [mailto:ptherrien@xxxxxxxxxxx]
Sent: Thursday, June 18, 2020 11:30 AM
To: Alan Shore <ashore@xxxxxxxx>; RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: [EXTERNAL] Re: Converting RPG to free

reset *IN;

(No parens.)


-----Original Message-----
From: Alan Shore [mailto:ashore@xxxxxxxx]
Sent: Thursday, June 18, 2020 11:25 AM
To: Therrien, Paul <ptherrien@xxxxxxxxxxx>; RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: [EXTERNAL] Re: Converting RPG to free

Sorry Paul
Didn't like it
Compile error of
RNF7419 - Array index is missing
Let me try a google search

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill


-----Original Message-----
From: Alan Shore
Sent: Thursday, June 18, 2020 11:19 AM
To: Therrien, Paul <ptherrien@xxxxxxxxxxx>; RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: [EXTERNAL] Re: Converting RPG to free

Thanks Paul
Did not know about that
I will give it a go

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill


-----Original Message-----
From: Therrien, Paul [mailto:ptherrien@xxxxxxxxxxx]
Sent: Thursday, June 18, 2020 11:16 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Cc: Alan Shore <ashore@xxxxxxxx>
Subject: RE: [EXTERNAL] Re: Converting RPG to free

I think this will do it:

reset *IN();


-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Alan Shore via RPG400-L
Sent: Thursday, June 18, 2020 11:12 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Cc: Alan Shore <ashore@xxxxxxxx>
Subject: RE: [EXTERNAL] Re: Converting RPG to free

Thanks Vern
I made the change - and Rdi Has no problem with it AND it compiles 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?

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill


-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Vernon Hamberg
Sent: Thursday, June 18, 2020 11:08 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: [EXTERNAL] Re: Converting RPG to free

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

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com