| ＲＰＧによるコーディング | 会話型処理（１） |
ＲＰＧによるコーディング方法を取り上げます。随時増ページの予定です。
画面ファイルを使用した会話型処理
ここでは画面からの入力によって、得意先マスターファイル（Ｍ４２０）を更新するケースを
想定します。レコードの追加、変更、削除の処理をまとめて更新ということにします。
シナリオ（ロジック）
会話型処理の方法はいろいろなやりかたがありますが、ここでは、第１画面、第２画面、・・・と
進行し、処理が正常に終了すれば、また第１画面に戻るというシナリオで話しをすすめます。
この方法だと、各画面の独立性が高く、処理も簡単で、デバッグなどにおいて注意を配る
必要のある範囲が広がらないという利点があります。そのロジックは次のようになります。
終了キー（Ｆ３キー）が押されるまで以下の処理を繰り返します。
画面番号により以下の処理
１．第一画面のとき
マスターファイル更新のキー部分を取得のための画面を表示します。
第一画面から入力を取得します。
１.１ Ｆ３キーのとき、プログラム終了します。
１.２ Ｆ６キーのとき、処理モードを切替します。
１.３ 実行キーのとき、入力チェックをします。
ＯＫなら第二画面への画面番号にします。
２．第二画面のとき
マスターのデータ部分取得のための画面を表示します。
第二画面から入力を取得します。
２.１ Ｆ１２キーのとき、第一画面への番号にします。
２.２ 実行キーのとき入力チェックをします。
結果ＯＫなら更新確認状態にします。
結果ＯＫですでに更新確認状態であれば、ファイルを更新します。
画面番号を１にします。
ここで説明するのは、第１・第２の２枚の画面のケースですが、この方法では画面が何枚ふえても、
第３画面のとき、第４画面のとき、・・・のようにプログラムを拡張してゆくことができます。
プログラム作成の前準備
ＲＰＧプログラムを作成するまえに、プログラムが必要とするファイルを作成しておく必要があ
ります。ここでは、画面ファイル（ＲＭ４２０Ｓ）と、マスターファイル（Ｍ４２０）です。
画面ファイル
画面ファイルは以下のような２枚の画面からなるものとします。
第１画面（キー部分入力画面）
RM420 追加 得意先マスター更新 0/08/21 12:02:11 得意先№ F3= 終了 F6= 処理選択
第２画面（データ部分入力画面）
RM420 追加 得意先マスター更新 0/08/21 12:02:34 得意先№ 55555 得意先名 五目そば商店株式会社 カナ名称 ｺﾞﾓｸｿﾊﾞｼｮｳﾃﾝ(ｶﾌﾞ) ＴＥＬ 05-5555-5555 担当営業 5555 売上実績 F12= 取消
この画面の定義記述（ＤＤＳ）は次のようになります。
A*----------------------------------------------------------- A* ID : RM420S A* NAME : 得意先マスター更新画面 A*----------------------------------------------------------- A INDARA A R FMT01 OVERLAY PROTECT A CF03 CF06 A* A S1PGID 10A O 1 2 TEXT('PGM-ID') A S1MOD 6O +1 TEXT(' 処理モード ') A 1 31' 得意先マスター更新 ' A DSPATR(RI) A 1 61 DATE EDTCDE(Y) A 1 71 TIME A* A 3 2 ' 得意先№ ' A S1TKNO 5A B +1TEXT(' 得意先№ ') A 31 DSPATR(PC RI) A R FMT02 OVERLAY PROTECT A CF12 A CHANGE(29) A* A 5 2 ' 得意先名 ' A S1NMKJ 42O B +1TEXT(' 得意先名 ') A 32 DSPATR(PC RI) A 28 DSPATR(PR) A 6 2 ' カナ名称 ' A S1NMKN 20A B +1TEXT(' カナ名称 ') A 33 DSPATR(PC RI) A 28 DSPATR(PR) A 7 2 ' ＴＥＬ ' A S1TEL 12A B +1TEXT(' ＴＥＬ ') A 28 DSPATR(PR) A 8 2 ' 担当営業 ' A S1SLNO 4A B +1TEXT(' 担当営業 ') A 28 DSPATR(PR) A 9 2 ' 売上実績 ' A S1URGK 11Y 0O +1TEXT(' 売上実績 ') A EDTCDE(K) A*----------------------------------------------------------- A R FMT99 A 01 23 2 'F3= 終了 F6= 処理選択 ' A 02 23 2 'F12= 取消 ' A S9MSG 78A O 24 1TEXT(' ＭＳＧ ')
第１画面
第１画面はＦＭＴ０１とＦＭＴ９９の２つの様式から構成されます。
ＦＭＴ０１はキーデータ入力のための様式、ＦＭＴ９９はキーガイド、メッセージ表示の様式です。
第２画面
第２画面はＦＭＴ０１，ＦＭＴ０２，ＦＭＴ９９の３つの様式から構成されます。
ＦＭＴ０１、ＦＭＴ９９は上記に同じ。ＦＭＴ０２はデータ部入力のための様式です。
物理ファイル
更新対象となるファイルは次のように定義されているものとします。
制御仕様書（Ｈ仕様書）
通常のコーディングです。
...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 H Y-
ファイル仕様書
画面ファイル（ＲＭ４２０Ｓ）を使用するときは、１５，１６カラムをＣＦとします。
Ｃは入出力両用の意味です。装置はＷＯＲＫＳＴＮとします。
更新対象のマスターファイル（Ｍ４２０）は、変更、削除ありなので１５，１６カラムをＵＦと
します。またキーによるアクセスなので、３１カラムをＫとします。装置はＤＩＳＫ，レコードの
追加あり（ＷＲＩＴＥ命令使用）なので、６４カラムにＡを記述します。
ＭＳＧＦは、メッセージテキストを実行開始時に、ＭＳＧテーブルにローディングするためのもの
です。５０バイトのレコード長の単純なファイルで、入力専用のテーブルファイルなので、１５，
１６カラムをＩＴとしています。また外部記述を使用しないので１９カラムはＦとし、２６，２７
カラムにレコード長（５０）を記述します。さらに、拡張仕様書（Ｅ仕様書）でテーブルの追加の
記述が必要なので、３９カラム目にＥを記述します。装置はＤＩＳＫです。
...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 FRM420S CF E WORKSTN FM420 UF E K DISK A FMSGF IT F 50 EDISK
拡張仕様書（Ｅ仕様書）
テーブルＭＳＧにデータをローディングするために、１１～１８カラムで上記のＭＳＧＦを指定
します。１レコードあたりのデータ数は１、レコード件数は５、データの長さは５０を指定します。
...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 E MOD 1 4 6 E MSGF MSG 1 5 50
処理モード名（追加・変更・削除）を準備するために、ＭＯＤを定義します。データはプログラムの
末尾に準備します。
シナリオ制御用の画面番号
次はどの番号の画面かを示す、画面制御用にフィールドを準備します。
演算仕様書（Ｃ仕様書）で定義しても差し支えありませんが、制御用のフィールドのような
重要なものはきっちりと、入力仕様書で定義するのもひとつの方法です。
...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 I DS I I 01 1 20W@FMT
基本処理の流れ
基本処理の流れは、初期処理、主処理、終了処理です。
このパターンはどのようなプログラムでも共通にできます。
C* 初期処理 C EXSR SBINZ C* 主処理 C EXSR SBMAIN C* 終了処理 C EXSR SBEND
主処理の中の流れ
主処理では終わりがリクエストされるまで、繰り返し処理をします。
終わりのリクエストはＦ３キーの押下で、ＲＰＧプログラムでは＊ＩＮＫＣが＊ＯＮとして認識
されます。第１画面に関する処理はＳＢ１０００とその配下のプログラムに、第２画面は同じく
ＳＢ２０００とその配下のプログラムの一手販売とします。
C* SBMAIN 主処理 C*--------------------------------------------------------------- C SBMAIN BEGSR C* +----C *INKC DOWEQ*OFF |+---C W@FMT CASEQ01 SB1000 第一画面 |+---C W@FMT CASEQ02 SB2000 第二画面 |+---C ENDCS +----C ENDDO C* C ENDSR
第一画面の処理
第１画面の処理の役目は、正しいキー部分のデータを入手することです。
画面のリクエスト番号が１である間、繰り返し処理をします。
画面表示の前準備
標識の０１番０２番を１，０とセットします。これは画面ファイルで記述した第１第２画面のキー
ガイドを標識いよって、表示／非表示操作をするためです。
ＲＰＧではこのような標識を使った操作はよく使われます。
標識セットはＳＥＴＯＮ、ＳＥＴＯＦ命令でするのがすじですが、ここではＭＯＶＥＡ命令で１行ですませています。
C* 第一画面向けセット C MOVEA'10' *IN,01
第１画面の表示
ＦＭＴ９９とＦＭＴ０１で第一画面なので、ＦＭＴ９９をＷＲＩＴＥ，ＦＭＴ０１はＥＸＦＭＴで入出力します。
画面からの入力による処理
画面からの入力は、入力データとアテンション・キーの情報があります。
アテンション・キーとはワーク・ステーションからデータ転送をする引き金になったキーで
実行キーのほかにＦ０１～Ｆ２４キー、スクロールキー、ＰＲＩＮＴキーなどがあります。
ここででてくるのはＦ０３、Ｆ０６、実行キーなどです。それぞれ次のような約束にしています。
Ｆ０３：終了リクエスト
Ｆ０６：処理モード切替え
ＲＰＧではＦ０３は＊ＩＮＫＣ，Ｆ０６は＊ＩＮＫＦとして認識されます。
データ入力後の処理
第１画面では、Ｆ０３、Ｆ０６、実行キーの３ケースの処理があります。
それぞれに対応した処理をコーディングします。すなわち
Ｆ０３のとき、終了リクエストなのでここの繰返しを抜けるようにセットします。
Ｆ０６のとき、処理モード変更リクエストなので、そのための内部サブを呼び出します。
実行キーのとき、入力データの妥当性チェックの内部サブ（ＳＢ１２３０）を呼び出します。
チェックＯＫ（＊いＮ３０＝＊ＯＦＦ）なら、次の画面を２とし、ファイルからの読取りデータを
画面にセットする内部サブ（ＳＢ１２５０）を呼び出します。
コーディングは次のようになります。
C* SB1000 第一画面処理 C*--------------------------------------------------------------- C SB1000 BEGSR C* C* 第一画面へセット C MOVEA'10' *IN,01 C* +----C W@FMT DOWEQ01 | C* 第一画面表示 | C WRITEFMT99 | C EXFMTFMT01 | C MOVE *BLANK S9MSG | C* |+---C SELEC || C* F3 |+---C *INKC WHEQ *ON || C Z-ADD00 W@FMT 終了要求 || C* F6 |+---C *INKF WHEQ *ON || C EXSR SB1220 処理変更 || C* ENTER |+---C OTHER || C EXSR SB1230 実行キー ||+--C *IN30 IFEQ *OFF ||| C EXSR SB1250 画面へ ｾｯﾄ ||+--C ENDIF || C* |+---C ENDSL +----C ENDDO C* C ENDSR
処理変更、チェック、画面へセットの処理については省略します。
第２画面の処理
第２画面の処理の役目は、正しいデータ部分のデータを入手することです。
画面のリクエスト番号が２である間、繰り返し処理をします。
前準備
標識の０１番０２番を０，１とセットします。これは画面ファイルで記述した第１第２画面のキー
ガイドを標識で、表示／非表示の操作するためです。
また削除モードのとき、マスターファイルから読みとって表示する画面のデータは変更しても
無意味なので、変更できないようにプロテクトの標識（２８）を＊ＯＮにします。
削除でない場合は、プロテクトしないので＊ＯＦＦにします。
C* 第二画面向けセット C MOVEA'01' *IN,01
第２画面の表示
第２画面はＦＭＴ９９とＦＭＴ０１，ＦＭＴ０２なので、ＦＭＴ９９，ＦＭＴ０１をＷＲＩＴＥ，
ＦＭＴ０２はＥＸＦＭＴで入出力します。
画面からの入力による処理
ここでのアテンションキーはＦ１２と実行キーのみです。
Ｆ１２は第２画面から第１画面へもどるリクエストなので画面番号を１にします。
実行キーはデータ部の入力なのでチェックを行い、正しければファイルの更新を行います。
これは内部サブ（ＳＢ２２５０）を呼び出して行います。
コーディングは次のようになります。
C* SB2000 第二画面処理 C*--------------------------------------------------------------- C SB2000 BEGSR C* C* 第二画面へセット C MOVEA'01' *IN,01 C MOVE *BLANK S9MSG ERR-MSG +----C W@MOD IFEQ 04 削除 | C SETON 28 ﾌﾟﾛﾃｸﾄ | C MOVELMSG,4 S9MSG 更新確認 +----C ELSE | C SETOF 28 NONﾌﾟﾛﾃｸﾄ +----C ENDIF C* +----C W@FMT DOWEQ02 第二画面 | C* 画面表示 | C WRITEFMT99 | C WRITEFMT01 | C EXFMTFMT02 | C MOVE *BLANK S9MSG | C* |+---C SELEC |+---C *INKL WHEQ *ON 取消キー || C Z-ADD01 W@FMT |+---C OTHER || C EXSR SB2230 実行キー |+---C ENDSL +----C ENDDO C* C ENDSR
エラーチェックと表示
画面からの入力データはいつも正しいとは限らないので、エラーチェックを行います。
そして、正しくなければそれを画面に表示します。
エラーの有無は画面フィールドに標識番号を対応させ、該当のフィールドにエラーがあればその
標識を＊ＯＮにします。この標識は画面ファイルで「カーソル位置付け」「反転高輝度」の属性に
関連づけておき、操作員にエラーの確認をしやすくしておきます。
たとえば得意先名の入力なしはエラーとして、そのフィールドには標識３２を関連づけるとすると
画面ファイルの記述は次のようになります。
A 5 2 ' 得意先名 ' A S1NMKJ 42O B +1TEXT(' 得意先名 ') A 32 DSPATR(PC RI) A 28 DSPATR(PR)
この例で、標識２８は先にでてきたように削除の場合、入力フィールドをプロテクトするためのものです。
ファイルの更新確認と更新
エラーがなければファイルの更新ですが、ここでは１度目は確認のメッセージのみ、画面訂正なし
で２度目のエラーなしのとき、ファイル更新をします。
そのために、画面ファイルで画面訂正の有無を感知するため、ＣＨＡＮＧＥパラメータを記述し、
標識２９を定義しています。ＣＨＡＮＧＥパラメータを使用すると、画面のデータを訂正して転送すると、
該当の標識（ここでは２９）が＊ＯＮになります。
A R FMT02 OVERLAY PROTECT A CF12 A CHANGE(29)
ファイル更新の内部サブ（ＳＢＵＰＤ）が呼ばれるのは、
チェックでエラーなしで、かつ、画面訂正なし、のときです。
更新後は、当然第１画面へ戻るので画面番号１をセットします。
コーディングは次のようになります。
C* SB2230 第二画面のチェック C*-------------------------------------------------------------- C SB2230 BEGSR C* C* 属性の取得 C* （名前などの取得） C* エラーチェック C SETOF 303233 C* 得意先名入力なしはエラー +----C S1NMKJ IFEQ *BLANK | C MOVELMSG,3 S9MSG 要入力 | C SETON 3032 +----C ENDIF C* 得意先カナ名入力なしはエラー +----C S1NMKN IFEQ *BLANK | C MOVELMSG,3 S9MSG 要入力 | C SETON 3033 +----C ENDIF C* 更新確認／更新 +----C *IN30 IFEQ *OFF NO-ERROR |+---C *IN29 IFEQ *OFF NO-CHANGE || C EXSR SBUPD || C Z-ADD01 W@FMT |+---C ELSE CHANGED || C MOVELMSG,4 S9MSG 更新確認 |+---C ENDIF +----C ENDIF C* C ENDSR
ＲＰＧ全ソースリストは次のとおりです。
**--------------------------------------------------------------- ** ID : RM420 ** ** NAME :得意先マスター更新 ** ** FUNC :標記第一画面を表示し、画面から更新する得意先№が ** 入力されたなら、その妥当性をチェックする。 ** ＯＫなら第二画面を表示する。第二画面でデータが ** 入力されたなら、その妥当性をチェックし、ＯＫなら ** マスターファイルを更新し、第一画面にもどる。 ** Ｆ０６キーが押されたときは、追加・変更・削除と順に処理 ** モードを切り替える。 ** ** NOTE : ** *IN29 モディファイフラグ *ON: MODIFIED ** *IN30 エラーフラグ *ON: ERR *OFF:OK ** **--------------------------------------------------------------- H Y- F*--------------------------------------------------------------- FRM420S CF E WORKSTN FM420 UF E K DISK A FMSGF IT F 50 EDISK E*--------------------------------------------------------------- E MOD 1 4 6 E MSGF MSG 1 5 50 I DS I I 01 1 20W@FMT C*--------------------------------------------------------------- C*初期処理 C EXSR SBINZ C*主処理 C EXSR SBMAIN C*終了処理 C EXSR SBEND C* C*--------------------------------------------------------------- C* SBMAIN 主処理 C*--------------------------------------------------------------- C SBMAIN BEGSR C* +----C *INKC DOWEQ*OFF |+---C W@FMT CASEQ01 SB1000 第一画面 |+---C W@FMT CASEQ02 SB2000 第二画面 |+---C ENDCS +----C ENDDO C* C ENDSR C*--------------------------------------------------------------- C* SBINZ 初期処理 C*--------------------------------------------------------------- C SBINZ BEGSR .INZ C* C Z-ADD04 W@MOD 70 処理モード C SETOF 30 SET NO-ERR C* C MOVEL'RM420' S1PGID PGM-ID C EXSR SB1220 処理選択 C* C ENDSR C*--------------------------------------------------------------- C* SB1000 第一画面処理 C*--------------------------------------------------------------- C SB1000 BEGSR C* C*第一画面へセット C MOVEA'10' *IN,01 C* +----C W@FMT DOWEQ01 | C*第一画面表示 | C WRITEFMT99 | C EXFMTFMT01 | C MOVE *BLANK S9MSG | C* |+---C SELEC || C* F3 |+---C *INKC WHEQ *ON || C Z-ADD00 W@FMT 終了要求 || C* F6 |+---C *INKF WHEQ *ON || C EXSR SB1220 処理変更 || C* ENTER |+---C OTHER || C EXSR SB1230 実行キー ||+--C *IN30 IFEQ *OFF ||| C EXSR SB1250 画面へｾｯﾄ ||+--C ENDIF || C* |+---C ENDSL +----C ENDDO C* C ENDSR C*--------------------------------------------------------------- C* SB1220 処理モード決定 ADD ->CHG ->DEL C*--------------------------------------------------------------- C SB1220 BEGSR C* +----C SELEC +----C W@MOD WHEQ 01 | C Z-ADD02 W@MOD 変更 +----C W@MOD WHEQ 02 | C Z-ADD04 W@MOD 削除 +----C W@MOD WHEQ 04 | C Z-ADD01 W@MOD 追加 +----C ENDSL C* C MOVELMOD,W@MOD S1MOD モード名 C* C ENDSR C*--------------------------------------------------------------- C* SB1230 実行キーが押されたときの処理 C*--------------------------------------------------------------- C SB1230 BEGSR C* C SETOF 3031 ERR-OFF C CLEARM420R C*試し読み C S1TKNO CHAINM420R 99 +----C *IN99 IFEQ *OFF |+---C W@MOD IFEQ 01 ADD || C MOVELMSG,2 S9MSG 重複 || C SETON 3031 |+---C ENDIF +----C ELSE |+---C W@MOD IFGE 02 CHG OR DEL || C MOVELMSG,1 S9MSG 該当なし || C SETON 3031 |+---C ENDIF +----C ENDIF C*ＯＫなら第二画面へ +----C *IN30 IFEQ *OFF | C Z-ADD02 W@FMT +----C ENDIF C* C ENDSR C*--------------------------------------------------------------- C* SB1250 マスターから画面へセット C*--------------------------------------------------------------- C SB1250 BEGSR C* C CLEARFMT02 C* +----C W@FMT IFGE 02 CHG OR DEL | C MOVELTKNMKJ S1NMKJ 得意先名 | C MOVELTKNMKN S1NMKN 得意先カナ | C MOVELTKTEL S1TEL 電話番号 | C MOVELTKSLNO S1SLNO 担当営業 | C Z-ADDTKURJS S1URGK 売上実績 +----C ENDIF C* C ENDSR C*--------------------------------------------------------------- C* SB2000 第二画面処理 C*--------------------------------------------------------------- C SB2000 BEGSR C* C* SET TO SCR C MOVEA'01' *IN,01 C MOVE *BLANK S9MSG ERR-MSG +----C W@MOD IFEQ 04 削除 | C SETON 28 ﾌﾟﾛﾃｸﾄ | C MOVELMSG,4 S9MSG 更新確認 +----C ELSE | C SETOF 28 NONﾌﾟﾛﾃｸﾄ +----C ENDIF C* +----C W@FMT DOWEQ02 第二画面 | C*画面表示 | C WRITEFMT99 | C WRITEFMT01 | C EXFMTFMT02 | C MOVE *BLANK S9MSG | C* |+---C SELEC |+---C *INKL WHEQ *ON 取消キー || C Z-ADD01 W@FMT |+---C OTHER || C EXSR SB2230 実行キー |+---C ENDSL +----C ENDDO C* C ENDSR C*--------------------------------------------------------------- C* SB2230 第二画面のチェック C*--------------------------------------------------------------- C SB2230 BEGSR C* C*属性の取得 C* （名前などの取得） C*エラーチェック C SETOF 303233 C*得意先名入力なしはエラー +----C S1NMKJ IFEQ *BLANK | C MOVELMSG,3 S9MSG 要入力 | C SETON 3032 +----C ENDIF C*得意先カナ名入力なしはエラー +----C S1NMKN IFEQ *BLANK | C MOVELMSG,3 S9MSG 要入力 | C SETON 3033 +----C ENDIF C*更新確認／更新 +----C *IN30 IFEQ *OFF NO-ERROR |+---C *IN29 IFEQ *OFF NO-CHANGE || C EXSR SBUPD || C Z-ADD01 W@FMT |+---C ELSE CHANGED || C MOVELMSG,4 S9MSG 更新確認 |+---C ENDIF +----C ENDIF C* C ENDSR C*--------------------------------------------------------------- C* SBUPD ファイル更新 C*--------------------------------------------------------------- C SBUPD BEGSR C* C MOVELS1TKNO TKTKNO 得意先№ C TKTKNO CHAINM420R 99 C* ファイルへ編集 C MOVELS1NMKJ TKNMKJ 得意先名 C MOVELS1NMKN TKNMKN 得意先カナ C MOVELS1TEL TKTEL 電話番号 C MOVELS1SLNO TKSLNO 担当営業 C* +----C *IN99 IFEQ *OFF |+---C W@MOD IFEQ 02 更新 || C UPDATM420R |+---C ELSE || C DELETM420R |+---C ENDIF +----C ELSE | C WRITEM420R +----C ENDIF C* C CLEARM420R C CLEARS1TKNO C CLEARFMT02 C Z-ADD01 W@FMT 第一画面へ C* C ENDSR C*--------------------------------------------------------------- C* SBEND 終了処理 C*--------------------------------------------------------------- C SBEND BEGSR C* C SETON LR C RETRN C* C ENDSR ** MOD ** 追加 変更 削除
◆なお、１～５カラムにあるネスト表示は自作のネスト構造解析プログラムでソースに付加したものです。◆
前ページ 次ページ 目 次
（Ｃ）ＣＯＰＹＲＩＧＨＴ ＩＳＨＩＯＫＡ ＫＡＴＳＵＨＩＤＥ ２０００