RE: RPG Cycle (was Reinventing Code)

-----Original Message-----
From: PaulMmn [mailto:PaulMmn@ix.netcom.com]
Sent: Tuesday, April 06, 1999 10:09 PM
To: MIDRANGE-L@midrange.com
Subject: RE: RPG Cycle (was Reinventing Code)

snip------

What's the difference between:

C       *IN01            IFEQ   '1'
C       *IN02           ANDEQ   '1'
C       *IN03           ANDEQ   '1'
C                       ...
C                       ENDIF

and

C   01  02  03          DO
C                       ...
C                       ENDDO

Before we had DO loops, a 'pure' RPG/2 programmer would have written:

C  01 02 03             code
C  01 02 03             code
C  01 02 03             code

I'd have written it as:

C       N01
COR     N02
COR     N03             GOTO    END
C                       code
C                       code
C                       code
C               END     TAG

(That course in Boolean Algebra -did- have a valid use!  (:  )

snip----

One of my teachers in school said there are three things about formal logic
you need to know to write computer programs:  the truth table for AND, the
truth table for OR, and DeMorgan's law.  She was right.  I think the above
illustrates that pretty well.  (Some people would add the truth table for
XOR to the list.)
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@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
+---