IF-ELSE atau IF pada AS400 tidak berbeda dengan bahasa pemrograman lainnya. Berikut penggunaan fungsi IF-ELSE pada AS400:
PGM
DCL VAR(&DATA1) TYPE(*DEC) LEN(1) VALUE(1)
DCL VAR(&DATA2) TYPE(*CHAR) LEN(5) VALUE('YES')
/* IF USING DECIMAL VARIABLE */
IF COND(&DATA1 = 1) THEN(SNDPGMMSG MSG('Value +
match'))
ELSE CMD(SNDPGMMSG MSG('Value not match'))
/* IF USING CHARACTER VARIABLE */
IF COND(&DATA2 = 'YES') THEN(SNDPGMMSG +
MSG('VALUE YES'))
ELSE CMD(SNDPGMMSG MSG('VALUE NOT YES'))
/* IF USING CHARACTER - RETURN FALSE */
IF COND(&DATA2 = 'NO') THEN(SNDPGMMSG +
MSG('VALUE YES'))
ELSE CMD(SNDPGMMSG MSG('FALSE VALUE'))
ENDPGM

Compile dan jalankan program.
