Editing Phrase Sample Code - 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
Example 11–11 EDITING Phrase Sample Code
.
.
.
PROCEDURE DIVISION.
A1000-BEGIN.
OPEN I-O EMP-FILE.
.
.
.
B1000-MODIFY.
DISPLAY "MODIFY EMPLOYEE INFORMATION FORM" ERASE SCREEN
DISPLAY "Enter Employee Number : " AT LINE PLUS 2 COLUMN 8.
ACCEPT EMP-KEY
FROM LINE 4 COLUMN 32
PROTECTED WITH EDITING REVERSED
DEFAULT IS CURRENT
AT END
.
.
.
B2000-DISPLAY.
MOVE EMP-REC TO OUT-REC.
DISPLAY "Date of Hire : "
DISPLAY MON-IN
DISPLAY "-"
DISPLAY DAY-IN
DISPLAY "-"
DISPLAY YR-IN
DISPLAY "Current Value :"
DISPLAY MON-NUM
DISPLAY "-"
DISPLAY DAY-NUM
DISPLAY "-"
DISPLAY YR-NUM
DISPLAY "Department :"
DISPLAY DEPT-IN
DISPLAY "Current Value :" AT COLUMN 38.
DISPLAY DEPT-NUM
DISPLAY "First Name :"
DISPLAY F-NAME-IN
DISPLAY "Current Value :" AT
DISPLAY F-NAME
DISPLAY "Last Name :"
DISPLAY L-NAME-IN
DISPLAY "Current Value :" AT
DISPLAY L-NAME
ACCEPT MON-NUM
FROM LINE 6 COLUMN 24
PROTECTED WITH EDITING REVERSED
DEFAULT IS CURRENT
AT END
DISPLAY MON-NUM
Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms 11–29
STOP RUN.
STOP RUN.
AT LINE 2 COLUMN 8.
AT LINE PLUS 2 COLUMN 8.
AT COLUMN 24.
AT COLUMN 26.
AT COLUMN 27.
AT COLUMN 29.
AT COLUMN 30.
AT COLUMN 38.
AT COLUMN 54.
AT COLUMN 56.
AT COLUMN 57.
AT COLUMN 59.
AT COLUMN 60.
AT LINE PLUS 2 COLUMN 8.
AT COLUMN 21.
AT COLUMN PLUS.
AT LINE PLUS 2 COLUMN 8.
AT COLUMN 21.
COLUMN 38.
AT COLUMN PLUS.
AT LINE PLUS 2 COLUMN 8.
AT COLUMN 20.
COLUMN 38.
AT COLUMN PLUS.
AT LINE 6 COLUMN 54.
(continued on next page)