do until loop in rpgle

•DOU Conditional expression - ENDDO

•DOU repeats until the condition becomes true

–Statements always execute at least once

---------------------------------------------
 Columns . . . :    6  76            Edit                      CHVRAMESH2/MYCLP
 SEU==>                                                                  RPG006
 FMT D  DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++
        *************** Beginning of data *************************************
0001.00 DI                S              2S 0 INZ(0)                           
0002.00 C                   DOU       I >= 6                                   
0003.00 C                   EVAL      I = I+1                                  
0004.00 C     I             IFEQ      4                                        
0005.00         //          LEAVE                                              
0006.00 C                   ENDIF                                              
0007.00 C     I             DSPLY                                              
0008.00 C                   ENDDO                                              
0009.00 C                   SETON                                        LR    
        ****************** End of data ****************************************