• Subject: re: what is unclear about 01 02 03 -Reply
  • From: Scott Cornell <CORNELLS@xxxxxxxxxxxxxxx>
  • Date: Fri, 01 May 1998 15:25:12 -0400

>>> Wynn Osborne <wynn@praxis.net> 04/30/98 01:27am >>>
>>      C   01 02 03                EXSR SR001
>>Can left side indicators be all wrong?  I know, I know.  I won't use
>> them, but really, what is unclear about that line of code?
>Exactly what is an 01, 02, & 03?


Don't let the "geezers" on the list scare you, Wynne - they're usually
harmless, even while resurrecting all kinds of obscure RPG
programming constructs with out actually answering the original
question :)

01, 02, and 03 in the code snippet are references to indicators. 
The RPG language allows for 99 of 'em (ignoring all the obscure and
pre-historic Lx's, Mx's, Cx's, etc.) and they're basically a pre-defined
variable of an "on/off, true/false, yes/no" type - "1" = Yes, True, On
& "0" = No, False, Off.  When 01 is placed in columns 9-10, 12-13,
or 14-15 (not being a geezer, I probably have the actual columns
wrong :)) of RPG III source code, it says "Only execute this line of
code if indicator 01 is "ON", e.g. has a value of "1".  So the line of
code listed above only executes if indicators 01, 02, and 03 all have
a value of "1"

RPG has been slowly moving away from it's dependance on cryptic
indicators (RPV IV only allows 2 left hand column indicators and
provides keyword type replacements for most of those referred to
and not so fondly remembered by the older folks.)  This is, IMHO, all
to the good.  If you don't know what they are, don't start using 'em. 
That'll spare you having all the hair-color changing horror stories
that some of the grizzled veterans on this list enjoy swapping from
time to time ;)

Scott Cornell
Mercy Information Systems

| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].