COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

Example 22 Identification Division With Obsolete Paragraphs
IDENTIFICATION DIVISION.
PROGRAM-ID. MYPROG
AUTHOR. JANE DOE
INSTALLATION. HEADQUARTERS
DATE-WRITTEN. JANUARY 20, 1992
DATE-COMPILED. JANUARY 21, 1992
SECURITY. COMPANY CONFIDENTIAL
Example 23 Identification Division With Comments
IDENTIFICATION DIVISION.
PROGRAM-ID. MYPROG
* AUTHOR. JANE DOE
* INSTALLATION. HEADQUARTERS
* DATE-WRITTEN. JANUARY 20, 1992
* DATE-COMPILED. JANUARY 21, 1992
* SECURITY. COMPANY CONFIDENTIAL
PROGRAM-ID Paragraph
The required PROGRAM-ID paragraph names the COBOL program and (optionally) declares it to
be an initial program, a common program, or both.
The name that the PROGRAM-ID paragraph gives the program can differ from the file-name of the
source code file or that of the object file. It is the name by which the program is called by another
COBOL program’s CALL statement. You can also use it to qualify a file-name in the TACL command
ASSIGN.
program-name
is a COBOL word. It names the program unit.
program-type
INITIAL
makes the program an initial program, which means that the program is in the initial program
state each time it is executed—that is, all internal program entities (data item values, file
connectors, and so on) are in their initial states at the start of each execution of the program.
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.
98 Identification Division