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