#16 BUILD iSeries Toolkit error when no *CURLIB

[Anonymous]

Running CL BUILD loops when an error occurs during
compile.

The global
MONMSG CPF0000 EXEC(GOTO ERROR)

passes control to

ERROR:
CHGCURLIB &CURLIB
IF (&LIBLCHG) THEN(RMVLIBLE &SRCLIB)
ENDPGM

the &CURLIB was saved at program start
RTVJOBA CURLIB(&CURLIB)

but if there is no CURLIB the value in &CURLIB is
*NONE and the CHGCURLIB &CURLIB failes and loops
to the same tag ERROR.