Re: Humorous Enhancements

["Denis Robitaille" <DRobitaille@xxxxxxxxxxxx>]

I am one guy who did write code that way in RPGII for the exact reason 
mentioned. When the DO opcode was added, I switch to:

C   99       DO
C* other code
C              END

So remember that some of the stuff that look funny today may have made sense at 
one time.

>>> Douglas Handy <dhandy@isgroup.net> 08/05 5:09 PM >>>
Dale,

>I am NOT making this up:
>
>     C   99      1         IFEQ 1
>     C* Other code
>     C                     END
>
>I've seen some other real head-scratchers, too; I'll post if I find 'em.

This undoubtably came from RPG II code (as its origin).  RPG II does
not support the *INxx method of setting/testing indicators, so when IF
got added (somewhere around v4 of S/36 SSP as I recall), some people
used this or similar code to enable an IF block conditioned by an
indicator.

There is all kinds of ugly stuff floating around with roots in legacy
limitations.

Doug
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com 
+---END


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END