データベース・ファイルの読み取り

１．複合キー　－ＫＬＩＳＴ／ＫＦＬＤ

複合キーの定義
複合キーを定義する場合、「ＫＬＩＳＴ」命令、「ＫＦＬＤ」命令を使用します。ＫＬＩＳＴ命令は、複合キー・フィールドを参照する名前を指示するために使用し、ＫＦＬＤ命令は、複合キーを構成するフィールドを支持する為に使用します。ＫＬＩＳＴとそれに対応するＫＦＬＤは演算仕様書のどこで指定してもかまいません。

１）ＫＬＩＳＴ命令
　　複合キーに名前を付けます。
　　「演算項目１」　　　：複合キーの名前
　　「演算命令」　　　　：ＫＬＩＳＴ
２）ＫＦＬＤ命令
　　複合キーを構成する変数を指定します。
　　「演算命令」　　　　：ＫＦＬＤ
　　「結果のフィールド」：変数名

複合キーのキー・フィールド
ＫＥＬＤはデータベース・ファイルのキー・フィールドの順に従って個別に指定しますが、キー・フィールドの数と必ずしも一致させる必要はありません。
図の例では、データベース・ファイルのキー・フィールドが伝票番号／発生日／ボディ№／ヘッド№で構成されています。この場合、上位のキー・フィールドで複合キーを構成できます。

２．ポインターのセット　－ＳＥＴＬＬ／ＳＥＴＧＴ

ＳＥＴＬＬ命令（Set Lower Limit）
ＳＥＴＬＬ命令は、キーまたは相対レコード番号の値が「演算項目１」で指定した値と等しいか、より大きい次のレコードの市にポインターをセットします。
ポインターをセットするだけで読み取りは行いません
　「演算項目１」　　：探索キー（複合キーでもよい）
　「演算命令」　　　：ＳＥＴＬＬ
　「演算項目２」　　：ファイル名またはレコード様式名（外部記述ファイルのみ）
　「結果の標識ＨＩ」：「演算項目１」で指定した値がファイルの一番大きいキーまたは
　　　　　　　　　　　相対レコード番号より大きい場合にオンセットされます。
　「結果の標識ＬＯ」：不可
　「結果の標識ＥＱ」：「演算項目１」で指定した値と同じファイルのキーまたは相対
　　　　　　　　　　　レコード番号があればオンセットされます。

ＳＥＴＧＴ命令（Set Greater Than）
ＳＥＴＧＴ命令は、キーまたは相対レコード番号の値が「演算項目１」で指定した値より大きい次のレコードの位置にセットします。
ポインターをセットするだけで読み取りは行いません。
　「演算項目１」　　：探索キー（複合キーでもよい）
　「演算命令」　　　：ＳＥＴＧＴ
　「演算項目２」　　：ファイル名またはレコード様式名
　「結果の標識ＨＩ」：「演算項目１」で指定した値より大きいキーまたは相対レコード番号が
　　　　　　　　　　　見つからなかった場合にオンセットされます。
　「結果の標識ＬＯ」：不可
　「結果の標識ＥＱ」：不可

３．順次読み取り－ＲＥＡＤ／ＲＥＡＤＰ／ＲＥＡＤＥ／ＲＥＡＤＰＥ

データベース・ファイルの読み取り命令は、順次読み取りと直接読み取りの２種類に分けられます。

ＲＥＡＤ命令
レコードの並び順に従って順次に読み取ります。
ＲＥＡＤ命令は全手順ファイルから現在位置付けられているレコードを読み取ります。
レコードが読み取れた場合、ポインターは次のレコードに位置付けられます。
「演算命令」　　　：ＲＥＡＤ
「演算項目２」　　：ファイル名またはレコード様式名
「結果の標識ＨＩ」：不可
「結果の標識ＬＯ」：読み取りの不成功を示す標識
　　　　　　　　　　レコードの読み取りが不成功の時にオンセットされます。
「結果の標識ＥＱ」：ファイルの終わりを示す標識
　　　　　　　　　　レコードが読み取れるとオフになり、読み取れないとオンセットされます。

ＲＥＡＤＰ命令
レコードの並び順の逆順に読み取ります。
ＲＥＡＤＰ命令は全手順ファイルから現在位置付けられている前のレコードを読み取ります。
レコードが読み取れた場合、ポインターは１つ前のレコードに位置付けられます。
「演算命令」　　　：ＲＥＡＤＰ
「演算項目２」　　：ファイル名またはレコード様式名
　「結果の標識ＨＩ」：不可
「結果の標識ＬＯ」：読み取りの不成功を示す標識
　　　　　　　　　　レコードの読み取りが不成功の時にオンセットされます。
「結果の標識ＥＱ」：ファイルの始めを示す標識
　　　　　　　　　　レコードが読み取れるとオフになり、ファイルに前のレコードがなくなって
　　　　　　　　　　読み取れない時にオンセットされます。

ＲＥＡＤＥ命令
現在のポインター位置から「演算項目１」で指定した探索キーと一致するレコードを順次に読み取ります。
「演算項目１」　　探索キー（複合キーでもよい）
「演算命令」　　　：ＲＥＡＤＥ
「演算項目２」　　：ファイル名またはレコード様式名
「結果の標識ＨＩ」：不可
「結果の標識ＬＯ」：読み取りの不成功を示す標識
　　　　　　　　　　レコードの読み取りが不成功の時にオンセットされます。
「結果の標識ＥＱ」：読み取るレコードが無い時オンセットされます。

ＲＥＡＤＰＥ命令
現在のポインター位置から「演算項目１」で指定した探索キーと一致するレコードを逆順に読み取ります。
「演算項目１」　　探索キー（複合キーでもよい）
「演算命令」　　　：ＲＥＡＤＰＥ
「演算項目２」　　：ファイル名またはレコード様式名
「結果の標識ＨＩ」：不可
「結果の標識ＬＯ」：読み取りの不成功を示す標識
　　　　　　　　　　レコードの読み取りが不成功の時にオンセットされます。
「結果の標識ＥＱ」：読み取るレコードが無い時オンセットされます。

４．直接読み取り－ＣＨＡＩＮ

ＣＨＡＩＮ命令
「演算項目１」で指定した探索キーと一致するレコードを直接読み取ります。
「演算項目１」　　：探索キー（複合キーでもよい）
「演算命令」　　　：ＣＨＡＩＮ
「演算項目２」　　：ファイル名またはレコード様式名
「結果の標識ＨＩ」：探索キーと一致するレコードが無い場合にオンセットされます。
「結果の標識ＬＯ」：読み取りの不成功を示す標識
　　　　　　　　　　レコードの読み取りが不成功の時にオンセットされます。
「結果の標識ＥＱ」：不可
※「演算項目１」はデータベース・ファイルのキーと同じ属性を持った探索キーになります。

              
CL0N01FACTOR1+++++++OPCODE&EXTFACTOR2+++++++RESULT++++++++LEN++D+HILOEQ....
C*　TESTDBが読み込めた場合
C　　　　　　　　　 READ　　　TESTDB
C　　　　　　　　　 IF　　　　%FOUND(TESTDB)
C*　TESTDBが読み込めない場合
C　　　　　　　　　 READ　　　TESTDB
C　　　　　　　　　 IF　　　　NOT %FOUND(TESTDB)