>A customer has the following question: When will Cobol support
>colors?
DEC COBOL supports X/Open SCREEN SECTION on
OpenVMS Alpha
DIGITAL UNIX
This includes some support for
> [ FOREGROUND-COLOR IS color-num-1 ]
> [ BACKGROUND-COLOR IS color-num-2 ]
See the DEC COBOL Reference Manual (Data Division - Screen Section) and
User Manual (chapter on ACCEPT/DISPLAY) for more details.
COBOL
DATA_DIVISION
ss_screen-description-entry
3format_elementary
Format 3 - Elementary Screen Item
level-number [ screen-name ]
[ FILLER ]
[ BLANK { LINE } ]
[ { SCREEN } ]
[ BELL ]
[ BLINK ]
[ ERASE { EOL } ]
[ { EOS } ]
[ HIGHLIGHT ]
[ LOWLIGHT ]
[ REVERSE-VIDEO ]
[ UNDERLINE ]
[ NUMBER IS [ PLUS ] { identifier-1 } ]
[ { integer-1 } ]
[ NUMBER IS [ PLUS ] { identifier-2 } ]
[ { integer-2 } ]
[ FOREGROUND-COLOR IS color-num-1 ]
[ BACKGROUND-COLOR IS color-num-2 ]
{ USING identifier-3 }
{ PICTURE } IS picture-string-1 { {| FROM { identifier-4 } |} }
{ PIC } { {| { literal-1 } |} }
{ {| TO identiier-5 |} }
[ [ USAGE IS ] DISPLAY ]
[ BLANK WHEN ZERO ]
[ { JUSTIFIED } RIGHT ]
[ { JUST } ]
[ [ SIGN IS ] { LEADING } [ SEPARATE CHARACTER ] ]
[ { TRAILING } ]
[ AUTO ]
[ SECURE ]
[ REQUIRED ]
[ FULL ] .
|