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

Question

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

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

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

标签： xmlcobolmainframe

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，它在2022 年 4 月 30 日停止服务。