Pathway/iTS SCREEN COBOL Reference Manual (G06.24+, H06.03+, Pathway/iTS 1.0+)

Procedure Division
Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001
6-30
COPY Statement
library-name
is the file containing the text to be copied. The name is expanded to a full file name
using the default subvolume in effect for the compilation. If you specify the library
name with a subvolume and a file name, you must enclose the entry in quotation
marks. For example:
"subvol.afile".
If library-name is omitted and copy-text exists, the default library name
COPYLIB is used for the compilation.
Even though the COPY statement is described as a Procedure Division statement, the
statement can be included in a SCREEN COBOL program wherever a character string
or separator can appear; the only exception is within another COPY statement. The
keyword COPY cannot be split over two lines, but text that follows the keyword can be
continued.
Library text is copied into the source program. The SCREEN COBOL copy library
must be in the correct format, and each copy-text must be written in correct
SCREEN COBOL syntax.
A copy library must be an EDIT disk file in the following form:
Each SECTION line identifies the beginning of a copy-text; the question mark must
be in column 1. The content of the text is arbitrary and can be any length. No text line
can begin with ?SECTION.
The compiler assumes the source format (ANSI standard reference format or Tandem
standard reference format) of the library text is the same as that of the line containing
the COPY statement. When the format option is specified, the format overrides the
compiler's assumption, permitting a library text to be copied irrespective of the format of
the source program. Also, the library text itself can have compiler commands, which are
executed when the text is copied. Note that after copying is complete, the compiler
always reverts to the format in effect when it encountered the COPY statement. See
Section 7, Compilation
for information on restrictions on the use of the Compaq Inspect
debugging tool when the ANSI compiler command is set.
During program compilation, copy-text is found by locating the SECTION
command whose copy-text name matches copy-text in the COPY statement.
Text is copied starting at the line after the SECTION line and continues until either
another SECTION line is recognized or end-of-file is reached. In the following
example, text-0 has no SECTION command and could never be copied:
text-0
?SECTION copy-text-1 [ , { ANSI } ]
[ { TANDEM } ]
text-1
?SECTION copy-text-2 [ , { ANSI } ]
[ { TANDEM } ]
text-2