要阅读COBOL-genned文件，您需要知道：

首先，您需要文件的记录布局 （副本）。 COBOL记录布局如下所示：

 01 PATIENT-TREATMENTS. 05 PATIENT-NAME PIC X(30). 05 PATIENT-SS-NUMBER PIC 9(9). 05 NUMBER-OF-TREATMENTS PIC 99 COMP-3. 05 TREATMENT-HISTORY OCCURS 0 TO 50 TIMES DEPENDING ON NUMBER-OF-TREATMENTS INDEXED BY TREATMENT-POINTER. 10 TREATMENT-DATE. 15 TREATMENT-DAY PIC 99. 15 TREATMENT-MONTH PIC 99. 15 TREATMENT-YEAR PIC 9(4). 10 TREATING-PHYSICIAN PIC X(30). 10 TREATMENT-CODE PIC 99. 

您还需要一份IBM的操作原理 （S / 360，S370，z / OS，对我们的目的并不重要）。 最新版本可从IBM获得

第8章（十进制指令）和第9章（浮点概述和支持指令）是我们的目的。

没有它，你几乎迷失了。

然后，您需要了解COBOL数据类型。 例如：

如果数据源是IBM大型机，则COMP-1和COMP-2可能不会是IEE浮点：它将是IBM的16位超额64浮点格式 。 你需要像S / 370操作原理这样的东西来帮助你理解它。

与COMP-3相关的是十进制分区。 这可能被声明为“PIC S9999V99”（带符号，5位十进制数字，带有隐含的小数点）。 EBCDIC中的十进制数字是hex值0xFO – 0xF9。 ‘解包’（主机机器指令）采用压缩十进制字段并转入字符字段。 过程是：

因此，如果使用默认符号值（hexD）存储，我们的示例值-345.67将被解压缩为0xF0F0F0F3F4F5F6D7（’0003456P’，在EBDIC中）。

[你去吧。 稍后会有一个小测验]

1. 如果COBOL应用程序位于IBM大型机上，文件是否已从其本机EBCDIC转换为ASCII？ 如果没有，你将不得不进行自我映射（提示：它不一定像看起来那么简单，因为这可能是一个选择性过程 – 只转换字符字段（COMP-1，COMP-2，COMP） -3和BINARY被排除在外，因为它们是二进制八位字节的序列。更糟糕的是，由于不同的打印机使用不同的国家实现和不同的打印链，有多种EBCDIC表示forms。

哦……最后一件事。 大型机硬件倾向于喜欢在半字，字或双字边界上对齐的不同事物，因此记录布局可能不直接映射到文件中的八位字节，因为在字段之间可能存在填充八位字节以维持所需的字对齐。

祝好运。

我从您的问题附带的评论中看到，您正在处理“经典”COBOL批处理文件结构：标题记录，详细记录和预告片记录。

如果您负责创建预告片记录，这可能是个坏消息！ 典型的“预告片”记录用于识别文件结尾并提供控制信息，例如其前面的记录数量以及“详细”记录的各种校验和和/或总计。 换句话说，您可能需要阅读并汇总整个文件才能创建预告片。 除此之外，文件中的大部分数据都是Packed Decimal，Zoned Decimal或其他COBOLish数字数据类型的可能性，您可能会陷入困境。

您可能想要质疑为什么要将拖车记录添加到这些文件中。 通常，“预告片”由创建“详细”记录的相同程序或应用程序生成。 预告片应该作为validation发送应用程序/程序写入它应该的所有数据。 接收应用程序使用摘要总计，计数等来validation详细记录与前面的详细信息一致。 这应该作为另一个validation，发送应用程序没有消除数据或它没有在途中损坏（不，这不是一个笑话 – 但也许应该是）。 当一个“中间人”创造了预告片时，它会破坏演习的整个目的（无论它开始时有多么有缺陷）。