Transcript 実習1
実 習 １ データの集計・件数のカウント 1 データの集計・件数のカウント 実習１ 第１図のようなある遊園地の１ヶ月の入場者データを記録した入場者ファイルを 読み、処理条件にしたがい第２図のように印字するプログラムを完成させなさい。 入力形式 処理条件 入力ファイル名：NYU－F 入力レコード名：NYU－R 日 付 （HIZUKE) 9(8) Ａゲートの入場者数 （AGATE) 9(6) Bゲートの入場者数 （BGATE) 9(6) （第１図） 出力形式 Aｹﾞｰﾄ ZZZ，ZZ9 ～ ZZZ，ZZ9 （２）ＡゲートとＢゲートの入場者数を 加え、入場者合計を求める。 （３）データが終わりになったら、入場 数の総合計と１日当たりの入場者数 の平均を求める。 出力ファイル名：LIST－F 出力レコード名：LIST－R ﾋﾂﾞｹ 99999999 ～ 99999999 （１）遊園地にはＡゲートとＢゲートの ２つの入り口がある。 Bｹﾞｰﾄ ZZZ，ZZ9 ～ ZZZ，ZZ9 ｺﾞｳｹｲ ﾍｲｷﾝ ｺﾞｳｹｲ Z，ZZZ，ZZ9 ～ Z，ZZZ，ZZ9 ZZ，ZZZ，ZZ9 Z，ZZZ，ZZ9 （第２図） 2 入力データの形式 HIZUKE AGATE BGATE 20040725 20040726 20040727 20040728 20040729 20040730 20040731 20040725 20040726 20040727 20040728 20040729 20040730 20040731 20040725 20040726 20040727 20040728 20040729 20040730 20040731 100000 012333 082353 182356 282236 188756 300756 100000 012333 082353 182356 282236 188756 300756 100000 012333 082353 182356 282236 188756 300756 120000 034555 074543 176543 276343 178575 370075 120000 034555 074543 176543 276343 178575 370075 120000 034555 074543 176543 276343 178575 370075 ファイル名： 実習1data.txt 3 入力形式・出力形式・処理条件 から記憶領域を定義する 4 記憶領域の定義 記憶装置 入 力 領 域 FD:NYU-F 01:NYU-R HIZUKE AGATE BGATE 99999999 999999 999999 XX 01:MEISAI-R M-HIZUKE 99999999 01:MIDASI 作 業 領 域 ﾋﾂﾞｹ 01:NYU M-AGATE ZZZ,ZZ9 M-BGATE ZZZ,ZZ9 M-NYU Z,ZZZ,ZZ9 01:GOKEI 99999999 Aｹﾞｰﾄ Bｹﾞｰﾄ ｺﾞｳｹｲ 01:GOKEI-R ｺﾞｳｹｲ G-GOKEI ZZ,ZZZ,ZZ9 ﾍｲｷﾝ H-HEIKIN Z,ZZZ,ZZ9 01:HEIKIN-R 出 力 領 域 FD:LIST-F 999999 01:KENSU 99 01:HEIKIN 9999999 01:E-FLG XXX 01:LIST-R X(72) 5 記憶領域の定義から データ部の記述をする 6 データ部の記述① DATA DIVISION. FILE SECTION. FD NYU-F. 01 NYU-R. 02 HIZUKE PIC 9(8). 02 AGATE PIC 9(6). 02 BGATE PIC 9(6). 02 PIC X(2). FD LIST-F. 01 LIST-R PIC X(72). 入 力 領 域 出力 領域 7 データ部の記述② WORKING-STORAGE 01 E-FLG 01 NYU 01 GOKEI 01 HEIKIN 01 KENSU SECTION. PIC X(3). PIC 9(7). PIC 9(8). PIC 9(7). PIC 9(2). 独 立 項 目 の 記 述 作 業 領 域 8 データ部の記述③ 01 MIDASI. 02 PIC X(9) 02 PIC X(4) 02 PIC X(6) 02 PIC X(5) 02 PIC X(7) 02 PIC X(5) 02 PIC X(7) 02 PIC X(5) 01 MEISAI-R. 02 02 M-HIZUKE 02 02 M-AGATE 02 02 M-BGATE 02 02 M-NYU VALUE VALUE VALUE VALUE VALUE VALUE VALUE VALUE PIC PIC PIC PIC PIC PIC PIC PIC SPACE. "ﾋﾂﾞｹ". SPACE. "Aｹﾞｰﾄ". SPACE. "Bｹﾞｰﾄ". SPACE. "ｺﾞｳｹｲ". X(5) VALUE 9(8). X(5) VALUE ZZZ,ZZ9. X(5) VALUE ZZZ,ZZ9. X(5) VALUE Z,ZZZ,ZZ9. 見 出 行 の 記 述 作 業 領 SPACE. SPACE. SPACE. 明 細 行 の 記 述 域 SPACE. 9 データ部の記述④ 01 01 GOKEI-R. 02 02 02 G-GOKEI HEIKIN-R. 02 02 02 H-HEIKIN PIC X(35) VALUE SPACE. PIC X(6) VALUE "ｺﾞｳｹｲ ". PIC ZZ,ZZZ,ZZ9. PIC X(35) VALUE PIC X(7) VALUE PIC Z,ZZZ,ZZ9. SPACE. "ﾍｲｷﾝ ". 合 計 行 の 記 述 平 均 行 の 記 述 作 業 領 域 10 処理手順を考える 11 入力ファイル・出力ファイルを開く • COBOLのプログラムでは、最初の処理は 入力用、出力用のファイルを開くことである。 • ファイルを開くとは、ファイルを使用できる状 態にすることである。 12 ① 初期値を設定する 入力装置 記憶装置 演算装置 NYU-R HIZUKE 入 力 領 域 MEISAI-R M-HIZUKE AGATE BGATE NYU M-AGATE M-BGATE M-NYU GOKEI MIDASI 作 業 領 域 ﾋﾂﾞｹ Aｹﾞｰﾄ Bｹﾞｰﾄ ｺﾞｳｹｲ 0 初期値 ０ 0 初期値 ０ KENSU GOKEI-R G-GOKEI ｺﾞｳｹｲ HEIKIN HEIKIN-R H-HEIKIN ﾍｲｷﾝ 出 力 領 域 E-FLG OFF 初期値”OFF” LIST-R 出力装置 13 ② 見出行を印字する 入力装置 記憶装置 演算装置 NYU-R HIZUKE 入 力 領 域 MEISAI-R M-HIZUKE AGATE BGATE NYU M-AGATE M-BGATE M-NYU GOKEI MIDASI 作 業 領 域 ﾋﾂﾞｹ Aｹﾞｰﾄ Bｹﾞｰﾄ 0 ｺﾞｳｹｲ KENSU GOKEI-R 0 G-GOKEI ｺﾞｳｹｲ HEIKIN HEIKIN-R H-HEIKIN ﾍｲｷﾝ 出 力 領 域 E-FLG OFF LIST-R 出力装置 ﾋﾂﾞｹ Aｹﾞｰﾄ Bｹﾞｰﾄ ｺﾞｳｹｲ 14 繰り返し処理 入力データを読み終えるまで（E-FLG ＝ “ON”となるま で)以下の手続きを繰り返す。 ③入力データを読む。 ④入場者数の合計を求める。 ⑤各項目を明細行に転記する。 ⑥明細行を印字する。 ⑦入場者数の合計を総合計に加える。 ⑧データの件数をカウントする。 15 入力装置 ③ 入力データを読む 入力データ 記憶装置 入 力 領 域 演算装置 NYU-R HIZUKE 20040725 MEISAI-R M-HIZUKE AGATE BGATE 100000 120000 NYU M-AGATE M-BGATE M-NYU GOKEI MIDASI 0 作 業 領 域 ﾋﾂﾞｹ Aｹﾞｰﾄ Bｹﾞｰﾄ ｺﾞｳｹｲ KENSU GOKEI-R ｺﾞｳｹｲ G-GOKEI 0 HEIKIN HEIKIN-R ﾍｲｷﾝ 出 力 領 域 H-HEIKIN E-FLG OFF LIST-R 出力装置 ﾋﾂﾞｹ Aｹﾞｰﾄ Bｹﾞｰﾄ ｺﾞｳｹｲ 16 入力装置 ④ 入場者数の合計を求める 入力データ 記憶装置 入 力 領 域 演算装置 NYU-R HIZUKE 20040725 AGATE BGATE 100000 120000 AGATE ＋ ＢＧＡＴＥ 100000 MEISAI-R M-HIZUKE 120000 NYU M-AGATE M-BGATE M-NYU 220000 GOKEI MIDASI 0 作 業 領 域 ﾋﾂﾞｹ Aｹﾞｰﾄ Bｹﾞｰﾄ ｺﾞｳｹｲ KENSU GOKEI-R ｺﾞｳｹｲ G-GOKEI 0 HEIKIN HEIKIN-R ﾍｲｷﾝ 出 力 領 域 H-HEIKIN E-FLG OFF LIST-R 出力装置 ﾋﾂﾞｹ Aｹﾞｰﾄ Bｹﾞｰﾄ ｺﾞｳｹｲ 17 入力装置 ⑤ 各項目を明細行に転記する 入力データ 記憶装置 入 力 領 域 演算装置 NYU-R HIZUKE 20040725 AGATE BGATE 100000 120000 AGATE ＋ ＢＧＡＴＥ 100000 MEISAI-R M-HIZUKE 20040725 MIDASI 120000 NYU M-AGATE 100,000 M-BGATE 120,000 M-NYU 220,000 220000 GOKEI 0 作 業 領 域 ﾋﾂﾞｹ Aｹﾞｰﾄ Bｹﾞｰﾄ ｺﾞｳｹｲ KENSU GOKEI-R ｺﾞｳｹｲ G-GOKEI 0 HEIKIN HEIKIN-R ﾍｲｷﾝ 出 力 領 域 H-HEIKIN E-FLG OFF LIST-R 出力装置 ﾋﾂﾞｹ Aｹﾞｰﾄ Bｹﾞｰﾄ ｺﾞｳｹｲ 18 入力装置 ⑥ 明細行を印字する 入力データ 記憶装置 入 力 領 域 演算装置 NYU-R HIZUKE 20040725 AGATE BGATE 100000 120000 AGATE ＋ ＢＧＡＴＥ 100000 MEISAI-R M-HIZUKE 20040725 MIDASI 120000 NYU M-AGATE 100,000 M-BGATE 120,000 M-NYU 220,000 220000 GOKEI 0 作 業 領 域 ﾋﾂﾞｹ Aｹﾞｰﾄ Bｹﾞｰﾄ ｺﾞｳｹｲ KENSU GOKEI-R ｺﾞｳｹｲ G-GOKEI 0 HEIKIN HEIKIN-R ﾍｲｷﾝ 出 力 領 域 H-HEIKIN E-FLG OFF LIST-R 出力装置 ﾋﾂﾞｹ 20040725 Aｹﾞｰﾄ 100,000 Bｹﾞｰﾄ 120,000 ｺﾞｳｹｲ 220,000 19 入力装置 ⑦ 入場者数の合計を総合計に加える 入力データ 記憶装置 入 力 領 域 演算装置 NYU-R HIZUKE 20040725 AGATE BGATE 100000 120000 100000 MEISAI-R M-HIZUKE 20040725 MIDASI 作 業 領 域 AGATE ＋ ＢＧＡＴＥ ﾋﾂﾞｹ 120000 NYU M-AGATE 100,000 M-BGATE 120,000 M-NYU 220,000 220000 GOKEI 2200000 Aｹﾞｰﾄ Bｹﾞｰﾄ ｺﾞｳｹｲ GOKEI ＋ NYU 0 220000 KENSU GOKEI-R ｺﾞｳｹｲ G-GOKEI 0 HEIKIN HEIKIN-R ﾍｲｷﾝ 出 力 領 域 H-HEIKIN E-FLG OFF LIST-R 出力装置 ﾋﾂﾞｹ 20040725 Aｹﾞｰﾄ 100,000 Bｹﾞｰﾄ 120,000 ｺﾞｳｹｲ 220,000 20 入力装置 ⑧ データの件数をカウントする 入力データ 記憶装置 入 力 領 域 演算装置 NYU-R HIZUKE 20040725 AGATE BGATE 100000 120000 100000 MEISAI-R M-HIZUKE 20040725 MIDASI 作 業 領 域 AGATE ＋ ＢＧＡＴＥ ﾋﾂﾞｹ 120000 NYU M-AGATE 100,000 M-BGATE 120,000 M-NYU 220,000 220000 GOKEI 220000 Aｹﾞｰﾄ Bｹﾞｰﾄ 0 ｺﾞｳｹｲ KENSU GOKEI-R ｺﾞｳｹｲ GOKEI ＋ NYU G-GOKEI 1 0 220000 KENSU ＋ 1 0 HEIKIN HEIKIN-R ﾍｲｷﾝ 出 力 領 域 H-HEIKIN E-FLG OFF LIST-R 出力装置 ﾋﾂﾞｹ 20040725 Aｹﾞｰﾄ 100,000 Bｹﾞｰﾄ 120,000 ｺﾞｳｹｲ 220,000 21 入力データ終了後の処理 以下の手続きがある。 ⑨入場者数の総合計を合計行に転記する。 ⑩合計行を印字する。 ⑪入場者数の総平均を計算する。 ⑫入場者数の総平均を平均行に転記する。 ⑬平均行を印字する。 22 入力装置 ⑨ 入場者数の総合計を合計行に転記する 入力データ 記憶装置 入 力 領 域 演算装置 NYU-R HIZUKE 20040725 AGATE BGATE 100000 120000 300756 MEISAI-R M-HIZUKE 20040725 MIDASI 作 業 領 域 AGATE ＋ ＢＧＡＴＥ ﾋﾂﾞｹ 370075 NYU M-AGATE 100,000 M-BGATE 120,000 M-NYU 220,000 670831 GOKEI 7138272 Aｹﾞｰﾄ Bｹﾞｰﾄ ｺﾞｳｹｲ KENSU GOKEI-R ｺﾞｳｹｲ G-GOKEI 7,138,272 21 GOKEI ＋ NYU 6467441 670831 KENSU ＋ 1 20 HEIKIN HEIKIN-R H-HEIKIN ﾍｲｷﾝ 出 力 領 域 E-FLG ON LIST-R 出力装置 ﾋﾂﾞｹ 20040725 Aｹﾞｰﾄ 100,000 Bｹﾞｰﾄ 120,000 ｺﾞｳｹｲ 220,000 23 入力装置 ⑩ 合計行を印字する 入力データ 記憶装置 入 力 領 域 演算装置 NYU-R HIZUKE 20040725 AGATE BGATE 100000 120000 300756 MEISAI-R M-HIZUKE 20040725 MIDASI 作 業 領 域 AGATE ＋ ＢＧＡＴＥ ﾋﾂﾞｹ 370075 NYU M-AGATE 100,000 M-BGATE 120,000 M-NYU 220,000 670831 GOKEI 7138272 Aｹﾞｰﾄ Bｹﾞｰﾄ ｺﾞｳｹｲ KENSU GOKEI-R ｺﾞｳｹｲ G-GOKEI 7,138,272 21 GOKEI ＋ NYU 6467441 670831 KENSU ＋ 1 20 HEIKIN HEIKIN-R H-HEIKIN ﾍｲｷﾝ 出 力 領 域 E-FLG ON LIST-R 出力装置 ﾋﾂﾞｹ 20040725 Aｹﾞｰﾄ 100,000 Bｹﾞｰﾄ 120,000 ｺﾞｳｹｲ ｺﾞｳｹｲ 220,000 7,138,272 24 入力装置 ⑪ 入場者数の総平均を計算する 入力データ 記憶装置 入 力 領 域 演算装置 NYU-R HIZUKE 20040725 AGATE BGATE 100000 120000 300756 MEISAI-R M-HIZUKE 20040725 MIDASI 作 業 領 域 AGATE ＋ ＢＧＡＴＥ ﾋﾂﾞｹ NYU M-AGATE 100,000 M-BGATE 120,000 M-NYU 220,000 670831 GOKEI 7138272 Aｹﾞｰﾄ Bｹﾞｰﾄ ｺﾞｳｹｲ KENSU GOKEI-R ｺﾞｳｹｲ G-GOKEI 7,138,272 HEIKIN-R H-HEIKIN ﾍｲｷﾝ 出 力 領 域 370075 21 HEIKIN 339917 GOKEI ＋ NYU 6467441 670831 KENSU ＋ 1 20 GOKEI / KENSU 21 7138272 E-FLG ON LIST-R 出力装置 ﾋﾂﾞｹ 20040725 Aｹﾞｰﾄ 100,000 Bｹﾞｰﾄ 120,000 ｺﾞｳｹｲ ｺﾞｳｹｲ 220,000 7,138,272 25 入力装置 ⑫ 入場者数の総平均を平均行に転記する 入力データ 記憶装置 入 力 領 域 演算装置 NYU-R HIZUKE 20040725 AGATE BGATE 100000 120000 300756 MEISAI-R M-HIZUKE 20040725 MIDASI 作 業 領 域 AGATE ＋ ＢＧＡＴＥ ﾋﾂﾞｹ NYU M-AGATE 100,000 M-BGATE 120,000 M-NYU 220,000 670831 GOKEI 7138272 Aｹﾞｰﾄ Bｹﾞｰﾄ ｺﾞｳｹｲ KENSU GOKEI-R ｺﾞｳｹｲ G-GOKEI 7,138,272 ﾍｲｷﾝ H-HEIKIN 339,917 HEIKIN-R 出 力 領 域 370075 21 HEIKIN 339917 GOKEI ＋ NYU 6467441 670831 KENSU ＋ 1 20 GOKEI / KENSU 21 7138272 E-FLG ON LIST-R 出力装置 ﾋﾂﾞｹ 20040725 Aｹﾞｰﾄ 100,000 Bｹﾞｰﾄ 120,000 ｺﾞｳｹｲ ｺﾞｳｹｲ 220,000 7,138,272 26 入力装置 ⑬ 平均行を印字する 入力データ 記憶装置 入 力 領 域 演算装置 NYU-R HIZUKE 20040725 AGATE BGATE 100000 120000 300756 MEISAI-R M-HIZUKE 20040725 MIDASI 作 業 領 域 AGATE ＋ ＢＧＡＴＥ ﾋﾂﾞｹ NYU M-AGATE 100,000 M-BGATE 120,000 M-NYU 220,000 670831 GOKEI 7138272 Aｹﾞｰﾄ Bｹﾞｰﾄ ｺﾞｳｹｲ KENSU GOKEI-R ｺﾞｳｹｲ G-GOKEI 7,138,272 ﾍｲｷﾝ H-HEIKIN 339,917 HEIKIN-R 出 力 領 域 370075 21 HEIKIN 339917 GOKEI ＋ NYU 6467441 670831 KENSU ＋ 1 20 GOKEI / KENSU 21 7138272 E-FLG ON LIST-R 出力装置 ﾋﾂﾞｹ 20040725 Aｹﾞｰﾄ 100,000 Bｹﾞｰﾄ 120,000 ｺﾞｳｹｲ ﾍｲｷﾝ ｺﾞｳｹｲ 220,000 7,138,272 339,917 27 入力ファイル・出力ファイルを閉じる • COBOLのプログラムでは、最後の処理は入 力用、出力用のファイルを閉じることである。 28