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