Compaq COBOL AAQ2G1FTK User Manual page 420

Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms
11.2 Designing Video Forms with ACCEPT and DISPLAY Statement Extensions
Example 11–11 (Cont.) EDITING Phrase Sample Code
ACCEPT DAY-NUM
DISPLAY DAY-NUM
ACCEPT YR-NUM
DISPLAY YR-NUM
ACCEPT DEPT-NUM
DISPLAY DEPT-NUM
ACCEPT F-NAME
DISPLAY F-NAME
ACCEPT L-NAME
DISPLAY L-NAME
.
.
.
Because the ACCEPT statements in Example 11–11 contain EDITING phrases,
a person using the form in Figure 11–13 can use any of the keys listed in
Table 11–3 for field editing purposes to make corrections or modifications.
11–30 Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms
FROM LINE 6 COLUMN 27
PROTECTED WITH EDITING REVERSED
DEFAULT IS CURRENT
AT END
STOP RUN.
FROM LINE 6 COLUMN 30
PROTECTED WITH EDITING REVERSED
DEFAULT IS CURRENT
AT END
STOP RUN.
FROM LINE 8 COLUMN 21
PROTECTED WITH EDITING REVERSED
DEFAULT IS CURRENT
AT END
STOP RUN.
FROM LINE 10 COLUMN 21
PROTECTED WITH EDITING REVERSED
DEFAULT IS CURRENT
AT END
STOP RUN.
FROM LINE 12 COLUMN 20
PROTECTED WITH EDITING REVERSED
DEFAULT IS CURRENT
AT END
STOP RUN.
AT LINE 6 COLUMN 57.
AT LINE 6 COLUMN 60.
AT LINE 8 COLUMN 54.
AT LINE 10 COLUMN 54.
AT LINE 12 COLUMN 54.