実　習　４ ２次元テーブルの利用

２次元テーブルの利用 実習４ 第７図のような回答データを読み、処理条件にしたがってアンケート集計 　第７図のような回答データを読み、処理条件にしたがってアンケート集計 テーブルへ集計し、第８図のように印字するプログラムを作成しなさい。 入力形式 入力ファイル名： KAITO－FILE　　 入力レコード名： KAITO－REC 出力形式 出力ファイル名： OUT－FILE　　 出力レコード名： OUT－REC 問１回答 KAI(1) 9(1) 問１回答 KAI(2) 9(1) 問１回答 KAI(3) 9(1) 問１回答 KAI(4) 9(1) 　　　　　　　 問１　　　問２ 　　　問３　　 　問４ (回答１) ZZZZZ9 ZZZZZ9 ZZZZZ9 ZZZZZ9 (回答２) ZZZZZ9 ZZZZZ9 ZZZZZ9 ZZZZZ9 (回答５) ZZZZZ9 ZZZZZ9 ZZZZZ9 ZZZZZ9 ～ ～ ～ ～ ～ （第７図） 処理条件 （第８図） （１）入力データはアンケートデータであり、問１から問４まで 　　それぞれ１から５のうちのいずれかの回答が記録されている。 （２）入力データにエラーはない。 （３）二次元テーブル SYU－Tを第９図のように用意し、たとえ 　 ば問１で２と答えた人数はSYU－T(2 1)に、問２で５と答え　　 　　た人数はSYU－T(5 2)というようにして回答数を集計する。 （４）データが終わりになったら、各問の１から５までの回答人　　 　　数をそれぞれ印字して処理を終わる。 SYU－T（集計テーブル） (1) (2) (3) (4) (5) （第９図）

入力データ ファイル名：実習４data.txt 1 2 3 4 5 1 2 3 4 5 KAI(1) KAI(2) KAI(3)

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

記憶領域の定義 記憶装置 FD:KAITO-FILE 01:KAITO-REC 入力領域 KAI(1) 9 KAI(2) 9 KAI(3) XX 01:E-FLG 01:N 01:J 作業領域 XXX 9 9 01:TAB TBL(1) SYU-T (1 1) 99 (1 2) (1 3) (1 4) TBL(2) ・・・・・ TBL(5) SYU-T (2 1) 99 SYU-T (2 2) 99 SYU-T (2 3) 99 SYU-T (2 4) 99 SYU-T (5 1) 99 SYU-T (5 2) 99 SYU-T (5 3) 99 SYU-T (5 4) 99 01:MIDASI 問１　　　　問２　 　　問３ 　　　問４ 01:MEISAI MEI (1) ZZZZZ9 MEI (2) MEI (3) MEI (4) 出力領域 FD:LIST-F　01:LIST-R X(72)

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

データ部の記述① DATA DIVISION. FILE SECTION. FD KAITO-FILE. 01 KAITO-REC. 　　02 KAI 　　 PIC 9(1) OCCURS 4. 　　02 　　 PIC X(2). FD OUT-FILE. 01　OUT-REC PIC X(72). 入力領域 出力 領域

データ部の記述② WORKING-STORAGE SECTION. 01 E-FLG PIC X(3). 01 N PIC 9(1). 01 J 　PIC 9(1). 01 TAB. 02 TBL OCCURS 5. 03 SYU-T PIC 9(2) OCCURS 4. 独立項目の記述 作 業 領 域

データ部の記述③ 01 MIDASI. 02 PIC X(3) VALUE SPACE. 02 PIC X(4) VALUE "問１". 01 MEISAI. 02 MEI PIC ZZZZZ9 OCCURS 4. 見出行の記述 作 業 領 域 明細行の記述

処理手順を考える

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

