如何从COBOL中的COMP-3字段中读取Java中的日期？

Question

ICobolIOBuilder iob = CobolIoProvider.getInstance()
                 .newIOBuilder(copybookName)
                     .setCopybookFileFormat(Convert.FMT_OPEN_COBOL)
                     .setSplitCopybook(CopybookLoader.SPLIT_01_LEVEL);
//I fetched fields as below
line.getFieldValue(field).asString();

MPOH-ENTRY-DATE              PIC S9(7) COMP-3.
MPOH-STATUS-DATE             PIC S9(7) COMP-3.
MPOH-APPROVED-DATE           PIC S9(7) COMP-3.
MPOH-ORDER-DATE              PIC S9(7) COMP-3.

MPOH-ENTRY-DATE : 11261a1
MPOH-STATUS-DATE : 11261a1
MPOH-APPROVED-DATE : 11261a1
MPOH-ORDER-DATE : 11266140

请帮助我在转换这些字段到Java日期字段。

Answer 1

最大的问题是有一个EBCDIC到ascii的转换。

JRecord builder创建

ICobolIOBuilder iob = CobolIoProvider.getInstance()
             .newIOBuilder(copybookName)
                 .html" target="_blank">setCopybookFileFormat(Convert.FMT_OPEN_COBOL)
                 .setSplitCopybook(CopybookLoader.SPLIT_01_LEVEL);

不包括setFont，因此在Unix/Linux/Windows PC上，这表明文件是ASCII。如果您在Windows/Linux/Unix上运行，并且文件是在大型机上创建的，这就不好了，而且数据真的是从GNUCobol中输入的吗？？？。

MPOH-ENTRY-DATE : 11261a1
MPOH-STATUS-DATE : 11261a1
MPOH-APPROVED-DATE : 11261a1
MPOH-ORDER-DATE : 11266140

MPOH订单日期现在是X'11266140'，而EBCDIC最初可能是X'1150817C'即。

CYY = 115 (or 2015)
 MM =  08 
 DD =  17

所以你需要

>

获取原始EBCDIC文件的二进制传输。如果它是大型机上的recfm=vb文件，请首先将其转换为recfm=fb。

将setFont（“cp037”）添加到IOBuilder步骤中（如果您使用的是美国的EBCDIC。不同国家的EBCDIC不同，例如德国的cp273）。

ICobolIOBuilder iob = CobolIoProvider.getInstance()
         .newIOBuilder(copybookName)
             .setCopybookFileFormat(Convert.FMT_MAINFRAME)
             .setSplitCopybook(CopybookLoader.SPLIT_01_LEVEL)
             .setFont("cp037");

另一种选择是抄写本位移中的1字节错误

例如。

MPOH-ENTRY-DATE : 1?11261
MPOH-STATUS-DATE : 1?11261
MPOH-APPROVED-DATE : 1?11261
MPOH-ORDER-DATE : 112661

但这看起来不像约会？？？

null

03 f1              pic s9(3).
03 f2              pic s99 comp.
03 f3              pic s9(4) comp-5  
03 f4     comp-1.
03 f5     comp-2.