RE: worst RPG ever seen?

I will tell you that the stuff I am working on now will equal that or
aleast a close second.  The VP of IT, self taught RPG expert,
modified a package bought pre-nineties for the last twenty years.  It
is ALWFUL.  Pages of harding, huge compile time arrays, pages of code
and calculations that are nullified after processing because the
critiea with not check prior to the processing.  

Dispite the huge manually maintenace of the system, the company has
grown and expanded.   Now, he can not keep up with the patching of
his patches and the AS400 is going to be replaced by Microsoft.  

Sad...

Eurrat

---- Original Message ----
From: rpg4rico2@xxxxxxxxxxx
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: worst RPG ever seen?
Date: Tue, 28 Feb 2006 15:49:40 +0000

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