サブファイルとは、画面ファイルのなかにさらにそのサブとして明細を持ったものです。
ＡＳ／４００においては画面は一種のファイルですが、その中の明細も一種の
ファイルとして扱っています。
これにより、明細のハンドリングが楽になり、プログラムの中で、画面からの制約を
あまり考慮しなくてもよくなるので、プログラム作成が容易になります。

サブファイルの操作は、明細を記述するサブファイルと、それの制御情報を持つサブファイル制御の記述の
セットで使用します。下記のサンプルをみて下さい。

...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 A*----------------------------------------------------------- A* ID : RF520S A* NAME : 受注入力画面 A*----------------------------------------------------------- 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 S1JUNO 6Y 0B +1TEXT(' 受注�� ') A 31 DSPATR(PC RI) A*----------------------------------------------------------- A R FMT02 TEXT(' 第二画面 ') A OVERLAY PROTECT A CF03 CF12 A* A 4 2 ' 得意先 ' A S2TKNO 5A B +1TEXT(' 得意先�� ') A 32 DSPATR(PC RI) A 28 DSPATR(PR) A S2NMKJ 42O O +1TEXT(' 得意先名 ') A 4 61 ' 受注日 ' A S2JUDT 6Y 0B +1TEXT(' 受注日 ') A EDTCDE(Y) A 33 DSPATR(PC RI) A 28 DSPATR(PR) A* A*----------------------------------------------------------- A R SFL01 A SFL A* A S4GYNO 2Y 0O 7 2TEXT(' 行�� ') A S4HNNO 6A B +2TEXT(' 品目�� ') A 41 DSPATR(PC RI) A 28 DSPATR(PR) A S4JUSU 7Y 0B +2TEXT(' 受注数 ') A EDTCDE(K) A 42 DSPATR(PC RI) A 28 DSPATR(PR) A S4JU@ 9Y 2B +2TEXT(' 受注＠ ') A EDTCDE(K) A 28 DSPATR(PR) A 43 DSPATR(PC RI) A S4JU\ 11Y 0O +2TEXT(' 受注額 ') A EDTCDE(K) A S4SEDT 8Y 0H TEXT(' 請求日 ') A*----------------------------------------------------------- A R CTL01 A OVERLAY PROTECT A CF12 A ROLLUP(19) A ROLLDOWN(20) A SFLCTL(SFL01) A SFLSIZ(11) SFLPAG(10) A 24 SFLDSPCTL A 23 SFLDSP A 22 SFLCLR A 21 SFLINZ A @RRN 4S 0H SFLRCDNBR A 6 02'NO' A 6 05' 品目�� ' A 6 15' 受注数 ' A 6 28' 受注単価 ' A 6 43' 受注金額 ' A*----------------------------------------------------------- A R FMT99 A 01 23 2 'F3= 終了 F6= 処理選択 ' A 02 23 2 'F12= 取消 ' A 03 23 2 'F12= 取消 ' A S9MSG 78A O 24 1TEXT(' ＭＳＧ ')

サブファイルの記述

レコード様式名は通常のＤＳＰＦの場合と同じです。慣習的にＳＦＬｎｎの形で命名されることが多いので
それにあわせています。
サブファイルの記述では、レコードレベルでサブファイルであるというＳＦＬのキーワードと１明細分の記述を行います。
１明細分は複数行にわたっての配置も許されます。つまり、２行で１明細、３行で１明細の形も許されます。

A*----------------------------------------------------------- A R SFL01 A SFL A* A S4GYNO 2Y 0O 7 2TEXT(' 行�� ') A S4HNNO 6A B +2TEXT(' 品目�� ') A 41 DSPATR(PC RI) A 28 DSPATR(PR) A S4JUSU 7Y 0B +2TEXT(' 受注数 ') A EDTCDE(K) A 42 DSPATR(PC RI) A 28 DSPATR(PR) A S4JU@ 9Y 2B +2TEXT(' 受注＠ ') A EDTCDE(K) A 28 DSPATR(PR) A 43 DSPATR(PC RI) A S4JU\ 11Y 0O +2TEXT(' 受注額 ') A EDTCDE(K) A S4SEDT 8Y 0H TEXT(' 請求日 ')

