Value - Control Data Corporation 3300 Reference Manual

Computer systems usasi cobol/ master
Table of Contents

Advertisement

3.5.16
VALUE
3-44
The VALUE clause defines the initial value of working storage items or the
values associated with a condition name.
Format 1:-
VALUE 15 literal
Format 2:
1
VALUE IS
l
literal-l [THRU literal-2] [, literal-3
VALUES ARE'
(THRU literal-4]J ...
The VALUE clause cannot be stated for any item for which size is variable,
explicitly or implicitly.
A figurative constant may be used wherever literal appears in the format.
If
VALUE is specified for a group, the literal must be a figurative constant
or a non-numeric literal, and the group area is initialized without regard for
the individual elementary or group items. VALUE must not be specified
for subordinate items within the group.
Format 2 is used only with condition names. In the THRU option, literal-l
must be less than literal-2, and literal-3 less than literal-4, etc. The
VALUE clause is required in a condition name entry, and it is the only clause
permitted in the entry. Characteristics of the condition name are implicitly
those of its associated data item (its conditional variable).
The values specified in a VALUE clause must be consistent with any other
clauses in the data description of the item. The following rules apply:
If
the category of the item is numeric, all literals in the VALUE clause must
be numeric literals. The literal is aligned according to the alignment rules
given for the JUSTIFIED clause. The literal must not have a value requiring
truncation of nonzero digits.
Literals aSSigned to COMPUTATIONAL-2 items
must be in the floating point literal format.
If
the category of the item is alphabetic or alphanumeric, all literals in the
VALUE clause must be non-numeric. The literal is aligned according to
the rules; the number of characters in the literal must not exceed the size
of the item.
All numeric literals in a VALUE clause must have a value within the range
indicated by the PICTURE. For example,
if
the PICTURE is PPP99 the
literal must be within the range. 00000 through. 00099.
60229400

Advertisement

Table of Contents
loading
Need help?

Need help?

Do you have a question about the 3300 and is the answer not in the manual?

This manual is also suitable for:

3500

Table of Contents