- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我对 9
(显示格式)和 S9
(解压缩数字)类型感到困惑。我正在使用 Java
* copy book
05 ABC PIC X(01).
05 XYZ PIC +9(09).
使用下面的 Java 代码,我能够正确读取这些值。数字的符号也很容易处理,因为它是 -
或 +
// java code
cobolResults.subString(1,1);
cobolResults.subString(2,9);
现在 copybook 被更改为提供解压缩的数字,如下所示:
05 ABC PIC X(01).
05 XYZ PIC S9(09).
我不确定在 Java 中用正确的符号读取数字的正确逻辑是什么?
最佳答案
首先是来自 IBM & Legstar 的软件包从 Cobol Copybooks 生成 Java 类。我自己的包裹JRecord is也可以使用,但它面向文件而不是在线处理。
基本上字段的最后一个字符包含符号 + 数字。我猜数据来自大型机;所以对于 US - Ebcdic (CP037/IBM237),最后一位将是
0 1 2 3 4 5 6 7 8 9
positive { A B C D E F G H I
negative } J K L M N O P Q R
所以对于 +123,它将是 00000012C (C = +3),而 -123 将是 00000012L。
更糟糕的是,+0 和 -0 在不同的 EBCIDIC 方言和 ASCII 中也是不同的。因此,您要么需要确切知道正在使用哪个版本的 Ebcidic,要么需要在字节级别进行转换。
fromZoned 方法 JRecord Conversion进行转换:
private static int positiveDiff = 'A' - '1';
private static int negativeDiff = 'J' - '1';
private static char positive0EbcdicZoned = '{';
private static char negative0EbcdicZoned = '}';
public static String fromZoned(String numZoned) {
String ret;
String sign = "";
char lastChar, ucLastChar;
if (numZoned == null || ((ret = numZoned.trim()).length() == 0) || ret.equals("-")) {
return "";
}
lastChar = ret.charAt(ret.length() - 1);
ucLastChar = Character.toUpperCase(lastChar);
switch (ucLastChar) {
case 'A': case 'B': case 'C':
case 'D': case 'E': case 'F':
case 'G': case 'H': case 'I':
lastChar = (char) (ucLastChar - positiveDiff);
break;
case 'J': case 'K': case 'L':
case 'M': case 'N': case 'O':
case 'P': case 'Q': case 'R':
sign = "-";
lastChar = (char) (ucLastChar - negativeDiff);
break;
default:
if (lastChar == positive0EbcdicZoned) {
lastChar = '0';
} else if (lastChar == negative0EbcdicZoned) {
lastChar = '0';
sign = "-";
}
}
ret = sign + ret.substring(0, ret.length() - 1) + lastChar;
return ret;
}
但是在字节级别上做起来更容易,它应该像下面这样(虽然代码没有经过测试):
private static final byte HIGH_NYBLE = (byte) 0xf0;
private static final byte LOW_NYBLE = (byte) 0x0f;
private static final byte ZONED_POSITIVE_NYBLE_OR = (byte) 0xCF;
private static final byte ZONED_NEGATIVE_NYBLE_OR = (byte) 0xDF;
private static final byte ZONED_NEGATIVE_NYBLE_VALUE = (byte) 0xD0;
signByte = bytes[bytes.length - 1];
negative = false;
if (((byte) (signByte & HIGH_NYBLE)) == ZONED_NEGATIVE_NYBLE_VALUE) {
negative = true;
}
long result = 0;
for (int i = 0; i < bytes.length; i++) {
result = result * 10 + (bytes[i] & LOW_NYBLE);
}
if (negative) {
result = -1 * result;
}
关于用于 cobol 显示和解压缩数字字段的 Java 映射,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/31970680/
请看一下我的代码。 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 命令创建一个快捷方式的映射。我希望命令允许输入我正在搜索的内容,然后在输入时执行。
我是一名优秀的程序员,十分优秀!