Variable Feldname

[B.Hauser]

Wäre schön, wenn du da mal einen Link zeigst, wie man aus einer SQL-Table/PF ein neues XML-Dokument erzeugst.

So:

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

Das ist das komplette, kompilier und lauffähige Programm