Previous Topic: What You Can DoNext Topic: Sequencing Report Output


Demonstration

Objective

We are going to produce three different reports in one run from the Commonweather personnel file.

Parameters

01OUT 60 013 EMPLOYEE SALARIES 0151*010 EMPLOYEE SZ=20 HR 0151*020 SALARY SZ=11 F$ HR

All parameters having 01 coded in columns 2 and 3 belong to report 01.

OUT 60 specifies 60-character lines.

EMPLOYEE SALARIES is the title.

EMPLOYEE and SALARY are the two data fields printed for this report. Both columns have a specified width. SALARY is formatted with dollar signs.

02OUT 80 023 DEPARTMENT PERSONNEL LIST 0251*010 DEPARTMENT SZ=25 HR 0251*020 TITLE HR 0251*030 EMPLOYEE SZ=20 HR

All parameters having 02 coded in columns 2 and 3 belong to report 02.

OUT 80 specifies 80-character lines.

DEPARTMENT PERSONNEL LISTING is the title for report 02.

Report 02 uses information from the DEPARTMENT, TITLE, and EMPLOYEE input fields.

03OUT 80 033 EMPLOYEE DEPARTMENTS 0351*010 EMPLOYEE SZ=20 HR 0351*020 DEPARTMENT SZ=25 HR

All parameters having 03 coded in columns 2 and 3 belong to report 03.

OUT 80 specifies 80-character lines.

EMPLOYEE DEPARTMENTS is the title for report 03.

Report 03 uses information from the EMPLOYEE and DEPARTMENT input fields.

Complete Code

col. 2
▼
IN  200 F 400 PS(TAPE)
REC EMPLOYEE      5   25           'EMPLOYEE NAME'
REC DEPARTMENT  115   45           '       DEPARTMENT'
REC SALARY      160    5  3  DP=2  'ANNUAL SALARY'
REC TITLE       171   20           '      TITLE'
01OUT 60
013 EMPLOYEE SALARIES
0151*010 EMPLOYEE  SZ=20         HR
0151*020 SALARY  SZ=11  F$       HR
02OUT 80
023 DEPARTMENT PERSONNEL LISTING
0251*010 DEPARTMENT  SZ=25       HR
0251*020 TITLE                   HR
0251*030 EMPLOYEE  SZ=20         HR
03OUT 80
033 EMPLOYEE DEPARTMENTS
0351*010 EMPLOYEE  SZ=20         HR
0351*020 DEPARTMENT  SZ=25       HR

Results

REPORT NO. 01        EMPLOYEE SALARIES  mm/dd/yy PAGE     1            EMPLOYEE NAME             ANNUAL SALARY         JUNE      BLOOMER                $15,000.00         EDWARD    HUTTON                 $44,000.00         RUPERT    JENSON                 $82,000.00         MARIANNE  KIMBALL                $45,000.00         DORIS     KING                   $14,500.00         BRIAN     NICEMAN                $14,000.00         HERBERT   CRANE                  $75,000.00         JANE      FERNDALE               $22,500.00         GEORGE    FONRAD                 $14,750.00         ROBIN     GARDNER                $14,000.00         DOUGLAS   KAHALLY                $20,000.00         TERENCE   KLWELLEN               $43,000.00         ROBBY     WILDER                 $90,000.00                                       $2,522,500.00

REPORT NO. 02             DEPARTMENT PERSONNEL LISTING      mm/dd/yy PAGE     1                DEPARTMENT                 TITLE           EMPLOYEE NAME     ACCOUNTING AND PAYROLL      PAYROLL CLERK          JUNE      BLOOMER     ACCOUNTING AND PAYROLL      FINANCIAL ANALYST      EDWARD    HUTTON     ACCOUNTING AND PAYROLL      MGR ACCTNG/PAYROLL     RUPERT    JENSON     ACCOUNTING AND PAYROLL      ACCOUNTANT             MARIANNE  KIMBALL     ACCOUNTING AND PAYROLL      AR CLERK               DORIS     KING     ACCOUNTING AND PAYROLL      AP CLERK               BRIAN     NICEMAN     COMPUTER OPERATIONS         MGR COMPUTER OPS       HERBERT   CRANE     COMPUTER OPERATIONS         COMPUTER OPERATOR      JANE      FERNDALE     COMPUTER OPERATIONS         DATA ENTRY CLERK       GEORGE    FONRAD     COMPUTER OPERATIONS         DATA ENTRY CLERK       ROBIN     GARDNER     COMPUTER OPERATIONS         COMPUTER OPERATOR      DOUGLAS   KAHALLY     COMPUTER OPERATIONS         SYSTEMS PROGRAMMER     TERENCE   KLWELLEN EXECUTIVE ADMINISTRATION    DIR CORP CONFUSION     ROBBY     WILDER

REPORT NO. 03                 EMPLOYEE DEPARTMENTS          mm/dd/yy PAGE     1                EMPLOYEE NAME                          DEPARTMENT             JUNE      BLOOMER              ACCOUNTING AND PAYROLL             EDWARD    HUTTON               ACCOUNTING AND PAYROLL             RUPERT    JENSON               ACCOUNTING AND PAYROLL             MARIANNE  KIMBALL              ACCOUNTING AND PAYROLL             DORIS     KING                 ACCOUNTING AND PAYROLL             BRIAN     NICEMAN              ACCOUNTING AND PAYROLL             HERBERT   CRANE                COMPUTER OPERATIONS             JANE      FERNDALE             COMPUTER OPERATIONS             GEORGE    FONRAD               COMPUTER OPERATIONS             ROBIN     GARDNER              COMPUTER OPERATIONS             DOUGLAS   KAHALLY              COMPUTER OPERATIONS             TERENCE   KLWELLEN             COMPUTER OPERATIONS ROBBY     WILDER               EXECUTIVE ADMINISTRATION