Loop pada CLP AS400

Saya akan membahas mengenai penggunaan looping pada AS400. Jika pada pemrograman lain kita bisa menggunakan fungsi for, do-while atau lainnya. Looping pada CLP AS400 menggunakan fungsi LABEL dan fungsi IF.

PGM                                                               
             DCL        VAR(&COUNTER) TYPE(*DEC) LEN(2) VALUE(1)  
             DCL        VAR(&PRINT) TYPE(*CHAR) LEN(2)            
                                                                  
 LOOP:       IF         COND(&COUNTER = 10) THEN(GOTO CMDLBL(EOP))
             ELSE       CMD(DO)                                   
             CHGVAR     VAR(&PRINT) VALUE(&COUNTER)               
             SNDPGMMSG  MSG(&PRINT)                               
             CHGVAR     VAR(&COUNTER) VALUE(&COUNTER + 1)         
             ENDDO                                                
             GOTO       CMDLBL(LOOP)                              
 EOP:        ENDPGM                                                                                        

Compile dan jalankan program.

Tinggalkan Balasan