フィールド タイプ

次に、利用可能なフィールド タイプの一部を示します。

フィールド タイプ 定義
AQ 代替の照合順序を使用する文字
BI COMP
C5 COMP-5
C6 COMP-6
CH PIC X DISPLAY
CX COMP-X
FL 浮動小数点、符号付き
FS/CSF 符号付き数値、オプションの誘導浮動符号付き
LI/OL/CLO PIC S9 LEADING INCLUDED
LS/CSL PIC S9 LEADING SEPARATE
NU PIC 9 DISPLAY
PD PIC S9 COMP-3
PD0 パック 10 進数。最初のセミバイトと符号セミバイトは無視されます。
SB/FI PIC S9 COMP
S5 S9 COMP-5
SS 従属文字列。条件でのみ使用されます。
TS/CST PIC S9 TRAILING SEPARATE
TI/ZD/OT/CTO PIC S9 TRAILING INCLUDED
Y2B 2 桁、1 バイトの 2 進の年データ
Y2C/Y2Z 2 桁、2 バイトの年データ、インクルードされるオプションの終了符号付き。PIC 99 または PIC S99
Y2D 2 桁、1 バイトのパック 10 進数年データ。PIC 99 COMP-6
Y2P 2 桁、2 バイトのパック 10 進数年データ。PIC 99 COMP-3
Y2S 2 桁、2 バイトの文字年データ、特殊インジケーター付き。バイナリのゼロ、空白、バイナリの 1 は、特殊文字として扱われます。
Y2T フル日付フォーマット、yyx...
Y2U フル日付フォーマット、yyx...、COMP-3
Y2V フル日付フォーマット、yyx...、COMP-3最初のセミバイトは無視されます。
Y2W フル日付フォーマット、x...yy
Y2X フル日付フォーマット、x...yy、COMP-3
Y2Y フル日付フォーマット、x...yy、COMP-3最初のセミバイトは無視されます。

他のフィールド タイプは、IBM ドキュメントの「SORT Control Statement」で定義されています。

golf.dat が COBOL プログラムで次のように定義される相対ファイルであるとします。

 file-control.
     select members-file
         assign to "d:\netexpress\base\workarea\golf.dat"
         organization is relative
         access mode is random
         relative key is relative-key.
 data division.
 file section.
 fd members-file
     record contains 28 characters.
 01 members-record.
     03 members-number pic 9(6).
     03 members-lname pic x(10).
     03 members-fname pic x(10).
     03 members-handicap pic 9(2).

次の mfsort コマンドを使用して、メンバーシップ番号を含むフィールドを基準に golf.dat ファイルを昇順でソートできます。

mfsort sort fields(1,6,nu,a)
   use golf.dat record f,28 org rl
   give members.dat

ソートされたバージョンのファイルが、ファイル members.dat に書き込まれます。