RE: worst RPG ever seen?

This was originally written in RPG III back in 1993 (since converted to RPG
4 with a tool - nobody has otherwise touched it):


     C   L2              If        Bcramt > *ZEROS    
     C                   If        *INL2 = *ON        
     C                             And *IN41 = *ON    
     C                   Except    Bchttl             
     C                   Endif                        
     C                   Endif                        
     C   L2              If        *IN41 = *ON        
     C                             And Type = 'D'     
     C                             And Bcramt > *ZEROS
     C                   If        *INL2 = *ON        
     C                   Exsr      Crtbcr             
     C                   Endif                        
     C                   Endif                        

I just haven't had a chance to slim this one down (mainly because there are
4 different versions of it right now). I will be paring them down to a
single program at some point, though (along with getting rid of the *#&@%$
cycle).

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of rpg4rico2@xxxxxxxxxxx
Sent: Tuesday, February 28, 2006 9:50 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: worst RPG ever seen?

When I first viewed the following, I laughed so hard it hurt.

0307.00 C     XTFREQ        CABNE     ##QTYP        TAG2
0308.00  *                                              
0309.00 C     XTCHKH        IFGE      LDRDTH            
0310.00 C     XTCHKH        ANDLE     LDTDTH            
0311.00 C                   ELSE                        
0312.00 C  N22              GOTO      TAG2              
0313.00 C                   ENDIF                       

Let me know if you have seen worse code.

Rich Woods
Caraustar Industries
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.