在IBM i上使用RPG程序从XML文件中读取数据

该示例代码演示了如何使用RPG程序在IBM i（OS/400）上从XML文件中读取数据。其中，程序通过使用XML-INTO操作符来解析XML文件中的数据，然后将其存储到RPG中定义的数据结构中。

H DFTACTGRP(*NO) BNDDIR('XMLSERVICE')   
     D InXML          S               8192A   INZ
     D Size           S             10I 0 
     D ErrorMsg       S            256A         
     D XMLDoc         DS                  LIKEDS(XMLINTO_t) 
     D CustInfo       DS                  QUALIFIED DIM(50) 
     D  Customer              QUALIFIED              
     D   Name                          LIKE(FirstName)   
     D   Address                       LIKE(Address1)    
     D   .

      /FREE
       //打开XML文件
       InXML = '/MYFOLDER/CustomerList.xml';
       Size = %SIZE(InXML);
       xmlservice('xmlinto':'runxml':'doc=XMLDoc':'committed=*NONE':'xmlin=' + 
                  %trimR(InXML) + ':varstruct=CustInfo':'varstructlen=*DCL':'errormsg=ErrorMsg':'size=' + 
                  %trim(%CHAR(Size)));

       //检查是否有错误
       If %Len(ErrorMsg) > 0;
         dsply ('Error: ' + ErrorMsg);
         *inlr = *on;
         Return;
       EndIf;

       //循环打印所有客户信息
       For i = 1 to %elem(CustInfo);
         //如果没有客户名称，退出循环
         If %Len(CustInfo(i).Customer.Name) = 0;
           Leave;
         EndIf;
         dsply ('Customer Name: ' + CustInfo(i).Customer.Name);
         dsply ('Customer Address: ' + CustInfo(i).Customer.Address);
       EndFor;
      /END-FREE

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