① 初期値を設定する 初期値”OFF” 初期値 ０ OFF 00 00 00 00 00 入力装置 記憶装置 演算装置 ①　初期値を設定する 入力装置 記憶装置 演算装置 FD:KAITO-FILE　01:KAITO-REC 入力領域 KAI(1) KAI(2) KAI(3) KAI(4) 01:E-FLG 01:N 01:J 作業領域 OFF 初期値”OFF” 01:TAB TBL(1) SYU-T (1 1) 00 (1 2) (1 3) (1 4) ・・・・・ TBL(5) SYU-T (5 1) 00 SYU-T (5 2) 00 SYU-T (5 3) 00 SYU-T (5 4) 00 初期値 ０ 01:MIDASI 問１　　　　問２　 　　問３ 　　　問４ 01:MEISAI MEI (1) MEI (2) MEI (3) MEI (4) 出力領域 FD:LIST-F　01:LIST-R X(72)

② 見出行を印字する 1 3 4 5 OFF 00 00 00 00 00 入力装置 記憶装置 演算装置 ②　見出行を印字する 入力装置 記憶装置 演算装置 FD:KAITO-FILE　01:KAITO-REC 入力領域 KAI(1) 1 KAI(2) 3 KAI(3) 4 KAI(4) 5 01:E-FLG 01:N 01:J 作業領域 OFF 01:TAB TBL(1) SYU-T (1 1) 00 (1 2) (1 3) (1 4) ・・・・・ TBL(5) SYU-T (5 1) 00 SYU-T (5 2) 00 SYU-T (5 3) 00 SYU-T (5 4) 00 01:MIDASI 問１　　　　問２　 　　問３ 　　　問４ 01:MEISAI MEI (1) MEI (2) MEI (3) MEI (4) 出力領域 FD:LIST-F　01:LIST-R X(72) 問１　　　　問２　 　　問３ 　　　問４

繰り返し処理 入力データを読み終えるまで（E-FLG ＝ “ON”となるまで) 以下の手続きを繰り返す。 ③入力データを読む。 処理を行う。 　　　⑤回答の内容を添字Ｊに転記する。 　　　⑥添字ＪとＮを利用しテーブルの要素SYUｰT(J　N)　　　 　　　 　　　　 にカウントする。

③ 入力データを読む 入力データ 1 3 4 5 OFF 00 00 00 00 00 入力装置 記憶装置 演算装置 ③　入力データを読む 入力装置 入力データ 記憶装置 演算装置 FD:KAITO-FILE　01:KAITO-REC 入力領域 KAI(1) 1 KAI(2) 3 KAI(3) 4 KAI(4) 5 01:E-FLG 01:N 01:J 作業領域 OFF 01:TAB TBL(1) SYU-T (1 1) 00 (1 2) (1 3) (1 4) ・・・・・ TBL(5) SYU-T (5 1) 00 SYU-T (5 2) 00 SYU-T (5 3) 00 SYU-T (5 4) 00 01:MIDASI 問１　　　　問２　 　　問３ 　　　問４ 01:MEISAI MEI (1) MEI (2) MEI (3) MEI (4) 出力領域 FD:LIST-F　01:LIST-R X(72) 問１　　　　問２　 　　問３ 　　　問４

２次元テーブルは２次元の表にして考える 例えば SYU－T（２ ３）は、 ２行目の３列目になる （１） （２） （３） （４） （５） 01　TAB TBL(1) TBL(2) TBL(3) TBL(4) TBL(5) SYU-T (1 1) (1 2) (1 3) (1 4) SYU-T (2 1) (2 2) (2 3) (2 4) SYU-T (3 1) (3 2) (3 3) (3 4) SYU-T (4 1) (4 2) (4 3) (4 4) SYU-T (5 1) (5 2) (5 3) (5 5) 例えば SYU－T（２　３）は、 ２行目の３列目になる （１） （２） （３） （４） （５） 問１ 問２ 問３ 問４ 回答１ 回答２ 回答３ 回答４ 回答５

④ 添字Nを１から１ずつ増やし４を超える まで処理を繰り返す 入力装置 入力データ ④　添字Nを１から１ずつ増やし４を超える 　まで処理を繰り返す 記憶装置 FD:KAITO-FILE　01:KAITO-REC Ｎが１の場合 入力領域 KAI(1) 1 KAI(2) 3 KAI(3) 4 KAI(4) 5 問１の回答は１であることがわかる！ 回答した番号の１をＪに転記！ 作業領域 01:E-FLG 01:N 01:J テーブルの１行１列目にカウントする OFF １ SYU－T(J N) + 1 →　SYU－T(J N) 1 １ 00 01 １ 列の添字 問１ 問２ 問３ 問４ SYU－T(J N) （１） （２） （３） （４） 00 （５） 回答１ 01 行の添字 回答２ 回答３ 回答４ 回答５

