| ＲＰＧによるコーディング | 簡単な会話型処理 |
ＲＰＧによるコーディング方法を取り上げます。随時増ページの予定です。
画面ファイルを使用した会話型処理
もっとも簡単な会話側処理の例を紹介します。
画面の２行目３カラムからガイドを表示し、Ｙ：ＹＥＳかＮ：ＮＯを取得し、パラメータで呼び出しプログラムに
取得した結果を返します。
画面ファイルのＤＤＳは次のようになります。
**. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 A R FMT01 TEXT(' 応答要求画面 ') A 2 3' 確認して下さい (Y/N)' A S1RES 1A B +1TEXT(' 応答 ')
最初の行ＦＭＴ０１はレコード様式名です。
２行３列から、確認のガイドを表示しています。
応答はＳ１ＲＥＣというフィールド名で，１Ａすなわち、１桁の英数字です。
入力と出力に使用するので使用法を、Ｂ（ｂｏｔｈ）としています。
＋１は前のフィールドからの相対的位置です。
プログラムロジック
プログラムは応答（Ｓ１ＲＥＳ）がＹかＮになるまで、処理を繰返します。
このようなプログラムは入力の最後に確認の応答を求めるサブ・プログラムとして応用できます。
プログラム例
**. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 FA110S CF E WORKSTN C*-------------------------------------------------------------- C *ENTRY PLIST C PARM S1RES 1 応答 C* 画面ループ処理 +----C S1RES DOUEQ'Y' | C S1RES OREQ 'N' | C EXFMTFMT01 +----C ENDDO C* C SETON LR C RETRN
最初の行は画面ファイルの記述です。１５桁目のＣが会話型のファイルを示します。
４０桁目からの装置はワークステーションを意味します。
プログラムはパラメータで呼出側に応答の１文字をかえします。
画面との入出力はＥＸＦＭＴ（ｅｘｅｃｕｔｅ ｆｏｒｍａｔ）命令を使用します。これは出力＋入力の命令です。
ＷＲＩＴＥ命令＋ＲＥＡＤ命令でも同じことができます。
繰返しはＤＯＵＥＱ（ＤＯ ＵＮＴＩＬ ＥＱＵＡＬ）で行っています。
以上一番簡単な会話型処理の例を紹介しました。
前ページ 次ページ 目 次
（Ｃ）ＣＯＰＹＲＩＧＨＴ ＩＳＨＩＯＫＡ ＫＡＴＳＵＨＩＤＥ ２００２−２００３