|
Récupérer l'état d'un travail |
|
Voici un petit programme pour récupérer l'état d'un travail.
Il utilise l'api QUSRJOBI
PGM PARM(&JOB &STATUS) /*-----------------*/
/* RÉCUPÉRATION DU STATUS D'UN JOB */
/* STRUCTURE DU PARAMÈTRE JOB 26 : */
/* <NOMJOB ><USER ><NUM > */
/* EXEMPLE : 'RTVJOB PLBERTHOIN108919' */
/*------------------------------------------------------------*/
DCL &JOB *CHAR 10 /*NOM DU TRAVAIL*/
DCL &STATUS *CHAR 10 /* STATUS DU TRAVAIL */
DCL &RETOUR *CHAR 111 /* INFORMATION DE RETOURS */
DCL &RETOURLG *CHAR 4 /* Longueur */
CHGVAR VAR(%BIN(&RETOURLG)) VALUE(111)
/*------------------------------------------------------------*/
/* APPEL DE L'API QUSRJOBI avec FORMAT JOBI0200 */
/* as400bks.rochester.ibm.com/iseries/v5r2/ic2924/info/apis/qusrjobi.htm*/
/*------------------------------------------------------------*/
CALL QUSRJOBI PARM( +
&RETOUR +
&RETOURLG +
'JOBI0200' +
&JOB +
' ' +
X'00000000')
MONMSG MSGID(CPF3C00) EXEC(DO)
chgvar &STATUS ('*erreur')
GOTO CMDLBL(SUITE)
ENDDO &nbp;
/*------------------------------------------------------------*/
/* INTERPRÉTATION DE LA VARIABLE DE RETOURS */
/*------------------------------------------------------------*/
CHGVAR &STATUS %SST(&RETOUR 51 10)
suite:
SNDMSG (&STATUS) TOUSR(*REQUESTER)
ENDPGM
PE |
 |
| ... |
|