PGM PARM(&IPADR) DCL VAR(&RETOUR) TYPE(*CHAR) LEN(900) DCL VAR(&RETOUR_IP) TYPE(*CHAR) STG(*DEFINED) LEN(15) + DEFVAR(&RETOUR 878) DCL VAR(&BIN) TYPE(*INT) LEN(4) VALUE(900) DCL VAR(&FORMAT) TYPE(*CHAR) LEN(8) VALUE('DEVD0600') DCL VAR(&DEV) TYPE(*CHAR) LEN(10) DCL VAR(&ERR) TYPE(*CHAR) LEN(8) + VALUE(X'0000000000000000') DCL VAR(&IPADR) TYPE(*CHAR) LEN(15) RTVJOBA JOB(&DEV) CALL QDCRDEVD PARM(&RETOUR &BIN &FORMAT &DEV &ERR ) CHGVAR &IPADR &retour_IP ENDPGM
|