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

CONTENT
specifies that the calling program makes a copy of the data item and passes the address
of the copy to the called program. If the called program changes the value of the parameter,
it does not change the value of the data item in the calling program. CONTENT applies
to all the parameters that follow it until a REFERENCE or VALUE phrase appears.
VALUE
specifies that the calling program passes the value of the data item to the called program.
Nothing that the called program does with the value affects the data item in the calling
program. VALUE applies to all the parameters that follow it until a REFERENCE or CONTENT
phrase appears.
If you specify VALUE, the called program must be not be written in COBOL and you must
compile the calling program with the PORT directive and either the ENV COMMON or
ENV LIBRARY directive.
VALUE is not an element of COBOL. If you also compile the calling program with a FIPS
directive with NONSTANDARDEXT in the flag-option-list, the compiler issues a
warning message if it finds the keyword VALUE.
parameter-1
is a data item defined in the Linkage, File, Working-Storage, or Extended-Storage Section.
It must be one of:
• An elementary data item
• A level-01 data item
• A level-77 data item
• A data item whose level is other than 01 or 77 is aligned on a 2-byte boundary
If parameter-1 is subscripted, its first occurrence must be on a 2-byte boundary and the
number of occurrences must be even.
The number of parameter-1 s must be the same as the number of parameters defined in
the USING phrase of the called program. The size of each parameter must be the same
as the size of the corresponding parameter in the called program. See Linkage Section
(page 179).
If the called program is not written in COBOL, parameter-1 must be exactly the data
type that the called program expects.
parameter-2
is a data item defined in the Linkage, File, Working-Storage, or Extended-Storage Section.
It must be one of these data types:
Corresponding Formal Parameterparameter-2
16-bit data itemNumeric data item described as COMP-5 with
PICTURE S9(4) or NATIVE-2
32-bit data item (1 word)Numeric data item described as COMP-5 with
PICTURE S9(9) or NATIVE-4
64-bit data item (2 words)Numeric data item described as COMP-5 with
PICTURE S9(18) or NATIVE-8
Single character1-character alphanumeric data item
If you are concerned about portability, use COMP-5 rather than NATIVE-2, NATIVE-4, or
NATIVE-8.
CALL 295