Ｒ Ｐ Ｇ ファイル仕様書
前ページ 次ページ 目次へ


ファイル仕様書では、プログラムで使用するファイルについて記述します。
ＣＯＢＯＬのＥＮＶＩＲＯＮＭＥＮＴ ＤＩＶＩＳＩＯＮに相当します。



ファイルは大別して、データベース、画面ファイル、印刷ファイルの３種です。
６桁 仕様書コードＦを入れます。
７～１４桁 ファイルＩＤを指定します。
１５桁 ファイルの入出力のモードを指定します。
Ｉ ：入力、Ｏ ：出力、Ｕ ：更新、Ｃ ：会話型です。
１９桁 プログラムの内部で記述したファイル情報を使用するか
外部で記述したファイル情報を使用するか指定します。
Ｅ ：外部で記述したファイル情報を使用
Ｆ ：内部で記述したファイル情報を使用
内部記述については別項をもうけて説明します。
４０～４６桁 装置名を指定します。
ＤＩＳＫ ： 磁気ディスク装置
ＰＲＩＮＴＥＲ ：印刷装置
ＷＲＫＳＴＮ ： ワークステーション


例：データベースと印刷ファイルの例
（７桁目が＊のものは注釈です）

 ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 
     FM420    IF  E           K        DISK
     F*
     FLM420AP O   E                    PRINTER
     F*

カラムスケールを入れてあるので、参考にして下さい。
このプログラムはファイルＭ４２０からレコードを読取り、印刷ファイル
ＬＭ４２０ＡＰに印刷出力するプログラムの一部です。

説明：
Ｍ４２０ 読取するファイルの名前です。
数字をファイル名にする必要はありません。
ＩＦ 入力専用で、読取の手順は各種の読取りの指定を可能に
とするよう、Ｆ（Ｆｕｌｌ手順）を指定しています。
Ｅ ファイルの外部記述情報を使用を指定しています。
Ｋ レコードの位置の特定をファイルのキーによることを指定します。
ＬＭ４２０ＡＰ 印刷ファイルの名前です。ここではＭ４２０の内容を
リスティングするということで、ＬをつけてＬＭ４２０、
さらにバリエーションのＡ、最後のＰは印刷ファイルの
つもりで、Ｐとしています。
Ｏ 出力専用ということです。
Ｅ プログラムでファイルの外部記述情報を、使用することを指定しています。
ＰＲＩＮＴＥＲ 印刷装置を示します。

ＣＯＢＯＬとの差

ＲＰＧではファイル名は外部の実体名を使用します。
プログラム内で使用するファイル名と、外部の実体名が異なる場合は、ＣＬと呼ばれる制御言語の
ＯＶＲＤＢＦコマンドで結びつけ（一時変更）を行います。

ＲＰＧでは原則として、ファイルはプログラム開始時に自動的にＯＰＥＮされます。
ＲＰＧでＯＰＥＮ命令はありますが、ＣＯＢＯＬのように明示的にＯＰＥＮすることはほとんどありません。


外部記述

ＡＳ／４００では、ファイルはデータベースファイルとして、かなりの情報を持って定義されます。
（レコード様式もそのひとつ）
プログラムでは「その情報を利用する」とだけ定義し、レコードの様式などをプログラム内部で
改めて定義するようなことは極力さけます。
例えば、上の例のファイル，Ｍ４２０は次のような様式で定義されている想定です。
外部情報を利用すれば、ＣＯＢＯＬのようにＰＩＣＴＵＲＥ定義は必要ありません。
（プログラムで定義のし直しもできます）

Ｍ４２０のレコードレイアウト
削除フラグ １
得意先№ ５
得意先名 ４２ （２バイトコード文字混在可）
得意先カナ ２０
電話番号 １２
業種コード ２
フラグ １
売上実績 １１ （ゾーン１０進数）

参考プログラム

ここでサンプルとしているのは、次のようなプログラムです。
....+....1....+....2....+....3....+....4....+....5....+....6....+....7..
     H*===============================================================
     H* ID   : LM420
     H* NAME : 得意先一覧表印刷
     H* FUNC : 得意先マスターファイルについて、キー順に全件、順次に、
     H*        読取、同一覧表を印刷する。
     H*===============================================================
     H            Y/                                    1
     F*===============================================================
     FM420    IF  E           K        DISK
     FLM420AP O   E                    PRINTER
     E*===============================================================
     E*
     I*===============================================================
     I*
     C*===============================================================
     C* 1.前処理
     C                     READ M420R                    99
     C* 2.本処理
     C           *IN99     DOWEQ*OFF
     C*
     C                     MOVELTKTKNO    P@TKNO           得意先№
     C                     MOVELTKNMKJ    P@NMKJ           得意先名
     C                     MOVELTKNMKN    P@NMKN           得意先カナ
     C                     MOVELTKTEL     P@TEL            電話番号
     C           TKUR\     DIV  1000      P@UR\            売上実績
     C*
     C                     WRITEDTL01
     C                     READ M420R                    99
     C                     ENDDO
     C* 3.後処理
     C                     SETON                     LR
     C                     RETRN


各種よみとりモード

ＲＰＧにはＣＯＢＯＬにはない読取モードがあります。
命令 読取モード
ＲＥＡＤ 通常のリード
ＲＥＡＤＥ 指定されたキーを持つもののみ順次読取。
ＰＥＡＤＰ 通常のリードの逆順の順次読取。
ＲＥＤＰＥ 指定されたキーをもつもののみの逆順の順次読取。
ＣＨＡＩＮ 指定されたキーを持つレコード１件だけ読取。




前ページ 次ページ 目次へ

（Ｃ）ＣＯＰＹＲＩＧＨＴ ＩＳＨＩＯＫＡ ＫＡＴＳＵＨＩＤＥ ２０００