Specifies whether COMP-6 data is to be held in binary or packed decimal format, or emulates ACUCOBOL-GT or RM/COBOL COMP-6 behavior.
Syntax:
>>-.---.--COMP-6--"integer"----------------><
+-/-+
Parameters:
-
integer
- Must be one of the following:
- 1
- A binary format is used for COMP-6 data
- 2
- Packed decimal format is used. If the item is signed, the format is identical to COMP-3. If the item is unsigned, no sign field is present.
- 3
- Unsigned packed decimal format is used, with no sign field.
Properties:
| Default:
|
COMP-6"2"
|
| Phase:
|
Syntax check
|
| $SET:
|
Initial
|
Dependencies:
ADDRSV"COMP-6" must be set.
DIALECT"RM", DIALECT"ACU", or ACU set COMP-6"3" immediately.
Example:
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"
Comments:
The binary format used when you set COMP-6"1" is as described in the chapter RM/COBOL 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.