RTVIPADR





 

Retrouve l'adresse IP d'une session TELNET



             CMD        PROMPT('Retrouve adr IP pour TELNET')
             PARM       KWD(RTNADR) TYPE(*CHAR) LEN(15) RTNVAL(*YES) +                           MIN(1) PROMPT('variable pour adresse +                           IP(15c.)')

 

CPP de la commande RTVIPADR



            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





©AF400