| ＤＤＳ | 画面ファイル（ＤＳＰＦ） |
ＡＳ／４００では画面も一種のファイルとして扱います。したがってその記述もデータベース記述と同様の手法で行います。
データベースの記述と異なるのは、データベースが単一のレコード様式なのに、画面の場合は、
複数のレコード様式からなることと
フィールドの行カラム位置の指定および、表示属性があるいうことです。
ここでは画面ファイルをＤＳＰＦと呼ぶことにします。
簡単な例
画面ファイルの簡単な例を紹介します。
この画面は、確認の応答を要求するもので、応答入力はＹかＮを 想定しています。
**. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 A R FMT01 TEXT('応答要求画面') A 2 3'確認して下さい(Y/N)' A S1RES 1A B +1TEXT('応答')
最初の行は参考のためのスケールです。ＤＤＳのコーディングとして有効なのはその下３行のみです。
17桁目のＲはレコードレベルの記述で、レコード様式名が FMT01です。
45桁目からのTEXTはFMT01に対する注釈です。
次の行の「確認して下さい(Y/N)」は固定値です。
Ｓ１ＲＥＳが画面の入出力フィールドの項目で、１Ａ即ち１桁の文字、Ｂ即ち入出力と記述しています。
処理プログラム
画面ファイルのための処理プログラム（ＲＰＧ）を紹介します。
**. 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
このプログラムは上記画面を表示し、画面から’Ｙ’か’Ｎ’が入力されると終了します。
それ以外が入力されたときは、画面表示を繰り返します。
先頭は参考用のカラムスケールです。
①の行はプログラムで使用するファイル（すなわち画面ファイル）を記述しています。
１５カラム目のＣが会話型のファイルであることをしめしています。
装置はＷＯＲＫＳＴＮすなわちワークステーションです。
②の行＊ＥＮＴＲＹ ＰＬＩＳＴとＰＡＲＭ・・・・はＣＯＢＯＬでのＵＳＩＮＧに相当し、パラメータの記述です。
③はＳ１ＲＥＳが’Ｙ’’Ｎ’になるまで繰返し処理を指定しています。
ＣＯＢＯＬではＰＥＲＦＯＲＭ ＵＮＴＩＬ・・・に相当します。
④のＥＸＦＭＴは画面との入出力で、画面様式ＦＭＴ０１を入出力しています。
ＣＯＢＯＬではＷＲＩＴＥ命令とＲＥＡＤ命令を会わせた機能をもちます。
⑤は繰返し範囲の終了で、ＣＯＢＯＬではＥＮＤ－ＰＥＲＦＯＲＭに相当します。
⑥はＲＰＧプログラムのお約束ごとで、ＬＲすなわちＬＡＳＴ ＲＥＣＯＲＤのスイッチをオンにしています。
スイッチがＯＮになると、ＲＰＧは使用していた資源を開放して終了します。
得意先マスター更新画面のＤＳＰＦ
この画面は大きく３区画で構成しています。
処理のシナリオは次のように想定しています。
１．マスターレコードのキーを取得する画面（第１画面）を表示し、キーを取得。
２．マスターレコードのデータを取得する画面（第２画面）を表示し、データを取得、マスターファイルを更新。
上記１．２．を繰返す。
第１画面は上記の区画１と区画３で、第２画面は区画１と区画２と区画３で構成するものとします。
サンプルを中心に見てゆきます。
得意先マスター更新画面のＤＳＰＦ
第一画面 タイトルおよびキー部分の入力画面
RM420 追加 得意先マスター更新 DD/DD/DD TT:TT:TT 得意先№ BBBBB F3= 終了 F6= 処理選択
第二画面 データ部の入力画面
RM420 追加 得意先マスター更新 得意先№ AAAAA 得意先名 BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB カナ名称 BBBBBBBBBBBBBBBBBBBB ＴＥＬ BBBBBBBBBBBB 業 種 BB 売上実績 66,666,666,666- F12= 取消
画面構成
第１画面はＦＭＴ０１とＦＭＴ９９から構成されます。
第２画面はＦＭＴ０２とＦＭＴ０２とＦＭＴ９９から構成されます。
サンプル・コーディング
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+. A*----------------------------------------------------------- A* ID : RM420S A* NAME :得意先マスター更新画面 A*----------------------------------------------------------- A R FMT01 OVERLAY PROTECT A CF03 CF06 A* A S1PGID 10A O 1 2 TEXT('PGM-ID') A S1MOD 6O O +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*----------------------------------------------------------- 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 S1GYO 2A B +1TEXT('業 種 ') A 28 DSPATR(PR) A 9 2 '売上実績 ' A S1UR\ 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 ...+. A R FMT01 OVERLAY PROTECT A CF03 CF06
- ＦＭＴ０１
- レコード様式名です。
- ＯＶＥＲＬＡＹ
- 表示済画面に重ね表示
- ＰＲＯＴＥＣＴ
- 先に出力されている別様式の画面の入力フィールドを入力禁止とします。
- ＣＦ０３、ＣＦ０６
- Ｆ３キー、Ｆ６キーの入力を有効とします。
フィールドの記述
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+. A S1PGID 10A O 1 2 TEXT('PGM-ID') A S1MOD 6O O +1 TEXT('処理モード')
- フィールド名Ｓ１ＰＧＩＤ
- 長さ１０バイト、出力専用、１行目の第２カラムから表示です。第１カラムにはフィールド属性文字が入ります。
- フィールド名Ｓ１ＭＯＤ
- 長さ６バイト、混用です。＋１：このフィールドの開始位置は、前のフィールドの終りから１桁あけて始まります
- 固定情報
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+. A 1 31'得意先マスター更新' A DSPATR(RI)
- 固定情報は４５桁目以降に記入します。ＤＳＰＡＴＲ（ＲＩ）は反転イメージ表示で、前の行の付属属性です。
付属情報の標識による制御
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+. A S1TKNO 5A B +1TEXT('得意先№') A 31 DSPATR(PC RI)
- Ｓ１ＴＫＮＯは標識３１がオンのとき、ＤＳＰＡＴＲ（ＰＣ ＲＩ）を有効にして表示されます。
ＰＣはＰＵＴ ＣＵＲＳＯＲで、カーソル位置づけです。Ｒ Ｉ は反転表示です。
この入力にエラーがあったとき、このフィールドを反転表示し、カーソルを位置付けする目的です。
タイムスタンプ
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+. A 1 61 DATE EDTCDE(Y) A 1 71 TIME
- ＤＡＴＥ，ＴＩＭＥ
- ＤＡＴＥ，ＴＩＭＥはそのときのタイムスタンプです。
ＤＡＴＥはジョブ日付です。したがってＣＨＧＪＯＢコマンドでジョブ日付を変更した場合は、変更された日付になります。- ＥＤＴＣＤＥ（Ｙ）
- ＥＤＴＣＤＥ（Ｙ）は、ＹＹ／ＭＭ／ＤＤのような日付編集様式での編集することを指定します。
データ部の様式
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+. A R FMT02 OVERLAY PROTECT A CF12 A CHANGE(29)
- ＦＭＴ０２
- レコード様式名です。
- ＣＦ１２
- Ｆ１２キーを有効にします。
- ＣＨＡＮＧＥ（２９）
- モディファイ標識です。この様式の中でフィールドデータが変更されたとき、プログラムでは標識２９がオンとなります。入力があったかどうかがこの標識で知ることができます。
- 付属情報の標識による制御
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+. A S1NMKJ 42O B +1TEXT('得意先名') A 32 DSPATR(PC RI) A 28 DSPATR(PR)
- 標識３２
- Ｓ１ＮＭＫＪは標識３２がオンのとき、ＤＳＰＡＴＲ（ＰＣ ＲＩ）を有効にして表示されます。エラー時の処理用です。
- 標識２８
- 標識２８がオンのとき、ＤＳＰＡＴＲ（ＰＲ）を有効にします。ＰＲは’プロテクト’で入力禁止状態です。
これは、削除処理のとき、無用な入力を防ぐことを目的としています。
- 数値項目
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+. A S1UR\ 11Y 0O +1TEXT('売上実績') A EDTCDE(K)
- Ｙ
- 数字のみの表示フィールドを示します。
- ０Ｏ
- サンプルではわかりにくいのですが、０Ｏの左は小数点以下の桁数、右はアルファベットのＯで、出力のみの使用を示します。
- ＥＤＴＣＤＥ（Ｋ）
- Ｋは９９，９９９，９９９，９９９－ の様式の編集を指示する編集コードです。
- 編集コードは画面ファイル、印刷ファイル、ＲＰＧの出力仕様書での編集指示すべてで共通です。
- くわしくはは別ページを参照して下さい。
２３、２４行目の様式
....+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+. A R FMT99 A 01 23 2 'F3=終了 F6=処理選択' A 02 23 2 'F12=取消' A S9MSG 78A O 24 1TEXT('ＭＳＧ ')
- ＦＭＴ９９
- レコード様式名です。
- 固定情報フィールドの標識制御
- Ｆ３、Ｆ６キーのガイドは第一画面用、Ｆ１２キーは第二画面用です、標識０１と０２で有効範囲を使いわけています。
画面上ではフィールドが重なることは許されませんが、標識のオンオフで使い分けすると、同じ位置を占めることができます。- Ｓ９ＭＳＧ
- エラーメッセージ用です。エラーメッセージは２４行目に表示するのが一般的です。
ＤＳＰＡＴＲ
表示属性（ＤＳＰＡＴＲ）には次のようなものがあります。
ＢＬ フィールドを明滅します。 ＣＳ フィールドの各桁の間に桁区切り線を表示します。 ＨＩ フィールドを高輝度で表示します。 ＭＤＴ フィールドの変更データ・タグを意図的にオンにセットします。 ＮＤ フィールドのデータを表示しません。 ＰＣ カーソルをフィールドの最初の文字に位置づけます。 ＰＲ ユーザーがフィールドにデータを入力できないように指示します。 ＲＩ フィールドを反転イメージで表示します。 ＵＬ フィールドの下線つけを指示します。
- 注：フィールドに色付けするのは、ＤＳＰＡＴＲとは別に、ＣＯＬＯＲパラメータをつかいます。
モジュラス１０、モジュラス１１
モジュラス１０および１１によるチェックはは、使用コードの中に自己検査を可能にする数字を１文字いれて入力誤りを検出する方法です。
パラメータでＣＨＥＣＫ（Ｍ１０）とすると、そのフィールドはモジュラス１０の自己検査アルゴリズムを
みたすデータでなければならないことを示します。またＣＨＥＣＫ（Ｍ１１）は同様に
モジュラス１１の自己検査アルゴリズムを満たすデータでなければならないことを示します。
自己検査フィールドは、基数部分と右端に位置する検査数字からなりたっています。
たとえば、６５４３２１９は、６５４３２１が基数で９が検査数字です。
検査数字の求め方は次の通りです。
モジュラス１０
１．基数の各桁に１のくらいから個別に重みとなる数（２，１，２，１，２，・・・）をかける
２．その結果あらわれてくる数字を全て加算する。２けたの数字の場合は個別の１桁の数、
２個とみなす。
３．この結果の１の位の補数を自己検査数とする。
例：基数が６５４３２１の場合
重みをかけると、６、１０、４、６、２、２となるので、
６＋１＋０＋４＋６＋２＋２＝２１
１の位の１の補数９が自己検査数となる。
モジュラス１１
１．基数の１の位から各桁に個別に、重みとなる数（２，３，４，５，６，７の繰返し）をかける
２．その積をすべて加算し、１１の剰余を求める。
３．この剰余の補数を自己検査数とする。剰余が０の場合は、自己検査数は０とする
剰余が１のときは補数１０のとなり２桁なので自己検査数はない。
例：基数が６５４３２１の場合
重みとなる数（７，６，５，４，３，２）をかけると、・・・・・・・・（上位からなので逆順になっている）
４２、３０、２０、１２、６、２となるので、
- ４２＋３０＋２０＋１２＋６＋２＝１１２
この１１の剰余は２、２の１１の補数は９で自己検査数は９となる。
例：基数が２３の場合
２＊３＋３＊２＝１２
１２の剰余は１なので、（１１の）補数は１０となり自己検査数を持つことができない。
以下に自己検査数をもとめるプログラムの例を示します。このプログラムでは１５桁までの
基数に対し、自己検査数を求めます。
- モジュラス１０自己検査数を求めるプログラム
H Y- F*--------------------------------------------------------------- E* 配列名 E BAS 15 1 0 基数 E WHT 15 15 1 0 重み E SEK 15 2 0 積 E WRK 30 1 0 積２ I*--------------------------------------------------------------- I DS I 1 300SEK I 1 300WRK I DS I 1 150BAS I 1 15 W1NUM I 1 150W2NUM C*--------------------------------------------------------------- C *ENTRY PLIST C PARM P@NUM 15 基数 C PARM P@CHK 1 検査数字 C* C MOVEL*BLANK P@CHK 検査数字 C MOVELP@NUM W1NUM C BAS MULT WHT SEK C* C XFOOTWRK W@SEK 70 積 C W@SEK DIV 10 W@WRK 70 C MVR W@MVR 70 あまり C* C W@MVR IFGT 000 C ADD 1 W@WRK C ENDIF C MULT 10 W@WRK C* C W@WRK SUB W@SEK W@CHK 70 C MOVE W@CHK P@CHK 検査数字 C* C SETON LR C RETRN ** 212121212121212
- モジュラス１０自己検査数を求めるプログラム
H Y- F*--------------------------------------------------------------- E* 配列名 E BAS 15 1 0 基数 E WHT 15 15 1 0 重み E SEK 15 2 0 積 I*--------------------------------------------------------------- I DS I 1 150BAS I 1 15 W1NUM I 1 150W2NUM C*--------------------------------------------------------------- C *ENTRY PLIST C PARM P@NUM 15 基数 C PARM P@CHK 1 検査数字 C* C MOVEL*BLANK P@CHK 検査数字 C MOVELP@NUM W1NUM C* C XFOOTSEK W@SEK 70 C W@SEK DIV 11 W@MVR 70 C MVR W@MVR あまり C SELEC C W@MVR WHEQ 000 C MOVE *ZERO P@CHK C W@MVR WHGT 001 C 11 SUB W@MVR W@CHK 70 C MOVE W@CHK P@CHK CHK C ENDSL C* C SETON LR C RETRN ** 432765432765432
ＤＳＰＦの記述コーディングの入力
ＤＳＰＦのコーディング入力は、ＳＥＵ（Ｓｏｕｒｃｅ Ｅｎｔｒｙ Ｕｔｉｌｉｔｙ）で行います。
ＳＥＵの開始は、ＳＴＲＳＥＵコマンドか、ＰＤＭのメンバーの処理におけるオプション２で行います。
画面ファイル（ＤＳＰＦ）の生成
ＤＳＰＦの生成は、ＣＲＴＤＳＰＦコマンドで行います。
例：
ＣＲＴＤＳＰＦ ＷＲＫＬＩＢ／ＲＭ４２０Ｓ ＷＲＫＬＩＢ／ＱＤＤＳＳＲＣ
ＰＤＭのメンバー処理のオプション１４でも生成ができます。(下図参照)
PDM を使用したメンバーの処理 S123456 ファイル . . . . QDDSSRC ライブラリー . WRKLIB 位置指定 . . . . . . __________ OPT ﾒﾝﾊﾞｰ ﾀｲﾌﾟ ﾃｷｽﾄ M420 PF 14 RM420S DSPF 得意先マスター更新画面
スクリーン・デザイン・エイド（ＳＤＡ）による設計
ＰＤＭのメンバーの処理のオプション１７で、ＳＤＡによる設計を行うことができます。
オプション１７を入力して実行キーを押すと次のようなＳＤＡの画面が表示されます。
このＳＤＡでは設計作業全般が可能なのですが、説明は「イメージ」のチェックだけにとどめます。
表示レコードの処理 ファイル . . . . : QDDSSRC メンバー . . . . : RM420S ライブラリー . : WRKLIB 原始仕様タイプ . : DSPF オプションを入力して，実行キーを押してください。 1= 追加 2= 注記の編集 3= コピー 4= 削除 7= 名前の変更 8= キーワードの選択 12= イメージの設計 OPT 順序 レコード タイプ 関連サブファイル 日付 DDS ｴﾗｰ 10 FMT01 RECORD 00/04/06 20 FMT02 RECORD 00/04/05 30 FMT99 RECORD 00/04/05 終り F3= 終了 F12= 取消し F14= ファイル・レベル・キーワード F15= ファイル・レベル注記 F17= サブセット F24= キーの続き
画面レイアウトの表示
上記画面で、オプション１２のイメージの設計を選択すると、その様式のレイアウトが表示されます。（下図参照）
OOOOOOOOOO OOOOOO 得意先マスター更新 DD/DD/DD TT:TT:TT 得意先№ BBBBB レコード FMT01 の作業画面：機能キーについては， HELP を押してください。
これで、画面イメージが設計通りの配置になっているか確認できます。確認後はＦ３キーで終了して下さい。
注：この画面で、フィールドの追加、削除、移動などが可能です。
（ＳＤＡでは画面に関する記述・生成すべてが可能です。ＳＤＡについては、別ページで予定したいと思います。）
| 印刷ファイルへ | 次ページ | もどる | 目次 |