Hi guys,
we are using a client generate by imtkmake using MICRO FOCUS SERVER EXPRESS 5.1 for pSeries running AIX installed on the customer machine that sometime failed with error code 0200.
After various tests we identified what could be a possible cause, i.e. the size of the buffer containing the request was shorter than the request itself. We therefore extended the initial size that had been generated by imtkmake bringing it from the value 100000 to the value 150000 but the result did not change and we always get the error 02000.
The counterparty receiving the request told us that data recevid it is truncated despite the size of the buffer that contains it.
I couldn't find information on error 02000, what is the cause that generates it or where can I check to determine the cause??
Is it possible to extend the size of the buffers provided for requtest/respons?
These are code use to made the call to the webservice :
CALL "elaboraRichiesta"
using elaboraRichiesta-parms
returning wsc-ret-code
entry "elaboraRichiesta"
using elaboraRichiesta-parms.
move request
of elaboraRichiesta
of input-parms
of elaboraRichiesta-parms
to request
of elaboraRichiesta
of wsc-parameters-part0002-01
set wsc-proc-ptr to entry "nxwscrun"
set wsc-ptr-arg (1)
to address of wsc-parameters-part0002-01
set wsc-ptr-arg (2)
to address of wsc-parameters-part0004-01
move 256 to wsc-srvc-faultcode-len
move 256 to wsc-srvc-faultstring-len
call "InvokeService02"
using value 2 1 0 0
reference
wsc-idt
wsc-ptr-args
wsc-srvc-address
n"elaboraRichiesta"
n"elaboraRichiesta"
n"">services.auto.generali.it"
wsc-srvc-username
wsc-srvc-password
value
wsc-srvc-address-len
16 16 32
wsc-srvc-username-len
wsc-srvc-password-len
reference
wsc-special-registers
wsc-spec-reg-lens
wsc-srvc-faultcode
wsc-srvc-faultcode-len
wsc-srvc-faultstring
wsc-srvc-faultstring-len
returning wsc-ret-code
if wsc-ret-code = 0
move elaboraRichiestaReturn
of elaboraRichiestaResponse
of wsc-parameters-part0004-01
to elaboraRichiestaReturn
of elaboraRichiestaResponse
of output-parms
of elaboraRichiesta-parms
end-if
exit program returning wsc-ret-code.
entry "get-srvc-faultcode"
using srvc-faultcode-parm srvc-faultcode-len-parm.
move wsc-srvc-faultcode to srvc-faultcode-parm
move wsc-srvc-faultcode-len to srvc-faultcode-len-parm
exit program.
and the data strucure is :
*******Operation: name="elaboraRichiesta"
01 elaboraRichiesta-parms.
03 input-parms.
05 elaboraRichiesta.
07 request pic x(150000). -NOTE- original size was 100000
03 output-parms.
05 elaboraRichiestaResponse.
07 elaboraRichiestaReturn pic x(150000).
01 wsc-parameters-part0002-01.
03 elaboraRichiesta.
05 request pic x(150000).
Any help will be appreciated
Thank in advance.
Paolo

