Compaq COBOL AAQ2G1FTK - Manual (Page 402)

Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms
11.2 Designing Video Forms with ACCEPT and DISPLAY Statement Extensions
Figure 11–6 Sample Run of Program CONVERT
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−6094−GE
to begin... press your carriage return key to begin... press your carriage return key
To end...type ENDEND To end...type END
abcdef abcdef X(10) Test
X(10) JUSTIFIED Test abcdef abcdef
Num edited Test (+++++9999.99):
Num COMP Test S9(2)V9(2): 89.98− −89.98
Num COMP Test S9(3)V9(3): 103.600 +103.6
Num COMP Test S9(6)V9(6): 65432.100009 65432.100009
Num COMP−3 Test S9(4)V9(4): 1234.1234 1234.1234
Num DISPLAY Test S9(1)V9(7)Sign Lead Sep: 6.0729375−
1234567.8 +1234567.80
−6.0729375
• On OpenVMS, RMS registers (RMS-STS, RMS-STV, RMS-FILENAME,
RMS-CURRENT-STS, RMS-CURRENT-STV, RMS-CURRENT-FILENAME)
♦
• LINAGE-COUNTER register
• RETURN-CODE special register
• RWCS registers (PAGE-COUNTER, LINE-COUNTER)
• VALUE EXTERNAL data items
• POINTER VALUE REFERENCE data items
The /DISPLAY_FORMATTED command-line qualifier is an alternative way
to display numeric data without specifying the CONVERSION phrase. It
accomplishes the same result, converting any nonprinting values for display. (The
default is /NODISPLAY_FORMATTED.)
11.2.5 Handling Data with ACCEPT Options
The ACCEPT options CONVERSION, ON EXCEPTION, PROTECTED, SIZE, NO
ECHO, and DEFAULT are described in the following sections.
11.2.5.1 Using CONVERSION with ACCEPT Data
When you use the CONVERSION phrase with an ACCEPT numeric operand
(other than floating point), Compaq COBOL converts the data entered on the
form to a trailing-signed decimal field. Editing is performed when specified by
destination. The data is then moved from the screen to your program using
standard MOVE statement rules.
11–12 Using ACCEPT and DISPLAY Statements for Input/Output and Video Forms