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

Jane,

Just a guess, but did you double check that the fields passed to QSNDDTAQ
are defined correctly?

Here is the prototype that I use for RPGLE:

D QSNDDTAQ...
D PR extpgm('QSNDDTAQ')
D i_dtaQ 10A const
D i_lib 10A const
D i_length 5P 0 const
D i_data 65535A const options(*varsize)

Please notice that i_data can be defined up to any size between 1 and 64.
I do not think that i_data as well as all other character fields are the
problem. My best bet is that you did a mistake with i_length because the
field size of i_length is unusual for IBM. Fields i_length has to be
defined as 5P0.

Thomas.

rpg400-l-bounces@xxxxxxxxxxxx schrieb am 17.09.2013 12:54:01:

Von: janetaubman@xxxxxxxxx
An: rpg400-l@xxxxxxxxxxxx,
Datum: 17.09.2013 12:54
Betreff: TCP/IP Buffer to variable in Scott Klement's sample
Gesendet von: rpg400-l-bounces@xxxxxxxxxxxx

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.

--
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.