Compaq COBOL AAQ2G1FTK, Руководство пользователя

Страница: 398 / 620

Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms
11.2 Designing Video Forms with ACCEPT and DISPLAY Statement Extensions
In Example 11–3, the PLUS phrase is used twice to show relative positioning,
once with an integer, and once without. Figure 11–4 shows the results.
Example 11–3 Using PLUS for Cursor Positioning
IDENTIFICATION DIVISION.
PROGRAM-ID. LINEPLUS.
PROCEDURE DIVISION.
A00-BEGIN.
DISPLAY "Positioning Test" LINE 10 COLUMN 20 ERASE SCREEN
"Changing Test" LINE PLUS 5 COLUMN PLUS 26
"Adding Test" LINE PLUS COLUMN PLUS 14.
DISPLAY " " LINE 23 COLUMN 1.
STOP RUN.
Note
If you use the LINE PLUS phrase so relative positioning goes beyond the
bottom of the screen, your form scrolls with each such display.
Figure 11–4 Cursor Positioning Using the PLUS Option
12345678901234567890123456789012345678901234567890123456789012345678901234567890
4 1 2 3 5 6 7 8
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Positioning Test
ZK−6120−GE
Changing Test
Adding Test
11.2.3 Assigning Character Attributes to Your Format Entries
Depending on your terminal type, you can use one or more of the character
attributes in Table 11–1 to highlight your screen data. Example 11–4 shows the
use of these attributes in a program segment. Figure 11–5 shows the results of
the program segment in Example 11–4.
11–8 Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms