cobol 到 xml 架构 - WTX 工具

Question

我们正在中间件系统中使用 IBM Websphere 转换扩展器进行 xml 到 copybook 的转换，反之亦然。从这个链接 Cobol 到 xsd 映射 ，我们意识到

PIC X(03)，在 copybook 中，必须转换为下面的 xml schema

<xsd:simpleType>
<xsd:restriction base="xsd:string">
<xsd:maxlength value="3"/>
<xsd:whiteSpace value="preserve"/>
</xsd:restriction>
</xsd:simpletype>

PIC 9(03)，在 copybook 中，必须转换为下面的 xml schema

<xsd:simpleType>
<xsd:restriction base="xsd:unsignedInt">
<xsd:minInclusive value="0"/>
<xsd:maxInclusive value="999"/>
</xsd:restriction>
</xsd:simpletype>

但是，无法直接看出，以下抄写本类型使用什么 xml 模式。有人可以指导一下吗？

PIC S9(17) COMP-3
PIC S9(17)
PIC S9(03)
PIC S9(03) COMP-3
PIC +9(17)
PIC +9(03)

Answer 1

了解 PICTURE 子句的最佳方法是查阅 COBOL 文档。接下来我将提供一些“文档”。

需要注意的一件事是，虽然我认为下面的 XSD 片段是正确的，但不同的工具可能与我的不完全匹配；当然，无论你从你的工具中得到什么，都不应该比我的更有限制性。

PIC S9(17) COMP-3

PIC S9(17)

PIC +9(17)

注：从 XSD 角度来看，COMP-3 并不重要；它影响 COBOL 世界中的编码。

<xsd:simpleType name="S9-17">
    <xsd:restriction base="xsd:integer">
        <xsd:minInclusive value="-99999999999999999"/>
        <xsd:maxInclusive value="99999999999999999"/>
    </xsd:restriction>
</xsd:simpleType>

PIC S9(03)

PIC S9(03) COMP-3

PIC +9(03)

<xsd:simpleType name="S9-3">
    <xsd:restriction base="xsd:int">
        <xsd:minInclusive value="-999"/>
        <xsd:maxInclusive value="999"/>
    </xsd:restriction>
</xsd:simpleType>

PIC 9(03) 表示无符号数，隐含正值。

前面的 S 表示数值，S9(17) 表示“有符号”，最多 17 位十进制数字；该值可以是正数或负数。根据其他条款，该符号可以是单独的、前导的或尾随的。

当存在 COMPutational 子句时，事情会变得棘手，在这种情况下，数据使用“二进制”格式进行编码（一半大小，每个数字四位，使用高位的符号，最左边的位） - 在 COBOL 世界中，< em>不是 XML。 COMP 子句（有时称为“打包”）不会更改值的语义，它只是描述编码机制，直接影响表示该特定数字所需的大小（以字节为单位）。例如，PIC 9(17) 将需要 17 个字节，PIC 9(17) COMP-3 将需要 9 个字节。没有 COMP 的子句以 DISPLAY 格式表示（基本上每个十进制数字一个字节，如果适用，加一个符号）。

前面的 + 符号很像 S；表示一个数字有符号，+表示正数，-表示负数。

因此，当用 XML 表示数据时，保留的是数据，而不是其表示形式。考虑 PIC 9(03) 和值 1。COBOL

到 XML 的转换可以保留 001，也可以不保留（即得到 1）。
XML 到 COBOL 的转换必须能够获取 001 或 1 并将其正确转换为 001。