COBOL言語の報告書作成機能とは？使い方を理解しよう｜基礎ガイド
COBOL(コボル)言語の報告書作成機能を使った命令文の書き方とは
COBOL(コボル)言語の報告書作成機能とは？
報告書作成機能（report writer）とはCOBOLで用意されている独自な機能で、報告書を作成するための形式や体裁を製作者の意図したとおりに作成できます。
報告書作成機能を使用すれば、データの転記や印刷する行の編集、見出し行、頭書き・脚書き行の作成などを毎回コーディングしなくて済むようになります。
COBOL(コボル)言語の報告書の構成
報告集団と制御集団
報告書作成機能は、複数の報告集団と制御集団で構成されます。
■報告集団
- 報告書頭書き：報告書の先頭に表紙を指定する
- 報告書脚書き：報告書の末尾に裏表紙を指定する
- ページ頭書き：ページの上部に見出しを指定する
- ページ脚書き：ページの下部に見出しを指定する
- 明細：報告書の内容を指定する
- 制御頭書き：コントロールブレイク（頭書き）
- 制御脚書き：コントロールブレイク（脚書き）
※コントロールブレイクとは制御集団の区切りに発生する処理のことを言います。
■制御集団
- 小制御：制御用のデータ項目が低い階層の制御
- 中制御：制御用のデータ項目が高い階層の制御
- 総制御：報告書全体の制御
■報告書機能の全体イメージ
報告書を作成するには報告書節（REPORT SECTION）に報告書記述項（RD）がいくつか含まれ、報告書を作成します。
報告書節の定義
報告書節（REPORT SECTION）は、データ部（DATA DIVISION）の中に記述します。
■報告書記述項（RD）の書式
報告書名-1：
ファイル記述項（FD）で定義した報告書のファイル名を記述します。
CONTROL：
報告書の制御階層のレベルを指定するためのデータ名を記述します。
FINALは制御データ項目で表せない報告書の制御切れを指定する場合に使用します。
PAGE LIMIT:
ページの中で占める行の位置を指定します。
整数-1にはページの行数を指定します。
※省略した場合はページ頭書き、ページ脚書きの報告集団は記述できません。
HEADING：
報告書頭書きの印刷する行の上限を指定します。
省略した場合はデフォルトで１となります。
FIRST DETAIL：
報告書の本文を印刷する行を指定します。
省略した場合はデフォルトで2となります。また、頭書き報告集団は記述できません。
LAST DETAIL:
報告書脚書きの印刷する行の下限を指定します。
■報告集団記述項の書式
<形式1>
01 [ データ名-1]
[ LINE NUMBER句 ]
[ NEXT GROUP句 ]
TYPE句
[ USAGE句 ]
<形式2>
レベル番号 [ データ名-1 ]
[ LINE NUMBER句 ]
[ USAGE句 ]
<形式3>
レベル番号 [ データ名-1 ]
[ BLANK WHEN ZERO句 ]
[ COLUMN NUMBER句 ]
[ GROUP INDICATE句 ]
[ JUSTIFIED句 ]
[ LINE NUMBER句 ]
PICTURE句
[ SIGN句 ]
[ USAGE句 ]
{ SOUCE句 or SUM句 or VALUE句}
データ名-1：
プログラムで参照する必要がある場合に記述します（省略可）
LINE NUMBER句：
項目を印刷するときの絶対行番号、または直前の印刷行からの相対行番号を指定します。
※PAGE LIMIT句を指定していない場合は相対行番号(PLUS)を指定します。
NEXT GROUP句：
現在の報告集団印刷時に送る行数を指示します。
※送る行数は絶対行番号、相対行番号によって指定します。
※NEXT PAGEの指定はページを送ったときに印刷を実行します。
TYPE句：
RH（REPORT HEADING）は報告書頭書きを指定します。
PH（PAGE HEADING）はページ頭書きを指定します。
CH（CONTROL HEADING）は制御頭書きを指定します。
DE（DETAIL）は明細を指定します。
CF（CONTROL FOOTING）は制御脚書きを指定します。
PF（PAGE FOOTING）はページ脚書きを指定します。
RF（REPORT FOOTING）は報告書脚書きを指定します。
COLUMN NUMBER句：
印刷する行内の桁の位置を指定します。
GROUP INDICATE句：
印刷項目の制御切れ目、ページ切れ目後の最初の明細報告集団中にのみ印刷を指示します。
SOURCE句：
報告集団で記述している印刷項目に転記するための転記元のデータ項目を指定します。
SUM句：
合計カウンタを作成し、合計値を求めるためのデータ項目を指定します。
※指定したデータ項目は自動で合計値が計算されますので、計算処理は不要です。
VALUE句：
印刷項目の初期値を指定します。
■報告書作成例
以下に報告書を作成するための作成例を紹介します。
（プログラムの詳細な処理内容については、ここでは省略します）
- IDENTIFICATION DIVISION.
- PROGRAM-ID. REPORT_SAMPLE01.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION
- *>----------------------------------------
- *> 報告書の定義
- *> ファイルの宣言と実ファイル名を記載
- *> 順ファイルの印字指定に準じてプリンタを割り当てます。
- *>----------------------------------------
- FILE-CONTROL.
- SELECT SHISYA ASSIGN TO "SHISYA-A.DAT"
- FILE STATUS IS SHISYA-STS.
- SELECT HOKOKUSHO ASSIGN TO "PRINTER"
- FILE STATUS IS HOKOKU-STS.
-
- DATA DIVISION.
- *>----------------------------------------
- *> ファイル節
- *>----------------------------------------
- FILE SECTION.
- *>----------------------------------------
- *> ファイル記述項の定義
- *>----------------------------------------
- FD SHISYA
- 01 SHISYA-RECORD.
- ...省略...
- FD HOKOKUSHO RECORD CONTAINS 80 REPORT IS URIAGE.
-
- *>----------------------------------------
- *> 作業場所節
- *>----------------------------------------
- WORKING-STORAGE SECTION.
- ...省略...
- *>----------------------------------------
- *> 報告書節の定義
- *>----------------------------------------
- REPORT SECTION.
- *>----------------------------------------
- *> 報告書節記述項（RD）
- *>----------------------------------------
- RD SHISYA-URIAGE CONTROL FINAL SHISYA-NAME SEIHIN-NAME
- PAGE LIMIT 80 *1ページ80行
- FIRST DETAIL 3 *最初の本文3行目から
- LAST DETAIL 60 *最後の本文60行目まで
- *>----------------------------------------
- *> 報告書頭書き（RH）報告集団
- *> 不要な場合は省略可能
- *>----------------------------------------
- 01 TYPE RH NEXT GROUP NEXT PAGE.
- 05 LINE 15.
- 10 COLUMN 37 PIC 9(4) SOURCE YEAR.
- 10 COLUMN 41 PIC N(2) VALUE N"年度".
- 05 LINE 18.
- 10 COLUMN 32 PIC N(9) VALUE N"売上一覧表".
- 05 LINE 40.
- ...省略...
- *>----------------------------------------
- *> ページ頭書き（PH）報告集団
- *> 報告書本体ページ見出し（ヘッダー）が不要な場合は省略可能
- *>----------------------------------------
- 01 TYPE PH.
- 05 LINE 1.
- 10 COLUMN 50 PIC N(4) VALUE N"印刷日:".
- 10 COLUMN 58 PIC X(4) SOURCE
- ...省略...
- *>----------------------------------------
- *> ページ脚書き（PF）報告集団
- *> 報告書本体ページ末尾見出し（フッター）が不要の場合は省略可能
- *>----------------------------------------
- 01 ページ脚書き TYPE PF.
- 05 LINE 60.
- 10 COLUMN 37 PIC N(3) VALUE N"ページ".
- 10 COLUMN 43 PIC ZZ9 SOURCE PAGE-COUNTER.
- *>----------------------------------------
- *> 明細（DE）報告集団
- *> 報告書本体ページ末尾見出し（フッター）が不要の場合は省略可能
- *>----------------------------------------
- 01 売上データ TYPE DE.
- 05 LINE PLUS 1.
- 10 COLUMN 10 PIC N(4) SOURCE SHISYA-NAME.
- 10 COLUMN 20 PIC N(9) SOURCE SEIHIN-NAME.
- ...省略...
- *>----------------------------------------
- *> 総制御頭書き（CH：FINAL）報告集団
- *> FINAL指定は一度だけ印刷
- *> 不要な場合は省略可
- *>----------------------------------------
- 01 TYPE CH FINAL.
- 10 COLUMN 33 PIC N(7) VALUE N"売上一覧表"..
- *>----------------------------------------
- *> 中制御頭書き（CH：支社名）報告集団
- *> 複数行印刷する際は相対番号を指定する
- *> 不要な場合は省略可
- *>----------------------------------------
- 01 TYPE CH SHISYA-NAME.
- 05 LINE PLUS 3.
- 10 COLUMN 3 PIC N(1) VALUE N"]".
- 10 COLUMN 5 PIC N(4) SOURCE SHISYA-NAME.
- 10 COLUMN 13 PIC N(3) VALUE N"売上]".
- *>----------------------------------------
- *> 小制御頭書き（CH：製品名）報告集団
- *> 製品名が変わると印刷
- *> 複数行印刷する際は相対番号を指定する
- *> 不要な場合は省略可
- *>----------------------------------------
- 01 TYPE CH SEIHIN-NAME.
- 05 LINE PLUS 1.
- 10 COLUMN 28 PIC N(1) VALUE N"[".
- 10 COLUMN 30 PIC N(9) SOURCE SEIHIN-NAME.
- 10 COLUMN 48 PIC N(3) VALUE N"売上]".
- 05 LINE PLUS 1.
- ...省略...
- 05 LINE PLUS 1.
- ...省略...
- *>----------------------------------------
- *> 小制御脚書き（CF：製品名）報告集団
- *> 複数行印刷する際は相対番号を指定する
- *> 不要な場合は省略可
- *>----------------------------------------
- 01 TYPE CF SEIHIN-NAME NEXT GROUP PLUS 2.
- 05 LINE PLUS 2.
- 10 COLUMN 28 PIC N(9) SOURCE SEIHIN-NAME.
- 10 COLUMN 46 PIC N(4) VALUE N"小計".
- 10 COLUMN 58 PIC \,\\\,\\9 SUM 金額.
- *>----------------------------------------
- *> 中制御脚書き（CF：支社名）報告集団
- *> 不要な場合は省略可
- *>----------------------------------------
- 01 TYPE CF SHISYA-NAME NEXT GROUP PLUS 2.
- 05 LINE PLUS 2.
- 10 COLUMN 37 PIC N(4) SOURCE SHISYA-NAME.
- 10 COLUMN 45 PIC N(4) VALUE N"中計".
- 10 COLUMN 57 PIC PIC \,\\\,\\9 SUM 金額.
- *>----------------------------------------
- *> 総制御脚書き（CF：FINAL）報告集団
- *> FINAL指定は一度だけ印刷
- *> 不要な場合は省略可
- *>----------------------------------------
- 01 TYPE CF FINAL.
- 05 LINE PLUS 2.
- 10 COLUMN 40 PIC N(6) VALUE N"合計"
- 10 COLUMN 56 PIC \,\\\,\\9 SUM 金額.
-
- ...省略...
練習問題
ここでは練習問題にチャレンジしてみましょう。
COBOL言語のプログラムにおいて、報告書を作成するために定義する報告書節の名称は？
回答：
REPORT SECTION
報告書の作成や帳票設計は、最近ではGUIベースで行われるようになり、帳票を作成するソフトウェアも使いやすいものが登場してきました。
報告書の作成は表計算ソフトでも可能なことから、今ではCOBOLの報告書作成機能を使用する機会は減ってきていると言っても良いでしょう。
しかし、報告書作成機能は一度設計しておけば何度でも再利用が可能ですので、定型的な報告書を毎回作成する必要があるときに便利です。
この記事を読んだ人は、こちらの記事も読んでいます
【未経験者歓迎】COBOLプログラマー・システムエンジニアの募集
COBOL入門のカテゴリー
取引企業様 募集中
1. 優良社員が多数在籍しています
2. 即日派遣、又は請負います
3. 安心価格で請負います
4. 同時、協力会社募集中です
COBOL技術者 募集
1. 正社員
2. 契約社員
3. 個人事業主
などの 求人情報 が閲覧できます。
COBOL魂
目指せ！COBOLダントツ一番企業。
創業当初の話や理念が閲覧できます。
読者採用
応募条件
※2020年5月31日を以って、締切りました。
18歳～28歳の方。
正社員採用において、北川社長の著書『祈り方が９割』を読んで感想文を事前に提出すると、無条件で最終面接まで進むことができます。
COBOL入門
COBOLとは、どのようなプログラミング言語なのか、初心者にもわかりやすく、文法の例をあげて解説してます。
COBOL入門の人気記事
- COBOL言語で計算処理をするなら「COMPUTE文」｜入門用語辞典
- COBOL言語の「ACCEPT文」の使い方を分かり易く解説｜入門用語辞典
- COBOL言語初心者も安心! 難解「CALL文」をスッキリ解決｜入門用語辞典
- 徹底解説！一歩先を行くCOBOL言語のCOPY文活用法｜応用ガイド
- 一歩先を行くCOBOL言語の表操作！逐次検索と二分検索｜応用ガイド
- COBOL言語の加算処理の基本を伝授! 命令文「ADD」とは?｜入門用語辞典
- 徹底解説！一歩先を行くCOBOL言語のファイル併合処理｜応用ガイド
- COBOL言語でファイルの開閉命令はOPEN文とCLOSE文！｜入門用語辞典
- 徹底解説！一歩先を行くCOBOL言語のデータ共有｜応用ガイド
- COBOL言語とは？プログラムの書き方やルールを解説！｜基礎ガイド
- COBOL言語の歴史とこれまでの進化を知る！廃止・追加機能｜基礎ガイド
- COBOL言語のオブジェクト指向について理解しよう！｜基礎ガイド
- COBOL言語のディスプレイ出力とコンソール入力について｜基礎ガイド
- COBOL言語が得意とする計算処理を体験してみよう！｜基礎ガイド
- 一歩先を行くCOBOL言語のユーザ定義関数について｜応用ガイド
- 初心者から中級者でも安心！理解できるCOBOL言語の勉強法｜学習講座
- 初心者必見！COBOL言語を効率よくマスターする勉強法とは｜学習講座
- COBOL初心者が犯しやすいミスとその対策について｜学習講座
- COBOL初心者がやってはいけない勉強方法とは？｜学習講座
- 一歩先へ行くCOBOLプログラマの知っておくべき4つのヒント｜学習講座
