Compaq COBOL AAQ2G1FTK - Manual (Page 400)

Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms
11.2 Designing Video Forms with ACCEPT and DISPLAY Statement Extensions
Figure 11–5 Screen Display with Character Attributes
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
ZK−6093−GE
NAME
SALARY: $
Employee No.: Employee wage class:
Example 11–5 Using the CONVERSION Phrase
IDENTIFICATION DIVISION.
PROGRAM-ID.
CONVERT.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01
DATA1A PIC X(10).
01 DATA1B PIC X(10) JUST.
01 DATA2 PIC +++++9999.99.
01 DATA3 PIC S9(2)V9(2) COMP.
01 DATA4 PIC S9(3)V9(3) COMP.
01 DATA5 PIC S9(6)V9(6) COMP.
01 DATA6 PIC S9(4)V9(4) COMP-3.
01 DATA7 PIC S9(1)V9(7) SIGN LEADING SEPARATE.
PROCEDURE DIVISION.
CONVERT-CHECK SECTION.
P1.
DISPLAY "to begin... press your carriage Return key"
LINE 1 COLUMN 1 ERASE SCREEN
BELL UNDERLINED REVERSED.
ACCEPT DATA1A.
(continued on next page)
11–10 Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms