Previous Topic: What You Can DoNext Topic: Selective Processing


Demonstration

Objective

This report lists employee information from data contained in the logical record EMP-JOB-LR.

Parameters

REC START-DATE 79 6 2

REC START-DATE redefines the date field as numeric to allow automatic formatting.

PATHAA EMP-JOB-LR

EMP-JOB-LR is the logical record containing data from the database.

01OUT D

D suppresses totaling of the EMP-ID-0415 field.

Complete Code

col. 2
▼
REC START-DATE  79  6  2
PATHAA EMP-JOB-LR
01OUT D
013 EMPLOYEE LISTING
0151*005 EMP-ID-0415            HH 'ID'
0151*010 EMP-NAME-0415          HH ' ' 'EMPLOYEE' 'NAME'
0151*020 TITLE-0440             HH 'JOB TITLE'
0151*030 START-DATE       FD    HH 'START DATE'

Result

REPORT NO. 01       EMPLOYEE LISTING            mm/dd/yy PAGE     1                                                       EMPLOYEE                    ID                                   NAME                          JOB TITLE           START DATE                     23                       KATHERINE O'HEARN                   PROGRAMMER/ANALYST        79/05/05                     23                       KATHERINE O'HEARN                   PROGRAMMER TRAINEE        78/05/04                    472                       ROBBY     WILDER                    DIR CORP CONFUSION        79/07/16                    301                       BURT      LANCHESTER                RAINMAKER                 80/02/03                    301                       BURT      LANCHESTER                RAINMAKER                 77/02/03                    301                       BURT      LANCHESTER                RAINMAKER                 75/02/03                     27                       VLADIMIR  HEAROWITZ                 PROGRAMMER/ANALYST        81/09/09                    471                       THEMIS    PAPAZEUS                  DIR WEATHER               82/01/01                    471                       THEMIS    PAPAZEUS                  MGR BRAINSTORMING         78/09/07                      7                       MONTE     BANK                      MGR PUBLIC RELATION       78/04/30                    334                       CAROLYN   CROW                      RAINDANCE CONSULTAN       79/06/17                    127                       CAROL     MCDOUGALL                 PASTE-UP ARTIST           80/06/07                     19                       JULIE     JENSEN                    PROGRAMMER/ANALYST        82/09/29