Re: worst RPG ever seen?

rpg4rico2@xxxxxxxxxxx wrote:
> 
> When I first viewed the following, I laughed so hard it hurt.
> 

The thread has wandered off "worst RPG", but I can't resist submitting
this entry anyway.

This code reads through the records of a file, and keeps track of which
customer types are in the file.

        clear   custtypes
        read    custrec
        dow     not %eof
        for     i = 1 to %elem(custtypes)
        if      custtype = i
        eval    custtypes(i) = *on
        read    custrec
        if      %eof
        leave
        endif
        eval    i = 1
        endif
        endfor
        enddo

I don't know which part is better, mixing the read loop with the array
search loop, or the array search itself, where it is looping through the
indexes, searching for an index that matches.

Here's a shorter version of the code that does (almost) the same thing. 
(The difference is that it works correctly when custtype = one)
        clear   custtypes
        read    custrec
        dow     not %eof
        eval    custtypes(custtype) = *on
        read    custrec
        enddo