Re: Example socket program to send data to a non IBM i device

[Richard Schoen <Richard.Schoen@xxxxxxxxxxxxxxx>]

Not sure if this exactly what you're trying to do but I believe if you want to control timeout on connect you need to use the select operation.

See Scotts tutorials on this. Otherwise socket connect timeouts can be long or can lock the app. 

https://www.scottklement.com/rpg/socktut/tutorial.html


Regards,
Richard Schoen 
Director of Document Management 
e. richard.schoen@xxxxxxxxxxxxxxx 
p. 952.486.6802 
w. helpsystems.com 
----------------------------------------------------------------------

message: 1
date: Mon, 4 Mar 2019 12:30:27 -0500
from: a4g atl <a4ginatl2@xxxxxxxxx>
subject: Re: Example socket program to send data to a non IBM i device

I finally got the code from the older hardware. I still have the long timeout. I am posting the code for review.

Thanks

Darryl Freinkel.

     C*************************************************
     C* Create a socket
     C*************************************************
     c                   eval      sock = socket(AF_INET: SOCK_STREAM:
     c                                           IPPROTO_IP)
     c                   if        sock < 0
     c                   eval      msg = 'Error calling socket()!'
     c                   dsply                   msg
     c                   return
     c                   endif

     C*************************************************
     C* Create a socket address structure that
     C*   describes the host & port we wanted to
     C*   connect to
     C*************************************************
     c                   eval      addrlen = %size(sockaddr)
     c                   alloc     addrlen       p_connto

     c                   eval      p_sockaddr = p_connto
     c                   eval      sin_family = AF_INET
     c                   eval      sin_addr = IP_address
     c                   eval      sin_port = port
     c                   eval      sin_zero = *ALLx'00'

     c                   eval      flags = fcntl(sock: F_GETFL)
     c                   if        flags < 0
     c                   eval      flags = flags
    debug
     c                   Endif

     c*                  callp     FD_ZERO(writeset)

     c*                  eval      flags = flags + O_NONBLOCK
     c                   eval      flags = %bitor(flags : O_NONBLOCK)

     c                   callp     FD_SET(sock : writeset)

     c                   select
     c                   when      rc = -1
     c                   exsr      error_message
     c                   callp     close(sock)
     c                   return
     c                   Endsl

     C*************************************************
     C* Connect to the requested host
     C*************************************************
     C                   if        connect(sock: p_connto: addrlen) < 0
     c                   eval      msg = 'unable to connect to server!'
     c*                  dsply                   msg
     c                   exsr      error_message



On Thu, Feb 28, 2019 at 5:21 PM a4g atl <a4ginatl2@xxxxxxxxx> wrote:

> Scott
>
> Apologies for the delay in responding. The system I developed the code 
> on was the old hardware and to my surprise it was decommissioned with 
> the admins checking with me. I am waiting for the Library to be 
> restored so that I can be more specific with what I tested. I do 
> remember trying the non blocking option too but will confirm tomorrow I hope.
>
> @Richard, unfortunately I am not a .net person.
>
> I will look at Python as it will run on the IBMi, but everyone would 
> prefer the RPG option.
>
> Thanks
>
> On Thu, Feb 28, 2019 at 8:53 AM Richard Schoen via MIDRANGE-L < 
> midrange-l@xxxxxxxxxxxxxxxxxx> wrote:
>
> > I haven't been following this thread closely, but I have a thought 
> > for you.
> >
> > You should be able to create a VB.Net or C# app that connects to the 
> > device.
> >
> > Once you test it on the PC in Visual Studio you can move the EXE over 
> > to IBMi using the new Mono .Net functionality.
> >
> > You'll probably more readily find .Net examples than RPG ones.
> >
> > Food for thought.......
> >
> > Regards,
> > Richard Schoen
> > Director of Document Management
> > e. richard.schoen@xxxxxxxxxxxxxxx
> > p. 952.486.6802
> > w. helpsystems.com
> > ------------------------------