フィールド タイプ | 定義 |
---|---|
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"(Windows) またはassign to "/home/user/workarea/golf.dat"(UNIX) 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