Java COBOL comp 和 comp-3 字段的映射
Java mapping for COBOL comp and comp-3 fields
我正在从我的 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?
输入宏一共有多少字符？
COBOL 没有字符串，它有没有终止符的固定长度字段。
所以对于 FIELD-1，你有三个 "characters"。 X 的图片可以允许 256 个可能的位值中的任何一个，但通常包含人类可读的值。
FIELD-2 是二进制字段。您可以将其视为一个四字节整数。
但是，它在那里定义的方式，COMP，带有 S，它的最大值为 999,999,999 正数，最小值为 999,999,999 负数。
如果它被定义为 COMP-5，它可以包含这四个字节中所有位的完整范围。请注意，编译器选项 TRUNC(BIN) 无论如何都会将 COMP 的行为修改为 COMP-5，因此您需要向大型机端检查 TRUNC 使用的编译选项是什么（其他值是 STD 和 OPT）。
在 IBM 大型机上，本机二进制字段是 Big Endian。在您的本地机器上，本机二进制值将是 Little Endian。例如，值 16906090 将存储为 X'01020304'。
FIELD-3 是压缩十进制。它有 9 个字节长，但每个字节包含两位十进制数字，除了低位（最右边）字节包含一位数字后跟一个符号说明符（图片使用 S，所以符号应该是 C 表示正数和D 代表负数，base-16)。有一个隐含的小数点（V）和两位小数。
FIELD-3X 是另一个 X 字段。它可以再次在每个字节中包含任何位模式。您需要知道该字段的预期用途是什么（与其他字段一样，名称中甚至没有丝毫线索，这是一种糟糕的做事方式）。
设计有误。将二进制和压缩十进制字段从大型机发送到其他地方是完全疯狂的，或者 反之亦然。如果 所有 字段定义为 X 或 9 而没有 COMP 或 COMP-3 的 USAGE（隐含），那么你会很轻松。
最终定义中缺少必需的 full-stop/period，但这很可能是通心粉。
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.
所有数据现在都是"text"或"character"数据，应该很容易处理。 EBCDIC（IBM 大型机编码）到 ASCII（可能是您的本地机器编码）很容易，并且可以在数据级别而不是字段级别完成。
对于您的来回交流，以上内容对您来说会容易得多，更不容易出错并且更容易审核。在内部，COBOL 程序可以轻松地转换 to/from 那些供其内部使用。
如果您不让他们将您的界面更改为 "character"，那么您将需要进行各种额外的编码和测试，但没有任何好处。
ABC 123456789（负）和 123456789012345.67（正）布局示例为
ABC-123456789+123456789012345.67
请注意，除了没有字段分隔符外，也没有 data/record 分隔符。没有 "null"s.
有一个替代实际小数点的方法，即提供一个比例因子。此外，您可以 "hard-code" 在您的程序中进行缩放。
我假设以上数据对您来说很容易接受和创建。请尝试更改您的界面。如果他们拒绝，请与您的老板一起记录额外代码的影响，并且额外代码只是为了能够 "understand" 数据，甚至在您开始考虑使用它之前。这很愚蠢。
要为您创建简单格式的数据，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 有一个目的，它需要第四个字段的特定代码，但这对我来说很难猜测，但一旦知道实际需要，编码就不难了。
没有什么繁重的，而且比您必须编写的代码简单得多。
我正在从我的 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?
输入宏一共有多少字符？
COBOL 没有字符串，它有没有终止符的固定长度字段。
所以对于 FIELD-1，你有三个 "characters"。 X 的图片可以允许 256 个可能的位值中的任何一个，但通常包含人类可读的值。
FIELD-2 是二进制字段。您可以将其视为一个四字节整数。
但是，它在那里定义的方式，COMP，带有 S，它的最大值为 999,999,999 正数，最小值为 999,999,999 负数。
如果它被定义为 COMP-5，它可以包含这四个字节中所有位的完整范围。请注意，编译器选项 TRUNC(BIN) 无论如何都会将 COMP 的行为修改为 COMP-5，因此您需要向大型机端检查 TRUNC 使用的编译选项是什么（其他值是 STD 和 OPT）。
在 IBM 大型机上，本机二进制字段是 Big Endian。在您的本地机器上，本机二进制值将是 Little Endian。例如，值 16906090 将存储为 X'01020304'。
FIELD-3 是压缩十进制。它有 9 个字节长，但每个字节包含两位十进制数字，除了低位（最右边）字节包含一位数字后跟一个符号说明符（图片使用 S，所以符号应该是 C 表示正数和D 代表负数，base-16)。有一个隐含的小数点（V）和两位小数。
FIELD-3X 是另一个 X 字段。它可以再次在每个字节中包含任何位模式。您需要知道该字段的预期用途是什么（与其他字段一样，名称中甚至没有丝毫线索，这是一种糟糕的做事方式）。
设计有误。将二进制和压缩十进制字段从大型机发送到其他地方是完全疯狂的，或者 反之亦然。如果 所有 字段定义为 X 或 9 而没有 COMP 或 COMP-3 的 USAGE（隐含），那么你会很轻松。
最终定义中缺少必需的 full-stop/period，但这很可能是通心粉。
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.
所有数据现在都是"text"或"character"数据，应该很容易处理。 EBCDIC（IBM 大型机编码）到 ASCII（可能是您的本地机器编码）很容易，并且可以在数据级别而不是字段级别完成。
对于您的来回交流，以上内容对您来说会容易得多，更不容易出错并且更容易审核。在内部，COBOL 程序可以轻松地转换 to/from 那些供其内部使用。
如果您不让他们将您的界面更改为 "character"，那么您将需要进行各种额外的编码和测试，但没有任何好处。
ABC 123456789（负）和 123456789012345.67（正）布局示例为
ABC-123456789+123456789012345.67
请注意，除了没有字段分隔符外，也没有 data/record 分隔符。没有 "null"s.
有一个替代实际小数点的方法，即提供一个比例因子。此外，您可以 "hard-code" 在您的程序中进行缩放。
我假设以上数据对您来说很容易接受和创建。请尝试更改您的界面。如果他们拒绝，请与您的老板一起记录额外代码的影响，并且额外代码只是为了能够 "understand" 数据，甚至在您开始考虑使用它之前。这很愚蠢。
要为您创建简单格式的数据，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 有一个目的，它需要第四个字段的特定代码，但这对我来说很难猜测，但一旦知道实际需要，编码就不难了。
没有什么繁重的，而且比您必须编写的代码简单得多。