The ACCEPT Statement
The following format of the ACCEPT statement is supported:
General Format
![ACCEPT [position-spec] identifier [WITH-phrase]](HRLHLHDMSO06IMG-low.gif)
General Rules
- The ACCEPT operation treats a group item as an elementary item, if you set the MS Compiler directive when you submit your source code to your COBOL system: it accepts the item itself and not its subordinate elementary items.
- If the screen position at which the first operand is to appear is not specified, the default is the current cursor position, if you set the MS Compiler directive when you submit your source code to your COBOL system.
- Rules 1 and 2 above also apply to Format 5 of the ACCEPT statement as described in the topic The ACCEPT Statement.
- The WITH phrase options
and their equivalents are:
AUTO/AUTO-SKIP BACKGROUND-COLOR BELL/BEEP BLINK FOREGROUND-COLOR LENGTH-CHECK REVERSE-VIDEO RIGHT-JUSTIFY SECURE/NO-ECHO SIZE SPACE-FILL TRAILING-SIGN UNDERLINE UPDATE ZERO-FILL
These options also apply to Format 5 of the ACCEPT statement as described in the topic The ACCEPT Statement.
The options listed below differ from standard COBOL, as follows:
- UPDATE. If the UPDATE option is not specified, a data item for data entry is displayed initially as spaces, if you set the
MS Compiler directive when you submit your source code to your COBOL system. (If the MS directive is not set, the display
of initial data is a configuration option.)
If the UPDATE option is specified, initial data of the data item for data entry is displayed.
- PROMPT. This option need not be specified to display prompt characters, if you set the MS Compiler directive when you submit your source code to your COBOL system.
- LENGTH-CHECK. If this option is specified, it causes an implicit EMPTY-CHECK option, so that the operator must enter something. You set the MS Compiler directive when you submit your source code to your COBOL system, if you have specified this option.
- UPDATE. If the UPDATE option is not specified, a data item for data entry is displayed initially as spaces, if you set the
MS Compiler directive when you submit your source code to your COBOL system. (If the MS directive is not set, the display
of initial data is a configuration option.)
- FOREGROUND-COLOR and BACKGROUND-COLOR. Integer-1 in these options specifies the foreground color and background color of the
screen item respectively, and can be defined by a value from 0 to 15, as follows:
0 black 8 grey 1 blue 9 light blue 2 green 10 light green 3 cyan 11 light cyan 4 red 12 light red 5 magenta 13 light magenta 6 brown 14 yellow 7 white 15 high intensity white On a color screen, if the FOREGROUND-COLOR option specifies an integer whose value is from 8 to 15, this is equivalent to specifying an integer from 0 to 7 and specifying the HIGHLIGHT option. On a monochrome screen, this is equivalent to simply specifying the HIGHLIGHT option.
On a color screen, if the BACKGROUND-COLOR option specifies an integer whose value is from 8 to 15, this is equivalent to specifying an integer from 0 to 7 and specifying the BLINK option. On a monochrome screen, this is equivalent to simply specifying the BLINK option.