! Specification file for sorting negative and positive data ! in ascending order ! /FIELD=(NAME=SIGN,POS:1,SIZ:1) (1) /FIELD=(NAME=AMT,POS:2,SIZ:4) (2) /CONDITION=(NAME=CHECK1, (3) TEST=(SIGN EQ "-")) /CONDITION=(NAME=CHECK2, (4) TEST=(SIGN EQ " ")) /INCLUDE=(CONDITION=CHECK1, (5) KEY=(AMT,DESCENDING), DATA=SIGN, DATA=AMT) /INCLUDE=(CONDITION=CHECK2, (6) KEY=(AMT,ASCENDING), DATA=SIGN, DATA=AMT) |
指定ファイルを確認する際には，次の点に注意してください。
- このコマンド行は，レコードの第 1 バイトで始まる，長さ 1 バイトのフィールドを定義し，このフィールドに名前 SIGN を割り当てる。
- このコマンド行は，レコードの第 2 バイトで始まる，長さ 4 バイトのフィールドを定義し，このフィールドに名前 AMT を割り当てる。
- これは条件文である。SIGN バイトに負符号(-)がある場合，条件 CHECK1 を満たす。
- これは条件文である。SIGN バイトがブランクの場合，条件 CHECK2 を満たす。
- 条件 CHECK1 を満たす場合，レコードを降順にソートする。
- 条件 CHECK2 を満たす場合，レコードを昇順にソートする。
図 9-8 は，上の指定ファイルの例を BALANCES.LIS という入力ファイルに使用した結果を示しています。
図 9-8 指定ファイルを使用した出力
/FIELD=(NAME=RECORD_TYPE,POS:1,SIZ:1) ! Record type, 1-byte
/FIELD=(NAME=PRICE,POS:2,SIZ:8) ! Price, both files
/FIELD=(NAME=TAXES,POS:10,SIZ:5) ! Taxes, both files
/FIELD=(NAME=STYLE_A,POS:15,SIZ:10) ! Style, format A file
/FIELD=(NAME=STYLE_B,POS:20,SIZ:10) ! Style, format B file
/FIELD=(NAME=ZIP_A,POS:25,SIZ:5) ! Zip code, format A file
/FIELD=(NAME=ZIP_B,POS:15,SIZ:5) ! Zip code, format B file
/CONDITION=(NAME=FORMAT_A, ! Condition test, format A
TEST=(RECORD_TYPE EQ "A"))
/CONDITION=(NAME=FORMAT_B, ! Condition test, format B
TEST=(RECORD_TYPE EQ "B"))
/INCLUDE=(CONDITION=FORMAT_A, ! Output format, type A
KEY=ZIP_A,
DATA=PRICE,
DATA=TAXES,
DATA=STYLE_A,
DATA=ZIP_A)
/INCLUDE=(CONDITION=FORMAT_B, ! Output format, type B
KEY=ZIP_B,
DATA=PRICE,
DATA=TAXES,
DATA=STYLE_B,
DATA=ZIP_B)
|
この例では，不動産代理店の 2 つの支社から送られた 2 つの入力ファイルが，指定ファイルの指示に従ってソートされます。1 つ目のファイルのレコードは，最初の位置に A がついており，次の形式になっています。
|A|PRICE|TAXES|STYLE|ZIP|
1 2 10 15 25
|
2 つ目のファイルのレコードは，最初の位置に B がつき，style フィールドと zip code フィールドが，次のように逆になっています。
|B|PRICE|TAXES|ZIP|STYLE|
1 2 10 15 20
|
これらの 2 つのファイルを，レコード A の形式の zip code フィールドでソートするとき，最初に両方のレコードのフィールドを，/FIELD 修飾子で定義します。その後，/CONDITION 修飾子で，2 つのタイプのレコードを区別するためのテストを指定します。最後に /INCLUDE 修飾子を指定して，タイプ B のレコード形式をタイプ A のレコード形式に変更して出力します。
/INCLUDE 修飾子でキー・フィールドまたはデータ・フィールドのいずれかを指定する場合，/INCLUDE 修飾子のSort 操作で明示的にすべてのキー・フィールドとデータ・フィールドを指定する必要があります。
また，タイプAでもタイプBでもないレコードは，ソート時に排除されます。
/COLLATING_SEQUENCE=(SEQUENCE=
("AN","EB","AR","PR","AY","UN","UL",
"UG","EP","CT","OV","EC","0"-"9"),
MODIFICATION=("'"="19"),
FOLD)
|
この /COLLATING_SEQUENCE 修飾子では，ユーザ定義順序を指定します。この指定により，それぞれの月に，日付順の固有の値が定義されます。たとえば，SEMINAR.DAT というファイルを日付順に並べたい場合，SEMINAR.DAT ファイルは次のようになっています。
16 NOV 1983 Communication Skills
05 APR 1984 Coping with Alcoholism
11 Jan '84 How to Be Assertive
12 OCT 1983 Improving Productivity
15 MAR 1984 Living with Your Teenager
08 FEB 1984 Single Parenting
07 Dec '83 Stress --- Causes and Cures
14 SEP 1983 Time Management
|
一次キーが year フィールドで，二次キーが month フィールドです。month フィールドは数値ではありませんが，日付順に並べたいため，独自の照合順序を定義する必要があります。この場合，それぞれの月に固有のキー値を指定して，それぞれの月の 2 番目と 3 番目の文字を(日付順に)ソートすることにより，これを行います。
MODIFICATION オプションでは，アポストロフィ(')が 19 と同等になるよう指定していますが，これによって，'83 と 1984 が比較できるようになります。また FOLD オプションは，大文字と小文字が同等に扱われるよう指定します。
この Sort 操作の出力は，次のようになります。
14 SEP 1983 Time Management
12 OCT 1983 Improving Productivity
16 NOV 1983 Communication Skills
07 Dec '83 Stress --- Causes and Cures
11 Jan '84 How to Be Assertive
08 FEB 1984 Single Parenting
15 MAR 1984 Living with Your Teenager
05 APR 1984 Coping with Alcoholism
|
ユーザ定義照合順序の他の例については，第 9.3 節 を参照してください。
/FIELD=(NAME=AGENT,POSITION:20,SIZE:15)
/CONDITION=(NAME=AGENCY,
TEST=(AGENT EQ "Real-T Trust"
OR
AGENT EQ "Realty Trust"))
/DATA=(IF AGENCY THEN "Realty Trust" ELSE AGENT)
|
この例では，2 つの不動産ファイルをソートします。1 つのファイルは，ある代理店が Real-T Trust と呼ぶもので，もう 1 つのファイルは Realty Trust と呼ばれます。/CONDITION 修飾子と /DATA 修飾子により，Realty Trust のソート出力ファイルに AGENT フィールドがリストされることになります。
/FIELD=(NAME=ZIP,POSITION:60,SIZE:6)
/CONDITION=(NAME=LOCATION,
TEST=(ZIP EQ "01863"))
/KEY=(IF LOCATION THEN 1
ELSE 2)
|
この例では，郵便番号 01863 を持つすべてのレコードがソート出力ファイルの最初にリストされます。条件テストは，/FIELD 修飾子で定義されているように ZIP フィールドで行われます。条件名は LOCATION になっています。/KEY 修飾子にある値 1 と 2 は，条件を満たすレコードと条件を満たさないレコードの相対順序を表すものです。
/FIELD=(NAME=ZIP,POSITION:60,SIZE:6)
/CONDITION=(NAME=LOCATION,
TEST=(ZIP EQ "01863"))
/DATA=(IF LOCATION THEN "NORTH CHELMSFORD"
ELSE "Outside district")
|
この例では，/CONDITION 修飾子により，郵便番号 01863 についてテストが行われます。/DATA 修飾子は，テスト結果に従って，town フィールドの名前が出力レコードに追加されるよう指定します。
/FIELD=(NAME=FFLOAT,POS:1,SIZ:0,F_FLOATING) /CONDITION=(NAME=CFFLOAT,TEST=(FFLOAT GE 100)) /OMIT=(CONDITION=CFFLOAT) |
この例では，/FIELD 修飾子でフィールド FFLOAT が F_FLOATING と定義されているため，数値 100 が F_FLOATING データ型とみなされます。
/FIELD=(NAME=AGENT,POSITION:1,SIZE:5) /FIELD=(NAME=ZIP,POSITION:6,SIZE:3) /FIELD=(NAME=STYLE,POSITION:10,SIZE:5) /FIELD=(NAME=CONDITION,POSITION:16,SIZE:9) /FIELD=(NAME=PRICE,POSITION:26,SIZE:5) /FIELD=(NAME=TAXES,POSITION:32,SIZE:5) /DATA=PRICE /DATA=" " /DATA=TAXES /DATA=" " /DATA=STYLE /DATA=" " /DATA=ZIP /DATA=" " /DATA=AGENT |
この /FIELD 修飾子は，次の形式を持つ入力ファイルのレコードのフィールドを定義します。
AGENT ZIP STYLE CONDITION PRICE TAXES |
/DATA 修飾子では，/FIELD 修飾子で定義されているフィールド名を使用しますが，レコードを再フォーマットして，次の形式の出力レコードを作成します。
PRICE TAXES STYLE ZIP AGENT |