RE: [EXTERNAL] Re: RPG COMP HiLoEq

THAT’S the important piece of information
The question then becomes - in what order
If the LO is switched on first - in10 is switched on
Then if the Eq is then switched off
In10 is switched off
You will never get a correct value for Lo

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 Joe Pluta
Sent: Monday, May 18, 2020 8:38 AM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: [EXTERNAL] Re: RPG COMP HiLoEq

Not only does COMP set on the corresponding indicator, it sets off any others that are specified.

     C           1         COMP 1                    344864

Is shorthand for:

     C                     SETOF                     3448
     C                     SETON                     64


Back in the days when obscurity was a virtue.  :)


On 5/18/2020 5:36 AM, Barbara Morris wrote:

On 2020-05-17 3:39 p.m., Bruce Vining wrote:

...
Did this ever bring back old memories :)  Anyone remember 'A' in
column 66, or '__ __ 99' when scribbling RPG on a pad of paper (for
later entry when in the office as there was no access to the system
from home in the 70s/early 80s)? lol

Wow Bruce, that's impressive memory. The only columns I know for sure
are columns 6 and 7. And 81, I guess.

I do remember writing '__ __ 99' on paper!

But what I really want to know is: Who all in this thread was sure
enough about how COMP works that they didn't have to write a little
program to verify it?

I had to try both OPM and ILE RPG to be sure. (Of course, everyone was
correct.)

Here's my OPM RPG program, showing off my MOVEA skills!

C           *ENTRY    PLIST
C                     PARM           V1     155 C                    
PARM           V2     155 C           V1        COMP V2                  
101011 C                     MOVEA*IN,10    RES     2 C          
'10-11'   DSPLY          RES C                     RETRN

call #junk   (1 1)

  DSPLY  10-11    01

call #junk   (1 2)

  DSPLY  10-11    10

call #junk   (2 1)

  DSPLY  10-11    10

--
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