Ｒ Ｐ Ｇ 一 般
  ＊＊＊    次ページ 目次へ


ここではＲＰＧ-III（ＲＰＧ／４００）について説明します｡ＲＰＧ－ＩＶ（ＩＬＥ－ＲＰＧ）は別のページで紹介します。


ＲＰＧの特長

ＲＰＧは固定カラムにコーディングします。ここが根本的にＣＯＢＯＬやＰＬ／Ｉと異なる処です。
昔はこれがネックになって、コーディングが結構やりにくかったのですが、現在は、
ソース入力ユーティリティ（ＳＥＵ）の機能が向上し、この問題点が解決されています。


ＲＰＧ-IIIの構成

ＲＰＧ-ＩＩＩは次のような仕様書から構成されます。（       ）内は第６カラム目に記述する仕様書コードです。
ただし、必要ない仕様書は省略できます。例えば、演算仕様書だけからなるようなプログラムも作成できます。
プログラムの並び順は、下の順です。

仕様書のタイプ コード 役 目
制御仕様書 Ｈ 日付の様式、２バイト文字使用の記述
ファイル仕様書 Ｆ ファイルについての記述
補足仕様書 Ｅ 配列に関する記述
補足仕様書 Ｌ 印刷出力ファイルに関する記述
入力仕様書 Ｉ データ構造に関する記述
演算仕様書 Ｃ 演算に関する記述
出力仕様書 Ｏ 出力の様式に関する記述

略して、Ｆ仕様書、Ｃ仕様書、あるいは「Ｆ仕」、「Ｃ仕」のように
呼ぶこともあります。ここではＦ仕様書、Ｃ仕様書のように使うことにします。


ＣＯＢＯＬとの対応

ＣＯＢＯＬとの対応は概略次のようになります。
IDENTIFICATION  DIVISION. Ｈ仕様書
ENVIRONMENT DIVISION. Ｆ仕様書
DATA DIVISION. Ｅ、Ｉ、Ｃ仕様書の一部、Ｏ仕様書
PROCEDURE DIVISION Ｃ仕様書

簡単なＲＰＧプログラム

以下に簡単なＲＰＧプログラムを示します。
とりあえず、どんなものか見て下さい。
このプログラムはＭ４２０という得意先マスターを読み、その一覧表を印刷しています。
....+....1....+....2....+....3....+....4....+....5....+....6....+....7.
     H*===============================================================
     H* ID   : LM420
     H* NAME : 得意先一覧表印刷
     H* FUNC : 得意先マスターファイルについて、キー順に順次よみ、
     H*        同一覧表を印刷する。
     H*
     H*===============================================================
     H            Y/                                    1
     F*===============================================================
     FM420    IF  E           K        DISK
     F*
     FLM420AP O   E                    PRINTER
     E*===============================================================
     E*  Ｅ仕様書
     E*   なし
     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*
     C                     READ M420R                    99
     C                     ENDDO
     C* 3.後処理
     C                     SETON                     LR
     C                     RETRN

ＲＰＧで使用できる文字

ＣＯＢＯＬで使用できる文字は、一応すべて使用できると思って下さい。
さらに加えて、＃，￥，＠も使用できます。


各仕様書共通の一般形

各仕様書に共通ののカラムの一般形は次のとおりです。
カラム 内容
１～５桁 パンチカード時代にはシーケンシャルナンバーとして使用されていました。
現在はほとんど使用されていません。更新記録などに使われることがあります。
６桁 仕様書コード（Ｈ，Ｆ，Ｅ，Ｉ，Ｃ，Ｏ）を入れます。
７桁 その行全体を注釈とする場合、＊を指定ます。
７～７２桁 各仕様書の記述を行います。仕様書によって様式が異なります。
７３桁～ 注釈などとして使います。


ＲＰＧで使用できる変数

ＣＯＢＯＬでは３１桁までですが、ＲＰＧ-IIIでは英字で始まる、英数字の６桁までです。

例：正しい例

Ｗ＠ＹＭＤ  
Ｊ  
Ｋ  
Ａ＃￥＠  ＃￥＠も使えます
Ｃ８０  
ＡＢＣ＿ＤＥ ＿（アンダーバーもつかえます）
訂正：アンダーバーが使えるのはＩＬＥ－ＲＰＧでした。

誤りの例
Ａ１２３４５６ 桁数が多い
ＡＢＣ－Ｘ －（ハイフン）は使用できない。
ＡＢＣ．Ｘ ．（ピリオド）は使用できない。
２ＡＢＣ 数字で始まるのは不可。


ネーミングの工夫

ＲＰＧでは変数の桁数が少ないことで、ネーミングで困ることがあります。
そこで、一般によく使われるのが、大分類２桁と詳細４桁でネーミングをする方法です。
大分類２桁は、定義する場所（即ち出生地）を利用するのが便利です。
例えば得意先マスターの更新日付の場合、
ＴＫ＋ＵＰＤＴ   で、  ＴＫＵＰＤＴ
のようにします。
プログラムの中で定義する場合はＷＫ、あるいはＷ＠などを使い、

ＷＫＵＰＤＴ，Ｗ＠ＵＰＤＴ

のようにします。それでも重複するような場合は、

Ｗ１ＮＡＭＥ，Ｗ２ＮＡＭＥ

のように２桁目に数字を使用すると便利です。
ただし、添字は後述する理由により、１桁あるいは２桁で使用するのが便利です。
配列の数の場合は、Ｎと配列の頭文字で、配列の添え字の場合はＸと配列の頭文字で合成した
変数を専用に使用するなどの決め事をしておくと開発やデバッグがらくになります。
例：
配列名 配列の数 要素の添え字
ＡＢＣ ＮＡ ＸＡ
ＴＡＸ ＮＴ ＸＴ
ＹＭＤ ＮＹ ＸＹ


特殊な機能を持つ用語／予約語

つぎのようなものがあります。
ＲＰＧ ＣＯＢＯＬ 意味
＊ＯＮ Ｂ’１’ ’１’
＊ＯＦＦ Ｂ’０’ ’０’
＊ＢＬＡＮＫ ＳＰＡＣＥ ブランク文字、１６進の４０
＊ＺＥＲＯ ＺＥＲＯ 零
＊ＬＯＶＡＬ ＬＯＷ－ＶＡＬＵＥ システムで一番照合順位の低い値
＊ＨＩＶＡＬ ＨＩＧＨ－ＶＡＬＵＥ システムで一番照合順位お高い値
＊ＡＬＬ  ’Ａ’ ＡＬＬ ’Ａ’ 全て’Ａ’
＊ＩＮｎｎ 該当なし 標識のnn番。nnは01～99
＊ＥＮＴＲＹ 該当なし 入り口点
＊ＬＩＫＥ ＬＩＫＥ 属性の継承

以下工事中。




  ＊＊＊    次ページ 目次へ


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