Determining Optimal Index Key Compression Length
5 weeks ago
import PSXP_RPTDEFNMANAGER:*;
import PSXP_XMLGEN:*;
&rs = create PSXP_XMLGEN:RowSetDS();
&rsStg = CreateRowset(Record.STAG_REC);
&rsStg.Fill();
/*Create Schema*/
&mySchema = &rs.GetXSDSchema(&rsStg);
&f1 = GetFile("STAG_XSD.xsd", "W", %FilePath_Relative);
&f1.WriteLine(&mySchema);
&f1.Close();
/*Create Sample XML File*/
&myXMLFile = &rs.GetXMLData(&rsStg, "CU_Add_XSD.xsd");
&f2 = GetFile("STAG_XML.xml", "W", %FilePath_Relative);
&f2.WriteLine(&myXMLFile);
&f2.Close();
The Green Marine template by Ian Main - Converted to Blogger Template by Blogcrowds