HP OpenVMS Systems Documentation

HP COBOL
Reference Manual

Function

The HIGHLIGHT clause specifies that the field is to appear on the screen with the highest intensity.

Syntax Rule

The HIGHLIGHT clause can be specified only for an elementary screen description entry.

Additional References

• Section 6.8.1 in Chapter 6
• Section 6.8.10 in Chapter 6 <>

Function

The JUSTIFIED clause specifies nonstandard data positioning in a screen item or another receiving item.

Syntax Rules

1. The JUSTIFIED clause can be used only for elementary items and alphanumeric data items. It cannot be used for index data items, numeric data items, or edited data items.
2. JUST is the abbreviated form of JUSTIFIED.

General Rules

1. If a COBOL statement transfers data to a receiving item whose data description contains the JUSTIFIED clause, the Run-Time System:
   • Truncates the excess leftmost characters if the sending item is larger than the receiving item.
   • Aligns the data at the rightmost character position of the receiving item if the sending item is smaller than the receiving item. (Spaces fill the excess leftmost character positions.)
2. If there is no JUSTIFIED clause, data movement follows the rules for aligning data in elementary items (Standard Alignment Rules).

Additional References

• Section 6.8.22 statement in Chapter 6
• Section 5.2.2, COBOL Standard Alignment Rules

Examples

The Procedure Division entry for the MOVE statement contains examples using this clause.

5.3.29 LABEL RECORDS

Function

The LABEL RECORDS clause specifies the presence or absence of labels.

General Rule

The LABEL RECORDS clause is for documentation only.

5.3.30 Level-Number

Function

The level-number shows the position of a data item or screen item within the hierarchical structure of a logical record or a report group or a screen description. It also identifies entries for condition-names and the RENAMES clause.

Syntax Rules

1. The level-number must be the first element in a data description entry or a screen description entry.
2. Data description entries that are subordinate to a file description (FD) entry have level-numbers 01 to 49, 66, or 88.
3. Data description entries in the Working-Storage and Linkage Sections have level-numbers 01 to 49, 66, 77, or 88.
4. Report group description entries in the Report Section have level-numbers 01 to 49 only. See the Section 5.3.5 entry for additional rules for Report Writer level-numbers.
5. Screen description entries in the Screen Section have level-numbers 01 to 49 only. See the Section 5.3.6 entry for additional rules for Screen Section level-numbers.

General Rules

1. The level-number 01 identifies the first entry in a record description, report group description, or screen description entry.
2. Multiple level 01 entries subordinate to a file description entry represent implicit redefinitions of the same area.
3. Multiple level 01 entries subordinate to a report description entry do not represent implicit redefinitions of the same area.
4. Level-number 66 identifies a RENAMES entry. It can be used only in a Format 2 data description entry.
5. Level-number 77 identifies a noncontiguous data item entry in the Working-Storage and Linkage Sections. The level 77 entry can have no subordinate data description entries except level 88 items.
6. Level-number 88 defines a condition-name associated with a conditional variable. It can be used only in a Format 3 data description entry.
7. Level-numbers 66, 77, and 88 do not imply a hierarchical position.

Additional References

• Section 5.3.3 entry
• Section 5.3.4 entry
• Section 5.3.5 entry
• Section 5.3.41 clause
• Section 1.2.1.1 in Section 1.2.1,COBOL Words
• Section 5.1.1, Record Description Entries
• Section 5.3.6 entry

Function

The LINAGE clause specifies the number of lines on a logical page. It can also specify the size of the logical page's top and bottom margins and the line where the footing area begins in the page body.

page-lines

is a positive integer or the data-name of an elementary unsigned integer numeric data item. Its value must be greater than zero. It specifies the number of lines that can be written or spaced on the logical page. If page-lines is a data-name, it can be qualified.

footing-line

is a positive integer or the data-name of an elementary unsigned integer numeric data item. Its value must be greater than zero, but cannot be greater than page-lines. footing-line specifies the line number where the footing area begins in the page body. If footing-line is a data-name, it can be qualified.

top-lines

is an integer or the data-name of an elementary unsigned integer numeric data item. Its value can be zero. top-lines specifies the number of lines in the top margin of the logical page. If top-lines is a data-name, it can be qualified.

bottom-lines

is an integer or the data-name of an elementary unsigned integer numeric data item. Its value can be zero. bottom-lines specifies the number of lines in the bottom margin of the logical page. If bottom-lines is a data-name, it can be qualified.

General Rules

1. The LINAGE clause specifies the number of lines on a logical page.
2. Logical page size is the sum of the values specified in all phrases except FOOTING. If there is no LINES AT TOP or LINES AT BOTTOM phrase, the default value of top-lines or bottom-lines is zero. If there is no FOOTING phrase, the default value of footing-line equals the value of page-lines.
3. Logical and physical page sizes are not necessarily the same.
4. The page body is the logical page area in which the program can write or space lines. Its size equals the value of page-lines.
5. The footing area is the area of the logical page between footing-line and page-lines, inclusive.
6. When the program opens the file by executing an OPEN statement with the OUTPUT phrase, it uses the values of page-lines, top-lines, and bottom-lines to define the logical page sections. When these values are integers, they apply to all logical pages the program writes to the file during its execution.
7. When page-lines, top-lines, and bottom-lines are data-names, their values affect OPEN and WRITE statement execution as follows:
   • When the program executes an OPEN statement with the OUTPUT phrase for the file, the values specify the number of lines in each of the associated sections of the first logical page.
   • When the program executes a WRITE statement with the ADVANCING PAGE phrase, or when a page overflow condition occurs, the values specify the number of lines in each of the associated sections of the next logical page.
8. The value of footing-line defines the footing area for the first logical page when the program executes an OPEN statement with the OUTPUT phrase for the file. The value defines the footing area for the next logical page when: (a) the program executes a WRITE statement with the ADVANCING PAGE phrase or, (b) a page overflow condition occurs.
9. For each file with a LINAGE clause, the program has a corresponding special register called LINAGE-COUNTER. At any time, the value in LINAGE-COUNTER is the line number in the current page body at which the device is positioned. Other open modes (Input, I-O, and Extend) are not permitted and have unpredictable results.
10. LINAGE-COUNTER is global if a file description entry specifies the GLOBAL clause and the LINAGE clause.
11. LINAGE-COUNTER is a 9-digit numeric special register. Procedure Division statements can refer to LINAGE-COUNTER but cannot change its value.
12. If the program has more than one LINAGE-COUNTER, all Procedure Division references to it must be qualified by file-name.
13. Execution of a WRITE statement for a file with the LINAGE clause changes the value of the associated LINAGE-COUNTER:
    • If the WRITE statement has the ADVANCING PAGE phrase, its execution resets LINAGE-COUNTER to one. (The resetting operation implicitly increments the value of LINAGE-COUNTER to exceed the value of page-lines.)
    • If the WRITE statement has the ADVANCING LINES phrase, its execution increments LINAGE-COUNTER by the value in the ADVANCING phrase.
    • If the WRITE statement does not have the ADVANCING phrase, it increments LINAGE-COUNTER by one.
14. Execution of an OPEN statement for the file sets its LINAGE-COUNTER to one.
15. Each logical page follows the preceding logical page with no spacing between them.
16. If the file connector associated with this file description entry is an external file connector, all file description entries in the run unit associated with this file connector must have the following features:
    • A LINAGE clause, if any file description entry has a LINAGE clause
    • The same corresponding integer values for page-lines, footing-lines, top-lines, and bottom-lines
    • The same corresponding external data items referenced by page-lines, footing-lines, top-lines, and bottom-lines