Control Data Corporation 3300 Reference Manual page 263

Computer systems usasi cobol/ master
Table of Contents

Advertisement

When a figurative constant represents a string of one or more characters, the length of the string is
set by the compiler according
to
the following rules:
When the figurative constant is moved
to
or compared with another data item, its character
string is repeated character by character on the right until the size of the resultant string
is equal to the size in characters of the associated data item.
When the figurative constant appears in a DISPLAY, EXAMINE or STOP statement, the
length of the string is one character. ALL literal may not be used with DISPLAY,
EXAMINE or STOP.
A figurative constant can be used any place where a literal appears
in
the format. When the literal
is restricted to numeric characters, ZERO (ZEROS) (ZEROES) is the only figurative constant per-
mitted.
Examples:
MOVE QUOTES TO AREA-A
Assuming AREA-A consists of five character positions,
this statement moves the configuration """""
to
AREA-A.
DISPLAY QUOTE "NAME" QUOTE
This statement results in "NAME" being displayed.
MOVE SPACES TO TITLE
The item named TITLE is set to all spaces (or
blanks).
MOVE ALL "4
f1
TO COUNT-FIELD
Assuming COUNT-FIELD has a picture of X(4) , a 4
is placed in each position of the item named COUNT-
FIELD.
IF ALL "4" IS EQUAL TO COUNT-FIELD...
Assuming COUNT-FIELD has a picture of 9(4) or
X(4) , this compares 4444 with the value of COUNT-
FIELD.
MOVE ZEROS TO REGISTER
This places 0
in
each position of the item named
REGISTER.
MOVE ALL flNO-OP"
to
EMPTY
Assuming EMPTY consists of 12 character positions,
EMPTY is filled with repetitions of the characters of
the non-numeric literal, NO-OPNO-OPNO.
B-8
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