実　習　３ ページコントロール

ページコントロール 実習３ 第５図のような書籍データを読み、処理条件にしたがい第６図のように 印字するプログラムを完成させなさい。 　第５図のような書籍データを読み、処理条件にしたがい第６図のように 印字するプログラムを完成させなさい。 入力形式 出力形式 入力ファイル名： B－FILE　　 入力レコード名： B－REC 出力ファイル名： L－FILE　　 出力レコード名： L－REC 書籍コード （SCODE) X(4) 書　　名 （SYOMEI) X(10) 著　　者 （TYOSYA) X(10) 　　　　　　　　　　　　　　　　　　　　　ﾍﾟｰｼﾞ　　Z9 　 ｺｰﾄﾞ ｼｮﾒｲ　　　 　　　　ﾁｮｼｬ 　XXXX XXXXXXXXXX 　 XXXXXXXXXX XXXX XXXXXXXXXX XXXXXXXXXX --------------------------------------- ﾍﾟｰｼﾞ Z9 ｺｰﾄﾞ　　　　　 ｼｮﾒｲ ﾁｮｼｬ 　 XXXX　　XXXXXXXXXXX XXXXXXXXXX XXXX XXXXXXXXXXX XXXXXXXXXX ～ ～ ～ （第５図） 処理条件 （１）各ページの先頭にはページ数、見 　　出しを印字する。 （２）明細行は１ページに１０行まで印 　　字し、改ページする。 ～ ～ ～ （第６図）

入力データ ファイル名 実習３data.txt SCODE SYOMEI TYOSYA 0001 0002 0003 0004 0005 0006 0007 0008 0009 0010 0011 0012 0013 0014 0015 0016 0017 0018 0019 0020 0021 0022 0023 0024 0025 0026 0027 0028 ﾍﾟﾝｼｭｳｼﾞ 1 ﾍﾟﾝｼｭｳｼﾞ 2 ﾍﾟﾝｼｭｳｼﾞ 3 ﾀﾉｼｲ ﾀﾞﾝｽ1 BASICﾓﾝﾀﾞｲ ｺﾝﾋﾟｭｰﾀ ｷｿ ﾜｰﾌﾟﾛﾆｭｳﾓﾝ ﾏｸﾛ ﾆｭｳﾓﾝ COBOLﾓﾝﾀﾞｲ ﾊｰﾄﾞｳｪｱ ｿﾌﾄｳｪｱ ﾔｻｼｲ OS 2ｼｭｼｹﾝﾀｲｻｸ WINDOWS ﾀﾉｼｲCD-ROM ﾎﾞｷ 3ｷｭｳ ﾎﾞｷ 2ｷｭｳ ﾎﾞｷ 1ｷｭｳ ﾏｰｹﾃｨﾝｸﾞ ｼｭｻﾞﾝ 3ｷｭｳ ｼｭｻﾞﾝ 2ｷｭｳ ｼｭｻﾞﾝ 1ｷｭｳ ｼｭｼｮｸ ﾀｲｻｸ ﾍﾟﾝｼｭｳｼﾞ 4 ﾍﾟﾝｼｭｳｼﾞ 5 ﾍﾟﾝｼｭｳｼﾞ 6 ﾀﾉｼｲ ﾀﾞﾝｽ2 ｼｽｱﾄﾞﾓﾝﾀﾞｲ ｻﾄｳ　　ﾏｻｷ ﾀｹｶﾜ ﾋﾃﾞｷ ﾌﾙｶﾜ ﾄｼｱｷ ｺﾊﾞﾔｼ ｶﾂﾔ ﾔﾏﾀﾞ ﾀﾛｳ ﾔﾏﾀﾞ ｲﾁﾛｳ ﾔﾏﾀﾞ ｼﾞﾛｳ ﾔﾏﾀﾞ ｻﾌﾞﾛｳ ﾔﾏﾀﾞ ｼﾛｳ ﾔﾏﾀﾞ ｺﾞﾛｳ ｽｽﾞｷ ｲﾁﾛｳ ｽﾞｽﾞｷ ｼﾞﾛｳ ｽﾞｽﾞｷｻﾌﾞﾛｳ ｽｽﾞｷ ｼﾛｳ ｽｽﾞｷ ｺﾞﾛｳ ﾀﾅｶ ｲﾁﾛｳ ﾀﾅｶ ｼﾞﾛｳ ﾀﾅｶ ｻﾌﾞﾛｳ ﾀﾅｶ ｼﾛｳ ﾀﾅｶ ｺﾞﾛｳ ﾜﾀﾅﾍﾞ ｲﾁﾛｳ ﾜﾀﾅﾍﾞ ｼﾞﾛｳ ﾜﾀﾅﾍﾞｻﾌﾞﾛｳ ファイル名 実習３data.txt

