AW: composing an xml document Using RPG

["Birgitta Hauser" <Hauser@xxxxxxxxxxxxxxx>]

Hendrik,

did you ever use embedded SQL to write directly into the IFS?
Did you had a look at the XML Publishing Functions?
I assume not! 
You think your example is shocking me? You didn't!

You do not need to create a XML document with a single SQL statement (as I did it in the example), you can loop through your tables (or views) build the (nested) elements and attributes including Namespaces concatenate them together etc. ... just in the same way you did in your example.

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!"


-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im Auftrag von Henrik Rützou
Gesendet: Tuesday, 22. May 2012 17:59
An: RPG programming on the IBM i / System i
Betreff: Re: composing an xml document Using RPG

Birgitta,

SQL may be efficient to create a simple, no a very simple XML document, but if you are in the business of transferring business documents you either has to code a lot of business logic and create a lot of inhouse files before and that is double double work.

To give you an example of how complex the code can be I include a sample program creating a danish public invoice


On Tue, May 22, 2012 at 5:08 PM, Birgitta Hauser <Hauser@xxxxxxxxxxxxxxx>wrote:

> If you are already on Release 7.1 you can use the SQL XML Publishing 
> Functions in composition with embedded SQL to write directly into the IFS:
> Example:
>
> D MyXMLDoc        S                   SQLTYPE(XML_CLOB_File)
> D
>  //**********************************************************************
> C/Exec SQL   Set Option  Commit=*None, DatFmt=*ISO, TimFmt=*ISO,
> C+                       Naming=*SYS,  CloSQLCsr=*EndActGrp
> C/End-Exec
>  /FREE
>    Clear MyXMLDoc;
>    MyXMLDoc_Name = '/home/Hauser/MyXMLDoc.xml';
>    MyXMLDoc_NL   = %Len(%Trim(MyXMLDoc_Name));
>    MyXMLDoc_FO   = SQFOVR;                      //Replace if exists
>
>    Exec SQL
>        Select XmlDocument
>                 (xmlgroup(EmployeeNo as "PersNo",
>                           Trim(Trim (FirstName) concat ' ' concat
>                                Trim(Name)) as "PersName",
>                           Address as "Street",
>                           ZipCode as "ZipCode",
>                           City as "City"
>                           Order By City Desc, Name
>                           Option Row "Employee"
>                           Root "Staff"))
>          into :MyXMLDoc
>          From LobStaff;
>
>
>  *InLR       = *On;
>  /END-FREE
>
> 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!"
>
>
> -----Ursprüngliche Nachricht-----
> Von: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> Im
> Auftrag von Amanda Paul
> Gesendet: Tuesday, 22. May 2012 15:39
> An: rpg400-l@xxxxxxxxxxxx
> Betreff:
>
>
> What are the different ways of composing an xml document Using RPG, 
> any examples  ?
>
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing 
> list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, 
> unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a 
> moment to review the archives at http://archive.midrange.com/rpg400-l.
>
>
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing 
> list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, 
> unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a 
> moment to review the archives at http://archive.midrange.com/rpg400-l.


--
Regards,
Henrik Rützou

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