Compaq COBOL AAQ2G1FTK - Manual (Page 421)

Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms
11.3 Designing Video Forms with Screen Section ACCEPT and DISPLAY
Figure 11–13 Form with ACCEPT WITH EDITING Phrase
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−1516A−GE
MODIFY EMPLOYEE INFORMATION FORM
Enter Employee Number : 1221 Current Value : 1221
Date of Hire : 11−22−88 Current Value : 11−22−88
Department : UB40 Current Value : UB40
First Name : HENRY Current Value : HENRY
Last Name : JAMES Current Value : JAMES
11.3 Designing Video Forms with Screen Section ACCEPT and
DISPLAY
The Screen Section feature provides an efficient alternative to the ACCEPT and
DISPLAY extensions for designing video forms. Screen Section, which is based
on the X/Open CAE Specification for COBOL, is also a Compaq extension to the
ANSI Standard. It enables you to design video forms in a single section of your
Compaq COBOL program. Then, in the Procedure Division, you can accept or
display an entire screen of data with a single ACCEPT or DISPLAY statement,
instead of multiple statements.
You can design your form as follows:
1. In the SPECIAL-NAMES paragraph in the Environment Division, you can
optionally do the following:
• Specify the cursor position with the CURSOR IS option.
• Set up an indicator to discover the cause of termination of an ACCEPT
statement, with the CRT STATUS IS option.
For example:
SPECIAL-NAMES.
CURSOR IS CURSOR-POSITION
CRT STATUS IS CRT-STATUS.
2. You can use the Screen Section in the Data Division to define a screen
description entry to describe each input and output item within the video
form. Do this for each screen in your application.
Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms 11–31