COBOL comp 和 comp-3 字段的 Java 映射

Question

我正在从我的 Java 应用程序调用使用 COBOL 创建的 DB2 存储过程。

输入宏(类型 varchar):

01 SP1-INPUTS.
    05 FIELD-1      PIC X(03).
    05 FIELD-2      PIC S9(09) COMP.
    05 FIELD-3      PIC S9(15)V9(02) COMP-3.
    05 FIELD-3X     REDEFINES  FIELD-3 PIC X(09)

为了测试存储过程，我只知道 FIELD-1 的值.对于其他字段，要填充压缩部分，我应该放多少个零？请参阅我在传递虚拟值时编写和混淆的代码。

String field1="abc";
String field2="000000000"; // 9 zeroes, correct?
String field3="00...0" // should I give 18 zeroes or 9 zeroes?

输入宏总共有多少字符？

Answer 1

COBOL 没有字符串，它有没有终止符的固定长度字段。

所以对于 FIELD-1，你有三个“字符”。 X 的 PICture 可以允许 256 个可能的位值中的任何一个，但通常包含人类可读的值。

FIELD-2 是一个二进制字段。您可以将其视为四字节整数。

但是，按照那里的定义方式，COMP，带有 S，它的最大值为 999,999,999 正，最小值为 999,999,999 负。

如果它被定义为 COMP-5，它可以包含这四个字节中所有位的完整范围。请注意，编译器选项 TRUNC(BIN) 无论如何都会将 COMP 的行为修改为 COMP-5，因此您需要与大型机方一起检查用于 TRUNC 的编译选项(其他值为 STD 和 OPT)。

在 IBM 大型机上，本地二进制字段是 Big Endian。在您的本地机器上， native 二进制值将是 Little Endian。例如，值 16906090 将存储为 X'01020304'。

FIELD-3 是压缩十进制。它有九个字节长，但每个字节包含两个十进制数字，除了包含一个数字后跟符号说明符的低位(最右边)字节(图片使用 S，所以符号应该是 C 表示正和D 为负数，基数为 16)。有一个隐含的小数点( V )和两个小数位。

FIELD-3X 是另一个 X 字段。它可以再次包含每个字节中的任何位模式。您需要知道该字段的预期用途是什么(从名称中甚至没有丝毫线索，就像其他人一样，这是一种糟糕的做事方式)。

设计是错误的。将二进制和压缩十进制字段从大型机发送到其他地方是完全疯狂的，反之亦然。如果 all 字段被定义为 X 或 9 而没有 COMP 或 COMP-3 的 USAGE(隐含)，那么您将有一个非常轻松的旅程。

最终定义中缺少一个必需的句号/句点，但这可能是一个pasto。

   01  SP1J-INPUTS. 
       05  a-meaningful-name               PIC X(03). 
       05  another-meaningful-name         PIC S9(09) 
                                            SIGN LEADING SEPARATE.
       05  a-third-meaningful-name         PIC +9(15).9(02). 
       05  yet-annother-meaningful-name 
           REDEFINES a-third-meaningful-name 
                                           PIC X(19). 

这显示了处理符号的两种方法，使用 SIGN 子句或使用数字编辑的定义。数字编辑定义中的 . 是实际的小数点，而不是隐含的小数点，带有 V。

现在所有的数据都是“文本”或“字符”数据，这对您来说应该很容易处理。 EBCDIC(IBM 大型机编码)到 ASCII(可能是您的本地机器编码)很容易，并且可以在数据级别完成，而不是字段级别。

对于您的来回沟通，上述内容对您来说会容易得多，更不容易出错并且更容易审核。在内部，COBOL 程序可以轻松地转换为/从那些供其内部使用。

如果您不让他们将您的界面更改为“字符”，那么您将需要进行各种额外的编码和测试，但没有任何好处。

带有 ABC、123456789(负)和 123456789012345.67(正)的布局示例是

ABC-123456789+123456789012345.67

请注意，除了没有字段分隔符之外，也没有数据/记录分隔符。没有“空”。

有一个替代实际小数点的方法，即提供一个比例因子。此外，您可以在程序中“硬编码”缩放。

我认为上述数据对您来说很容易接受和创建。请尝试更改您的界面。如果他们拒绝，请与您的老板记录额外代码的影响，额外代码只是为了在您考虑使用数据之前能够“理解”数据。这是愚蠢的。

要为您创建易于格式化的数据，COBOL 程序需要执行以下操作:

MOVE FIELD-1                  TO a-meaningful-name 
MOVE FIELD-2                  TO another-meaningful-name
MOVE FIELD-3                  TO a-third-meaningful-name

要从您那里接收简单格式的数据，COBOL 程序需要执行以下操作:

MOVE a-meaningful-name        TO FIELD-1 
MOVE another-meaningful-name  TO FIELD-2     
MOVE a-third-meaningful-name  TO FIELD-3

如果 REDEFINES 有一个目的，它需要为第四个字段提供特定的代码，但这对我来说很难猜测，但一旦知道实际需要，编码就不难了。

没有什么麻烦的，而且比您必须以其他方式编写的代码简单得多。