You forgot:

    01N02 03
AN 07N08 05
OR 01 N02 03
AN N15 23          GOTO TAG01

01 N02 03 repeated to account for the lack of parenthesis in l-hand
indicators.

-Walden
-----Original Message-----
From: owner-midrange-l@midrange.com
[mailto:owner-midrange-l@midrange.com]On Behalf Of York, Albert
Sent: Friday, May 01, 1998 5:18 PM
To: 'MIDRANGE-L@midrange.com'
Subject: RE: what is unclear about 01 02 03 -Reply


I'm glad you said we geezers are -usually- harmless. Don't get us
started about MFCUs.

By the way. you forgot to mention that the indicator could optionally
have an 'N' in front of it (ie N01 02N03) which means it must be OFF
instead of ON. There also could be AN (for and) or OR in front of the
indicators.

This would lead to code like this:

    01N02 03
AN 07N08 05
ORN15 23          GOTO TAG01

What's not to like?

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

Replies:

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 here. If you have questions about this, please contact [javascript protected email address].