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.
