RE: Retrieve IP adress

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
This is an example I got from somewhere else:

PGM

                 DCL        &ERRORSW *LGL                     /* Std er
                 DCL        &MSGID *CHAR LEN(7)               /* Std er
                 DCL        &MSGDTA *CHAR LEN(100)            /* Std er
                 DCL        &MSGF *CHAR LEN(10)               /* Std er
                 DCL        &MSGFLIB *CHAR LEN(10)            /* Std er
                 DCL        VAR(&DEVD) TYPE(*CHAR) LEN(10)
                 DCL        VAR(&IP) TYPE(*CHAR) LEN(15)
                 DCL        VAR(&RECEIVER) TYPE(*CHAR) LEN(892)
                 DCL        VAR(&LENGTH) TYPE(*CHAR) LEN(4)
                 DCL        VAR(&ERRLENGTH) TYPE(*CHAR) LEN(4)

                 MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(STDERR1))
                 RTVJOBA    JOB(&DEVD)
                 CHGVAR     VAR(%BIN(&LENGTH)) VALUE(892)
                 CHGVAR     VAR(%BIN(&ERRLENGTH)) VALUE(0)

                 CALL       PGM(QDCRDEVD) PARM(&RECEIVER &LENGTH +
                              DEVD0600 &DEVD &ERRLENGTH)
                 CHGVAR     VAR(&IP) VALUE(%SST(&RECEIVER 878 15))
                 SNDPGMMSG  MSG(&IP)

 END:        RETURN

     STDERR1:               /* Standard error handling routine */
                 IF         &ERRORSW SNDPGMMSG MSGID(CPF9999) +
                              MSGF(QCPFMSG) MSGTYPE(*ESCAPE) /* Func ch
                 CHGVAR     &ERRORSW '1' /* Set to fail ir error occurs

     STDERR2:    RCVMSG     MSGTYPE(*DIAG) MSGDTA(&MSGDTA) MSGID(&MSGID
                              MSGF(&MSGF) MSGFLIB(&MSGFLIB)
                 IF         (&MSGID *EQ '       ') GOTO STDERR3
                 SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
                              MSGDTA(&MSGDTA) MSGTYPE(*DIAG)
                 GOTO       STDERR2 /* Loop back for addl diagnostics *

     STDERR3:    RCVMSG     MSGTYPE(*EXCP) MSGDTA(&MSGDTA) MSGID(&MSGID
                              MSGF(&MSGF) MSGFLIB(&MSGFLIB)
                 SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
                              MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE)

                 ENDPGM

Thanks
Dennis Nel

----- Original Message -----
From: "Eric PANISSARD" <epanissard@idt.pf>
To: "Mailing List AS400 (E-mail)" <MIDRANGE-L@midrange.com>
Sent: Wednesday, January 16, 2002 9:46 PM
Subject: Retrieve IP adress


> How I can retrieve the IP adress of my AS400 in a CL program ?
>
> regards
>
> Eric Panissard
> IDT
>
>