HP 3000 Manuals HP 3000 Manuals
Procedure Division The Position-Specification Phrase Function The position-specification phrase specifies the screen position in the ACCEPT, DISPLAY and EXHIBIT statements described in this appendix. You must set the MS system directive when you submit your source code to your COBOL system if it contains this phrase. General FormatSyntax Rule The comma shown in the above format is mandatory. The ACCEPT Statement The following format of the ACCEPT statement is supported: General Format ACCEPT [position-spec] identifier [WITH-phrase] General Rules 1. The ACCEPT operation treats a group item as an elementary item, if you set the MS system directive when you submit your source code to your COBOL system: it accepts the item itself and not its subordinate elementary items. 2. 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 system directive when you submit your source code to your COBOL system. 3. Rules 1 and 2 above also apply to Format 2 of the ACCEPT statement as described in the main body of this manual. 4. The WITH phrase options and their equivalents are: AUTO/AUTO-SKIP BACKGROUND-COLOR BELL/BEEP BLINK REVERSE-VIDEO RIGHT-JUSTIFY SECURE/NO-ECHO SIZE SPACE-FILL TRAILING-SIGN UNDERLINE UPDATE ZERO-FILL These options also apply to Format 2 of the ACCEPT statement as documented in the main body of this manual. The options listed below differ from standard COBOL, as follows: a. UPDATE. If the UPDATE option is not specified, a data item for data entry is displayed initially as spaces, if you set the MS 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. b. PROMPT. This option need not be specified to display prompt characters, if you set the MS directive when you submit your source code to your COBOL system. c. 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 directive when you submit your source code to your COBOL system, if you have specified this option. d. FOREGROUND-COLOR and BACKGROUND-COLOR. Integer-1 in these clauses 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 clause. On a monochrome screen, this is equivalent to simply specifying the BLINK option. The DISPLAY Statement General Format The following format of the DISPLAY statement is supported:General Rules 1. The DISPLAY operation treats a group item as an elementary item, if you set the MS system directive when you submit your source code to your COBOL system: it displays the item itself and not its subordinate elementary items. 2. 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 system directive when you submit your source code to your COBOL system. 3. Rules 1 and 2 above also apply to Format 2 of the DISPLAY statement documented in the main body of this manual. 4. If ERASE is specified, the screen is cleared from the current cursor position onwards. The following two rules are additional rules which apply to Format 2 of the DISPLAY statement documented in the main body of this manual. 5. The WITH phrase options and their synonyms are: BACKGROUND-COLOR BELL/BEEP BLANK BLINK FOREGROUND-COLOR HIGHLIGHT REVERSE-VIDEO SIZE UNDERLINE 6. FOREGROUND-COLOR and BACKGROUND-COLOR. Integer-1 in these clauses 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 clause. 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 clause. On a monochrome screen, this is equivalent to simply specifying the BLINK option. The EXHIBIT Statement An EXHIBIT statement with neither the CHANGED nor the NAMED option behaves as if the NAMED option were specified. General Format The following format of the EXHIBIT statement is supported:Syntax Rule Mnemonic-name should be associated with sysout, syslist, syslst, syspunch, syspch, console or printer. General Rule ERASE clears the screen from the current cursor position onwards.
![[]](../../pic3k/M013027/FFN11133c50.gif)
![[]](../../pic3k/M013027/FFN11143c50.gif)
![[]](../../pic3k/M013027/FFN11153c50.gif)