V5R3M0 からは SELECT コマンドも使えるようになっている。

RPG では SELECT-WHEN は、使えることが良く知られているが

CLP でも使用可能となると構文がいっそう見やすくわかりやすいものとなる。

0001.00              PGM                                                 
0002.00              DCL        VAR(&OPT) TYPE(*INT) LEN(2)              
0003.00                                                                  
0004.00              SELECT                                              
0005.00              WHEN       COND(&OPT = 1) /* 何もしない */          
0006.00              WHEN       COND(&OPT = 2) THEN(CALL PGM(PGM001))    
0007.00              WHEN       COND(&OPT = 3) THEN(DO)                  
0008.00              ENDDO                                               
0009.00              OTHERWISE  CMD(SNDPGMMSG +                          
0010.00                           MSG(' オプションが正しくない。 ') +    
0011.00                           MSGTYPE(*DIAG))                        
0012.00              ENDSELECT                                           
0013.00              ENDPGM