PGM        PARM(&JOBQUAL &MISEABLANC)
             DCL        VAR(&JOBQUAL) TYPE(*CHAR) LEN(26)
             DCL        VAR(&MISEABLANC) TYPE(*CHAR) LEN(4)
 
             DCL        VAR(&DATA) TYPE(*CHAR) LEN(64)
             DCL        VAR(&DATALG) TYPE(*INT) LEN(4) VALUE(60)
             DCL        VAR(&ERRCODE) TYPE(*INT) VALUE(0)
 
             CHGVAR %SST(&DATA 1 10) 'VEILLEITP'
             CHGVAR %SST(&DATA 11 10) 'AF4TOOL'
             CHGVAR %SST(&DATA 21 26) &JOBQUAL /* JOB QUALIFIÉ */
             CHGVAR %SST(&DATA 47  2) X'0000'  /* ZONE RESERVÉE */
             CHGVAR %BIN(&DATA 49  4) 56       /* OFFSET VERS DATA */
             CHGVAR %BIN(&DATA 53  4)  4       /* LG DE DATA */
             CHGVAR %SST(&DATA 57  4) &MISEABLANC    /* DATA */
 
         /* API d'interruption de travail , si QALWJOBITP=2 */
 
             CALL       PGM(QWCJBITP) PARM(&DATA 'JITP0100' &ERRCODE)
 
             ENDPGM