在 xml 输出中使用保留的 cobol 名称

Question

我正在处理一个项目，我将从 cobol 大型机系统创建的磁盘读取 xml 文件。我想要这个 xml 文件中的特定命名结构，如下所示：

<Orders>
 <Order>
  <Data>
   ...
  </Data>
 </Order>
 <Order>
  <Data>
   ...
  </Data>
 </Order>
 <Order>
  <Data>
   ...
  </Data>
 </Order>
</Orders>

我从我的 cobol 开发人员那里了解到这个命名结构的问题是“订单”和“数据”是 cobol 中的保留名称，所以他说它们不能使用。这是真的吗，或者有人可以指出我们的方向，当 cobol 创建 xml 文件时，我们的 xml 输出可以是我们想要的任何东西？

Answer 1

IBM Enterprise COBOL 有一个 XML GENERATE 语句，用于从 COBOL 数据结构生成 XML。默认情况下，生成的标签名称是结构中数据项的名称。数据项的名称不能是保留的 COBOL 字。

从 IBM Enterprise COBOL 的第 5 版开始，有一种机制可以为不是数据项名称的数据项生成标记名称。它是 XML GENERATE 语句的 NAME 短语。

一个看起来像这样的结构......

01  WS-ORDERS.
    05  WS-ORDER OCCURS 2.
        10  WS-DATA    PIC X(4096).

...通过 XML GENERATE 处理通常会导致...

<WS-ORDERS><WS-ORDER><WS-DATA>...</WS-DATA></WS-ORDER><WS-ORDER><WS-DATA>...</WS-DATA></WS-ORDER></WS-ORDERS>

...但使用NAME短语...

XML GENERATE WS-BUFFER FROM WS-ORDERS
  NAME WS-ORDERS 'ORDERS'
       WS-ORDER  'ORDER'
       WS-DATA   'DATA'
END-XML

...应该给你你想要的。这只是徒手画的，但我认为你可以看到这个想法。

可能您的 COBOL 编译器尚未升级到支持 XML GENERATE 的 NAME 短语的版本。最后一个这样的版本是 4.2，它在30-Apr-2022停止服务。