Previous Topic: What You Can DoNext Topic: Building and Using Data Tables


Demonstration

Objective

This report lists information about those employees with both the word ENTRY in their job title and ids in the ranges 0001 to 0048 and 0999 to 9999.

Parameters

PATHAA EMPLOYEE-TABLE WHERE 
(EMP-ID-0415 LE '0048' OR
*   EMP-ID-0415 GT '0999')
*   AND DEPT-ID-0410 GT '1000'

EMPLOYEE-TABLE names the logical record containing database data.

WHERE forms a compound conditional statement to specify the criteria for record retrieval.

* specifies a continuation line.

Complete Code

 col. 2
 ▼
 DATABASE DICTNAME=DOCUDICT
 IN DB SS=EMPSS09
 PATHAA EMPLOYEE-TABLE WHERE (EMP-ID-0415 LE '0048' OR
*                         EMP-ID-0415 GT '0999')
*                  AND DEPT-ID-0410 GT '1000'
 01OUT D
 013 EMPLOYEE LISTING
 0151*005 EMP-ID-0415            HH 'ID'
 0151*010 EMP-NAME-0415          HH ' ' 'EMPLOYEE' 'NAME'
 0151*020 DEPT-ID-0410           HH 'DEPT ID'

Result

REPORT NO. 01       EMPLOYEE LISTING            mm/dd/yy PAGE     1                                                              EMPLOYEE                           ID                                   NAME                                 DEPT ID                             7                       MONTE     BANK                                   4000                             4                       HERBERT   CRANE                                  3200                            24                       JANE      DOUGH                                  3100                            32                       JANE      FERNDALE                               3200                            45                       GEORGE    FONRAD                                 3200                            29                       JAMES     GALLWAY                                3100                             3                       JENNIFER  GARFIELD                               3100                            28                       PERCY     GRANGER                                3100                            27                       VLADIMIR  HEAROWITZ                              3100                            20                       JAMES     JACOBI                                 3100                            19                       JULIE     JENSEN                                 3100                            11                       RUPERT    JENSON                                 2000                            16                       TERENCE   KLWELLEN                               3200                            31                       HERBERT   LIPSICH                                3200                            35                       LARRY     LITERATA                               3100                            15                       RENE      MAKER                                  5100                            23                       KATHERINE O'HEARN                                3100                            48                       NANCY     TERNER                                 3200                            21                       RALPH     TYRO                                   3100