実 習 ３ ページコントロール 1 ページコントロール 実習３ 第５図のような書籍データを読み、処理条件にしたがい第６図のように 印字するプログラムを完成させなさい。 出力形式 入力形式 出力ファイル名： L－FILE 出力レコード名： L－REC 入力ファイル名： B－FILE 入力レコード名： B－REC 書籍コード （SCODE) X(4) 書 名 著 者 （SYOMEI) （TYOSYA) X(10) X(10) （第５図） 処理条件 （１）各ページの先頭にはページ数、見 出しを印字する。 （２）明細行は１ページに１０行まで印 字し、改ページする。 ﾍﾟｰｼﾞ Z9 ｺｰﾄﾞ ｼｮﾒｲ ﾁｮｼｬ XXXX XXXXXXXXXX XXXXXXXXXX ～ ～ ～ XXXX XXXXXXXXXX XXXXXXXXXX ----------------------------------------------------------------------------ﾍﾟｰｼﾞ Z9 ｺｰﾄﾞ ｼｮﾒｲ ﾁｮｼｬ XXXX XXXXXXXXXXX XXXXXXXXXX ～ ～ ～ XXXX XXXXXXXXXXX XXXXXXXXXX （第６図） 2 入力データ ファイル名 実習３data.txt SCODE 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 SYOMEI TYOSYA ﾍﾟﾝｼｭｳｼﾞ 1 ﾍﾟﾝｼｭｳｼﾞ 2 ﾍﾟﾝｼｭｳｼﾞ 3 ﾀﾉｼｲ ﾀﾞﾝｽ1 BASICﾓﾝﾀﾞｲ ｺﾝﾋﾟｭｰﾀ ｷｿ ﾜｰﾌﾟﾛﾆｭｳﾓﾝ ﾏｸﾛ ﾆｭｳﾓﾝ COBOLﾓﾝﾀﾞｲ ﾊｰﾄﾞｳｪｱ ｿﾌﾄｳｪｱ ﾔｻｼｲ OS 2ｼｭｼｹﾝﾀｲｻｸ WINDOWS ﾀﾉｼｲCD-ROM ﾎﾞｷ 3ｷｭｳ ﾎﾞｷ 2ｷｭｳ ﾎﾞｷ 1ｷｭｳ ﾏｰｹﾃｨﾝｸﾞ ｼｭｻﾞﾝ 3ｷｭｳ ｼｭｻﾞﾝ 2ｷｭｳ ｼｭｻﾞﾝ 1ｷｭｳ ｼｭｼｮｸ ﾀｲｻｸ ﾍﾟﾝｼｭｳｼﾞ 4 ﾍﾟﾝｼｭｳｼﾞ 5 ﾍﾟﾝｼｭｳｼﾞ 6 ﾀﾉｼｲ ﾀﾞﾝｽ2 ｼｽｱﾄﾞﾓﾝﾀﾞｲ ｻﾄｳ ﾏｻｷ ﾀｹｶﾜ ﾋﾃﾞｷ ﾌﾙｶﾜ ﾄｼｱｷ ｺﾊﾞﾔｼ ｶﾂﾔ ﾔﾏﾀﾞ ﾀﾛｳ ﾔﾏﾀﾞ ｲﾁﾛｳ ﾔﾏﾀﾞ ｼﾞﾛｳ ﾔﾏﾀﾞ ｻﾌﾞﾛｳ ﾔﾏﾀﾞ ｼﾛｳ ﾔﾏﾀﾞ ｺﾞﾛｳ ｽｽﾞｷ ｲﾁﾛｳ ｽﾞｽﾞｷ ｼﾞﾛｳ ｽﾞｽﾞｷｻﾌﾞﾛｳ ｽｽﾞｷ ｼﾛｳ ｽｽﾞｷ ｺﾞﾛｳ ﾀﾅｶ ｲﾁﾛｳ ﾀﾅｶ ｼﾞﾛｳ ﾀﾅｶ ｻﾌﾞﾛｳ ﾀﾅｶ ｼﾛｳ ﾀﾅｶ ｺﾞﾛｳ ﾜﾀﾅﾍﾞ ｲﾁﾛｳ ﾜﾀﾅﾍﾞ ｼﾞﾛｳ ﾜﾀﾅﾍﾞｻﾌﾞﾛｳ ｻﾄｳ ﾏｻｷ ﾀｹｶﾜ ﾋﾃﾞｷ ﾌﾙｶﾜ ﾄｼｱｷ ｺﾊﾞﾔｼ ｶﾂﾔ ﾔﾏﾀﾞ ﾀﾛｳ 3 入力形式・出力形式・処理条件 から記憶領域を定義する 4 記憶領域の定義 記憶装置 入 力 領 域 FD:B－FILE 01:B-REC SCODE SYOMEI XXXX XXXXXXXXXX 01:MEISAI M-SCODE XXXX 01:MIDASI 作 業 領 域 出 力 領 域 ｺｰﾄﾞ TYOSYA XXXXXXXXXX M-SYOMEI XXXXXXXXXX ｼｮﾒｲ TU XX M-TYOSYA XXXXXXXXXX 01:PAGESU 99 01:GYOSU 99 ﾁｮｼｬ 01:E-FLG 01:PAGE-R ﾍﾟｰｼﾞ P－PAGE Z9 XXX FD:L-FILE 01:L-REC X(72) 5 記憶領域の定義から データ部の記述をする 6 データ部の記述① 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). 入 力 領 域 出力 領域 7 データ部の記述② 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 02 PIC X(7) VALUE 02 P-PAGE PIC Z9. 01 MIDASI. 02 PIC X(5) VALUE 02 PIC X(4) VALUE 02 PIC X(7) VALUE 02 PIC X(4) VALUE 02 PIC X(10) VALUE 02 PIC X(4) VALUE の独 記立 述項 目 SPACE. "ﾍﾟｰｼﾞ SPACE. "ｺｰﾄﾞ". SPACE. "ｼｮﾒｲ". SPACE. "ﾁｮｼｬ". ". のペ 記ー 述ジ 行 作 業 領 域 見 出 行 の 記 述 8 データ部の記述③ 01 MEISAI. 02 02 M-SCODE 02 02 M-SYOMEI 02 02 M-TYOSYA PIC PIC PIC PIC PIC PIC X(5) VALUE SPACE. X(4). X(5) VALUE SPACE. X(10). X(5) VALUE SPACE. X(10). 明 細 行 の 記 述 作 業 領 域 9 処理手順を考える 10 入力ファイル・出力ファイルを開く • COBOLのプログラムでは、最初の処理は 入力用、出力用のファイルを開くことである。 • ファイルを開くとは、ファイルを使用できる状 態にすることである。 11 ① 初期値を設定 入力装置 記憶装置 入 力 領 域 演算装置 FD:B－FILE 01:B-REC SCODE SYOMEI 01:MEISAI M-SCODE 作 業 領 域 TYOSYA M-SYOMEI TU M-TYOSYA 01:MIDASI ｺｰﾄﾞ ｼｮﾒｲ ﾁｮｼｬ 初期値 1 01:GYOSU 10 初期値 10 01:E-FLG 01:PAGE-R ﾍﾟｰｼﾞ 出 力 領 域 01:PAGESU 01 P－PAGE OFF 初期値 OFF FD:L-FILE 01:L-REC X(72) 12 繰り返し処理 入力データを読み終えるまで（E-FLG ＝ “ON”となるま で)以下の手続きを繰り返す。 ② 入力データを読む。 ③ 行数が10に等しくなってるか判断する。 YESの場合は、以下の改ページ処理を行う。 ④ ページ数をページ行に転記する。 ⑤ 改ページ後ページ行を印字する。 ⑥ 見出行を印字する。 ⑦ ページ数に１を加算する。 ⑧ 行数に０（ゼロ）を設定する。 NOの場合は、何もせず次の処理を行う。 ⑨ 各項目を明細行に転記する。 ⑩ 明細行を印字する。 ⑪ 行数をカウントする。 13 入力装置 ② 入力データを読む 入力データ 記憶装置 入 力 領 域 演算装置 FD:B－FILE 01:B-REC SCODE SYOMEI 0001 ﾍﾟﾝｼｭｳｼﾞ1 01:MEISAI M-SCODE 作 業 領 域 TYOSYA ｻﾄｳ ﾏｻｷ M-SYOMEI TU M-TYOSYA ｼｮﾒｲ ﾁｮｼｬ 01:E-FLG 01:PAGE-R ﾍﾟｰｼﾞ 出 力 領 域 01:GYOSU 10 01:MIDASI ｺｰﾄﾞ 01:PAGESU 01 P－PAGE OFF FD:L-FILE 01:L-REC X(72) 14 入力装置 入力データ 記憶装置 入 力 領 域 FD:B－FILE 01:B-REC SCODE SYOMEI 0001 ﾍﾟﾝｼｭｳｼﾞ1 01:MEISAI M-SCODE 作 業 領 域 ③ 行数が10に等しくなっているか判断する YESの場合、ページ処理を実施 NOの場合、何もしない 演算装置 TYOSYA ｻﾄｳ ﾏｻｷ M-SYOMEI TU M-TYOSYA ｼｮﾒｲ ﾁｮｼｬ GYOSU ＝ 10 ? 10 YES 01:E-FLG 01:PAGE-R ﾍﾟｰｼﾞ 出 力 領 域 01:GYOSU 10 01:MIDASI ｺｰﾄﾞ 01:PAGESU 01 P－PAGE OFF 改ページ処理には、 以下の処理がある。 FD:L-FILE 01:L-REC X(72) ●ページ数をページ 行に転記 ●改ページ後にペー ジ行を印字 ●見出行を印字 ●ページ数に１加算 ●行数に０を設定 15 入力装置 入力データ ④ ページ数をページ行に転記 記憶装置 入 力 領 域 演算装置 FD:B－FILE 01:B-REC SCODE SYOMEI 0001 ﾍﾟﾝｼｭｳｼﾞ 1 01:MEISAI M-SCODE 作 業 領 域 TYOSYA ｻﾄｳ ﾏｻｷ M-SYOMEI TU M-TYOSYA ｼｮﾒｲ ﾁｮｼｬ 01:E-FLG 01:PAGE-R ﾍﾟｰｼﾞ 出 力 領 域 01:GYOSU 10 01:MIDASI ｺｰﾄﾞ 01:PAGESU 01 P－PAGE OFF 1 改ページ処理には、 以下の処理がある。 FD:L-FILE 01:L-REC X(72) ●ページ数をページ 行に転記 ●改ページ後にペー ジ行を印字 ●見出行を印字 ●ページ数に１加算 ●行数に０を設定 16 入力装置 入力データ ⑤ 改ページ後にページ行を印字する 記憶装置 入 力 領 域 演算装置 FD:B－FILE 01:B-REC SCODE SYOMEI 0001 ﾍﾟﾝｼｭｳｼﾞ 1 01:MEISAI M-SCODE 作 業 領 域 TYOSYA ｻﾄｳ ﾏｻｷ M-SYOMEI TU M-TYOSYA ｼｮﾒｲ ﾁｮｼｬ 01:E-FLG 01:PAGE-R ﾍﾟｰｼﾞ 出 力 領 域 01:GYOSU 10 01:MIDASI ｺｰﾄﾞ 01:PAGESU 01 P－PAGE OFF 1 改ページ処理には、 以下の処理がある。 FD:L-FILE 01:L-REC X(72) ﾍﾟｰｼﾞ 1 ●ページ数をページ 行に転記 ●改ページ後にペー ジ行を印字 ●見出行を印字 ●ページ数に１加算 ●行数に０を設定 17 入力装置 入力データ ⑥ 見出行を印字する 記憶装置 入 力 領 域 演算装置 FD:B－FILE 01:B-REC SCODE SYOMEI 0001 ﾍﾟﾝｼｭｳｼﾞ 1 01:MEISAI M-SCODE 作 業 領 域 TYOSYA ｻﾄｳ ﾏｻｷ M-SYOMEI TU M-TYOSYA ｼｮﾒｲ ﾁｮｼｬ 01:E-FLG 01:PAGE-R ﾍﾟｰｼﾞ 出 力 領 域 01:GYOSU 10 01:MIDASI ｺｰﾄﾞ 01:PAGESU 01 P－PAGE 1 改ページ処理には、 以下の処理がある。 FD:L-FILE 01:L-REC X(72) ｺｰﾄﾞ OFF ｼｮﾒｲ ﾍﾟｰｼﾞ ﾁｮｼｬ 1 ●ページ数をページ 行に転記 ●改ページ後にペー ジ行を印字 ●見出行を印字 ●ページ数に１加算 ●行数に０を設定 18 入力装置 入力データ ⑦ ページ数に１を加算する 記憶装置 入 力 領 域 演算装置 FD:B－FILE 01:B-REC SCODE SYOMEI 0001 ﾍﾟﾝｼｭｳｼﾞ 1 01:MEISAI M-SCODE 作 業 領 域 TYOSYA ｻﾄｳ ﾏｻｷ M-SYOMEI TU M-TYOSYA ｼｮﾒｲ ﾁｮｼｬ 01:E-FLG 01:PAGE-R ﾍﾟｰｼﾞ 出 力 領 域 PAGESU + 1 → PAGESU 01 02 01:GYOSU 10 01:MIDASI ｺｰﾄﾞ 01:PAGESU 02 01 P－PAGE 1 改ページ処理には、 以下の処理がある。 FD:L-FILE 01:L-REC X(72) ｺｰﾄﾞ OFF ｼｮﾒｲ ﾍﾟｰｼﾞ ﾁｮｼｬ 1 ●ページ数をページ 行に転記 ●改ページ後にペー ジ行を印字 ●見出行を印字 ●ページ数に１加算 ●行数に０を設定 19 入力装置 入力データ ⑧ 行数に０（ゼロ）を設定する 記憶装置 入 力 領 域 演算装置 FD:B－FILE 01:B-REC SCODE SYOMEI 0001 ﾍﾟﾝｼｭｳｼﾞ 1 01:MEISAI M-SCODE 作 業 領 域 TYOSYA ｻﾄｳ ﾏｻｷ M-SYOMEI TU M-TYOSYA ｼｮﾒｲ ﾁｮｼｬ 01:E-FLG 01:PAGE-R ﾍﾟｰｼﾞ 出 力 領 域 PAGESU + 1 → PAGESU 01 02 01:GYOSU 10 00 01:MIDASI ｺｰﾄﾞ 01:PAGESU 02 01 P－PAGE 1 改ページ処理には、 以下の処理がある。 FD:L-FILE 01:L-REC X(72) ｺｰﾄﾞ OFF ｼｮﾒｲ ﾍﾟｰｼﾞ ﾁｮｼｬ 1 ●ページ数をページ 行に転記 ●改ページ後にペー ジ行を印字 ●見出行を印字 ●ページ数に１加算 ●行数に０を設定 20 入力装置 入力データ ⑨ 各項目を明細行に転記する 記憶装置 入 力 領 域 演算装置 FD:B－FILE 01:B-REC SCODE SYOMEI 0001 ﾍﾟﾝｼｭｳｼﾞ 1 01:MEISAI M-SCODE 0001 作 業 領 域 TYOSYA ｻﾄｳ ﾏｻｷ M-SYOMEI ﾍﾟﾝｼｭｳｼﾞ 1 TU M-TYOSYA ｻﾄｳ ﾏｻｷ ｼｮﾒｲ ﾁｮｼｬ 01:E-FLG 01:PAGE-R ﾍﾟｰｼﾞ 出 力 領 域 PAGESU + 1 → PAGESU 01 02 01:GYOSU 00 01:MIDASI ｺｰﾄﾞ 01:PAGESU 02 P－PAGE OFF 1 FD:L-FILE 01:L-REC X(72) ｺｰﾄﾞ ｼｮﾒｲ ﾍﾟｰｼﾞ ﾁｮｼｬ 1 21 入力装置 入力データ ⑩ 明細行を印字する 記憶装置 入 力 領 域 演算装置 FD:B－FILE 01:B-REC SCODE SYOMEI 0001 ﾍﾟﾝｼｭｳｼﾞ 1 01:MEISAI M-SCODE 0001 作 業 領 域 TYOSYA ｻﾄｳ ﾏｻｷ M-SYOMEI ﾍﾟﾝｼｭｳｼﾞ 1 TU M-TYOSYA ｻﾄｳ ﾏｻｷ ｼｮﾒｲ ﾁｮｼｬ 01:E-FLG 01:PAGE-R ﾍﾟｰｼﾞ 出 力 領 域 PAGESU + 1 → PAGESU 01 02 01:GYOSU 00 01:MIDASI ｺｰﾄﾞ 01:PAGESU 02 P－PAGE OFF 1 FD:L-FILE 01:L-REC X(72) ｺｰﾄﾞ 0001 ｼｮﾒｲ ﾍﾟﾝｼｭｳｼﾞ 1 ﾍﾟｰｼﾞ 1 ﾁｮｼｬ ｻﾄｳ ﾏｻｷ 22 入力装置 入力データ ⑪ 行数をカウントする 記憶装置 入 力 領 域 演算装置 FD:B－FILE 01:B-REC SCODE SYOMEI 0001 ﾍﾟﾝｼｭｳｼﾞ 1 01:MEISAI M-SCODE 0001 作 業 領 域 TYOSYA ｻﾄｳ ﾏｻｷ M-SYOMEI ﾍﾟﾝｼｭｳｼﾞ 1 TU M-TYOSYA ｻﾄｳ ﾏｻｷ 01:MIDASI ｺｰﾄﾞ ｼｮﾒｲ ﾁｮｼｬ PAGESU + 1 → PAGESU 01 02 01:GYOSU 00 01 GYOSU + 1 → GYOSU 01 00 01:E-FLG 01:PAGE-R ﾍﾟｰｼﾞ 出 力 領 域 01:PAGESU 02 P－PAGE OFF 1 FD:L-FILE 01:L-REC X(72) ｺｰﾄﾞ 0001 ｼｮﾒｲ ﾍﾟﾝｼｭｳｼﾞ 1 ﾍﾟｰｼﾞ 1 ﾁｮｼｬ ｻﾄｳ ﾏｻｷ 23 入力ファイル・出力ファイルを閉じる • COBOLのプログラムでは、最後の処理は入 力用、出力用のファイルを閉じることである。 24
© Copyright 2024 ExpyDoc
