Re: SYSTOOLS.HTTPPOSTCLOBVerbose

[Mohammad Tanveer <surgum@xxxxxxxxx>]

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;