在IBM i (OS/400)上如何使用RPG处理XML

此示例代码展示了如何使用RPG在IBM i (OS/400)上处理XML。具体来说，该程序使用ILE RPG中的XML-INTO操作读取XML文件，并使用数据结构对数据进行解析。此功能可用于可扩展标记语言（XML）文件的读取和解析，使其成为数据交换的强大格式。

      **FREE
      /include qsysinc/qrpglesrc,xml
      /include qsysinc/qrpglesrc,xmlparse

      dcl-ds CustomerTemplate qualified;
        CustNo char(5);
        FirstName char(15);
        LastName char(15);
      end-ds;

      dcl-ds CustomersTemplate qualified;
        Customer count(9999) qualified;
      end-ds;

      dcl-pr ProcessXMLTemplate;
        filename char(255) const;
      end-pr;

      dcl-pi ProcessXMLTemplate;
        filename char(255) const;
      end-pi;        

      dcl-s LineNum int(10);
      dcl-s Text char(2048);  

      dcl-ds xmlDoc likeds(XML_DOC);
      dcl-ds xmlDoms likeds(XML_SAX_RT_DOM);

      exec sql set option datfmt=*ISO;

      LineNum = 0;
      xmlDoc.xmldoc = XML_Create_DOM(handler => 'domHandler');
      if xmlDoc.xmldoc = *null;
        exsr cleanup;
        return;
      endif;

      Text = ' ';
      exec sql declare cur cursor for
        select text from myfile order by seq_no;
      exec sql open cur;
      exec sql fetch cur into :Text;

      dow (sqlstate = '00000');
        LineNum = lineNum + 1;
        xmlParse(Text);
        Text = ' ';

        exec sql fetch cur into :Text;
      enddo;

      exec sql close cur;

      if SQLCODE <> 0;
        exsr cleanup;
        return;
      endif;

      //* Process any remaining data
      xmlParse('');

      xmlDoc.xmldoc.XML_free_document();
      return;   

      begsr domHandler; 
        dcl-ds xmlData qualified;
          CustNo char(5);
          FirstName char(15);
          LastName char(15);
        end-ds;
        dcl-ds dsXMLData likeds(xmlData);    

        xmlLoad();
        if xmlDoms.saxrt.app_values.element_name = 'Customers'; 
          CustomersTemplate = dsXMLData.customer;
          eval_line(cl:'Customer:',cn:CustomersTemplate.ds_pos);
        endif;  

        if xmlDoms.saxrt.app_values.element_name = 'Customer'; 
          xmlData = %addr(CustomerTemplate);
          CustomerTemplate = dsXMLData;
          eval_line(cl:'     Cust#:':CustNo);
          eval_line(cl:'First name:':FirstName);
          eval_line(cl:' Last name:':LastName);
        endif;  
      endsr;

      begsr eval_line;
        dcl-pi *n;
          cl char(100);
          cn int(10);
        end-pi;

        dcl-ds lineData likeds(XML_PCDATA);

        lineData = cl;
        XML_Into(value => %addr(lineData),
                 vlen  => %size(lineData),
                 target=> %addr(Text),
                 tvary => *on);

        if lineData.PCDATA <> ' ' and cn <> *zeros;
          // 打印到控制台
          dsply %trimR(lineData.PCDATA);
        endif;
      endsr;

      begsr xmlParse;
        dcl-pi *n;
          XMLText char(2048) const;
        end-pi;
        dcl-s XMLTextLength int(10) based(%size(XMLText));

        XMLTextLength = %len(%trimR(XMLText));
        XML_Parse(xmlDoc.xmldoc:%addr(XMLText):XMLTextLength:0);

        return;
      endsr;

      begsr cleanup;
        if xmlDoc.xmldoc <> *null;
          xmlDoc.xmldoc.XML_free_document();
        endif;

        return;
      endsr;

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