Re: Help with Big string to insert in Xml Tag with PEXTCD2's xmlNode

Hi Gio,

and here is how you may get the appended file back from the xml in the
example ...

xmlFromStmf('/giotest.txt');
xmlReaderInz(xmlAddr:xmlSize);

dow xmlReader = 0;
select;
when xmlGetNode = '/file';
b64Store2 = storeNew();
storeInz(b64Store2);
storeAppend(b64Store2:xmlAddrInner:xmlSizeInner);
storeToStmf(b64Store2:'/giotest2.txt':1208);
storeFree(b64Store2);
endsl;
enddo;

On Tue, Sep 11, 2018 at 12:37 PM Henrik Rützou <hr@xxxxxxxxxxxx> wrote:

Hi Gio,

Here is an example ...

// Creating large elements from file
/copy qsrc,pxapihdr
/copy qsrc,pxapicgicn

d b64store s 10i 0

/free
clearSrvPgm();
setContent('*none');

// Allocate a Store and load base64 string from file into it.
// up to 1,000 stores may be allocated
b64store = storeNew();
storeInz(b64Store);
storeFromStmf(b64store:'/csordr20.txt');

xmlNode('xml');

xmlNode('fileName':'':'filewithbase64'); // normal small (up to 64K
node)

// clob node
// create a manual xml-element that contains the file
echo('<file type="base64Binary">':*off:*off);
storeAppend(0:storeAddr(b64store):storeSize(b64store));
storeFree(b64store);
echo('</file>');

xmlEndNode();

echoToStmf('/giotest.txt':1208);

*inlr = *on;


On Mon, Sep 10, 2018 at 9:46 PM gio.cot <gio.cot@xxxxxxxxxxx> wrote:

I forgot : the value of the big string , is stored in a stream file ...
any idea ?
Thnaks in advance



Da: gio.cot [mailto:gio.cot@xxxxxxxxxxx]
Inviato: lunedì 10 settembre 2018 17:40
A: 'rpg400-l@xxxxxxxxxxxx' <rpg400-l@xxxxxxxxxxxx>
Oggetto: Help with Big string to insert in Xml Tag with PEXTCD2's xmlNode



Hi all



I would need to create an Xml file to use for consuming a Web service via
LIBHTTP/http_url_post_stmf ; in this Xml, i have some tags, that can
have very big strings: i.e. file’s Base64Binary content .. that can
bigger
than 65535 Bytes (my need is this works also in V5R4) .

For creating Xml i use xmlNode of PEXTCD2 ; example

…..

xmlNode('file'

:'xsi:type="'+ 'xsd:base64Binary' +'" '

:'ZA4aavbWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiPz48
………………………….' // <-- This my Big String

);

….

How could i manage this situation ?

Any suggestion will be apreciated !!

Thanks in advance



---
Questa e-mail è stata controllata per individuare virus con Avast
antivirus.
https://www.avast.com/antivirus
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

--
Regards,
Henrik Rützou

http://powerEXT.org <http://powerext.org/>