RE: How would you code an infinite RPG loop - Was 1 <> 1 is true???

In programming, there are mostly opinions about how something should be done 
rather than absolutes.  Were I writing the code in this case, it would appear 
as follows:

EVAL WKEndTheLoop = 'N'
DOW WKEndTheLoop <> 'Y'
    If data queue is not full
        EVAL WKEndTheLoop = 'Y'
    ENDIF
ENDDO

In my opinion, this makes the code clearer.  Any maintenance programmer can 
look at the DOW condition and know exactly what will cause the loop to end and 
thus for what to search.  

Donald R. Fisher, III
Project Manager
RoomStore, Inc.
(804) 784-7600 ext. 2124
dfisher@xxxxxxxxxxxxx

<clip>
        DoW 1 = -1
                If data queue is not full
                        leave
                EndIf
        EndDo

If this isn't the way one should do this kind of thing, how should it be
done?
<clip>