このページはＣＯＢＯＬを知っている人あるいは、ＲＰＧプログラマーを対象として、
ＡＳ／４００でのＣＯＢＯＬを紹介しようとするものです。
ＣＯＢＯＬを初歩から解説するものではありません。
ここで紹介するＣＯＢＯＬは、ＩＬＥ－ＣＯＢＯＬです。
画面ファイルを使用した会話型処理
シナリオ（ロジック）
画面処理の方法は、いろいろなやりかたがありますが、ここでは、第一画面、第二画面、・・・と
進行し、処理が正常に終了すれば、また第一画面に戻るというシナリオで話しをすすめます。
この方法だと、各画面の独立性が高く、処理も簡単で、デバッグなどにおいて注意を配ら
なくてはならない範囲が広がらないという利点があります。そのシナリオ（ロジックは）
次のようになります。
Ｆ３キーが押されるまで以下の処理を繰り返します。
画面番号により以下の処理
１．第一画面のとき
マスターファイル更新のキー部分を取得のための画面を表示します。
第一画面から入力を取得します。
１．１ Ｆ３キーのとき、プログラム終了します。
１．２ Ｆ６キーのとき、処理モードを切替します。
１．３ 実行キーのとき、
入力チェックをします。
ＯＫなら第二画面への画面番号にします。
２．第二画面のとき
マスターのデータ部分取得のための画面を表示します。
第二画面から入力を取得します。
２．１ Ｆ１２キーのとき、第一画面への番号にします。
２．２ 実行キーのとき
入力チェックをします。
ＯＫなら更新確認状態にします。
ＯＫですでに更新確認状態であれば、ファイル更新の要求状態にします。
画面番号を１にします。
３．ファイル更新の要求状態ならファイルを更新します。
第一画面
RM420 追加 得意先マスター更新 0/04/24 14:58:36
得意先№ 55555
F3= 終了 F6= 処理選択
|
第二画面
RM420 追加 得意先マスター更新 0/04/24 14:59:17
得意先№ 55555
得意先名 第五商店・・・・・・・・・・・・・・・・
カナ名称 ﾀﾞｲｺﾞｼｮｳﾃﾝ.........;
ＴＥＬ 5555-5555
担当営業 5555
売上実績
F12= 取消
|
画面処理の要点
画面処理の要点は次の通りです。
- １．画面ファイルのＤＤＳを生成
- フィールドをＣＯＢＯＬ禁忌の文字を使用しない。ＩＮＤＡＲＡを使用する。
- ２．ＳＥＬＥＣＴ
- 接続装置をＷＯＲＫＳＴＡＴＩＯＮ，編成をＴＲＡＮＳＡＣＴＩＯＮとする。
- ３．Ｆキー
- Ｆキー用のコントロールエリアを記述する。
- ４．入力様式、出力様式
- ＷＯＲＫＩＮＧ－ＳＴＲＡＧＥ ＳＥＣＴＩＯＮに入力様式、出力様式を定義する。
- ５．独立標識域
- ＩＮＤＡＲＡ用の定義をＷＯＲＫＩＮＧ－ＳＴＲＡＧＥ
ＳＥＣＴＩＯＮに定義する。
- ６．標識の定義
- 必要あれば、プログラムで使用する標識をＷＯＲＫＩＮＧ－ＳＴＲＡＧＥ
ＳＥＣＴＩＯＮに定義する。
- ７．画面への表示
- 画面へ出力はＦＯＲＭＡＴ、ＩＮＤＩＣＡＴＯＲＳをつけてＷＲＩＴＥする。
- ８．画面からのデータ入力
- 画面からのデータ入力はＦＯＲＭＡＴを指定してＲＥＡＤする。
画面ファイルのＳＥＬＥＣＴ
画面ファイル処理の場合、ＳＥＬＥＣＴ文では接続装置をＷＯＲＫＳＴＡＴＩＯＮとし、
編成をＴＲＡＮＳＡＣＴＩＯＮとします。
画面ファイルは標識をレコード内ではなく、独立標識域として定義するのが便利です。
そのためには画面ファイル（ＤＳＰＦ）のファイルレベルの記述で、ＩＮＤＡＲＡキーワードを
与えます。
押されたＦキーの種類の取得はＳＥＬＥＣＴ文でコントロールエリアを記述し、その中で
Ｆキーの番号を取得します。
ＳＥＬＥＣＴ文の例：
* INDARA 使用の時↓
SELECT FILE2 ASSIGN WORKSTATION-RM420S-SI
ORGANIZATION TRANSACTION
CONTROL-AREA CTL-AREA.
|
注：独立標識域をとったファイルの場合、外部ファイルにＳＩ属性を与えます。
コントロールエリア
コントロールエリアを下記のように、ＷＯＲＫＩＮＧ－ＳＴＲＯＲＡＧＥ
ＳＥＣＴＩＯＮに
定義します。コントロールエリアのＦＫＥＹに、端末で押されたＦキーの種類が番号で
入ります。
* SELECT で指定したコントロールエリアを定義します。
01 CTL-AREA.
03 FKEY PIC X(2).
03 DEV-NAME PIC X(10).
03 REC-FMT PIC X(10).
|
ＦＤ項目
ＦＤで外部記述をＣＯＰＹすると、各様式が同じ場所にＲＥＤＥＦＩＮＥされてしまいます。
このためプログラムでの処理操作が非常に面倒になります。
ＷＯＲＫＩＮＧ－ＳＴＯＲＡＧＥに各様式毎に、ＤＤＳ－様式－Ｉ，ＤＤＳ－様式－Ｏを
別々にＣＯＰＹして定義しておくと、この繁雑さをある程度防ぐことができます。
WORKING-STORAGE SECTION.
* 画面ファイルの様式ごとに入力、出力のエリアを定義します。
01 FMT01A.
COPY DDS-FMT01-I OF RM420S.
01 FMT01B.
COPY DDS-FMT01-O OF RM420S.
01 FMT02A.
COPY DDS-FMT02-I OF RM420S.
01 FMT02B.
COPY DDS-FMT02-O OF RM420S.
01 FMT99B.
COPY DDS-FMT99-O OF RM420S.
|
注：ＦＭＴ９９は出力フィールドだけで、入力フィールドはありません。
独立標識域
特に指定しないとき、標識はフィールドに混ざりあった形でレコード様式の中にとられます。
このような状態のとき、入力用エリアと出力用エリアがＲＥＤＥＦＩＮＥされて配置されると、
操作の仕方によっては、デバッグで苦労することになってしまいます。
ＤＤＳのファイルレベルで、ＩＮＤＡＲＡパラメータをつけると、標識はレコード様式とは別の
区画にとられ、すくなくとも標識のためのフィールドの位置ずれによるトラブルだけはさけられ、
デバッグは多少楽になります。
ＩＮＤＡＲＡキーワードにより独立標識域をとった場合、ＷＯＲＫＩＮＧ－ＳＴＲＡＧＥに標識域を
定義します。
このエリアをＩＮＤＩＣＡＴＯＲＳ句で指定してＲＥＡＤ／ＷＲＩＴＥを行います。
* INDARA を定義したので、ワークに標識エリアを定義します。
01 FILE2-INDICS.
COPY DDS-ALL-FORMATS-INDIC OF RM420S.
|
プログラムの中で必要となる標識
プログラムの中で必要となる標識は、ＷＯＲＫＩＮＧ－ＳＴＯＲＡＧＥ
ＳＥＣＴＩＯＮで
定義します。
* 定数および、プログラムで使用する標識を定義します。
01 CONST.
03 X-ON PIC 1 VALUE B'1'.
03 X-OFF PIC 1 VALUE B'0'.
03 IN30 PIC 1 VALUE B'0'.
03 IN99 PIC 1 VALUE B'0'.
|
ここで、ＩＮ３０はエラーの有無、ＩＮ９９は更新対象ファイル関連の読取り状態を示す
標識としています。
もちろん、標識を使用しないで、変数名を使用しても差し支えありません。
ここでは、ＲＰＧプログラマーのために、標識を使ってみました。
画面表示と入力データ取得
画面への表示はＷＲＩＴＥ命令で行います。また、画面からの入力データ取得はＲＥＡＤ
命令です。
ＷＲＩＴＥ命令では、先にＷＯＲＫＩＮＧ－ＳＴＯＲＡＧＥに定義した出力エリアにデータを
セットした後、様式と標識を指定して出力します。
下図では、様式ＦＭＴ９９とＦＭＴ０１をセットにして第一画面としています。
* 第一画面表示と画面からのデータ取得
WRITE FILE2R FROM FMT99-O FORMAT 'FMT99'
INDICATORS FMT99-O-INDIC.
WRITE FILE2R FROM FMT01-O FORMAT 'FMT01'
INDICATORS FMT01-O-INDIC.
READ FILE2 INTO FMT01-I FORMAT 'FMT01'.
|
入力データ取得後の処理は、以下の処理を行います。
１．Ｆキーのとき、そのＦキーの機能のための処理。
（例：１画面分戻る、必要ならプロンプト画面表示など）
２．実行キーのとき、
入力データから名称などの取得。
入力データのチェック、エラーならエラー標識などのセット。
ＯＫなら次の処理（または画面）の準備。
（Ｃ）ＣＯＰＹＲＩＧＨＴ ＩＳＨＩＯＫＡ ＫＡＴＳＵＨＩＤＥ ２０００