上記は次のような画面を想定しています。

NO 品目�� 受注数 受注単価 受注金額 66 BBBBBB 9,999,999- 9,999,999.99- 66,666,666,666- 66 BBBBBB 9,999,999- 9,999,999.99- 66,666,666,666- 66 BBBBBB 9,999,999- 9,999,999.99- 66,666,666,666- 66 BBBBBB 9,999,999- 9,999,999.99- 66,666,666,666- 66 BBBBBB 9,999,999- 9,999,999.99- 66,666,666,666- 66 BBBBBB 9,999,999- 9,999,999.99- 66,666,666,666- 66 BBBBBB 9,999,999- 9,999,999.99- 66,666,666,666- 66 BBBBBB 9,999,999- 9,999,999.99- 66,666,666,666- 66 BBBBBB 9,999,999- 9,999,999.99- 66,666,666,666- 66 BBBBBB 9,999,999- 9,999,999.99- 66,666,666,666-

キーワードＳＦＬ

このレコード様式がサブファイルであることの記述です。

フィールドの記述

１明細分だけ記述しています。

標識２８、ＤＳＰＡＴＲ（ＰＲ）

削除のときフィールドを入力禁止にするためのものです。

標識４１〜４３、ＤＳＰＡＴＲ（ＰＣ ＲＩ）

エラーチェックのとき、カーソルを置き、反転表示するためのものです。

請求日（Ｓ４ＳＥＤＴ）

隠しフィールドとして定義しています。単に説明のために用意したものです。

サブ・ファイル制御の記述

サブ・ファイル制御は、サブ・ファイルを表示するときの制御情報を持つレコードです。
慣習的にＣＴＬｎｎのように命名するケースが多いようです。

サブ・ファイル制御

A*----------------------------------------------------------- A R CTL01 A OVERLAY PROTECT A CF12

ＣＦ１２

この画面でＦ１２キーを有効にします。

ロールアップ、ロールダウン

A ROLLUP(19) A ROLLDOWN(20)

ＲＯＬＬＵＰ（１９）

ＲＯＬＬＵＰキーが押されたとき標識１９がオンになってプログラムに制御が渡ります。

ＲＯＬＬＤＯＷＮ（２０）

ＲＯＬＬＵＰキーが押されたとき標識２０がオンになってプログラムに制御が渡ります。

サブファイルを制御情報のパラメータ

A SFLCTL(SFL01) A SFLSIZ(11) SFLPAG(10) A 24 SFLDSPCTL A 23 SFLDSP A 22 SFLCLR A 21 SFLINZ A @RRN 4S 0H SFLRCDNBR

ＳＦＬＣＴＬ

制御対象のサブファイルのレコード名を指定します。

ＳＦＬＳＩＺ

サブファイルが持つレコード数です。
ＳＦＬＰＡＧの値より＋１の値を与えると、このサイズは画面がめくられる毎に１ページ分だけ自動増殖します。

ＳＦＬＰＡＧ

１ページ画面当たりの明細件数です。

ＳＦＬＤＳＰＣＴＬ

サブファイル制御様式のレコードを表示させます。

ＳＦＬＤＳＰ

サブファイルを表示させます。

ＳＦＬＣＬＲ

サブファイルが持っているレコードを０件にします。サブファイルへはＷＲＩＴＥ命令のみ可能です。

ＳＦＬＩＮＺ

サブファイルをブランクまたは０でクリアした状態にします。

ＳＦＬＲＣＤＮＢＲ

このフィールドが持っている値のサブファイルの相対レコードナンバーを含むページを表示させます。
明細にエラーがあったようなときに、これを利用して、エラーのあるページを表示できます。
例えば、５ページ目の明細にエラーがあったような場合、その相対レコードナンバー（明細番号）を
セットしておけば、画面には５ページ目が表示されます。

項目見出し

サブファイルの項目の見出しを固定値で記述しています。


サブファイルのハンドリング

実際のサブファイルを使った処理ではそのロジックは次のように行います。


