Retrieve the IP address of a PPP connection
Art Tostaine, CCA, Inc.

Monitor for a PPP connection to the Internet, retrieve the dynamic IP address assigned by the ISP's DHCP server and then send the IP address to the QSYSOPR message queue and send the IP address as an email message.

This code is not warranted in any manner and should be used as a progamming example.

PGM PARM(&EMAIL) DCL VAR(&EMAIL) TYPE(*CHAR) LEN(4) DCL VAR(&MSG) TYPE(*CHAR) LEN(132) DCL VAR(&MSG2) TYPE(*CHAR) LEN(2000) DCL VAR(&MSGID) TYPE(*CHAR) LEN(7) DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(14) DCL VAR(&ERROR ) TYPE(*CHAR) LEN(3 ) ADDLIBLE CCALIB MONMSG CPF0000 /* TRY TO ALLOCATE MESSAGE QUEUE, IF FAILS, ENDPROGRAM */ ALCOBJ OBJ((QTCP *MSGQ *EXCL)) WAIT(0) MONMSG MSGID(CPF1002) EXEC(GOTO CMDLBL(ENDPROGRAM)) DLCOBJ OBJ((QTCP *MSGQ *EXCL)) /* WAIT HERE FOREVER FOR MESSAGE TCP8344 WITH IP ADDRESS */ WAITAGAIN: CHGVAR VAR(&MSGID) VALUE(' ') RCVMSG MSGQ(QTCP) WAIT(*MAX) RMV(*NO) MSG(&MSG) + SECLVL(&MSG2) MSGDTA(&MSGDTA) MSGID(&MSGID) IF COND(&MSGID *EQ 'TCP8344') THEN(GOTO + CMDLBL(IPSTARTED)) IF COND(&MSGID *EQ 'TCP8343') THEN(GOTO + CMDLBL(IPENDED)) /* Ended */ GOTO CMDLBL(WAITAGAIN) /* SEND MESSAGE TO SYSOPR */ IPSTARTED: SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&MSG) + TOUSR(*SYSOPR) /* SEND EMAILS TO EVERYONE TO TELL THEM OF THE NEW ADDRESS */ IF (&EMAIL *EQ '*YES') THEN(DO) SNDDST TYPE(*LMSG) + TOINTNET((someone@somewhere.com)) + DSTD(DESCRIPTION) MSG('Host IP Address + is' *BCAT &MSGDTA) LONGMSG(' ') + SUBJECT('Host now connected to the + internet') ENDDO GOTO CMDLBL(WAITAGAIN) IPENDED: SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&MSG) + TOUSR(*SYSOPR) GOTO CMDLBL(WAITAGAIN) ENDPROGRAM: ENDPGM