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
