Specifies whether COMP-6 data is to be held in binary or packed decimal format.
>>-.---.--COMP-6--"integer"---------------->< +-/-+
integer | Must be 1 or 2.
|
Default: | COMP-6"2" |
Phase: | Syntax check |
$SET: | Initial |
ADDRSV"COMP-6" must be set.
The binary format used when you set COMP-6"1" is as described in the chapter Ryan McFarland COBOL V2.0 Syntax Support in your Language Reference .
Even if you specify the COMP-6 directive, the reserved word COMP-6 is recognized only if it belongs to the chosen dialect or the directive ADDRSV"COMP-6" is specified.
With COMP-6"2" specified:
PIC 99 COMP-6 VALUE 87
is stored in one byte as x"87"
PIC S99 COMP-6 VALUE 87
is stored in two bytes as x"087C"