常见的实现

如何实现 comp，comp-1 … comp-5 取决于实现。

Format     Normal Implementation

Comp       Big endian binary integer
Comp-1     4 byte floating point       
Comp-2     8 byte floating point 

Comp-3     Packed decimal 123 is stored as x'123c'

Comp-5     Binary Integer optermised for performance.
           Big Endian on the Mainframe, Little Endian on Intel Hardware

Ibm 编译器通常支持大小为 2,4,8 字节的 Comp，Comp-4，Comp-5。GNU Cobolo 支持大小为 1,2,4,8。

Comp-1，Comp-2 字段的定义没有 picture 子句：

03 Floating-Field      Comp-1.
03 Double-Field        Comp-2

对于其他 Comp，输入图片：

03 Big-Endian           Pic S9(4) Comp.
03 Packed-Decimal       Pic S9(5) Comp.