Syntax:
>>-.---.--COMP-6--"integer"----------------><
+-/-+
Parameters:
-
integer
- Must be 1 or 2.
- 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.
Properties:
| Default: |
COMP-6"2" |
| Phase: |
Syntax check |
| $SET: |
Initial |
Dependencies:
ADDRSV"COMP-6" must be set.
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 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.