Re: Sockets problem

[Ron@xxxxxxxxxx]

I just use the term to indicate a program that uses the socket  API's to
talk to another machine.

Ron Hawkins



                    Justin Houchin
                    <jhouchin9@charte        To:     rpg400-l@midrange.com
                    r.net>                   cc:
                    Sent by:                 Subject:     Re: Sockets problem
                    rpg400-l-admin@mi
                    drange.com


                    04/22/02 09:38 AM
                    Please respond to
                    rpg400-l






What is a socket program?

Thanks,
Justin Houchin
Programmer
Reliatek, Inc
----- Original Message -----
From: <Ron@cpumms.com>
To: <rpg400-l@midrange.com>
Sent: Monday, April 22, 2002 11:33 AM
Subject: Sockets problem


>
> We are in the process of writing a new sockets program to talk to a new
> vendor., The vendor is the server and we are the client. We connect to
them
> OK and then send our information. This is where the problem occurs. They
> hand off the connection to another socket and they still see us connected
> to the first socket, so they don't get the information we send.  Is there
> any coding we have to do to handle the new connection? I thought it was
> done "automagically" but I'm beginning to think not.
>
> Heres what we run:
>
>  Create a socket descriptor for the server process to bind.
>                   EVAL      SrvrSktId = Socket(AF_INET
>                                                   :SOCK_STREAM
>                                                   :0)
>
> ** Set socket descriptor to be reuseable.
>       c             EVAL      RtnCd = SetSockOpt(SrvrSktId
>       C                                               :SOL_SOCKET
>       C                                               :SOL_REUSEADDR
>       C                                               :%ADDR(On)
>       C                                               :%SIZE(On))
>
>
>   *   Connect to the server
>         C                   Eval      RtnCd = Connect(SrvrSktId:
>         C                                            %Addr(ServerAddr) :
>         C                                            %Size(ServerAddr)  )
>         C                   EVAL      svaddrlen = %SIZE(serveraddr)
>
>
>
>        C                   IF        NOT *IN68
>        C                   EVAL      RtnCd2 = Write(SrvrSktId
>        C                                           :%ADDR(ReceiveDs)
>        C                                           :ReceiveLen)
>
> Any help would be greatly appreciated.
>
>
>
> Ron Hawkins
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.