入力形式・出力形式・処理条件 から記憶領域を定義する

記憶領域の定義 記憶装置 FD:B－FILE 01:B-REC 入力領域 SCODE XXXX SYOMEI XXXXXXXXXX TYOSYA XXXXXXXXXX TU XX 作業領域 01:MEISAI 01:PAGESU M-SCODE XXXX M-SYOMEI XXXXXXXXXX M-TYOSYA XXXXXXXXXX 99 01:MIDASI 01:GYOSU ｺｰﾄﾞ　　　　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ 99 01:E-FLG 01:PAGE-R XXX ﾍﾟｰｼﾞ P－PAGE Z9 出力領域 FD:L-FILE　01:L-REC X(72)

記憶領域の定義から データ部の記述をする

データ部の記述① DATA DIVISION. FILE SECTION. FD B-FILE. 01 B-REC. 02 SCODE PIC X(4). 02 SYOMEI PIC X(10). 02 TYOSYA PIC X(10). 02 PIC X(2). FD L-FILE. 01 L-REC PIC X(72). 入 力 領 域 出力 領域

データ部の記述② WORKING-STORAGE SECTION. 01 E-FLG PIC X(3). 01 PAGESU PIC 9(2). 01 GYOSU PIC 9(2). 01 PAGE-R. 02 PIC X(29) VALUE SPACE. 02 PIC X(7) VALUE "ﾍﾟｰｼﾞ ". 02 P-PAGE PIC Z9. 01 MIDASI. 02 PIC X(5) VALUE SPACE. 02 PIC X(4) VALUE "ｺｰﾄﾞ". 02 PIC X(7) VALUE SPACE. 02 PIC X(4) VALUE "ｼｮﾒｲ". 02 PIC X(10) VALUE SPACE. 02 PIC X(4) VALUE "ﾁｮｼｬ". 独立項目 の記述 ページ行 の記述 作 業 領 域 見出行の記述

データ部の記述③ 01 MEISAI. 02 PIC X(5) VALUE SPACE. 02 M-SCODE PIC X(4). 02 M-SYOMEI PIC X(10). 02 M-TYOSYA PIC X(10). 明細行の記述 作 業 領 域

処理手順を考える

入力ファイル・出力ファイルを開く COBOLのプログラムでは、最初の処理は入力用、出力用のファイルを開くことである。 ファイルを開くとは、ファイルを使用できる状態にすることである。

① 初期値を設定 初期値 1 初期値 10 初期値 OFF 入力装置 記憶装置 演算装置 FD:B－FILE 01:B-REC 入力領域 ①　初期値を設定 記憶装置 演算装置 FD:B－FILE　01:B-REC 入力領域 SCODE SYOMEI TYOSYA TU 作業領域 01:MEISAI 01:PAGESU M-SCODE M-SYOMEI M-TYOSYA 01 初期値 1 01:MIDASI 01:GYOSU 初期値 10 ｺｰﾄﾞ　　　　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ 10 01:E-FLG 01:PAGE-R OFF 初期値 OFF ﾍﾟｰｼﾞ P－PAGE 出力領域 FD:L-FILE　01:L-REC X(72)

