COBOL文件格式

Question

我们试图将一个.txt文件加载到Trillium中进行分析，并将一个.cbl文件作为数据模式加载。

.txt文件的数据如下所示：

    Record 1: 1234560001001
    Record 2: 12345670001001

COLUMN_1最多有7个字符，COLUMN_2必须是4个字符，COLUMN_3必须是3个字符。

我创建了一个COBOL文件如下所示：

    02 COLUMN_1 PIC X(07).
    02 COLUMN_2 PIC X(04).
    02 COLUMN_3 PIC X(03).

但是Trillium把它解析成这样：

    1234560 0010 01
    1234567 0001 001

我不知道如何纠正这个问题。有什么想法吗？

Answer 1

您将需要正确地证明您的输入记录是正确的。对数据进行大量调整的方法。最简单的可能是

01 justright PIC X(14) JUSTIFIED RIGHT.

GnuCOBOL (据我所知)还包括对

CALL "C$JUSTIFY" USING source-field "R" END-CALL

在适当的位置修改为字段大小。14在这种情况下。

但是，如果您所拥有的只是记录布局的外部解析器，那么正如Rick评论的那样，您可能需要根据指定给COLUMN_1的数据长度规则编写代码。