Using ACCEPT and DISPLAYStatements for Input/Output and Video Forms
11.2 Designing VideoForms with ACCEPT and DISPLAY Statement Extensions
Figure 115 Screen Display with Character Attributes
12345678901234567890123456789012345678901234567890123456789012345678901234567890
4123 5678
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 ZK6093GE
NAME
SALARY: $
Employee No.: Employee wage class:
Example 115 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)
1110 Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms