"There's more than one way to skin a cat", as the saying goes.
Thanks
-----Original Message-----
From: Birgitta Hauser [mailto:Hauser@xxxxxxxxxxxxxxx]
Sent: Friday, September 07, 2018 12:24 AM
To: 'Midrange Systems Technical Discussion' <midrange-l@xxxxxxxxxxxx>
Subject: RE: Replace text in XML file
What about SQL?
With File Reference Variables it is possible to directly access IFS files with SQL.
A reference File returns (internally) only a pointer on the IFS file data.
File reference variables can be handled with SQL functions like any character variable.
Something like this
//Define Input and Output IFS Files
DCL-S FromXMLFile SQLTYPE(XML_CLOB_FILE);
DCL-S ToXMLFile SQLTYPE(XML_CLOB_FILE);
//Initialize Input and output IFS File Names/Operations
FromXMLFile_Name = '/Dir/NextDir/YourXML.xml';
FromXMLFile_NL = %Len(%Trim(FromXMLFile_Name);
FromXMLFile_FO = SQFRD; //File Read
ToXMLFile_Name = FromXMLFileName;
ToXMLFile_NL = FroXMLFileNL;
ToXMLFile_FO = SQFOVR; //Override existing File
//Replace all occurrences of the empty tag in
Exec SQL Set :ToXMLFile = XMLParse(Document Replace(XMLSERIALIZE(:FromXMLFile),
'<YourEmptyTag/>',
'<YourXMLReplacement>xxx</YourXMLReplacement>'));
//Check the SQLCODE or SQLSTATE
//If everything is OK, the all occurrences of the empty tag should be replaced.
Note: I've currently no access to an IBM I and wrote the code by heart.
May be XMLParse and XMLSerialize are NOT necessary.
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them and keeping them!"
"Train people well enough so they can leave, treat them well enough so they don't want to." (Richard Branson)
-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxx> On Behalf Of Justin Taylor
Sent: Donnerstag, 6. September 2018 18:27
To: MIDRANGE-L (midrange-l@xxxxxxxxxxxx) <midrange-l@xxxxxxxxxxxx>
Subject: Replace text in XML file
I have an XML IFS file < 1 MB in size. I need to replace an empty tag.
This is within an existing RPG pgm, so I figured it would be simple enough to use the IFS API's to read the file, manipulate the text and write it back out. Well I managed to crash the compiler (seriously.. dump spooled files, WRKPRB entry, the works). While I wait on IBM support, I decided to go looking for a better option. About all I've found is talk about XML-INTO & XML-SAX to deserialize XML. That isn't really practical here, since my input and output will both be IFS files.
Any suggestions?
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: <mailto:MIDRANGE-L@xxxxxxxxxxxx> MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: <
https://lists.midrange.com/mailman/listinfo/midrange-l>
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: <mailto:MIDRANGE-L-request@xxxxxxxxxxxx>
MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at <
https://archive.midrange.com/midrange-l>
https://archive.midrange.com/midrange-l.
Please contact <mailto:support@xxxxxxxxxxxx> support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
<
http://amzn.to/2dEadiD>
http://amzn.to/2dEadiD
midrange.com