繰り返し処理 入力データを読み終えるまで（E-FLG ＝ “ON”となるまで)以下の手続きを繰り返す。 ② 入力データを読む。 ③ 行数が10に等しくなってるか判断する。 　 　YESの場合は、以下の改ページ処理を行う。 　　　 ④ ページ数をページ行に転記する。 　　　 ⑤ 改ページ後ページ行を印字する。 　　　 ⑥ 見出行を印字する。 　　　 ⑦ ページ数に１を加算する。 　　　 ⑧ 行数に０（ゼロ）を設定する。 　　　NOの場合は、何もせず次の処理を行う。 ⑨ 各項目を明細行に転記する。 ⑩ 明細行を印字する。 ⑪ 行数をカウントする。

② 入力データを読む 入力データ 入力装置 記憶装置 演算装置 FD:B－FILE 01:B-REC 入力領域 SCODE 0001 ②　入力データを読む 記憶装置 演算装置 FD:B－FILE　01:B-REC 入力領域 SCODE 0001 SYOMEI ﾍﾟﾝｼｭｳｼﾞ1 TYOSYA ｻﾄｳ ﾏｻｷ TU 作業領域 01:MEISAI 01:PAGESU M-SCODE M-SYOMEI M-TYOSYA 01 01:MIDASI 01:GYOSU ｺｰﾄﾞ　　　　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ 10 01:E-FLG 01:PAGE-R OFF ﾍﾟｰｼﾞ P－PAGE 出力領域 FD:L-FILE　01:L-REC X(72)

③ 行数が10に等しくなっているか判断する YESの場合、ページ処理を実施 NOの場合、何もしない 入力データ 改ページ処理には、 ③　行数が10に等しくなっているか判断する 入力装置 入力データ YESの場合、ページ処理を実施 NOの場合、何もしない 記憶装置 演算装置 FD:B－FILE　01:B-REC 入力領域 SCODE 0001 SYOMEI ﾍﾟﾝｼｭｳｼﾞ1 TYOSYA ｻﾄｳ ﾏｻｷ TU 作業領域 01:MEISAI 01:PAGESU M-SCODE M-SYOMEI M-TYOSYA 01 01:MIDASI 01:GYOSU GYOSU ＝ 10 ? YES ｺｰﾄﾞ　　　　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ 10 10 01:E-FLG 01:PAGE-R OFF ﾍﾟｰｼﾞ P－PAGE 改ページ処理には、 以下の処理がある。 ●ページ数をページ 　 行に転記 ●改ページ後にペー 　 ジ行を印字 ●見出行を印字 ●ページ数に１加算 ●行数に０を設定 出力領域 FD:L-FILE　01:L-REC X(72)

④ ページ数をページ行に転記 入力データ 改ページ処理には、 以下の処理がある。 ●ページ数をページ 行に転記 ●改ページ後にペー 入力装置 入力データ ④　ページ数をページ行に転記　 記憶装置 演算装置 FD:B－FILE　01:B-REC 入力領域 SCODE 0001 SYOMEI ﾍﾟﾝｼｭｳｼﾞ 1 TYOSYA ｻﾄｳ ﾏｻｷ TU 作業領域 01:MEISAI 01:PAGESU M-SCODE M-SYOMEI M-TYOSYA 01 01:MIDASI 01:GYOSU ｺｰﾄﾞ　　　　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ 10 01:E-FLG 01:PAGE-R OFF ﾍﾟｰｼﾞ P－PAGE 1 改ページ処理には、 以下の処理がある。 ●ページ数をページ 　 行に転記 ●改ページ後にペー 　 ジ行を印字 ●見出行を印字 ●ページ数に１加算 ●行数に０を設定 出力領域 FD:L-FILE　01:L-REC X(72)

