× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.