WATCH sur INACT_MSGQ pour mise en veille

BoTTom | 
           PGM        PARM(&wchoption &session &error &event)
             DCL        VAR(&WCHOPTION) TYPE(*CHAR) LEN(10)
             DCL        VAR(&session)   TYPE(*CHAR) LEN(10)
             DCL        VAR(&error)     TYPE(*CHAR) LEN(10)
             DCL        VAR(&DATA) TYPE(*CHAR) LEN(1024)
             DCL        VAR(&event) TYPE(*CHAR) LEN(1024)
             DCL        VAR(&DATALG) TYPE(*INT) STG(*DEFINED) LEN(4) +
                          DEFVAR(&EVENT)
             DCL        VAR(&OFFSET) TYPE(*INT) STG(*DEFINED) LEN(4) +
                          DEFVAR(&DATA 441)
             DCL        VAR(&MSGLG) TYPE(*INT) STG(*DEFINED) LEN(4) +
                          DEFVAR(&DATA 445)
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(256)
             DCL        VAR(&JOB) TYPE(*CHAR) STG(*DEFINED) LEN(10) +
                          DEFVAR(&MSG)
             DCL        VAR(&USER) TYPE(*CHAR) STG(*DEFINED) LEN(10) +
                          DEFVAR(&MSG 11)
             DCL        VAR(&JOBNBR) TYPE(*CHAR) STG(*DEFINED) +
                          LEN(6) DEFVAR(&MSG 21)
 
 
             chgvar     &data %sst(&event 1 &datalg)
             IF         COND(&MSGLG > 256) THEN(CHGVAR &MSGLG 256)
             chgvar     &msg %sst(&data &offset &msglg)
 
             af4TOOL/SNDVEILLE JOB(&JOBNBR/&USER/&JOB)
             CHGVAR     VAR(&ERROR) VALUE('          ')
 
 
             ENDPGM




©AF400