④ 添字Nを１から１ずつ増やし４を超える まで処理を繰り返す 入力装置 入力データ ④　添字Nを１から１ずつ増やし４を超える 　まで処理を繰り返す 記憶装置 FD:KAITO-FILE　01:KAITO-REC Ｎが１増え２となる 入力領域 KAI(1) 1 KAI(2) 3 KAI(3) 4 KAI(4) 5 問２の回答は３であることがわかる！ 回答した番号の３をＪに転記！ 作業領域 01:E-FLG 01:N 01:J テーブルの３行２列目にカウントする OFF ２ １ ３ SYU－T(J N) + 1 →　SYU－T(J N) 3 2 00 01 ３ ２ 列の添字 問１ 問２ 問３ 問４ SYU－T(J N) （１） （２） （３） （４） 01 00 （５） 回答１ 行の添字 回答２ 回答３ 01 回答４ 回答５

④ 添字Nを１から１ずつ増やし４を超える まで処理を繰り返す 入力装置 入力データ ④　添字Nを１から１ずつ増やし４を超える 　まで処理を繰り返す 記憶装置 FD:KAITO-FILE　01:KAITO-REC Ｎが１増え３となる 入力領域 KAI(1) 1 KAI(2) 3 KAI(3) 4 KAI(4) 5 問３の回答は４であることがわかる！ 回答した番号の４をＪに転記！ 作業領域 01:E-FLG 01:N 01:J テーブルの４行３列目にカウントする SYU－T(J N) + 1 →　SYU－T(J N) 4 3 OFF ３ ３ ４ 00 01 ４ ３ 列の添字 問１ 問２ 問３ 問４ SYU－T(J N) （１） （２） （３） （４） 01 00 （５） 回答１ 行の添字 回答２ 回答３ 回答４ 01 回答５

④ 添字Nを１から１ずつ増やし４を超える まで処理を繰り返す 入力装置 入力データ ④　添字Nを１から１ずつ増やし４を超える 　まで処理を繰り返す 記憶装置 FD:KAITO-FILE　01:KAITO-REC Ｎが１増え４となる 入力領域 KAI(1) 1 KAI(2) 3 KAI(3) 4 KAI(4) 5 問４の回答は５であることがわかる！ 回答した番号の５をＪに転記！ 作業領域 01:E-FLG 01:N 01:J テーブルの５行４列目にカウントする OFF ４ ４ ５ SYU－T(J N) + 1 →　SYU－T(J N) 5 4 00 01 ５ ４ 列の添字 問１ 問２ 問３ 問４ SYU－T(J N) （１） （２） （３） （４） 01 00 （５） 回答１ 行の添字 回答２ 回答３ 回答４ 回答５ 01

④ 添字Nを１から１ずつ増やし４を超える まで処理を繰り返す 入力装置 入力データ ④　添字Nを１から１ずつ増やし４を超える 　まで処理を繰り返す 記憶装置 FD:KAITO-FILE　01:KAITO-REC Ｎが１増え５となる 入力領域 KAI(1) 1 KAI(2) 3 KAI(3) 4 KAI(4) 5 Ｎが４を超えたので繰り返しを終了する 次の入力データを入力する 作業領域 01:E-FLG 01:N 01:J OFF ５ ４ ５ 列の添字 問１ 問２ 問３ 問４ SYU－T(J N) （１） （２） （３） （４） 01 00 （５） 回答１ 行の添字 回答２ 回答３ 回答４ 回答５

