Appendix B contains a detailed description of the formation of different types of user-defined words
such as data-names, condition-names, procedure-names, and so forth.
Literals
Literals are a special case of user-defined words. They are actual values used in the program and
as such are self-defining. Literals may be numeric or non-numeric.
A numeric literal is a string of digits that may include a plus or minus sign, and a decimal point.
Its value is the quantity represented by the characters in the literal. Every numeric literal is
classed as a numeric item.
A non-numeric literal is a string of one to 120 characters enclosed in quotation marks from the
computer's character set (appendix B).
It may contain reserved words and spaces but not the
quotation mark. The value of a non-numeric literal is the string of characters excluding the quota-
tion marks. Non-numeric literals are classed as alphanumeric items.
Rules governing the formation of literals are given in appendix B.
The following examples show the use of literals in an entry:
DIVIDE
~TO
CONVERTED-TEMPl GIVING TEMP-2.
numeric literal
77 HEADING-A PICTURE X(lO) VALUE IS :'COBOL
~
Level Numbers
non-numeric literal
Level numbers (01 through 49, 66, 77, and 88) are used in entries that assign names to data items
and data values. They deSignate the level of the entries relative to each other.
Numbers 01 through 49 designate the hierarchy of data entries within records. 01 is always assigned
to the record itself; 02 through 49 are assigned to items within the record. Level numbers need not
be consecutive but must be ordered so that the higher the number, the lower the entry in the
hierarchy.
Level number 66 deSignates an entry that renames a previously defined entry. It is always used with
the reserved word RENAMES.
Level number 77 deSignates an independent data item, one that is not part of a record.
Level number 88 is used with entries that assign condition names to specific values a data item may
assume.
60229400
ix
Need help?
Do you have a question about the 3300 and is the answer not in the manual?