Savoir si un travail s’exécute en Batch ou en interactif.

Cette info se trouve dans la commande RTVJOBA


PGM &type
DCL VAR(&type) TYPE(*CHAR) LEN(5)
DCL VAR(&wtype) TYPE(*CHAR) LEN(1)
RTVJOBA TYPE(&wtype)
/* Interactif = 1 */
/* Batch = 0 */
IF (&wtype = '1') THEN
CHGVAR VAR(&type) (“INTER”)
ELSE
CHGVAR VAR(&type) (“BATCH”)
ENDPGM

Print Friendly, PDF & Email