Set - Control Data Corporation 3300 Reference Manual

4.7.23
SET
4-62
The SET statement sets values for index names associated with elements in
tables so that these table elements can be referenced by indexing.
Format 1:
SET {index-name-1}
- - identifier-1
Format 2:
[
"d 2 ] { index-name-3 }
, In ex-name- " " "
{
"d tif" -2 } " .. TO IdentIfIer-3
, I en Ier literal-1
SET index-name-4 [, index-name-5] ...
{~~.::
BY }
{
identifier-4}
literal-2
The identifiers are index data items or numeric elementary items described
without any .IX>sitions
to the right of the assumed decimal .IX>int. However,
identifier-4 in format 2 may not be an index data item.
A
literal must be a
.IX>sitive integer. The index naJ;nes must be defined in the INDEXED BY option
of the OCCURS clause for a given table.
When SET is used
to preset the contents of any index names in a table, all the
index names which are to be set must be specified in the SET statement. No
implicit setting is performed.
Format 1:
If index-name-1 is specified, it is set to the character address bias which
corres.IX>nds to the occurrence number referred to by or contained in index-
name-3, identifier-3 or literal-I.
If
identifier-3 is an index data item, or if
index-name-3 is related to the same table as index-name-1, no conversion is
made from occurrence number to character address bias.
If identifier-1 is specified, the particular action depends on whether it is an
index data item or a data name containing a numeric elementary item.
If
it
is an index data item, it is set equal to the contents of index-name-3 or
identifier-3 which is also an index data item. Literal-1 cannot be used when
identifier-1 is an index data item.
If identifier-1 is a data name, it is set to the occurrence number that corre-
s.IX>nds to the character address bias in index-name-3. Neither identifier-3
nor literal-1 can be used in this case.
In the above discussion, all references to index-name-1 and identifier-1
apply to index-name-2 and identifier-2, respectively.
60229400