interruption du JOB pour mise en veille

BoTTom |
             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




©AF400