在我们的示例中,我们正在考虑名为 WS-VALC 和 WS-VALD 的变量。 对于WS-VALC PIC S9(3) USAGE IS COMP-3,所以这里我们可以将其取为 (3 + 1)/2 等于 2bytes 大小。 同样,在 WS-VALD PIC S9(4) USAGE IS COMP-3 的 3 字节变量中,我们可以将其取为 (4 + 1)/2 等于 2.5(四舍五入)所以它...
01 MY-VARIABLE COMP-3 PIC S9(5)V9(2). 复制代码 上面的代码定义了一个名为MY-VARIABLE的变量,使用了COMP-3类型,并且可以存储-9999.99到9999.99之间的带有两位小数的整数。 01 MY-VARIABLE COMP-4 PIC S9(9). 复制代码 上面的代码定义了一个名为MY-VARIABLE的变量,使用了COMP-4类型,并且可以存储-999999999...
这些字段中的数据似乎与任何BCD格式不匹配。我知道数据应该是什么，我有COMP-3的原始字节。我试着先改...
A：占用4字节。COMP-3用内部十进制存储，S9（7）中的S是要占空间的，符号占4位，7个数字，每个4位（半个字节），所以是（4+7*4）/8=4字节（字节和位的比例不要搞错了哦）Q39) How many bytes does a S9(7) SIGN TRAILING SEPARATE field occupy ?Q39) Will occupy 8 bytes (one extra...
S9(04) COMP-3 1 23 4D comp型中以二进制存储。其中：9（01），9（02），9（03），9（04） 占2个字节 9（5）~ 9（9） 占4个字节 9（10） ~ 9（18） 占8个字节 正数： 以该数据二进制对应，忽略小数点位数。负数：是其绝对值对应二进制的补码。comp-3型 压缩10进制和非压缩10进制 1...
01 DATE-HEX PIC X(3). ;转换后数据 01 DATE-DEC PIC S9(7) COMP-3. ;转换前数据 然后,在过程部PROCEDURE DEVISION.中加入如下语句即可: PROCEDURE DIVISION. MOVE DATE-DEC TO WORK-DATE。 COMPUTE WORK-DATE=WORK-DATE*10. MOVE A1 TO DATE-HEX ....
COBOL的问题移动到COMP-3变量 我在OpenVM上运行的COBOL程序中遇到了以下问题。 我有以下变量声明: 01STRUCT-1. 02FIELD-A PIC S9(6) COMP-3. 02FIELD-B PIC S9(8) COMP-3. 01STRUCT-2. 03SUB-STRUCT-1. 05FIELD-A PIC9(2). 05FIELD-B PIC9(4)....
在最初的版本下，java.lang包中的System.currentTimeMillis();可以获取当前时间与协调时间(UTC)1970年1...
换句话说,不存在从 EBCDIC 到 Unicode 或从 Unicode 到 EBCDIC 的转换。 PIC G 指定双字节 EBCDIC 字符串。 PIC S9 (4) COMP (整数 16 位) 指定长度为 16 位或 2 字节的整数。 PIC S9 (9) COMP (整数 32 位) 指定长度为 32 位或 4 个字节的整数。
INTEGER S9(m) COMP-4 或 S9(m) COMP-5 m从 5 到 9 BIGINT S9(m) COMP-4 或 S9(m) COMP-5 (对于 ILE COBOL)。 不受 OPM COBOL 支持。 m从 10 到 18 DECIMAL(p,s) 如果p<64: S9(p-s)V9(s) PACKED-DECIMAL 或 S9(p-s)V9(s) COMP 或 S9(p-s)V9(s) COMP-3。 如果 p>63:...