⑤ 入力データが終了した場合は、 E-FLGに“ON”という文字列を転記する 入力装置 入力データ ⑤　入力データが終了した場合は、 　E-FLGに“ON”という文字列を転記する 記憶装置 FD:KAITO-FILE　01:KAITO-REC 入力領域 KAI(1) 2 KAI(2) 2 KAI(3) 2 KAI(4) 5 作業領域 01:E-FLG 01:N 01:J OFF ON ５ ４ ５ 列の添字 問１ 問２ 問３ 問４ SYU－T(J N) （１） （２） （３） （４） 21 01 11 02 08 16 09 14 05 06 04 10 （５） 12 回答１ 行の添字 回答２ 回答３ 回答４ 回答５

入力データ終了後の処理 以下の手続きがある。 ⑥集計テーブルの行の添字Jを１から１ずつ 増やし５を超えるまで以下の処理を行う。 　 増やし５を超えるまで以下の処理を行う。 　　　⑦集計テーブルの列の添字Ｎを１から１ずつ 増やし４を超えるまで以下の処理を行う。 　　　　　　　⑧テーブルの要素SYU－Tの内容を 　　　　　　　　 明細行の項目MEIへ順に転記する。 　　　⑨１行分を転記したら明細行を印字する。

⑥ 行の添字Ｊを１から１つずつ増やし５を超える まで処理を繰り返す Ｊ＝１ ⑥　行の添字Ｊを１から１つずつ増やし５を超える 　 まで処理を繰り返す　　Ｊ＝１ 入力装置 入力データ 記憶装置 ⑦　列の添字Nを１から１ずつ増やし４を超える 　まで処理を繰り返す　Ｎ＝１ FD:KAITO-FILE　01:KAITO-REC 入力領域 KAI(1) 2 KAI(2) 2 KAI(3) 2 KAI(4) 5 ⑧　テーブルの要素を明細行に転記 01:E-FLG 01:N 01:J SYU－T(J N) 作業領域 （１） （２） （３） （４） 21 01 11 02 08 16 09 14 05 06 04 10 （５） 12 １　１ ON ５ ５ １ １ 01:MIDASI 問１　　　　問２　 　　問３ 　　　問４ 01:MEISAI MEI(1) MEI(2) MEI(3) MEI(4) 21 １ MEI(N) 出力領域 FD:LIST-F　01:LIST-R X(72) 問１　　　　問２　 　　問３ 　　　問４

⑥ 行の添字Ｊを１から１つずつ増やし５を超える まで処理を繰り返す Ｊ＝１ ⑥　行の添字Ｊを１から１つずつ増やし５を超える 　 まで処理を繰り返す　　Ｊ＝１ 入力装置 入力データ 記憶装置 ⑦　列の添字Nを１から１ずつ増やし４を超える　　 　まで処理を繰り返す　N＝２ FD:KAITO-FILE　01:KAITO-REC 入力領域 KAI(1) 2 KAI(2) 2 KAI(3) 2 KAI(4) 5 ⑧　テーブルの要素を明細行に転記 01:E-FLG 01:N 01:J SYU－T(J N) 作業領域 （１） （２） （３） （４） 21 01 11 02 08 16 09 14 05 06 04 10 （５） 12 1　2 ON １ ５ １ ２ 01:MIDASI 問１　　　　問２　 　　問３ 　　　問４ 01:MEISAI MEI(1) MEI(2) MEI(3) MEI(4) 21 1 2 MEI(N) 出力領域 FD:LIST-F　01:LIST-R X(72) 問１　　　　問２　 　　問３ 　　　問４

⑥ 行の添字Ｊを１から１つずつ増やし５を超える まで処理を繰り返す Ｊ＝１ ⑥　行の添字Ｊを１から１つずつ増やし５を超える 　 まで処理を繰り返す　　Ｊ＝１ 入力装置 入力データ 記憶装置 ⑦　列の添字Nを１から１ずつ増やし４を超える　　 　まで処理を繰り返す　Ｎ＝３ FD:KAITO-FILE　01:KAITO-REC 入力領域 KAI(1) 2 KAI(2) 2 KAI(3) 2 KAI(4) 5 ⑧　テーブルの要素を明細行に転記 01:E-FLG 01:N 01:J SYU－T(J N) 作業領域 （１） （２） （３） （４） 21 01 11 02 08 16 09 14 05 06 04 10 （５） 12 1　3 ON ２ ５ １ ３ 01:MIDASI 問１　　　　問２　 　　問３ 　　　問４ 01:MEISAI MEI(1) MEI(2) MEI(3) MEI(4) 21 1 11 3 MEI(N) 出力領域 FD:LIST-F　01:LIST-R X(72) 問１　　　　問２　 　　問３ 　　　問４

