Re: SYSTOOLS.HTTPPOSTCLOBVerbose

I figured it out, it was easy.. I am surprised that no one is talking about
this cool feature and why I was not able to discover it before :) Finally
IBM made it so easy to call a web API / service.

gUrl =
'http://xyz.com:8080' +
'/InternalServices/InternalServices?'+
'requestType=PAYSVC';
gHeader =
'<httpHeader>' +
'<header name="Content-type" value="text/xml" />' +
'<header name="Host" value="xyz.com:9080" />' +
'</httpHeader>';
gRequest = 'operation=auth' + gLineFeed +
'currencyCode=USD' + gLineFeed +
'routingNo=' + gLineFeed +
'paymentAmount=9439' + gLineFeed +
'txID=33412864' + gLineFeed +
'distributorID=2000000008' + gLineFeed +
'company=USA' + gLineFeed +
'reqid=EC' + gLineFeed +
'refcode=USA1000129' + gLineFeed +
'billCountry=US' + gLineFeed +
'govtid=1234567' + gLineFeed +
'ipaddr=10.77.3.53' + gLineFeed +
'reqsrc=distribNew-ecomm' + gLineFeed +
'opRequestID=EC-USA1000129' + gLineFeed +
'paymentType=VISA' + gLineFeed +
'accountNo=4111111111111111' + gLineFeed +
'processor=PROD.GLOBALCOLLECT.USA' + gLineFeed +
'billProvince=AZ' + gLineFeed +
'billCountryCode=US' + gLineFeed +
'verifyCode=' + gLineFeed +
'accountExprMonth=01' + gLineFeed +
'accountExprYear=2022' + gLineFeed +
'startMonth=' + gLineFeed +
'startYear=' + gLineFeed +
'accountHldrName=Test Visa' + gLineFeed +
'billStreet=TO CAPTURE DSP' + gLineFeed +
'billStreet2=7501 E MCCORMICK PKWY' + gLineFeed +
'billStreet3=' + gLineFeed +
'billStreet4=' + gLineFeed +
'billPostal=85258' + gLineFeed +
'billCity=SCOTTSDALE';
exec sql
SELECT varchar(responseMsg,2048), varchar(responseHttpHeader,512)
INTO :responseMsg, :responseHdr
FROM table( SYSTOOLS.HTTPPOSTCLOBVerbose(
:gUrl,
:gHeader,
:gRequest) ) as InternalServices;




On Sun, Apr 30, 2017 at 7:14 AM, Mohammad Tanveer <surgum@xxxxxxxxx> wrote:

Anyone using this tool on iSeries? I am trying to use it in sqlrpgle and
wondering how to send request body data in raw format. Any ideas?

Following code works to call the service and get response..

gUrl =
'http://dev1.xyz.com:9080/InternalServices/InternalServices?'+
'requestType=PAYSVC';
gHeader =
'<httpHeader>' +
'<header name="Content-type" value="text/xml" />' +
'<header name="Host" value="dev1.xyz.com:9080" />' +
'</httpHeader>';
exec sql
SELECT varchar(responseMsg,2048), varchar(responseHttpHeader,512)
INTO :responseMsg, :responseHdr
FROM table( SYSTOOLS.HTTPPOSTCLOBVerbose(
:gUrl,
:gHeader,
'') ) as InternalServices;