在IBM i (OS/400)中使用RPGLE语言处理XML文件的示例代码

本示例代码演示了如何在IBM i (OS/400)中使用RPGLE编程语言来处理XML文件。该代码使用XMLSERVICE服务程序读取并解析XML文件，并通过RPGLE程序处理XML数据。

dcl-ds XmlDocDS;
  Doc    pointer;
  Node   pointer;
  Node2  pointer;
  XmlErr int(10);
end-ds;
exec sql
  call QXMLSERV.QXMLSERV( 'myschema.mypgm', 'myschema.mypgm.out', '', '', '', '', '', '');
*..............................
*读取XML文件并解析
*..............................
exec sql
  set option COMMIT = *NONE, DATFMT = *ISO;
exec sql
  SELECT XMLPARSE( DOCUMENT :src_rrn ) INTO :XmlDocDS.Doc, 
         :XmlDocDS.xmlErr FROM SYSIBM.SYSDUMMY1;
exec sql 
  SELECT XMLROOT( XMLELEMENT( NAME "ROOT", 
  XMLFOREST(.....)
  FOR XML PATH ) , VERSION '1.0', STANDALONE YES ) INTO :XmlString FROM SYSIBM.SYSDUMMY1;
exec sql
  call QXMLSERV.QXMLSERV( '', '', '', '', '', '', XmlString , 'myschema.mypgm.inp');
*..............................
*解析XML数据并处理
*..............................
dsply('Country Name: ' + %trim(Node.Text())); //打印节点值
Node = Node.nextSibling(); //获取下一个节点

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com