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