Dana, I used HTTPAPI without any changes at all…
basically installed it and ran the RPG program. I attached the RPG listing to
my last post as an attachment but it might have been stripped. Here it is
again: H DFTACTGRP(*NO) ACTGRP(*NEW)
BNDDIR('LIBHTTP/HTTPAPI')
D/copy
libhttp/qrpglesrc,httpapi_h
D count s 10I
0 D rc s 10I
0 D x s 10I
0 D msg s
52A D CRLF C
CONST(x'0d25') D data S 1024A
Varying *
D odslist ds
occurs(200) D ods_STRING 1024A
varying ** D addCount
PR D void
* D depth 10I 0
value D name 1024A
varying const * D mapData
PR D void
* D depth 10I 0
value D name 1024A
varying const D path 24576A
varying const D value 32767A
varying const *
c eval *inlr =
*on /free data ="" '<?xml version="1.0"
encoding="utf-8"?>' + CRLF + '<soap:Envelope
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"' + '
xmlns:xsd="http://www.w3.org/2001/XMLSchema" ' +
'xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">' + CRLF
+ ' <soap:Body>' + CRLF
+ ' <LoadROList
xmlns="http://rcis.com/">' + CRLF + ' <sintCropYear>2005</sintCropYear>'
+ CRLF + '
<sintStateId>27</sintStateId>' + CRLF + '
<sintInsuranceType>11</sintInsuranceType>' + CRLF + ' </LoadROList>' + CRLF + ' </soap:Body>' + CRLF
+
'</soap:Envelope>';
http_debug(*On); rc =
http_url_POST_XML('http://dvcifyiapp1:8080/' +
'CimaxReturnType_clsXMLReturn.asmx' : %addr(data) +
2 :
%len(data) :
%paddr(addCount) :
%paddr(mapData) :
*NULL :
HTTP_TIMEOUT : HTTP_USERAGENT : 'text/xml;
charset=utf-8' :
'"http://rcis.com/LoadROList"');
if rc <>
1; msg =
http_error(); dsply msg;
endif;
for x = 1 to
count; %occur(odslist) =
x;
endfor;
return; /end-free
P addCount
B D addCount
PI D void
* D depth 10I 0
value D name 1024A
varying const /free
if name =
'LoadROListResult'; count = count +
1; %occur(odslist) =
count; endif; /end-free
P
E
P mapData
B D mapData
PI D void
* D depth 10I 0
value D name 1024A
varying const D path 24576A varying
const D value 32767A
varying const /free
if name =
'LoadROListResult'; ods_STRING =
%trim(value); endif; /end-free
P
E
From: owner-
|