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