Native Inspect Manual (H06.04+)

Using Native Inspect With COBOL Programs
Native Inspect Manual—528122-005
3-7
Changing the Radix of Numeric Literals
Native Inspect follows COBOL rules for assigning values to numeric and alphanumeric
variables.
Some considerations are:
•
Native Inspect follows COBOL rules for truncation and padding, but ignores the
JUSTIFIED clause.
•
When assigning a numeric value to an alphanumeric item, the numeric item is
treated as an alphanumeric item with digits moved from left to right.
•
Native Inspect does not allow assignment to EDITED data items.
•
If the name of a variable is the same as a Native Inspect option recognized by the
set command, you must use either the print command with the assignment
operator or the variable clause of the set command to assign a value to the
variable.
•
The maximum size of a numeric literal is 18 decimal digits, 16 hexadecimal digits,
and 22 octal digits.
Changing the Radix of Numeric Literals
The default radix of a numeric literal is base 10. You can use the following notations to
change the value of a numeric literal:
Oxvalue to specify a hexadecimal value
Onumber to specify an octal value
Considerations
•
Native Inspect does not support he COBOL syntax for hexadecimal literals
(H”value”).
•
You cannot change the radix of an alphanumeric literal.
Assigning Values to Level 88 Condition Names
You cannot modify a level 88 condition name. For example, consider the following
declaration:
01 REC.
02 TABLE OCCURS 4 TIMES.
03 ITEM PIC 99.
88 ITEM-OK VALUE 12.
You cannot assign a new value to ITEM-OK. You can change only the value of the
underlying data item, in this case, the level 03 item ITEM.