Paul,
I found where I got the copy member - from this article by Scott Klement.
http://iprodeveloper.com/application-development/base64-built-ibm-i
Scott
-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On Behalf Of Scott Mildenberger
Sent: Thursday, December 12, 2013 12:47 PM
To: Web Enabling the IBM i (AS/400 and iSeries)
Subject: Re: [WEB400] Advice on how to process xsd:base64Binary XML element retrieved from a web service.
Paul,
I just recently did this using HTTPAPI where one of the elements was a pdf file Base64 encoded. This is just a proof of concept program so not complete but it does decode the element and save to a file in the IFS. Below is the code in the 'incoming' procedure, my element was in 'PDFData' hence the if at the top. The apr_base64_decode procedure is in a copy member APR_B64_H that I think I got from Scott K's website but not sure as there are no comments identifying its origin. The prototype for the procedure I use is listed at the bottom. I use the same post procedure that you have. If you have questions on the below let me know, this was the first time I have done this but using the examples it all worked fine.
if name = 'PDFData';
PDFData = value;
// Base64 decode
TmpValue = %subst(PDFData : 1 : %len(value));
retlen = apr_base64_decode(PDFData : TmpValue);
// Store PDFData to an ifs file.
unlink('/home/SCOTT/log.pdf');
eval fd = open('/home/SCOTT/log.pdf':
O_WRONLY+O_CREAT+O_CODEPAGE:
S_IRUSR + S_IWUSR + S_IXUSR
+ S_IRGRP + S_IXGRP
+ S_IROTH + S_IXOTH : 819);
if fd < 0;
//callp EscErrno(errno);
//dsply ('RANDRTVLOG Write PDF Error: ' + errno
endif;
if write(fd: %addr(PDFData): retlen)
< retlen;
//eval err = errno;
callp close(fd);
//callp EscErrno(err);
endif;
callp close(fd);
ENDIF;
Prototype:
D apr_base64_decode...
D pr 10i 0 extproc('apr_base64_decode')
D plain_dst 65535a options(*varsize)
D coded_src * value options(*string)
Scott Mildenberger
-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On Behalf Of PReid@xxxxxxxxxxxx
Sent: Thursday, December 12, 2013 11:43 AM
To: web400@xxxxxxxxxxxx
Subject: [WEB400] Advice on how to process xsd:base64Binary XML element retrieved from a web service.
Hello everyone. I've posted this exact same email - pretty much - on Scott Klement's FTPAPI/HTTPAPI mailing list, however I'm not getting any response back, so I thought I'd report my problem here.
I am not very experienced with Web Services so bear with me. I did a fair bit of research on the various forums before posting, but I failed to find a good example of what I am looking for. I'm hoping that someone can help, possibly with an example.
I am predominately an RPG programmer. We are running an IBM Power 7 at V7R1, and I have Scott Klements's HTTPAPI V1.24 downloaded and installed.
I am using HTTPAPI to consume another Web Service and it works beautifully.
My latest challenge it that I have consume a Web Service that includes an element in the XML response that is data type xsd:base64Binary and I'm not really sure how to do it. The WSDL for this web service is:
https://www.myshawtracking.ca/otsWebWS/services/OTSWebSvcs/wsdl/OTSWebSvcs.wsdl
The WIKI for this Web Service is:
https://intinfo.myqualcomm.com/display/iWebInt/ESS+High-Volume+Dequeue
The method that I must consume is named DEQUEUE2.
I have created an RPG program that POSTS a request to the Web Service using the following HTTPAPI subprocedure:
rc = http_url_post_xml(
'https:
//www.myshawtracking.ca:443/otsWebWS/services/OTSWebSvcs'
: %addr(SOAP) + 2
: %len(SOAP)
: *NULL
: %paddr(Incoming)
: %addr(rate)
: HTTP_TIMEOUT
: HTTP_USERAGENT
: 'text/xml'
: '
http://www.qualcomm.com/dequeue2');
I am receiving rc = 1 which I believe means that I am successfully receiving an XML response. FYI - The procedure "Incoming" was copied from Scott Klement's EXAMPLE11.
The response XML is as follows.
<soapenv:Body>
<dequeue2Response>
<dequeue2Return>
<count>6</count>
(transactions>
PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiPz48dHJjaz4=
</transactions>
<transactionIdOut>58744654</transactionIdOut>
</dequeue2Return>
</dequeue2Response>
</soapenv:Body>
The "transactions" element is xsd:base64Binary and I don't know how to decode it. I have downloaded Scott's BASE64R4 service program and I suspect I'd use procedure BASE64_DECODE, but I'm not sure how to use it.
Also...according to the wiki the "transactions" element could be as large as "Approximately 1mb" although I'm not really sure what they mean by approximately??? I'm not sure how to handle something that big.
The "count" and "transactionIdOut" and not encoded and I need the data in them in addition to the encoded data.
I understand that I may not even be using the correct post procedure (remember I'm not that experienced) and in the interim I am going to try some of Scott's other procedures.
Any help or examples on how to get this data would be much appreciated.
Thanks!
___________________________________________________________
Paul Reid
Application Developer III
Erb Group of Companies | 290 Hamilton Road | New Hamburg, Ontario | N3A
1A2
Phone: 519.662.6133 ext. 2363
Web:
http://www.erbgroup.com/
--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing list To post a message email: WEB400@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/web400.
--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing list To post a message email: WEB400@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/web400.
midrange.com
