Might as well do directly without the need to calc QQ
*IN(30+HH)=*On;
And for the MOVEA
Clear *In()
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Alan Shore via RPG400-L
Sent: Thursday, June 18, 2020 10:53
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Cc: Alan Shore <ashore@xxxxxxxx>
Subject: Converting RPG to free
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
Confidentiality Warning/Avertissement de confidentialité:
This message is intended only for the named recipients. This message may contain information that is privileged or confidential. If you are not the named recipient, its employee or its agent, please notify us immediately and permanently destroy this message and any copies you may have. Ce message est destiné uniquement aux destinataires dûment nommés. Il peut contenir de l'information privilégiée ou confidentielle. Si vous n'êtes pas le destinataire dûment nommé, son employé ou son mandataire, veuillez nous aviser sans tarder et supprimer ce message ainsi que toute copie qui peut en avoir été faite.
midrange.com
