V5R3M0 からは CLP でも3つの種類の LOOP命令が使用可能になっている。

1. DOFOR コマンド

   0001.00              PGM                                      
   0002.00              DCL        VAR(&N) TYPE(*DEC) LEN(4 0)   
   0003.00                                                       
   0004.00              /* N= 1  から 10 までの LOOP 処理 */     
   0005.00              DOFOR      VAR(&N) FROM(1) TO(10)        
   0006.00              /* 10 回 LOOP する演算をここに入れる */  
   0007.00              ENDDO                                    

2. DOWHILE コマンド

  0001.00              PGM                                             
  0002.00              DCL        VAR(&N) TYPE(*DEC) LEN(4 0) VALUE(1) 
  0003.00                                                              
  0004.00              /* N= 1  から 10 までの LOOP 処理 */            
  0005.00              DOWHILE    COND(&N < 10)                        
  0006.00              /* 10 回 LOOP する演算をここに入れる */         
  0007.00              CHGVAR     VAR(&N) VALUE(&N + 1)                
  0008.00              ENDDO                                           
  0009.00              ENDPGM                                          

3. DOUNTIL コマンド

  0001.00              PGM                                            
  0002.00              DCL        VAR(&N) TYPE(*DEC) LEN(4 0) VALUE(1)
  0003.00                                                             
  0004.00              /* N= 1  から 10 までの LOOP 処理 */           
  0005.00              DOUNTIL    COND(&N < 10)                       
  0006.00              /* 10 回 LOOP する演算をここに入れる */        
  0007.00              CHGVAR     VAR(&N) VALUE(&N + 1)               
  0008.00              ENDDO                                          
  0009.00              ENDPGM