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

program-name
is a COBOL word. It names the same program unit that the PROGRAM-ID does (see
PROGRAM-ID Paragraph (page 98)), for example:
IDENTIFICATION DIVISION.
PROGRAM-ID. MYPROG.
...
END PROGRAM MYPROG.
Reference Format for Source Program Lines
Individual source program lines must follow a reference format that the compiler accepts. There
are two choices of reference format: Tandem and ANSI. Tandem reference format, an HP extension
to COBOL, is less restrictive than ANSI. The principal differences between the Tandem and ANSI
formats are in:
• Margin locations
• Permitted line lengths
• Absence of sequence number and identification field in Tandem reference format
You can write an HP COBOL program completely in either format or in a mixture of both. The
default is Tandem reference format. Unless you direct the compiler to accept the ANSI format, the
compiler assumes the entire program is in Tandem reference format.
The rest of this topic describes the Tandem reference format. For information on the ANSI reference
format, see Chapter 16: ANSI Reference Format.
Figure 1 Tandem Reference Format
Lines in Tandem reference format are not restricted to a fixed length and can have up to 132
characters (longer lines are truncated). The Tandem reference format has no identification field.
You can supply comments for your program on separate lines. See Indicator Area.
Indicator Area
The indicator area begins at margin C and ends at margin A, using only column 1. It can be
empty, or it can contain a single character that describes the type of information on the line.
Table 7 Valid Indicator Area Characters (Tandem Reference Format)
Meaning and Topic NameCharacter NameCharacter
Compiler Directive (?)Question mark?
Ordinary Comment (*)Asterisk*
Comment for Top of Next Page (/)Slash/
Debugging Line (D or d)Uppercase DD
44 Source Program Organization and Format