Ü  ITER (Iterate)

·         It can be used in DO, DOU, DOUxx, DOW, DOWxx, and FOR loops to transfer control immediately to a loop's ENDDO or ENDFOR statement.

·         It causes the next iteration of the loop to be executed immediately.

·         ITER affects the innermost loop.




     C                   DOW       *IN03=*OFF
     C   03              LEAVE
     C                   EXSR      PROCESS
     C                   IF        C_OPT=*ZEROS
     C                             AND *IN66=*OFF
     C                             AND *IN99=*OFF
     C                             AND FLAG='0'
     C                   EXSR      DSPLY
     C                   ITER
     C                   ENDIF
     C                   EXSR      SHOWSFL
     C                   ENDDO
     C                   SETON                                        LR


User Comments:

Copyright © www.go4as400.com, 2013-2023. Copyright notice   Terms of services   Privacy policy