RE: worst RPG ever seen?

When I worked for a software house back in the very early nineties, one of
the team leaders "developed" some skeleton programs for subfile processing
that he wanted us all to use.

The only thing was that in his subfile loading subroutine he was
conditioning the start or end (I can't remember which) with an indicator,
sort of 


     C   N70             DO
        .
        .
     C                   END

Or

     C                   DO
        .
        .
     C   N70             END

We were able to avoid using his skeletons because we'd developed our own
subfile skeletons which we had been using for a couple of months already.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of rpg4rico2@xxxxxxxxxxx
Sent: 28 February 2006 15:50
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