Re: Initiate/End a PPP connection from an RPG program

["Mike Silvers" <msilvers@xxxxxxxxxxx>]

Rich,

We have the PPP configured -- I really appreciate this help -- :)

mike

----- Original Message -----
From: "Richard B Baird" <rbaird@xxxxxxxxxxxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Monday, March 03, 2003 10:25 AM
Subject: Re: Initiate/End a PPP connection from an RPG program


>
> Mike,
>
> do you have the connection configured yet?   I didn't set up ours, but I
> can display the configuration descriptions and give you those as well.
>
> I don't know if this is the best way to do this, but here is the CL I use
> to initiate the ptp connection.  It basically monitors the QTCP message
> queue for TCP8344 which is 'connection started' for the comm device.
>
> our line is set up to dial out, and it can take sometimes 2 or 3 minutes
to
> complete the connection.
>
> once TCP8344 is recieved, i do the STRTCPPTP command, and exit the program
> - another program does the FTP and the ENDTCPPTP command to drop the
> connection.
>
> hope this helps,
>
> Rick
>
>
>
>
> /*********************************************************************/
> /*                                                                   */
> /*     PROGRAM : MONPTPCL                                            */
> /*     FUNCTION: start ptp connection and monitor for connect msg    */
> /*     AUTHOR  : Rick Baird  - eSource Consulting                    */
> /*                                                                   */
> /*********************************************************************/
>
>              PGM        PARM(&PARM1)
>
>              DCL        VAR(&PARM1)  TYPE(*CHAR) LEN(32)
>              DCL        VAR(&CFGPRF) TYPE(*CHAR) LEN(10)
>              DCL        VAR(&MSGID)  TYPE(*CHAR) LEN(7)
>              DCL        VAR(&ERROR)  TYPE(*CHAR) LEN(3)
>              DCL        VAR(&COUNT)  TYPE(*DEC)  LEN(2 0) VALUE(0)
>
>              CHGVAR     VAR(&CFGPRF) VALUE(&PARM1)
>
> /* try to alloc msgq - if it fails, wait and try 50 times again */
>
>  ALLOC:      ALCOBJ     OBJ((QTCP *MSGQ *EXCL)) WAIT(0)
>              MONMSG     MSGID(CPF1002) EXEC(DO)
>                CHGVAR     VAR(&COUNT) VALUE(&COUNT + 1)
>
> /* couldn't allocate message queue.  end program            */
>
>                IF         COND(&COUNT > 50) THEN(DO)
>                  SNDPGMMSG  MSGID(CPF9897) MSGF(QCPFMSG) +
>                           MSGDTA('MONPTPCL (' *CAT &PARM1 *TCAT +
>                           ') was unsuccessful.  The QTCP +
>                           message queue could +
>                           not be allocated.') TOUSR(*SYSOPR)
>                  CHGVAR     VAR(&PARM1) VALUE('ERROR')
>                  GOTO       CMDLBL(ENDPGM)
>                ENDDO
>
>                GOTO       CMDLBL(ALLOC)
>              ENDDO
>
>              DLCOBJ     OBJ((QTCP *MSGQ *EXCL))
>
> /* do priming reads on msgq, to clear any lingering messages*/
>
>  READMSGQ1:  CHGVAR     VAR(&MSGID) VALUE(' ')
>
>              RCVMSG     MSGQ(QTCP) WAIT(3) RMV(*NO) MSGID(&MSGID)
>
>              IF         COND(&MSGID *NE '       ') THEN(DO)
>                GOTO    CMDLBL(READMSGQ1)
>              ENDDO
>
> /* start p2p connection                   */
>
>              STRTCPPTP  CFGPRF(&CFGPRF)
>              CHGVAR     VAR(&COUNT) VALUE(0)
>
> /* loop until msg TCP8344 (tcp started) is revieced       */
>
>  READMSGQ2:  CHGVAR     VAR(&MSGID) VALUE(' ')
>
>              RCVMSG     MSGQ(QTCP) WAIT(10) RMV(*NO) MSGID(&MSGID)
>
> /* found the connect message, no error, ready to go      */
>
>              IF         COND(&MSGID *EQ 'TCP8344') THEN(DO)
>                 CHGVAR     VAR(&PARM1) VALUE('        ')
>                 GOTO    CMDLBL(ENDPGM)
>              ENDDO
>
> /*  wait for connection message 80 times, then fail.       */
>
>              CHGVAR     VAR(&COUNT) VALUE(&COUNT + 1)
>
>              IF         COND(&COUNT *GT 80) THEN(DO)
>                SNDPGMMSG  MSGID(CPF9897) MSGF(QCPFMSG) +
>                           MSGDTA('MONPTPCL (' *CAT &PARM1 *TCAT ') +
>                           was unsuccessful. STRTCPPTP command timed +
>                           out before recieving the connect +
>                           message.') TOUSR(*SYSOPR)
>                CHGVAR     VAR(&PARM1) VALUE('ERROR')
>                GOTO       CMDLBL(ENDPGM)
>              ENDDO
>
>              GOTO       CMDLBL(READMSGQ2)
>
> /* connection has been established               */
>
>  ENDPGM:     ENDPGM
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>