COBOL Manual for TNS and TNS/R Programs

Environment Division
HP COBOL Manual for TNS and TNS/R Programs—522555-006
6-31
FILE-CONTROL Paragraph
ORGANIZATION clause
makes the organization of the file sequential (the default).
PADDING CHARACTER clause
specifies pad-char, the character to be used for padding on sequential files on
unlabeled magnetic tape when the physical record size (block size) exceeds the
logical record size. HP COBOL handles this phrase as a comment, except for
checking if pad-char is acceptable.
pad-char
is either a nonnumeric literal that represents a single character, or a qualified or
unqualified name that references an alphanumeric data item whose value is a
single character. If pad-char is a data item, it must be defined in the
Working-Storage, Extended-Storage, or Linkage Section. pad-char cannot
be a national literal or national data item.
RECORD DELIMITER clause
specifies the method of determining the length of a variable-length record on the
file’s external medium. HP COBOL handles this clause as a comment, except that
these requirements are checked:
°
This clause can appear only for a file whose description specifies variable-
length records.
°
STANDARD-1 applies only to magnetic tape files that contain standard label
records.
°
rec-delim must be IMPLICIT (see rec-delim, following).
ORGANIZATION IS
SEQUENTIAL
VST041.vsd
VST042.vsd
PADDING
CHARACTER
IS
pad-char
RECORD DELIMITER
IS
STANDARD-1
rec-delim
VST043.vsd