Compaq COBOL AAQ2G1FTK User Manual page 401

Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms
11.2 Designing Video Forms with ACCEPT and DISPLAY Statement Extensions
Example 11–5 (Cont.) Using the CONVERSION Phrase
DISPLAY "X(10) Test" LINE 8 ERASE LINE.
ACCEPT DATA1A WITH CONVERSION PROTECTED REVERSED
DISPLAY DATA1A REVERSED WITH CONVERSION
DISPLAY "X(10) JUSTIFIED Test" LINE 10 ERASE LINE.
ACCEPT DATA1B WITH CONVERSION PROTECTED REVERSED
DISPLAY DATA1B REVERSED WITH CONVERSION
P2.
DISPLAY "Num edited Test (+++++9999.99):" LINE 12 ERASE LINE.
ACCEPT DATA2 PROTECTED REVERSED WITH CONVERSION
DISPLAY DATA2 REVERSED WITH CONVERSION
P3.
DISPLAY "Num COMP Test S9(2)V9(2):" LINE 14 ERASE LINE.
ACCEPT DATA3 PROTECTED REVERSED WITH CONVERSION
DISPLAY DATA3 REVERSED WITH CONVERSION LINE 14 COLUMN 65.
P4.
DISPLAY "Num COMP Test S9(3)V9(3):" LINE 16 ERASE LINE.
ACCEPT DATA4 PROTECTED REVERSED WITH CONVERSION
DISPLAY DATA4 REVERSED WITH CONVERSION
P5.
DISPLAY "Num COMP Test S9(6)V9(6):" LINE 18 ERASE LINE.
ACCEPT DATA5 PROTECTED REVERSED WITH CONVERSION
DISPLAY DATA5 REVERSED WITH CONVERSION
P6.
DISPLAY "Num COMP-3 Test S9(4)V9(4):" LINE 20 ERASE LINE.
ACCEPT DATA6 PROTECTED REVERSED WITH CONVERSION
DISPLAY DATA6 REVERSED WITH CONVERSION
P7.
DISPLAY "Num DISPLAY Test S9(1)V9(7)Sign Lead Sep:"
ACCEPT DATA7 PROTECTED REVERSED WITH CONVERSION
DISPLAY DATA7 REVERSED WITH CONVERSION
P8.
DISPLAY "To end...type END"
ACCEPT DATA1A.
IF DATA1A = "END" STOP RUN.
GO TO P1.
Note that, in addition to the items illustrated in Figure 11–6, you can also display
the following:
• COMP-1 and COMP-2 data items
Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms 11–11
LINE 8 COLUMN 50.
LINE 8 COLUMN 65.
LINE 10 COLUMN 50.
LINE 10 COLUMN 65.
LINE 12 COLUMN 50.
LINE 12 COLUMN 65.
LINE 14 COLUMN 50.
LINE 16 COLUMN 50.
LINE 16 COLUMN 65.
LINE 18 COLUMN 50.
LINE 18 COLUMN 65.
LINE 20 COLUMN 50.
LINE 20 COLUMN 65.
LINE 22 ERASE LINE.
LINE 22 COLUMN 50.
LINE 22 COLUMN 65.
LINE PLUS COLUMN 1 ERASE LINE
BELL UNDERLINED REVERSED.