Re: TCP/IP Buffer to variable in Scott Klement's sample

[Michael Ryan <michaelrtr@xxxxxxxxx>]

What's the value of DtaqLen? I think that should be the length of what
you're putting in the data queue. So a line like:

C            Eval DtaqLen = %Len(recbuf)

Might help. You may also want to %trim it first.


On Tue, Sep 17, 2013 at 6:54 AM, Jane Taubman <janetaubman@xxxxxxxxx> wrote:

> A little background, I am an old iSeries programmer,  but we have been
> using a 4GL tool for years, so I don't have any experience with RPGLE
>
> I have been trying to use the Scott Klement Tutorial to build a simple
> TCP/IP client to replace a PC program we have to grab a line from an open
> socket and send it down a dataQ and then to send the response from another
> dataQ back down the socket.
>
> I have the sending down the socket working,  but I am not handling the
> receipt of data correctly and the call to QSNDDTAQ fails with "Scalar
> operand contains a value that is not valid"
>
> The code I have is
> c                   callp     WrLine(sock: dqdw     )
> C                   eval      rc = rdline(sock: %addr(recbuf):
> c                                         %size(recbuf): *On)
> c     DtaqUp        dsply
> c     recbuf        dsply
> c                   move      *blank        dqup
> c*                  movel     recbuf        dqup
> c                   call      'QSNDDTAQ'
> c                   parm                    DtaqUp
> c                   parm                    DtaqLib
> c                   parm                    DtaqLen
> c                   parm                    dqup
> c
>
> recbuf displays fine, but the movel is obviously the wrong way to transfer
> it.
>
> Please could someone point out the error of my ways or to the point in the
> tutorial which I need to understand.
>
> --
> Jane.
> --
> This is the RPG programming on the IBM i (AS/400 and 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.