PGM PARM(&DATA &DATALG) DCL VAR(&DATA) TYPE(*CHAR) LEN(32) DCL VAR(&DATALG) TYPE(*INT) LEN(4) DCL VAR(&MISEABLANC) TYPE(*CHAR) LEN(4)   CRTDTAARA DTAARA(QTEMP/VEILLE) TYPE(*LGL) MONMSG CPF1023 EXEC(RETURN) /* EXISTE DEJA */   CHGVAR VAR(&MISEABLANC) VALUE(%SST(&DATA 1 4))   AF4TOOL/VEILLE MISEABLANC(&MISEABLANC)   DLTDTAARA DTAARA(QTEMP/VEILLE)   ENDPGM |