この章では，日本語ソート/マージ (SORT/MERGE) について説明します。
日本語ソート/マージは漢字が持つ属性(音読み，訓読み，部首，総画数) および振り仮名フィールドによる国語辞典方式にしたがってソート/ マージ処理を行うものです。
本書はOpenVMSオペレーティング・システムの SORT/MERGEのマニュアルを読んでいることを前提にして記述されていますので， 必要に応じて次のマニュアルを参照してください。
OpenVMS標準版SORT/MERGEは次の日本語用機能も認識するようになっています。
これらの機能は，OpenVMSのSORT/MERGEの漢字属性内部辞書を使うことにより行われます。
つまり日本語ソート/マージは，標準版 SORT/MERGEに日本語用のモジュールを追加したものであり，標準版 SORT/MERGEのDCLコマンドであるSORT，MERGEにより， 日本語データも日本語以外のデータと同じように処理できるようになっています。
KEYフィールドによって指定されたフィールドを漢字の音読み，訓読み， 部首コード，総画数あるいは，JISコード・テーブルの順に並べかえることができます。
| 音読み | 漢字属性辞書の第1音読みによる。 |
| 訓読み | 漢字属性辞書の第1訓読みによる。 |
| 部首コード | JIS部首コードによる。 |
| 総画数 | 画数による。 |
| JISコード・テーブル | JIS X 0208コード・テーブルによる。 |
ユーザが指定した全角(ひらがなか，カタカナ)または半角(カタカナ) の振り仮名フィールドを次の照合順序によって並べかえることができます。
また，繰り返し記号は，1文字前の文字を使い，長音符号については 1文字前の文字の母音が使われます。したがって
カート
カァト
ガード
ガート
カアト
カヽト
カカト
カガト
ガアド
ガヽド
ガァト
を/ KEY = (POSITION:1, SIZE:6, KOKUGO)でソートすると，次のようになります。
カアト
カート
カァト
ガート
ガァト
ガアド
ガード
カカト
カヽト
カガト
ガヽド
この節では，SORTとMERGEコマンドの使用方法および日本語ソート/ マージ・サブルーチンについて説明します。
KEY修飾子に日本語用として次のものを追加しています。
以下に使用例を示します。
SORT/KEY=(POSITION:1, SIZE:2, ONYOMI) INDATA.DAT ONDATA.DAT
SORT/KEY=(POSITION:1, SIZE:2, KUNYOMI) INDATA.DAT KUNDATA.DAT
MERGE/KEY=(POSITION:1, SIZE:2, BUSHU) IN1.DAT, IN2.DAT BUSHDATA.DAT
MERGE/KEY=(POSITION:1, SIZE:2, SOKAKU) IN1.DAT, IN2.DAT SOKADATA.DAT
SORT/KEY=(POSITION:10, SIZE:6, KOKUGO) INDATA.DAT SOKADATA.DAT
MERGE/KEY=(POSITION:20, SIZE:8, KANA8BIT) IN1.DAT, IN2.DAT SOKADATA.DAT
SORT/KEY=(POSITION:1, SIZE:2, JISCODE) INDATA.DAT SOKADATA.DAT
また，日本語フィールドの場合には， DCLより同時に複数のソート方式を指定することが可能です。 たとえば次のように指定できます。
SORT/KEY=(POSITION:30, SIZE:6, SOKAKU, ONYOMI, JISCODE) IN.DAT OUT.DAT
これは次の指定方法と同等です。
SORT/KEY=(POSITION:30, SIZE:6, SOKAKU) -
/KEY=(POSITION:30, SIZE:6, ONYOMI) -
/KEY=(POSITION:30, SIZE:6, JISCODE) IN.DAT OUT.DAT
仕様ファイルの中でも，日本語データ・タイプを使用できます。 標準版のドキュメントであげてあるデータ・タイプ( 『OpenVMSユーザーズ・マニュアル』を参照)以外に， 次の疑似データ・タイプを使用できます。
| ONYOMI | (音読み) |
| KUNYOMI | (訓読み) |
| BUSHU | (部首コード) |
| SOKAKU | (総画数) |
| KOKUGO | (国語辞典方式全角振り仮名) |
| KANA8BIT | (国語辞典方式半角振り仮名) |
| JISCODE | (JISコード・テーブル) |
以下に使用例を示します。
$ SORT/SPECIFICATION=SPEC.SRT DATA.DAT OUT.DAT
SPEC.SRTは以下のとおりです。
/FIELD=(NAME=KASHIRA, POSITION:1, SIZE:2, SOKAKU) ------(1)
/FIELD=(NAME=NAMAE, POSITION:1, SIZE:20, BUSHU) ------(2)
/FIELD=(NAME=JUSHO, POSITION:21, SIZE:56) ------(3)
/KEY=NAMAE ------(4)
/DATA=JUSHO ------(5)
/DATA=" " ------(6)
/DATA=NAMAE ------(7)
/CONDITION=(NAME=LEIWA, TEST=(KASHIRA LE " 岩")) ------(8)
/INCLUDE=(CONDITION=LEIWA) ------(9)
(1)，(2)，(3)は"KASHIRA"，"NAMAE"，"JUSHO"という3つのフィールドを定義します。 (4)によって，"NAMAE"フィールドを使って1バイト目から 20バイトを部首順にソートすることが指定されます。この例では， 全部のレコードを出力するのではなく，(8)，(9)で選択したレコードのみを出力します。 つまり，"NAMAE"フィールドの先頭の文字の総画数が，"岩"の総画数8と同じか， または少ないレコードのデータだけを出力するということです。 出力フォーマットは(5)，(6)，(7)によって指定されています。
以下のDATA-1がDATA.DATの場合，DATA-2が結果としてOUT.DATに出力されます。
<DATA-1>
| 岩田誠 | 東京都世田谷区桜上水5丁目3−5 |
| 山本武則 | 東京都杉並区下高井戸1丁目12−35 |
| 白鹿正通 | 東京都葛飾区亀有2丁目24−10 清風荘203号室 |
| 米沢佳美 | 千葉県千葉市板倉町1丁目2−5 |
| 藤井久継 | 東京都練馬区豊玉中2丁目25 JBLコーポ102号室 |
| 飯田秀一 | 東京都世田谷区代田1丁目2−35 豊中マンション801号 |
| 南野陽子 | 東京都新宿区馬場下町3丁目1−1 |
| 近藤佳明 | 東京都杉並区大宮1丁目3−13 壬生川コーポ304号室 |
| 波頭陽一 | 東京都葛飾区柴又5丁目10−22 |
| 田窪健三 | 東京都杉並区永福3丁目32−14 |
| 東京都杉並区下高井戸1丁目12−35 | 山本武則 |
| 東京都葛飾区柴又5丁目10−22 | 波頭陽一 |
| 東京都杉並区永福3丁目32−14 | 田窪健三 |
| 東京都葛飾区亀有2丁目24−10清風荘203号室 | 白鹿正通 |
| 東京都世田谷区桜上水5丁目3−5 | 岩田誠 |
| 千葉県千葉市板倉町1丁目2−5 | 米沢佳美 |
| 東京都杉並区大宮1丁目3−13壬生川コーポ3O4号室 | 近藤佳明 |
標準版SORT/MERGEは以下のサブルーチンを提供しています。
これらのサブルーチンの使い方やパラメータなどについては， 『OpenVMS Utility Routines Manual』または 『OpenVMS Programming Enviroment Manual』を参照してください。 日本語ソート/マージでは，標準版 SORT/MERGEサブルーチンの機能に加えて次の日本語機能が追加されています。
擬似データ・タイプとして以下のコードが使用できます。
| SOR$K_SEQ_ONYOMI | 音読み |
| SOR$K_SEQ_KUNYOMI | 訓読み |
| SOR$K_SEQ_BUSHU | 部首コード |
| SOR$K_SEQ_SOKAKU | 総画数 |
| SOR$K_SEQ_KOKUGO | 国語辞典方式全角振り仮名 |
| SOR$K_SEQ_KANA8BIT | 国語辞典方式半角振り仮名 |
| SOR$K_SEQ_JISCODE | JISコード・テーブル |
これらのコードはSYS$LIBRARY:IMAGELIB.OLBに含まれているので， 特別な指定なしにリンク時に自動的にセットされます。長さはワード( 16ビット)です。
このプログラムは，ファイル" EXAM1.DAT "の最初の12バイト，つまり文字の振り 仮名フィールドを国語辞典順にソートし" EXAM1OUT.DAT "に出力します。
IMPLICIT INTEGER*4 (A-Z)
INTEGER*2 KEYBUFF(5)
CHARACTER*9 IN_FILE
CHARACTER*12 OUT_FILE
EXTERNAL SOR$K_SEQ_KOKUGO
DATA IN_FILE, OUT_FILE /'EXAM1.DAT', 'EXAM1OUT.DAT'/
KEYBUFF(1) = 1 ! Number of KEY
KEYBUFF(2) = %LOC(SOR$K_SEQ_KOKUGO) ! Kokugo dictionary sequence
KEYBUFF(3) = 0 ! Ascending sort
KEYBUFF(4) = 0 ! Key offset
KEYBUFF(5) = 12 ! Size in bytes
STATUS = SOR$PASS_FILES(IN_FILE, OUT_FILE)
IF (.NOT. STATUS) GOTO 10
STATUS = SOR$BEGIN_SORT(KEYBUFF)
IF (.NOT. STATUS) GOTO 10
STATUS = SOR$SORT_MERGE( )
IF (.NOT. STATUS) GOTO 10
STATUS = SOR$END_SORT( )
IF (.NOT. STATUS) GOTO 10
STOP 'SUCCESS'
10 CONTINUE
STOP 'FAILURE'
END
このプログラムは，入力はファイル渡し，出力はレコード渡しを使っています。 またキーは2つあり，第1キーは総画数で昇順，第 2キーは部首コードで降順となっています。
C Define external functions and data and initialize
IMPLICIT INTEGER*4 (A-Z)
CHARACTER*80 RECBUF
CHARACTER*9 INPUTNAME !Input file name
INTEGER*2 KEYBUF(9) !Key definition buffer
EXTERNAL SS$_ENDOFFILE
EXTERNAL SOR$GK_RECORD
EXTERNAL SOR$K_SEQ_BUSHU !Bushu collating sequence
EXTERNAL SOR$K_SEQ_SOKAKU !Sokaku collating sequence
DATA INPUTNAME/'EXAM2.DAT'/
KEYBUF(1) = 2
KEYBUF(2) = %LOC(SOR$K_SEQ_SOKAKU) !Primary key SOKAKU
KEYBUF(3) = 0 !Ascending
KEYBUF(4) = 0 !offset 0
KEYBUF(5) = 10 !size 10
KEYBUF(6) = %LOC(SOR$K_SEQ_BUSHU) !Secondary key BUSHU
KEYBUF(7) = 1 !Descending
KEYBUF(8) = 0 !offset 0
KEYBUF(9) = 10 !size 10
SRTTYPE = %LOC(SOR$GK_RECORD)
C Pass SORT the file names.
ISTATUS = SOR$PASS_FILES(INPUTNAME)
IF (.NOT. ISTATUS) GOTO 10
C Initialize the work areas and keys.
ISTATUS = SOR$BEGIN_SORT(KEYBUF, , , , , , SRTTYPE, %REF(3))
IF (.NOT. ISTATUS) GOTO 10
C Sort the records.
ISTATUS = SOR$SORT_MERGE( )
IF (.NOT. ISTATUS) GOTO 10
C Now retrieve the individual records and display them.
5 ISTATUS = SOR$RETURN_REC(RECBUF)
IF (.NOT. ISTATUS) GOTO 6
ISTATUS = LIB$PUT_OUTPUT(RECBUF)
GOTO 5
6 IF (ISTATUS .EQ. %LOC(SS$_ENDOFFILE)) GOTO 7
GOTO 10
C Clean up the work areas and files.
7 ISTATUS = SOR$END_SORT()
IF (.NOT. ISTATUS) GOTO 10
STOP 'SORT SUCCESSFUL'
10 STOP 'SORT UNSUCCESSFUL'
END
このプログラムは，2つの入力ファイルのマージを行います。キーはオフセット 5より6バイトつまり漢字3文字で入力ファイルが正確に順番どおりになっているかを チェックします。
#include <stsdef.h>
struct DESCRIPTOR {
int leng ;
char *ptr ;
};
globalvalue SOR$K_SEQ_ONYOMI,
SOR$M_SEQ_CHECK;
main(){
char infile1[] = "EXAM31.DAT" ,
infile2[] = "EXAM32.DAT" ,
outfile[]= "EXAM3OUT.DAT" ;
struct DESCRIPTOR
inptr1 ={strlen(infile1) , infile1},
inptr2 ={strlen(infile2) , infile2},
outptr ={strlen(outfile) , outfile};
short lrl, key[5] ;
int status, option;
/* initialize the key */
key[0] = 1 ; /* key no. */
key[1] = SOR$K_SEQ_ONYOMI ; /* onyomi */
key[2] = 0 ; /* ascend */
key[3] = 5 ; /* offset */
key[4] = 6 ; /* size */
lrl = 131; /* LRL */
option = SOR$M_SEQ_CHECK; /* check input sequence */
/* merge the files */
if (!((status=sor$pass_files(&inptr1, &outptr)) & STS$M_SUCCESS))
lib$stop(status);
if (!((status=sor$pass_files(&inptr2)) & STS$M_SUCCESS))
lib$stop(status);
if (!((status=sor$begin_merge(key, &lrl, &option)) & STS$M_SUCCESS))
lib$stop(status);
if (!((status=sor$end_sort()) & STS$M_SUCCESS))
lib$stop(status);
}
日本語ソート/マージには次の制限事項があります。