COBOL Manual for TNS and TNS/R Programs

Identification Division
HP COBOL Manual for TNS and TNS/R Programs—522555-006
5-4
PROGRAM-ID Paragraph
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.
Example 5-2. 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
program-name
IS
program-type
.
PROGRAM
VST011.vsd
INITIAL
COMMON
COMMON
INITIAL
VST012.vsd