- Java 双重比较
- java - 比较器与 Apache BeanComparator
- Objective-C 完成 block 导致额外的方法调用?
- database - RESTful URI 是否应该公开数据库主键?
我正在从我的 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,你有三个“字符”。 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).
.
是实际的小数点,而不是隐含的小数点,带有 V。
ABC-123456789+123456789012345.67
MOVE FIELD-1 TO a-meaningful-name
MOVE FIELD-2 TO another-meaningful-name
MOVE FIELD-3 TO a-third-meaningful-name
MOVE a-meaningful-name TO FIELD-1
MOVE another-meaningful-name TO FIELD-2
MOVE a-third-meaningful-name TO FIELD-3
关于COBOL comp 和 comp-3 字段的 Java 映射,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30122554/
请看一下我的代码。 int main () { Program* allcommand = new Program; allcommand->addCommand("add", new
因此,当我遇到调试断言时,我正在编写代码。现在我很想知道为什么这段代码不起作用: for(Model::MeshMap::iterator it = obj1->GetMeshes().begin()
这是我上一个问题的延续 Group, Sum byType then get diff using Java streams . 按照建议,我应该作为单独的线程发布,而不是更新原始线程。 因此,通过我
我正在实现一些非常适合 map 的代码。但是,我要迭代的列表中有大量对象,所以我的问题是哪种方法是解决此问题的最佳方法: var stuff = $.map(listOfMyObjects, some
我正在尝试创建一个包含不同类的成员函数指针的映射。成员函数都具有相同的签名。为了做到这一点,我所有的类都继承了一个 Object 类,它只有默认构造函数、虚拟析构函数和一个虚拟 ToString()
这个问题在这里已经有了答案: 关闭 11 年前。 Possible Duplicate: how do you make a heterogeneous boost::map? 有可能在 C++ 中
我有一个 Mysql 查询,请检查以下内容: SELECT `tbl_classSubjects`.`classID` , `tbl_classSubjects`.`sectionID` , `tbl
抱歉,这可能是一个基本问题。 JNA直接映射和接口(interface)映射有什么区别? 我的解释是否正确: 直接映射 : 直接使用库对象(如 Java 中的静态 main) 接口(interface
在 Twitter's Scala school collections section ,它们显示了一个带有偏函数作为值的 Map: // timesTwo() was defined earlie
很难说出这里问的是什么。这个问题是模棱两可的、模糊的、不完整的、过于宽泛的或修辞的,无法以目前的形式得到合理的回答。如需帮助澄清这个问题以便重新打开它,visit the help center .
据我了解,从 scala stdlib 声明一个映射并没有将其专门用于原始类型。我要的不是付出装箱/拆箱的代价,而是同时拥有scala map 的接口(interface)。一个明显的选择是使用 tr
如何为这样的 JSON 响应创建对象映射,它只是一个整数数组: [ 565195, 565309, 565261, 565515, 565292, 565281, 566346, 5
是否可以为 DTO 对象创建映射然后查询它们 而不是域?如果不解释为什么? 如果我需要几个 dtos 怎么办? DTos 是只读的 ID 由 NH 自动生成 将来这些 dtos 将设置映射到链接的 d
我有一个返回的函数(常规代码) [words: "one two", row: 23, col: 45] 在 Scala 中,我将上面更改为 Scala Map,但随后我被迫将其声明为 Map[Str
我有一组与 Vanilla 磅蛋糕烘焙相关的数据(200 行),具有 27 个特征,如下所示。标签caketaste是衡量烤蛋糕的好坏程度,由 bad(0) 定义, neutral(1) , good
我有试图映射到新代码的遗留代码。 OLD_PERSON pid sid name age NEW_PERSON pid sid fid age RESOLVE_PERSON pid fid statu
我有一个表,其中一个字段可以指向其他 3 个表之一中的外键,具体取决于鉴别器值是什么(Project、TimeKeep 或 CostCenter。通常这是用子类实现的,我想知道我有什么 注意子类名称与
我有一个类型 [ST s (Int, [Int])] 的绑定(bind)我正在尝试申请runST使用映射到每个元素,如下所示: name :: [ST s (Int, [Int])] --Of Cou
在我正在进行的项目中,我有以下实体:分析师、客户 和承包商。每个都继承自基类 User。 public abstract class User { public virtual int Id
我想知道是否可以在 Vim 中创建一个映射(对于普通模式),允许用户在映射执行之前输入。 我想为我最常用的 grep 命令创建一个快捷方式的映射。我希望命令允许输入我正在搜索的内容,然后在输入时执行。
我是一名优秀的程序员,十分优秀!