常見的實現

如何實現 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.