💻 COBOL

COBOL Report Writer - Groups

Advanced 🕑 18 min read 👁 0 views

COBOL Report Writer - Groups

Report groups define the content and format of report lines.

Group Types

```cobol 01 group-name TYPE IS type-clause [LINE NUMBER IS integer] [NEXT GROUP IS integer/PLUS integer/NEXT PAGE]. ```

TYPE Clauses

REPORT HEADING / RH
PAGE HEADING / PH
CONTROL HEADING / CH
DETAIL / DE
CONTROL FOOTING / CF
PAGE FOOTING / PF
REPORT FOOTING / RF

Column Definitions

```cobol 01 DETAIL-LINE TYPE DE. 05 LINE 1. 10 COLUMN 1 PIC X(5) SOURCE EMP-ID. 10 COLUMN 10 PIC X(20) SOURCE EMP-NAME. 10 COLUMN 35 PIC Z,ZZZ,ZZ9.99 SOURCE EMP-SALARY. ```

SUM Clause

```cobol 05 COLUMN 35 PIC Z,ZZZ,ZZ9.99 SUM EMP-SALARY. ``` Automatically accumulates values for totals.

Code Example

      * Report Group Examples
       01 TYPE REPORT HEADING.
           05 LINE 1 COL 30 VALUE 'ANNUAL REPORT'.
       01 TYPE PAGE HEADING.
           05 LINE 1.
               10 COL 1 VALUE 'DEPT'.
               10 COL 10 VALUE 'EMPLOYEE NAME'.
               10 COL 35 VALUE 'SALARY'.
       01 DETAIL-LINE TYPE DETAIL.
           05 LINE PLUS 1.
               10 COL 1 PIC X(5) SOURCE WS-DEPT.
               10 COL 10 PIC X(20) SOURCE WS-NAME.
               10 COL 35 PIC $$$,$$$,$$9.99 SOURCE WS-SALARY.
       01 TYPE CONTROL FOOTING DEPT-CODE.
           05 LINE PLUS 2.
               10 COL 25 VALUE 'Dept Total:'.
               10 COL 35 PIC $$$,$$$,$$9.99 SUM WS-SALARY.