ＤＤＳ 印刷ファイル
帳票の見出しをどこに配置するか、明細のデータ項目をどの順に並べるか、見出しと明細の間は何行あけるか、
明細は１件あたり何行で構成するかなどは、データの配置に関することがらについては、プログラムの本質としては受け持たなくてもよいことです。
このようなデータ項目を配置するような処理が、プログラム・コードの中にまぎれこむことによって、プログラム作成の能率低下、ミスの増大、プログラム精度の低下、プログラムの保守の困難などを招いていました。
印刷ファイルは、この中にデータ項目配置に関する情報を、集約にすることによって、これらの問題点を解決するオブジェクトです。ここでは印刷ファイルについて紹介いたします。
帳票の一般な様式
一般的に帳票はおおむね以下の例のようにヘッダー部、明細部、フッター部からなっています。
PGM010 << 売上一覧表 >> 6/01/10 部門 11 0001 頁 売上日 伝№ 担当 顧客 品目 品名 数量 単価 金額 -------------------------------------------------------------------------------- 6/01/11 00001 001 0001 001 大きいつづら 1 100 100 6/01/13 00002 002 0002 002 小さいつづら 10 100 1,000 6/01/14 00003 003 0003 003 打出の小槌 100 100 10,000 6/01/14 00004 001 0003 004 玉手箱 1 200 200 6/01/15 00005 002 0004 005 天の羽衣 10 200 2,000 部門合計 13,300
ヘッダー部
明細部
フッター部
ヘッダー部 ヘッダー部は１頁の頭の部分、すなわちタイトルや項目見出しなど、その頁に最初に１回だけ 印字される部分です。 上の例ではタイトルのある１行目から、項目見出しの下の仕切り線（点線）までです。 明細部 明細部は繰り返し印字される明細行で、上の例では売上日から金額までの項目を表示した 数行になります。 フッター部 フッター部は１頁の最後の部分、すなわち合計など、その頁の終わりに１回だけ印字される部分です。 印刷ファイルの記述 印刷ファイルのデータ定義記述（ＤＤＳ）は、このような頁の構成にあわせてヘッダー部、明細部、 フッター部に分けて記述すると、プログラムも簡潔に作成することができます。
ＤＤＳ記述の様式
ＤＤＳ記述の様式はデータベース・ファイル、画面ファイル、印刷ファイルついて共通の様式を 使用します。様式は固定カラム様式で、各フィールドは次のようになっています。
カラム 項 目 内 容 １～５ 任意 メモやマークなど、使用目的は任意です。 ６ 仕様書コード 固定文字「Ａ」を記述します。 １７ タイプ Ｒのとき、レコードレベルの記述、ブランクのときフィールドレベルの記述を意味します。 １９～２８ 名前 レコード様式名、またはフィールド名を記述します。 ３０～３４ 桁数 フィールドレベルのとき、その桁数を右詰で記述します。 ３５ データタイプ フィールドのデータタイプを記述します。 ３６～３７ 少数以下の桁数 フィールドのデータタイプが数値の場合、小数点以下の桁数を右詰で記述します。 ３８ 使用目的 入力（Ｉ）か出力（Ｏ）か入出力かを記述します。印刷ファイルの場合、省略します。 ３９～４１ 行位置 フィールドの行位置を右詰で記述します。 ４２～４４ カラム位置 フィールドのカラム位置を右詰で記述します。＋ｎとすると、前のフィールドとの間のブランク数です。 ４５～80 機能 固定文字または、キーワードによる機能の記述をします。 ＤＤＳの記述をするには、帳票の設計書により各フィールドの位置（行、カラム）を調べ、 それに従って配置するようコーディングして行きます。 コーディングはＳＥＵ（ソース編集ユーティリティ）を使って行います。 ソース・タイプは印刷ファイル（ＰＲＴＦ）とします。
見出し部分
上の例で、見出し部分はハイフン（－）を使った仕切り線までです。 レコードレベルの記述はタイプ（１７カラム目）をＲ、様式名はＨＤＲ０１とします。 ＨＤＲ０１でなくてもかまいません。 ４５カラム目以降にＴＥＸＴパラメータを使って、注記を以下のように記述しておきます。 A R HDR01 TEXT(' 見出し部 ') これは省略可能です。 プログラム名は、２行２カラムの開始位置で、長さ１０桁の英数字として記述します。 フィールドレベルの記述なので、タイプ（１７カラム目）はブランクのままにしておきます。 フィールド名はＰＧＭＩＤとしておきます。記述は次のようになります。 A PGMID 10A 2 2TEXT(' プログラム名 ') タイトルの「<< 売上一覧表 >>」は２行３２カラムの開始位置の固定文字です。 固定文字は次のように４５カラムから記述します。 A 2 32'<< 売上一覧表 >>' 日付は、２行６９カラム目からＹＹ／ＭＭ／ＤＤのように編集して印字します。 フィールド名はＹＹＭＭＤＤ、６桁の小数以下を持たない数値項目として記述します。 編集要領のパラメータＥＤＴＣＤＥで編集コード（Ｙ）を使用します。 A YYMMDD 6S 0 2 69TEXT(' 日付 ') A EDTCDE(Y) パラメータの記述は次の行に継続して記述ができます。 「部門」の見出しは、３行２カラム目から始まる固定文字なので、タイトル同様に記述します。 部門コードは２桁の数字項目です。フィールド名はＢＵＣＯＤとしておきます。 カラム位置は８カラムから始まるように記述してもよいのですが、部門の見出しの直後に続くので、 ＋０のように相対的な記述をしておきます。後で項目の配置が変わるような場合修正が簡単です。 A 3 2 ' 部門 ' A BUCOD 2S 0 +0TEXT(' 部門コード ') ページ番号（開始位置３行７０カラム）は、ＰＡＧＮＢＲというパラメータを使用します。 このパラメータはページ番号を持った関数のようなもので、プログラムでセットしなくても、 いつも該当ページ番号を持っています。直後に「頁」の固定文字が続くので、相対的な位置の 記述をしておきます。 A 3 70 PAGNBR A +0 ' 頁 ' ６行目の固定文字の項目見出しは、行とカラムによる位置と相対的位置記述を組み合わせて 記述しておきます。 ７行目の仕切り線も同様です。 ヘッダー部の記述の例は次のようになります。
FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 *************** データの始め **************** 0001.00 A*- 見出し部分 ------------------------------------------------- 0002.00 A R HDR01 TEXT(' 見出し部 ') 0003.00 A* ２行目 0004.00 A PGMID 10A 2 2TEXT(' プログラム名 ') 0005.00 A 2 32'<< 売上一覧表 >>' 0006.00 A YYMMDD 6S 0 2 69TEXT(' 日付 ') 0007.00 A EDTCDE(Y) 0008.00 A* ３行目 0009.00 A 3 2 ' 部門 ' 0010.00 A BUCOD 2S 0 +0TEXT(' 部門コード ') 0011.00 A 3 70 PAGNBR 0012.00 A +0 ' 頁 ' 0013.00 A* ６行目 0014.00 A 6 1' 売上日 ' 0015.00 A 6 11' 伝№ ' 0016.00 A +0' 担当 ' 0017.00 A +0' 顧客 ' 0018.00 A +0' 品目 ' 0019.00 A +1' 品名 ' 0020.00 A 6 51' 数量 ' 0021.00 A 6 59' 単価 ' 0022.00 A 6 71' 金額 ' 0023.00 A* ７行目 0024.00 A 7 1'--------------------' 0025.00 A +0'--------------------' 0026.00 A +0'--------------------' 0027.00 A +0'--------------------'
明細部分
明細部は繰り返しの１行分だけを記述します。 レコードレベルの記述は、タイプ（１７カラム目）をＲとし、様式名はＤＴＬ０１とします。
行位置は相対的にしか決められません。相対的位置決めパラメータＳＰＡＣＥＢ（ｎ）を 記述します。ＳＰＡＣＥＢはＳｐａｃｅ Ｂｅｆｏｒｅの略で印字前に指定行だけ改行します。 ＳＰＡＣＥＢ（１）とすると印字前に１回改行します。記述は次のようになります。 A R DTL01 SPACEB(1) A TEXT(' 明細部 ') 売上日はＹＹ／ＭＭ／ＤＤのように編集する日付項目です。位置はカラム位置だけを記述します。 そのほかはヘッダー部同様です。フィールド名はＵＲＩＹＭＤとしておきます。 伝票№以下数値項目は同様です。カラム位置は相対的記述を使用しておきます。 品名は漢字まじりの文字列なので、１バイト、２バイト文字混合使用のデータタイプ'Ｏ'とします。 ２バイト文字とは、ワープロでいえば倍角文字に相当し、２バイトで漢字一文字をあらわします。 ２バイト文字の文字列は前後にシフトコードという制御文字が必要です。 例えば「漢字」という文字の場合次のようになります。
S 漢 字 S 0E 4F58 48F2 0F
下段は１６進数表記です。数量、単価、金額などは、いわゆるカンマ編集を行います。 このカンマ編集は編集コードで指定のパラメータを使用します。 編集コードというのは数値を読みやすくするためのカンマ編集などを行うためのコードで、 印刷ファイル、画面ファイル、および、ＲＰＧの出力仕様書の編集記述で共通です。
編集コードについてくわしくは別ページを参照して下さい。 名細部の記述は以下のようになります。
0028.00 A*- 明細部分 --------------------------------------------------- 0029.00 A R DTL01 SPACEB(1) 0030.00 A TEXT(' 明細部 ') 0031.00 A URIYMD 6S 0 1TEXT(' 売上日 ') 0032.00 A EDTCDE(Y) 0033.00 A DENNO 5S 0 +2TEXT(' 伝票№ ') 0034.00 A TANCOD 3S 0 +2TEXT(' 担当コード ') 0035.00 A KYKCOD 4S 0 +2TEXT(' 顧客コード ') 0036.00 A HINCOD 3S 0 +2TEXT(' 品目コード ') 0037.00 A HINNAM 16O +2TEXT(' 品名 ') 0038.00 A URISUR 4S 0 +2TEXT(' 数量 ') 0039.00 A EDTCDE(2) 0040.00 A URITAN 5S 0 +2TEXT(' 単価 ') 0041.00 A EDTCDE(2) 0042.00 A URIGAK 8S 0 +2TEXT(' 金額 ') 0043.00 A EDTCDE(2)
フッター部分
フッター部分はレコード様式の記述と「部門合計」の文字と合計値の記述のみです。 フッター部の様式は２回改行後、印字するとして、次のようになります。 A R FTR01 SPACEB(2) 部門合計の固定文字はシフトコードを含めた開始位置が３９桁目なので、 A 39' 部門合計 ' のようにします。実際の部門合計値はフィールド名をＢＵＭＫＥＩとして、６６桁目から 始まるので、 A BUMKEI 8S 0 66TEXT(' 部門合計 ') A EDTCDE(2) のように記述します。 、 記述は次のようになります。
0044.00 A*- 部合計部分 ------------------------------------------------- 0045.00 A R FTR01 SPACEB(2) 0046.00 A 39' 部門合計 ' 0047.00 A BUMKEI 8S 0 66TEXT(' 部門合計 ') 0048.00 A EDTCDE(2)
全体の印刷ファイルの記述例を紹介します。
FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 *************** データの始め **************** 0001.00 A*- 見出し部分 ------------------------------------------------- 0002.00 A R HDR01 TEXT(' 見出し部 ') 0003.00 A* ２行目 0004.00 A PGMID 10A 2 2TEXT(' プログラム名 ') 0005.00 A 2 32'<< 売上一覧表 >>' 0006.00 A YYMMDD 6S 0 2 69TEXT(' 日付 ') 0007.00 A EDTCDE(Y) 0008.00 A* ３行目 0009.00 A 3 2 ' 部門 ' 0010.00 A BUCOD 2S 0 +0TEXT(' 部門コード ') 0011.00 A 3 70 PAGNBR 0012.00 A +0 ' 頁 ' 0013.00 A* ６行目 0014.00 A 6 1' 売上日 ' 0015.00 A 6 11' 伝№ ' 0016.00 A +0' 担当 ' 0017.00 A +0' 顧客 ' 0018.00 A +0' 品目 ' 0019.00 A +1' 品名 ' 0020.00 A 6 51' 数量 ' 0021.00 A 6 59' 単価 ' 0022.00 A 6 71' 金額 ' 0023.00 A* ７行目 0024.00 A 7 1'--------------------' 0025.00 A +0'--------------------' 0026.00 A +0'--------------------' 0027.00 A +0'--------------------' 0028.00 A*- 明細部分 --------------------------------------------------- 0029.00 A R DTL01 SPACEB(1) 0030.00 A* 0031.00 A URIYMD 6S 0 1TEXT(' 売上日 ') 0032.00 A EDTCDE(Y) 0033.00 A DENNO 5S 0 +2TEXT(' 伝票№ ') 0034.00 A TANCOD 3S 0 +2TEXT(' 担当コード ') 0035.00 A KYKCOD 4S 0 +2TEXT(' 顧客コード ') 0036.00 A HINCOD 3S 0 +2TEXT(' 品目コード ') 0037.00 A HINNAM 16O +2TEXT(' 品名 ') 0038.00 A URISUR 4S 0 +2TEXT(' 数量 ') 0039.00 A EDTCDE(2) 0040.00 A URITAN 5S 0 +2TEXT(' 単価 ') 0041.00 A EDTCDE(2) 0042.00 A URIGAK 8S 0 +2TEXT(' 金額 ') 0043.00 A EDTCDE(2) 0044.00 A*- 部合計部分 ------------------------------------------------- 0045.00 A R FTR01 SPACEB(2) 0046.00 A 39' 部門合計 ' 0047.00 A BUMKEI 8S 0 66TEXT(' 部門合計 ') 0048.00 A EDTCDE(2) 0049.00 A*- 総合計部分 ------------------------------------------------- 0050.00 A R FTR09 SPACEB(2) 0051.00 A 39' 全社合計 ' 0052.00 A SOUKEI 8S 0 66TEXT(' 全社合計 ') 0053.00 A EDTCDE(2) ***************** データの終わり **************************************
印刷ファイルの作成
印刷ファイルは、ＣＲＴＰＲＴＦコマンドで作成するか、ＰＤＭのメンバー処理のオプション１４で作成します。
ＰＤＭのメンバー処理のオプション１４はメンバータイプに従ってコンパイルをするオプションで、結果的に
ＣＲＴＰＲＴＦコマンドとして働きます。
印刷ファイルは、標準で作成すると、１ページ当り６６行、幅１３２桁、１インチ当り１０文字、オーバーフロー行は
６０行で作成されます。
ＣＲＴＰＲＴＦコマンドのプロンプト画面で、Ｆ１０の追加のパラメータを表示させると、これらの設定を変更できます。
プロンプト画面をいかに紹介します。
印刷装置ファイル作成 (CRTPRTF) 選択項目を入力して，実行キーを押してください。 ファイル . . . . . . . . . . . > PGM010L 名前 ライブラリー . . . . . . . . > QTEMP 名前 , *CURLIB ソース・ファイル . . . . . . . > QDDSSRC 名前 , *NONE ライブラリー . . . . . . . . > WRKLIB 名前 , *LIBL, *CURLIB ソース・メンバー . . . . . . . *FILE 名前 , *FILE ページ・サイズ : 長さ --1 ページ当りの行数 . 66 .001-255.000 幅 --1 行当りの文字数 . . . 132 .001-378.000 測定方法 . . . . . . . . . . *ROWCOL *ROWCOL, *UOM 行／インチ . . . . . . . . . . 6 6, 3, 4, 7.5, 7,5, 8, 9, 12 1 インチ当りの文字数 . . . . . 10 10, 5, 12, 13.3, 13,3, 15... オーバーフロー行番号 . . . . . 60 1-255
印刷をする場合の基本ロジック
印刷の場合は、明細だけ一様に印刷するのでなく、見出しも印刷しなければならないので、
そのコーディングが必要です。
標準的なロジックを紹介しておきます。
このロジックは慣れないと、少しややこしいかもしれませんが、キーブレークを何段にも深く
拡張しやすいのでおすすめです。
また、明細が１件復数行からなり、明細の途中部分で改ページしたくないというような場合は、
上記のような単純な方法では解決できません。
この場合は、印刷済行数を変数を準備し、自分でカウント、ページの終りまでに、明細を印刷する余地が
あるかどうかをチェックする必要がでてきます。
このような場合、明細の印刷の個所を、ページオーバーフローが判断できるように、賢くすると考え、
ロジックを狭い範囲に閉じ込めておくと、やさしく考えることができます。
画面ファイルへ もどる 目次へ
（Ｃ）ＣＯＰＹＲＩＧＨＴ ＩＳＨＩＯＫＡ ＫＡＴＳＵＨＩＤＥ ２００６