COBOL Manual for TNS and TNS/R Programs

Tape Input and Output
HP COBOL Manual for TNS and TNS/R Programs—522555-006
27-19
Labeled Tape Files
CLASS Attribute (Required)
The value of the CLASS attribute must be TAPE. The CLASS attribute must be the first
attribute in the ADD DEFINE command, because it determines what other attributes
the DEFINE can have and clears any existing attribute settings, including any that
precede it in the ADD DEFINE command.
Figure 27-2. DEFINE Names and COBOL File Names
COBOL Source Program
.
.
.
SELECT SALES1Q
ASSIGN TO " =SALES-1Q86"
.
.
.
FD SALES1Q
RECORD CONTAINS 60 CHARACTERS
BLOCK CONTAINS 3900 CHARACTERS
LABEL RECORDS ARE STANDARD
.
.
.
OPEN INPUT SALES1Q.
.
.
.
System Software
Automatic Volume
Recognition
DEFINEs Enabled for the
Process
=SALES-1Q86
CLASS TAPE, LABELS ANSI,
VOLUME SLS86, USE IN,
RECFORM F, RECLEN 60,
BLOCKLEN 3900
=ACCTS-RECEIVABLE
. . .
ACCTPY SLS86 ACCTRC
COBOL Process
VST707.vsd