⑤ 改ページ後にページ行を印字する 入力データ 改ページ処理には、 以下の処理がある。 ●ページ数をページ 行に転記 ●改ページ後にペー 入力装置 入力データ ⑤　改ページ後にページ行を印字する 記憶装置 演算装置 FD:B－FILE　01:B-REC 入力領域 SCODE 0001 SYOMEI ﾍﾟﾝｼｭｳｼﾞ 1 TYOSYA ｻﾄｳ ﾏｻｷ TU 作業領域 01:MEISAI 01:PAGESU M-SCODE M-SYOMEI M-TYOSYA 01 01:MIDASI 01:GYOSU ｺｰﾄﾞ　　　　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ 10 01:E-FLG 01:PAGE-R OFF ﾍﾟｰｼﾞ P－PAGE 1 改ページ処理には、 以下の処理がある。 ●ページ数をページ 　 行に転記 ●改ページ後にペー 　 ジ行を印字 ●見出行を印字 ●ページ数に１加算 ●行数に０を設定 出力領域 FD:L-FILE　01:L-REC X(72) ﾍﾟｰｼﾞ　　　　1

⑥ 見出行を印字する 入力データ 改ページ処理には、 以下の処理がある。 ●ページ数をページ 行に転記 ●改ページ後にペー ジ行を印字 入力装置 入力データ ⑥　見出行を印字する　 記憶装置 演算装置 FD:B－FILE　01:B-REC 入力領域 SCODE 0001 SYOMEI ﾍﾟﾝｼｭｳｼﾞ 1 TYOSYA ｻﾄｳ ﾏｻｷ TU 作業領域 01:MEISAI 01:PAGESU M-SCODE M-SYOMEI M-TYOSYA 01 01:MIDASI 01:GYOSU ｺｰﾄﾞ　　　　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ 10 01:E-FLG 01:PAGE-R OFF ﾍﾟｰｼﾞ P－PAGE 1 改ページ処理には、 以下の処理がある。 ●ページ数をページ 　 行に転記 ●改ページ後にペー 　 ジ行を印字 ●見出行を印字 ●ページ数に１加算 ●行数に０を設定 出力領域 FD:L-FILE　01:L-REC X(72) ﾍﾟｰｼﾞ　　　　1 ｺｰﾄﾞ　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ

⑦ ページ数に１を加算する 入力データ 改ページ処理には、 以下の処理がある。 ●ページ数をページ 行に転記 ●改ページ後にペー ジ行を印字 入力装置 入力データ ⑦　ページ数に１を加算する 記憶装置 演算装置 FD:B－FILE　01:B-REC 入力領域 SCODE 0001 SYOMEI ﾍﾟﾝｼｭｳｼﾞ 1 TYOSYA ｻﾄｳ ﾏｻｷ TU 作業領域 01:MEISAI 01:PAGESU PAGESU + 1 → PAGESU 01 02 M-SCODE M-SYOMEI M-TYOSYA 02 01 01:MIDASI 01:GYOSU ｺｰﾄﾞ　　　　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ 10 01:E-FLG 01:PAGE-R OFF ﾍﾟｰｼﾞ P－PAGE 1 改ページ処理には、 以下の処理がある。 ●ページ数をページ 　 行に転記 ●改ページ後にペー 　 ジ行を印字 ●見出行を印字 ●ページ数に１加算 ●行数に０を設定 出力領域 FD:L-FILE　01:L-REC X(72) ﾍﾟｰｼﾞ　　　　1 ｺｰﾄﾞ　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ

⑧ 行数に０（ゼロ）を設定する 入力データ 改ページ処理には、 以下の処理がある。 ●ページ数をページ 行に転記 ●改ページ後にペー 入力装置 入力データ ⑧　行数に０（ゼロ）を設定する 記憶装置 演算装置 FD:B－FILE　01:B-REC 入力領域 SCODE 0001 SYOMEI ﾍﾟﾝｼｭｳｼﾞ 1 TYOSYA ｻﾄｳ ﾏｻｷ TU 作業領域 01:MEISAI 01:PAGESU PAGESU + 1 → PAGESU 01 02 M-SCODE M-SYOMEI M-TYOSYA 02 01 01:MIDASI 01:GYOSU ｺｰﾄﾞ　　　　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ 10 00 01:E-FLG 01:PAGE-R OFF ﾍﾟｰｼﾞ P－PAGE 1 改ページ処理には、 以下の処理がある。 ●ページ数をページ 　 行に転記 ●改ページ後にペー 　 ジ行を印字 ●見出行を印字 ●ページ数に１加算 ●行数に０を設定 出力領域 FD:L-FILE　01:L-REC X(72) ﾍﾟｰｼﾞ　　　　1 ｺｰﾄﾞ　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ

