Compaq COBOL AAQ2G1FTK - Manual (Page 409)

Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms
11.2 Designing Video Forms with ACCEPT and DISPLAY Statement Extensions
Example 11–9 (Cont.) Using the DEFAULT Phrase
A05-GET-DATA.
ACCEPT NAME1A
PROTECTED
DEFAULT NAME-DEFAULT
LINE PLUS COLUMN 15 ERASE TO END OF LINE.
ACCEPT DATA1A
PROTECTED
DEFAULT "***[TBS]****"
COLUMN 21.
ACCEPT PRICEA
PROTECTED
WITH CONVERSION
DEFAULT ZERO
COLUMN 34.
MOVE NAME1A TO NAME1B.
MOVE DATA1A TO DATA1B.
MOVE PRICEA TO PRICEB.
DISPLAY DATA123 REVERSED COLUMN 44.
Figure 11–9 Accepting Data with the DEFAULT 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−6097−GE
********************************************************
Part Part Part −−−−−−−−−STORED AS−−−−−−−−−−
Name Number Price Name Number Price
Defaults −−−>[TBS] ***[TBS]**** +00.00
1. Bolt 000000000001 0.08 Bolt 000000000001 $00.08
2. 2 .02 [TBS] 2 $00.02
3. Nut 29.95 Nut ***[TBS]**** $29.95
4. Screw 11111111 Screw 11111111 $00.00
5. Washr 123456789012 1 Washr 123456789012 $01.00
*********************************************************
*********PLEASE ENTER THE FOLLOWING INFORMATION********* *********PLEASE ENTER THE FOLLOWING INFORMATION*********
1.
2.
3.
4.
5.
Bolt 000000000001 $00.08
[TBS] 2 $00.02
Nut ***[TBS]**** $29.95
Screw 11111111 $00.00
Washr 123456789012 $01.00
−−−−− −−−−−−−−−−−− −−−−−−
Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms 11–19