9 2 ÜԛŨ 858ýΗּ""חۼ.|lZýΗּ""Ӎמ؝mAQMԳŭ0CLCרݪ" ; հΗּ""ӍŎּ""ýΗּ""ӍŎּ""ýΗּ""ӍŎּ""ýΗּ"kFwוĜ8594㝡xmlview xmlview english xmlview xmlview dddxmlview AAxmlview 0xmlview *ALL english 22  03/01/2315:21:03 APPLICATION AAxmlview 03/01/2114:50:34Untitled Untitled xmlCount1 YAxmlview 03/01/2114:51:10Count Standard component for XML processing. zzzxmlCount1 YAxmlview 1 0 Count xmlCount2 YAxmlview 03/01/2114:51:10Count Standard component for XML processing. zzzxmlCount2 YAxmlview 1 0 Count xmlDefault YAxmlview 03/01/2114:51:10Default value. Default value used in XML access. zzzxmlDefault YAxmlview 10 Default xmlElement YAxmlview 03/01/2114:51:10Element Name Standard component for XML processing. zzzxmlElement YAxmlview 10 Element xmlElement1 YAxmlview 03/01/2114:51:10Element Name Standard component for XML processing. zzzxmlElement1 YAxmlview 10 Element xmlElement2 YAxmlview 03/01/2114:51:10Element Name Standard component for XML processing. zzzxmlElement2 YAxmlview 10 Element xmlError YAxmlview 03/01/2114:51:10Error Standard component for XML processing. zzzxmlError YAxmlview 120 Error xmlFile YAxmlview 03/01/2114:51:10File Name Standard component for XML processing. zzzxmlFile YAxmlview 10 File xmlFunction YAxmlview 03/01/2114:51:10Function Standard component for XML processing. zzzxmlFunction YAxmlview 120 Function xmlHits YAxmlview 03/01/2114:51:10Hits Standard component for XML processing. zzzxmlHits YAxmlview 1 0 Hits xmlHtml YAxmlview 03/01/2114:51:10HTML File Standard component for XML processing. zzzxmlHtml YAxmlview 10 HTML xmlKey YAxmlview 03/01/2114:51:10XML Key Standard component for XML processing. zzzxmlKey YAxmlview 10 Key xmlOption YAxmlview 03/01/2114:51:10XSLT Options XSLT Options for passing parameters. Standard component for XML processing. zzzxmlOption YAxmlview 10 Option xmlOuterkey YAxmlview 03/01/2114:51:10Outer Key Standard component for XML processing. zzzxmlOuterkey YAxmlview 10 OuterKey xmlSchema YAxmlview 03/01/2114:51:10XML Schema Standard component for XML processing. zzzxmlSchema YAxmlview 10 XML Schema xmlSchemaPath YAxmlview 03/01/2114:51:10XML XSD Path Standard component for XML processing. zzzxmlSchemaPath YAxmlview 10 Schema Path xmlStylesheet YAxmlview 03/01/2114:51:10Stylesheet Standard component for XML processing. zzzxmlStylesheet YAxmlview 10 Stylesheet xmlSubset YAxmlview 03/01/2114:51:10Subset Standard component for XML processing. zzzxmlSubset YAxmlview 120 Subset xmlSubset2 YAxmlview 03/01/2114:51:10Subset Name Standard component for XML processing. zzzxmlSubset2 YAxmlview 120 Subset xmlValue YAxmlview 03/01/2114:51:10Untitled Untitled zzzxmlValue YAxmlview 10 Untitled cxmlview iAxmlview  / = " " / @ = " " xmlview iAxmlview 03/01/2314:57:06Untitled Untitled    Display EAxmlview VYu .6\b+Kxmlview+"Kxmlviewxmlview+++!Jxmldata Filename++ "R 0+++" IncludeValues5+ +"-param IncludeValues 'True'++#-param IncludeValues 'False'+)++J+xmldataxmlviewtreedata+++Treetreedata++#/2Failed to open xml data file.+)4 xmlOption Display EAxmlview 03/01/2315:20:22Display XML Display XMl as TreeView. Display EAxmlview 0021Rp >a<NOTE --- Get XSLT from BLob:TEXT *RELEASE "xmlview"%TEXT *LOAD "xmlview" *BLOB= "xmlview"!NOTE --- Open the xml file / url:XML *OPEN "xmldata" S-FilenameIF *XMLSTAT = 0 THEN3 NOTE --- Convert the xmldata to treeview format:! IF S-IncludeValues = *YES THEN1 L-xmlOption = "-param IncludeValues 'True'" ELSE2 L-xmlOption = "-param IncludeValues 'False'" ENDIF_ XML *TRANSFRM *SUBSET= "xmldata" *BUFFER= "xmlview" *SUBSET= "treedata" *OPTION= L-xmlOptionF NOTE --- Render the treedata data subset to the Tree XML Container:, SCREEN *RENDER "Tree" *SUBSET= "treedata"ELSE/ ERROR "2Failed to open xml data file."; EXITENDIFTree EAxmlview pRUX["3JPSV+++5J TreeEvent/uim/TreeView/Current/@Id++  Value+ XMLKey+++Jxmldata+ "R 0+ +$/2Element or key does not exist.++* Value+ Value Value+)+++ XMLKey Value4  xmlElement xmlValue Tree EAxmlview 03/01/2315:20:06Tree event. Display the current xml key and value. YYYTree EAxmlview 0019N ^9/NOTE --- Display the current xml key and value:.NOTE --- which nodes was selected in the tree:HXML *READ "TreeEvent" *ELEMENT= "/uim/TreeView/Current/@Id" L-xmlElement S-Value = ""S-XMLKey = L-xmlElement 0 THEN* ERROR "2Element or key does not exist."ELSE S-Value = *TRIM(L-xmlValue) SHOW *REFRESH S-ValueENDIFNOTE --- Update display:SHOW *REFRESH S-XMLKey S-ValuexmlTransformSBS EAxmlview 03/01/2114:51:10XSL Transformation Wrapper for XSL transformation. Standard component for XML processing. xmlTransformSBS EAxmlview 0020PEK(9k@EXPECTS xmlSubset xmlStylesheet xmlSubset2 xmlOption xmlFunction?NOTE --- Expects SBS: Subset name, buffer name and subset name.IF L-xmlOption *BLANK THENT XML *TRANSFRM *SUBSET= L-xmlSubset *BUFFER= L-xmlStylesheet *SUBSET= L-xmlSubset2ELSEi XML *TRANSFRM *SUBSET= L-xmlSubset *BUFFER= L-xmlStylesheet *SUBSET= L-xmlSubset2 *OPTION= L-xmlOptionENDIFIF *XMLSTAT <> 0 THENR *ERROR = "2Error in XSLT (" *TRIM(L-xmlStylesheet) ") in " *TRIM(L-xmlFunction) ERROR *ERROR0 NOTE --- Store source and xslt for diagnosis:* XML *WRITE L-xmlSubset "debug_xslt.xml" TEXT *REMOVE "debug_xslt.xsl"6 TEXT *WRITE *FILE= "debug_xslt.xsl" L-xmlStylesheetENDIF EXIT *XMLSTATxmlValidate EAxmlview 03/01/2114:51:11Validate XML Validate XML file against XSD schema. Standard component forXML access. ///xmlValidate EAxmlview 0021Rm>nEXPECTS xmlFile xmlSchemaXML *OPEN "tmpval" L-xmlFile0NOTE --- First check if the file is well-formed:IF *XMLSTAT <> 0 THEN L-xmlError = *ERRTEXTELSEH NOTE --- Now check if the data validates against the supplied schema:. XML *VALIDATE "tmpval" *SCHEMA= L-xmlSchema IF *XMLSTAT = 0 THEN L-xmlError = "" ELSE L-xmlError = *ERRTEXT ENDIF XML *CLOSE "tmpval"ENDIFEXIT L-xmlError/NOTE --- Blank return signifies valid document.xmlview SAxmlview 03/01/2315:21:03XML Viewer Display XML data in a TreeView. xmlview SAxmlview [SysScreen];15C:29;157:167;159:2371;15E:11433;15D:6;1D:N;29:3;174:Y;196:N;1B6:N;1BB:1;1BC:1;[SysScreenCont];14E:_Root;150:0;14C:0;14D:2371;151:11433;152:0;F2:3;1A0:Y;21:1;17D:Y;9F:N;19F:N;3C:24;12B:N;18:Y;3B:1;19:N;F3:N;173:N;3D:XML Viewer;1B3:N;[SysScreenField];14E:Pb1;14F:_Root;150:33;14C:10050;14D:131;151:1150;152:8;E1:D;F2:3;6F:Y;1A0:Y;2:Y;17D:Y;9F:N;19F:N;122:Y;19C:N;111:N;E3:N;1E:N;1A:N;6D:N;B4:N;B3:N;AE:N;1C:N;AA:N;1B5:N;1C3:N;1C4:1;[SysScreenField];14E:Filename;14F:_Root;150:38;14C:200;14D:108;151:9600;152:7;F2:3;6F:Y;1A0:Y;2:Y;17D:Y;9F:N;19F:N;122:Y;19C:N;111:N;E3:N;1E:N;1A:N;6D:N;B4:N;B3:N;AE:N;1C:N;AA:N;1B5:N;1C3:N;1C4:1;[SysScreenField];14E:IncludeValues;14F:_Root;150:157;14C:183;14D:100;151:1567;152:1;F2:3;6F:Y;1A0:Y;2:Y;17D:Y;9F:N;19F:N;122:Y;19C:N;111:N;E3:N;1E:N;1A:N;6D:N;B4:N;B3:N;AE:N;1C:N;AA:N;1B5:N;1C3:N;1C4:1;[SysScreenField];14E:Tree;14F:_Root;150:238;14C:150;14D:2892;151:11100;152:6;F2:3;6F:Y;1A0:Y;2:Y;17D:Y;9F:N;19F:N;122:Y;19C:N;111:N;E3:N;1E:N;1A:N;6D:N;B4:N;B3:N;AE:N;1C:N;AA:N;1B5:N;1C3:N;1C4:3;1C5:treedata;[SysScreenField];14E:XMLKey;14F:_Root;150:2086;14C:1300;14D:108;151:9883;152:5;F2:3;6F:Y;1A0:Y;2:Y;17D:Y;9F:N;19F:N;122:Y;19C:N;111:N;E3:N;1E:N;1A:N;6D:N;B4:N;B3:N;AE:N;1C:N;AA:N;1B5:N;1C3:N;1C4:1;[SysScreenField];14E:Value;14F:_Root;150:2210;14C:1300;14D:108;151:9883;152:4;F2:3;6F:Y;1A0:Y;2:Y;17D:Y;9F:N;19F:N;122:Y;19C:N;111:N;E3:N;1E:N;1A:N;6D:N;B4:N;B3:N;AE:N;1C:N;AA:N;1B5:N;1C3:N;1C4:1;[SysScreenLabel];14E:StKey;14F:_Root;150:2086;14C:417;14D:100;151:767;152:3;F2:3;48:"XML Key\:";1A0:Y;21:4;B2:1;[SysScreenLabel];14E:St1;14F:_Root;150:2210;14C:417;14D:100;151:500;152:2;F2:3;48:"Value\:";1A0:Y;21:4;B2:1;xxxxmlview IAxmlview %/- - - -  x- W- Pb1FilenameIncludeValuesTreeXMLKeyValueDisplay F-DisplayDisplay ValuesF-Treexmlview IAxmlview              xmlview OAxmlview J`bu~ "Display" F-Display"Display Values"F-Tree