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