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