This document describes various ways of controlling the display of column headers
produced by a DISPLAY
statement.
The following topics are covered:
By default, each database field output with a DISPLAY statement is displayed with a default column header
(which is defined for the field in the DDM).
** Example 'DISPLX01': DISPLAY ************************************************************************ DEFINE DATA LOCAL 1 VIEWEMP VIEW OF EMPLOYEES 2 PERSONNEL-ID 2 NAME 2 BIRTH 2 JOB-TITLE END-DEFINE * READ (3) VIEWEMP BY BIRTH DISPLAY PERSONNEL-ID NAME JOB-TITLE END-READ END
Output of Program DISPLX01:
The above example program uses default headers and produces the following output.
Page 1 04-11-11 14:15:54 PERSONNEL NAME CURRENT ID POSITION --------- -------------------- ------------------------- 30020013 GARRET TYPIST 30016112 TAILOR WAREHOUSEMAN 20017600 PIETSCH SECRETARY
If you wish your report to be output without column headers, add the keyword NOHDR to the DISPLAY statement.
DISPLAY NOHDR PERSONNEL-ID NAME JOB-TITLE
If you wish column headers of your own to be output instead of the default headers, you
specify 'text' (in apostrophes) immediately before
a field, text being the header to be used for the field.
** Example 'DISPLX08': DISPLAY (with column title in 'text')
************************************************************************
DEFINE DATA LOCAL
1 VIEWEMP VIEW OF EMPLOYEES
2 PERSONNEL-ID
2 NAME
2 BIRTH
2 JOB-TITLE
END-DEFINE
*
READ (3) VIEWEMP BY BIRTH
DISPLAY PERSONNEL-ID
'EMPLOYEE' NAME
'POSITION' JOB-TITLE
END-READ
END
Output of Program DISPLX08:
The above program contains the header EMPLOYEE for the field
NAME, and the header POSITION for the field
JOB-TITLE; for the field PERSONNEL-ID, the default header is
used. The program produces the following output:
Page 1 04-11-11 14:15:54 PERSONNEL EMPLOYEE POSITION ID --------- -------------------- ------------------------- 30020013 GARRET TYPIST 30016112 TAILOR WAREHOUSEMAN 20017600 PIETSCH SECRETARY
To create a report that has neither page title nor column headers, you specify the
NOTITLE and
NOHDR options
together in the following order:
DISPLAY NOTITLE NOHDR PERSONNEL-ID NAME JOB-TITLE
By default, column headers are centered above the columns. With the HC parameter, you can
influence the placement of column headers.
If you specify
HC=L
|
headers will be left-justified. |
HC=R
|
headers will be right-justified. |
HC=C |
headers will be centered. |
The HC parameter can be used in a FORMAT statement to apply to the whole report, or it can be
used in a DISPLAY statement at
both statement level and element level, for example:
DISPLAY (HC=L) PERSONNEL-ID NAME JOB-TITLE
With the HW
parameter, you determine the width of a column output with a DISPLAY statement.
If you specify
HW=ON
|
the width of a DISPLAY column is determined by either the length
of the header text or the length of the field, whichever is longer. This also
applies by default.
|
HW=OFF
|
the width of a DISPLAY column is determined only by the length
of the field. However, HW=OFF only applies to
DISPLAY statements which do not create headers; that is,
either a first DISPLAY statement with NOHDR option or a
subsequent DISPLAY statement.
|
The HW parameter can be used in a FORMAT statement to apply to the entire report, or it can be
used in a DISPLAY statement at
both statement level and element (field) level.
With the FC
parameter, you specify the filler character which will appear on either side of a
header produced by a DISPLAY statement across the full column width if the column
width is determined by the field length and not by the header (see HW parameter above); otherwise FC will
be ignored.
When a group of fields or a periodic group is output via a DISPLAY statement, a group
header is displayed across all field columns that belong to that group above the
headers for the individual fields within the group. With the GC parameter, you can specify
the filler character which will appear on either side of such a group header.
While the FC
parameter applies to the headers of individual fields, the GC parameter applies to the
headers for groups of fields.
The parameters FC and GC can be specified
in a FORMAT statement to apply to
the whole report, or they can be specified in a DISPLAY statement at both statement level and element (field)
level.
** Example 'FORMAX01': FORMAT (with parameters FC, GC)
************************************************************************
DEFINE DATA LOCAL
1 VIEWEMP VIEW OF EMPLOYEES
2 NAME
2 INCOME (1:1)
3 CURR-CODE
3 SALARY
3 BONUS (1:1)
END-DEFINE
*
FORMAT FC=* GC=$
*
READ (3) VIEWEMP BY NAME
DISPLAY NAME (FC==) INCOME (1)
END-READ
END
Output of Program FORMAX01:
Page 1 04-11-11 14:15:54
========NAME======== $$$$$$$$$$$$INCOME$$$$$$$$$$$$
CURRENCY **ANNUAL** **BONUS***
CODE SALARY
-------------------- -------- ---------- ----------
ABELLAN PTA 1450000 0
ACHIESON UKL 10500 0
ADAM FRA 159980 23000
By default, titles and headers are underlined with a hyphen (-).
With the UC
parameter, you can specify another character to be used as underlining character.
The UC parameter can be specified in a FORMAT statement to apply to the whole
report, or it can be specified in a DISPLAY statement at both statement level and element (field)
level.
** Example 'FORMAX02': FORMAT (with parameter UC) ************************************************************************ DEFINE DATA LOCAL 1 VIEWEMP VIEW OF EMPLOYEES 2 PERSONNEL-ID 2 NAME 2 BIRTH 2 JOB-TITLE END-DEFINE * FORMAT UC== * WRITE TITLE LEFT JUSTIFIED UNDERLINED 'EMPLOYEES REPORT' SKIP 1 READ (3) VIEWEMP BY BIRTH DISPLAY PERSONNEL-ID (UC=*) NAME JOB-TITLE END-READ END
In the above program, the UC parameter is specified at program level and at
element (field) level: the underlining character specified with the FORMAT statement (=) applies for the
whole report - except for the field PERSONNEL-ID, for which a different
underlining character (*) is specified.
Output of Program FORMAX02:
EMPLOYEES REPORT =============================================================================== PERSONNEL NAME CURRENT ID POSITION ********* ==================== ========================= 30020013 GARRET TYPIST 30016112 TAILOR WAREHOUSEMAN 20017600 PIETSCH SECRETARY
With the notation apostrophe-slash-apostrophe ('/'), you can suppress default column
headers for individual fields displayed with a DISPLAY statement. While the NOHDR option suppresses
the headers of all columns, the notation '/' can be used to suppress the
header for an individual column.
The apostrophe-slash-apostrophe ('/') notation is specified in the DISPLAY
statement immediately before the name of the field for which the column header is to be
suppressed.
Compare the following two examples:
DISPLAY NAME PERSONNEL-ID JOB-TITLE
In this case, the default column headers of all three fields will be displayed:
Page 1 04-11-11 14:15:54
NAME PERSONNEL CURRENT
ID POSITION
-------------------- --------- -------------------------
ABELLAN 60008339 MAQUINISTA
ACHIESON 30000231 DATA BASE ADMINISTRATOR
ADAM 50005800 CHEF DE SERVICE
ADKINSON 20008800 PROGRAMMER
ADKINSON 20009800 DBA
ADKINSON 20011000 SALES PERSON
DISPLAY '/' NAME PERSONNEL-ID JOB-TITLE
In this case, the notation '/' causes the column header for the field
NAME to be suppressed:
Page 1 04-11-11 14:15:54
PERSONNEL CURRENT
ID POSITION
--------- -------------------------
ABELLAN 60008339 MAQUINISTA
ACHIESON 30000231 DATA BASE ADMINISTRATOR
ADAM 50005800 CHEF DE SERVICE
ADKINSON 20008800 PROGRAMMER
ADKINSON 20009800 DBA
ADKINSON 20011000 SALES PERSON
See the following example programs: