RE: Right side comments

Booth M wrote:
>Egad man, thousands of lines between IF & END?  
>Even in RPG III you can make subroutines as you go. 

You know that.  I know that.  Unfortunately, the people who originally wrote
the code didn't really worry about such things.  When working on RPG III
code for a customer who insists on keeping it RPG III, it's difficult to
create a meaningful subroutine name with only six characters to work with.
If I'm feeling ornery, I resort to SR0001, SR0002, SR0003...

The kind of code I'm talking about is when somebody discovered *IN03 DOWEQ
'0', and a thousand lines later the matching END.  Then, wrapped in that,
there's an EXFMT, *IN03 IFEQ '0' and 998 lines later comes the END.  And
then...

Yuck.

Buck 
+---
| 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
+---