XML-INTO非常简单。构建一个数据结构来接收数据，然后以任何您想要的方式处理数据结构中的数据。关键是为XML-INTO提供一种方法来告诉您每个循环结构存在多少个，或者是否缺少元素。下面是一个可以用于Employee XML的示例：

// v7.3+
dcl-ds Employee         Qualified;
  FirstName             Varchar(64);
  LastName              Varchar(64);
  dcl-ds EmpAddress     Qualified Dim(10);
    StreetName          Varchar(64);
    State               Varchar(32);
  end-ds;
  countEmpAddress       Int(10);
  dcl-ds PreviousCompany  Qualified Dim(10);
    CompanyName         Varchar(64);
    dcl-ds CompAddress  Qualified Dim(10);
      StreetName        Varchar(64);
      State             Varchar(64);
    end-ds;
    countCompAddress    Int(10);
  end-ds;
  countPreviousCompany  Int(10);
end-ds;

// Pre v7.3
dcl-ds Employee         Qualified;
  FirstName             Varchar(64);
  LastName              Varchar(64);
  EmpAddress            LikeDs(address_t) Dim(10);
  countEmpAddress       Int(10);
  PreviousCompany       LikeDs(company_t) Dim(10);
  countPreviousCompany  Int(10);
end-ds;

dcl-ds company_t        Qualified Template;
  CompanyName           Varchar(64);
  CompAddress           LikeDs(address_t) Dim(10);
  countCompAddress      Int(10);
end-ds;

dcl-ds address_t        Qualified Template;
  StreetName            Varchar(64);
  State                 Varchar(64);
end-ds;

要使用XML-INTO将数据加载到此结构中，只需用途：

xml-into Employee %xml('employee.xml': 'doc=file countprefix=count +
    case=any allowmissing=yes');

更多信息可在IBM文档中找到，网址为：https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_73/rzasd/allowmissopt.htm

我用AWK和sed做了同样的尝试。下面是代码：

# Removing blank line from the actual file using sed.

sed -r '/^\s*$/d' Employee >Employee1

Employee.awk

BEGIN { FS ="[></]";RS ="\n\n"; OFS =""}
$0 ~ search {print $5 "\t"$10,"\n"$17 "\t" $22,"\n"$32 "\t" $37,"\n"$47,"\n"$54 "\t" $59}

awk -f Employee.awk Employee1

输出量：

JIM SMITH

DARTMOUTH WAY   OHIO

SouthRidge Road WA

DELL

Road123 WA

谢谢大家的宝贵意见！
我做的方法如下：
我创建了一个临时表，将XML中的所有元素作为字段。（每个段都有一个不同的键）。我将每个段写入一个平面文件（每个段和更高的段将被填充。其余的将为空）。现在，我写了一个RPG程序，它有多个光标用于重复的段，并进行分组。
所以首先RPG程序会读取最高段，然后下一级，用更高段的关键字读取该段，等等。。