COBOL Manual for TNS and TNS/R Programs

Identification Division
HP COBOL Manual for TNS and TNS/R Programs—522555-006
5-5
DATE-COMPILED Paragraph
COMMON
makes the program common, which means that the program must be
contained within another program and can be called by any other program
contained (directly or indirectly) in the same containing program, but not by the
programs it contains.
Usage Considerations:
•
A Program Can Be Both Initial and Common
•
Storage Allocation For an Initial Program
For an initial program, all data items are allocated dynamically.
When a program declares very large data items that do not have initial values
assigned, including a NOBLANK directive in the compilation saves significant
amounts of compilation time, object program storage space on disk, and run-time
initialization time. If you must initialize such items to spaces, use VALUE clauses,
INITIALIZE statements, or MOVE statements of the form:
MOVE ALL SPACES TO x.
•
Qualification of a File-Name in an ASSIGN Command
The program-name can also be used in the command interpreter ASSIGN
command, where it serves to qualify a file-name. For example, suppose a COBOL
program having the program-name “MAILING-LIST” contains the statement:
SELECT IN-FILE ASSIGN TO "$WEST.CALIF.LIVEONES"...
You can reassign the IN-FILE of that program by issuing the command interpreter
command
ASSIGN MAILING-LIST.IN-FILE, $MIDWST.OKLA.PROSPCTS
before executing the object program. See the Guardian User’s Guide for more
information about the ASSIGN command.
DATE-COMPILED Paragraph
The DATE-COMPILED paragraph directs the compiler to report the compilation date
and time in the listing, which the compiler already does by default.
Note. The 1985 COBOL standard classifies the DATE-COMPILED paragraph as obsolete, so
you are advised not to use it. Instead, use a comment, as in Example 5-2
.
DATE-COMPILED
.
comment-entry
VST013.vsd