I put a real cut down example from one of my programs at
http://code.midrange.com/fd30d3d3bb.html
In production we use http_url_post_stmf to send an xml file that we have
created on the ifs to a web service and get an xml file back containing
the base64 data. I then process the file with the http_parse_xml_stmf
routine. Response is the xml tag with the base 64 data in it. If you put
sample XML in the file pointed to by the Response variable, it will
decode it and write it to a file pointed to by the DecodedResp variable.
umedheader has bnddir('UMEDBNDDIR':'QC2LE').
Umedbnddir has these entries pointing to the service programs.
BASE64R4 *SRVPGM *LIBL
EXPAT *SRVPGM *LIBL
HTTPAPIR4 *SRVPGM *LIBL
The copy files for the headers came from the articles on Scott Klement's
page.
-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx]
On Behalf Of PReid@xxxxxxxxxxxx
Sent: Thursday, December 12, 2013 2:50 PM
To: Web Enabling the IBM i (AS/400 and iSeries)
Subject: Re: [WEB400] Advice on how toprocess xsd:base64Binary XML
element retrieved from a web service.
Thank-you very much for your help Scott - tomorrow is experimentation
for me - see if I can get it to work. I will report back here either
way.
Thanks again and have a great evening.
___________________________________________________________
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/
From: Scott Mildenberger <SMildenberger@xxxxxxxxxxxxxxxxxx>
To: "Web Enabling the IBM i (AS/400 and iSeries)"
<web400@xxxxxxxxxxxx>
Date: 12/12/2013 03:35 PM
Subject: Re: [WEB400] Advice on how to process xsd:base64Binary
XML element retrieved from a web service.
Sent by: web400-bounces@xxxxxxxxxxxx
Paul,
You will see the link in another email about the article that has the
copy member with the prototypes. All of the commented lines are just
because this is a proof of concept version and when I was
troubleshooting in debug I simplified the program for my benefit. At
some point soon I will clean it up and uncomment most of those lines
before I create a production version. Retlen is defined 10i 0 and
correct that the write is writing to the ifs, it is in an if statement
because it returns a value indicating if it was successful or not. All
the IFS routines I got from Scott Klement's site at
http://www.scottklement.com/presentations/ - see the one RPG and the
IFS, there is a presentation there explaining them.
Scott
-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx]
On Behalf Of PReid@xxxxxxxxxxxx
Sent: Thursday, December 12, 2013 1:20 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.
Thanks Scott... I have a few questions about your code.
It looks as if several of your lines of code are commented out...is
that correct???
//callp EscErrno(errno);
//dsply ('RANDRTVLOG Write PDF Error: ' + errno
//eval err = errno;
//callp EscErrno(err);
I see where you open a new file on the IFS - where do you write to it.
Is it the
"if write(fd: %addr(PDFData) : retlen)" - this looks like it's
checking for an error???
What size should is define "retlen"?
I cannot find "apr_base64_decode" anywhere in the code I downloaded from
Scott...is this maybe an IBM API?
___________________________________________________________
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/
From: Scott Mildenberger <SMildenberger@xxxxxxxxxxxxxxxxxx>
To: "Web Enabling the IBM i (AS/400 and iSeries)"
<web400@xxxxxxxxxxxx>
Date: 12/12/2013 02:46 PM
Subject: Re: [WEB400] Advice on how to process xsd:base64Binary
XML
element retrieved from a web service.
Sent by: web400-bounces@xxxxxxxxxxxx
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/OTSWebSv
cs.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.
--
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.
--
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.
Kevin Bucknum
Senior Programmer Analyst
MEDDATA/MEDTRON
Tel: 985-893-2550
midrange.com