⑨ 各項目を明細行に転記する 入力データ 入力装置 記憶装置 演算装置 FD:B－FILE 01:B-REC 入力領域 SCODE 0001 ⑨　各項目を明細行に転記する　 記憶装置 演算装置 FD:B－FILE　01:B-REC 入力領域 SCODE 0001 SYOMEI ﾍﾟﾝｼｭｳｼﾞ 1 TYOSYA ｻﾄｳ ﾏｻｷ TU 作業領域 01:MEISAI 01:PAGESU PAGESU + 1 → PAGESU 01 02 M-SCODE M-SYOMEI M-TYOSYA 02 0001 ﾍﾟﾝｼｭｳｼﾞ 1 ｻﾄｳ ﾏｻｷ 01:MIDASI 01:GYOSU ｺｰﾄﾞ　　　　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ 00 01:E-FLG 01:PAGE-R OFF ﾍﾟｰｼﾞ P－PAGE 1 出力領域 FD:L-FILE　01:L-REC X(72) ﾍﾟｰｼﾞ　　　　1 ｺｰﾄﾞ　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ

⑩ 明細行を印字する 入力データ 入力装置 記憶装置 演算装置 FD:B－FILE 01:B-REC 入力領域 SCODE 0001 ⑩　明細行を印字する　 記憶装置 演算装置 FD:B－FILE　01:B-REC 入力領域 SCODE 0001 SYOMEI ﾍﾟﾝｼｭｳｼﾞ 1 TYOSYA ｻﾄｳ ﾏｻｷ TU 作業領域 01:MEISAI 01:PAGESU PAGESU + 1 → PAGESU 01 02 M-SCODE M-SYOMEI M-TYOSYA 02 0001 ﾍﾟﾝｼｭｳｼﾞ 1 ｻﾄｳ ﾏｻｷ 01:MIDASI 01:GYOSU ｺｰﾄﾞ　　　　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ 00 01:E-FLG 01:PAGE-R OFF ﾍﾟｰｼﾞ P－PAGE 1 出力領域 FD:L-FILE　01:L-REC X(72) ﾍﾟｰｼﾞ　　　　1 ｺｰﾄﾞ　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ 0001　　　　　ﾍﾟﾝｼｭｳｼﾞ 1　　　　 　ｻﾄｳ ﾏｻｷ

⑪ 行数をカウントする 入力データ 01 入力装置 記憶装置 演算装置 FD:B－FILE 01:B-REC 入力領域 SCODE 0001 ⑪　行数をカウントする 記憶装置 演算装置 FD:B－FILE　01:B-REC 入力領域 SCODE 0001 SYOMEI ﾍﾟﾝｼｭｳｼﾞ 1 TYOSYA ｻﾄｳ ﾏｻｷ TU 作業領域 01:MEISAI 01:PAGESU PAGESU + 1 → PAGESU 01 02 M-SCODE M-SYOMEI M-TYOSYA 02 0001 ﾍﾟﾝｼｭｳｼﾞ 1 ｻﾄｳ ﾏｻｷ 01:MIDASI 01:GYOSU GYOSU + 1 → GYOSU 00 01 ｺｰﾄﾞ　　　　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ 00 01 01:E-FLG 01:PAGE-R OFF ﾍﾟｰｼﾞ P－PAGE 1 出力領域 FD:L-FILE　01:L-REC X(72) ﾍﾟｰｼﾞ　　　　1 ｺｰﾄﾞ　　　　　　　ｼｮﾒｲ　　　　　　　　　　ﾁｮｼｬ 0001　　　　　ﾍﾟﾝｼｭｳｼﾞ 1　　　　 　ｻﾄｳ ﾏｻｷ

入力ファイル・出力ファイルを閉じる COBOLのプログラムでは、最後の処理は入力用、出力用のファイルを閉じることである。