Using The Conversion Phrase; Screen Display With Character Attributes - Compaq COBOL AAQ2G1FTK User Manual

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
1
12345678901234567890123456789012345678901234567890123456789012345678901234567890
1
2
3
4
Employee No.:
5
6
7
8
9
10
NAME
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Example 11–5 Using the CONVERSION Phrase
IDENTIFICATION DIVISION.
PROGRAM-ID. CONVERT.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA1A
01 DATA1B
01 DATA2
01 DATA3
01 DATA4
01 DATA5
01 DATA6
01 DATA7
PROCEDURE DIVISION.
CONVERT-CHECK SECTION.
P1.
DISPLAY "to begin... press your carriage Return key"
ACCEPT DATA1A.
11–10 Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms
2 3 4
Employee wage class:
SALARY: $
PIC X(10).
PIC X(10) JUST.
PIC +++++9999.99.
PIC S9(2)V9(2) COMP.
PIC S9(3)V9(3) COMP.
PIC S9(6)V9(6) COMP.
PIC S9(4)V9(4) COMP-3.
PIC S9(1)V9(7) SIGN LEADING SEPARATE.
LINE 1 COLUMN 1 ERASE SCREEN
BELL UNDERLINED REVERSED.
5 6 7
ZK−6093−GE
(continued on next page)
8