明細の表示のみ

１．サブファイルをクリアする（ＳＦＬＣＬＲ）

クリアするには標識で制御します。サブファイルは０件状態になります。
ＳＥＴＯＮ ２２
ＷＲＩＴＥＣＴＬ０１
ＳＥＴＯＦ ２２

２．サブファイルへＷＲＩＴＥ

ＤＢファイルから必要情報をＲＥＡＤし、サブファイルへＷＲＩＴＥする。

ＲＥＡＤ ＤＢファイル
ＤＯ（データがある間）
　　ＲＲＮを＋１する
　　編集
　　ＷＲＩＴＥＳＦＬ０１
　　ＲＥＡＤ ＤＢファイル
ＥＮＤＤＯ

３．サブファイルとサブファイル制御を画面に表示

サブファイルをサブファイル制御を使って，サブファイルとサブファイル制御を画面に表示する。
ＳＥＴＯＮ                  ２３２４
ＷＲＩＴＥＣＴＬ０１
ＳＥＴＯＦ                   ２３２４

注：画面への表示のあと画面からの入力を行なうときは、ＷＲＩＴＥでなく、ＥＸＦＭＴを使用します。

ＳＥＴＯＮ                  ２３２４
ＥＸＦＭＴＣＴＬ０１
ＳＥＴＯＦ                   ２３２４


明細を表示し、チェック、その結果を表示

１．サブファイルをクリアする（ＳＦＬＣＬＲ）

クリアするには標識で制御します。
ＳＥＴＯＮ ２２
ＷＲＩＴＥＣＴＬ０１
ＳＥＴＯＦ ２２

２．ファイルから必要情報をＲＥＡＤし、サブファイルへ

ファイルから必要情報をＲＥＡＤし、サブファイルへＷＲＩＴＥする。
ＲＥＡＤ ＤＢファイル
ＤＯ（データがある間）
ＲＲＮを＋１する
編集
ＷＲＩＴＥＳＦＬ０１
ＲＥＡＤ ＤＢファイル
ＥＮＤＤＯ

３．サブファイルとサブファイル制御を画面に表示

サブファイルをサブファイルコントロールを使って，サブファイルとサブファイル制御を画面に表示する。
ＳＥＴＯＮ ２３２４
ＥＸＦＭＴＣＴＬ０１
ＳＥＴＯＦ ２３２４

４．変更（入力）があった明細のみを読取り

変更（入力）があった明細のみを読取りする。
ＲＥＡＤＣＳＦＬ０１ ９９
ＤＯ−ＵＮＴＩＬ（ＥＯＦ）
明細のエラーチェック
エラーがあれば、あるいは名称などをセットする必要があれば、
ＵＰＤＡＴＳＦＬ０１
ＲＥＡＤＣＳＦＬ０１
ＥＮＤＤＯ

５．サブファイルとサブファイル制御を画面に表示

サブファイルとサブファイル制御を画面に表示する。３．に同じ

注：画面で変更されたサブファイル・レコードのみ読み取るというＲＥＡＤＣ（ｒｅａｄ　ｃｈａｎｇｅｄ）命令があります。
ＲＥＡＤＣ命令を使うと一見よさそうなのですが、何度にもわけて明細の訂正を行う場合、最後の実行キーを
押したときに変更があった明細だけしかよみ込みされません。つまり、いざファイルを更新しようとしたとき、
それ以前に訂正を行った明細がよみ込みされないことになります。
これを解消するためには、訂正のあった明細の番号を記録しておき、ＲＥＡＤＣでなく、変更のあった明細を
ＣＨＡＩＮで読とるような工夫が必要です。（下図参照）

ＲＲＮ ← ０ ＤＯ−ＷＨＩＬＥ（データがある間） ＲＲＮを＋１ ＩＦ 訂正のあった明細か ＲＲＮでＣＨＡＩＮＳＦＬ０１ ＤＢファイルへ編集 ＵＰＤＡＴＤＢファイル ＥＮＤＩＦ ＥＮＤＤＯ

前ページ

次ページ

印刷・画面

目次

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