PGM   GOTO WATCH /* MISE EN PLACE */ CRTMSGQ MSGQ(QGPL/INACT_MSGQ) CHGSYSVAL SYSVAL(QINACTITV) VALUE(15) CHGSYSVAL SYSVAL(QINACTMSGQ) VALUE('QGPL/INACT_MSGQ')   /* LANCEMENT */   WATCH: STRWCH SSNID(VEILLE) WCHPGM(AF4TOOL/VEILLEWCH) + WCHMSG((CPI1126)) WCHMSGQ((INACT_MSGQ))   ENDPGM |