⑥ 行の添字Ｊを１から１つずつ増やし５を超える まで処理を繰り返す Ｊ＝１ ⑥　行の添字Ｊを１から１つずつ増やし５を超える 　 まで処理を繰り返す　　Ｊ＝１ 入力装置 入力データ 記憶装置 ⑦　列の添字Ｎを１から１ずつ増やし４を超える　　 　まで処理を繰り返す　Ｎ＝４ FD:KAITO-FILE　01:KAITO-REC 入力領域 KAI(1) 2 KAI(2) 2 KAI(3) 2 KAI(4) 5 ⑧　テーブルの要素を明細行に転記 01:E-FLG 01:N 01:J SYU－T(J N) 作業領域 （１） （２） （３） （４） 21 01 11 02 08 16 09 14 05 06 04 10 （５） 12 1　4 ON ３ ５ １ ４ 01:MIDASI 問１　　　　問２　 　　問３ 　　　問４ 01:MEISAI MEI(1) MEI(2) MEI(3) MEI(4) 21 1 11 2 4 MEI(N) 出力領域 FD:LIST-F　01:LIST-R X(72) 問１　　　　問２　 　　問３ 　　　問４

⑥ 行の添字Ｊを１から１つずつ増やし５を超える まで処理を繰り返す Ｊ＝１ ⑥　行の添字Ｊを１から１つずつ増やし５を超える 　 まで処理を繰り返す　　Ｊ＝１ 入力装置 入力データ 記憶装置 ⑦　N＝５となり４を超えたので繰り返しを終了 FD:KAITO-FILE　01:KAITO-REC 入力領域 KAI(1) 2 KAI(2) 2 KAI(3) 2 KAI(4) 5 ⑨　明細行を印字 01:E-FLG 01:N 01:J 作業領域 （１） （２） （３） （４） 21 01 11 02 08 16 09 14 05 06 04 10 （５） 12 ON ４ ５ １ ５ 01:MIDASI 問１　　　　問２　 　　問３ 　　　問４ 01:MEISAI MEI(1) MEI(2) MEI(3) MEI(4) 21 1 11 2 出力領域 FD:LIST-F　01:LIST-R X(72) 問１　　　　問２　 　　問３ 　　　問４ ２１　　　　 １ 　　１１ 　　 ２

⑥ 行の添字Ｊを２，３，４，５と増やし５を超える まで同様の処理を繰り返す ⑥　行の添字Ｊを２，３，４，５と増やし５を超える 　 まで同様の処理を繰り返す 入力装置 入力データ 記憶装置 FD:KAITO-FILE　01:KAITO-REC 入力領域 KAI(1) 2 KAI(2) 2 KAI(3) 2 KAI(4) 5 01:E-FLG 01:N 01:J 作業領域 （１） （２） （３） （４） 21 01 11 02 08 16 09 14 05 06 04 10 （５） 12 ON ５ １ 5 4 3 1 2 1 3 2 4 3 4 5 2 3 5 3 1 2 5 1 6 2 4 5 4 01:MIDASI 問１　　　　問２　 　　問３ 　　　問４ 01:MEISAI MEI(1) MEI(2) MEI(3) MEI(4) 21 16 14 2 4 1 10 11 1 　8 　1 　2 　5 9 6 14 12 1 8 2 出力領域 FD:LIST-F　01:LIST-R X(72) 問１　　　　問２　 　　問３ 　　　問４ ２１　　　　 １ 　　１１ 　　 ２ 　８　　　　 １６ 　 　９ 　 　１４ 　５　　　　 １４ 　 　６ 　 　　１ 　２　　　　 　４ 　 １０ 　 　　８ 　１　　　　 　２ 　 　１ 　 　１２　

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