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 |