ILE COBOL Language Reference

+-------------------------------IBM Extension--------------------------------+


LINKAGE TYPE Clause

The LINKAGE TYPE clause specifies the type of linkage to be made on a CALL to or a CANCEL of the program specified by literal-7, and to the type of linkage to be made on the SET statement.

LINKAGE TYPE Clause - Format
 
           (1)
>>-LINKAGE-------+------+--+----+--+-environment-name-3-+------->
                 '-TYPE-'  '-IS-'  +-PROGRAM------------+
                                   '-PROCEDURE----------'
 
        .---------------------------------------------.
        V                                             |
>--FOR----literal-7--+------------------------------+-+--------><
                     '-USING--| linkage-arguments |-'
 
linkage-arguments:
 
   .-------------------------------------------------------------------.
   V                                                                   |
|----+-ALL---------------------------------------+--+-----+--DESCRIBED-+--|
     | .---------------------------------------. |  +-IS--+
     | V                                       | |  '-ARE-'
     '---integer-1--+------------------------+-+-'
                    '-+-THRU----+--integer-2-'
                      '-THROUGH-'
 
 

Notes:

  1. IBM Extension

Related Information:

environment-name-3
Environment-name-3 can be defined as:

PGM
Linkage to a program object (*PGM) is generated.

PRC
Linkage to an ILE procedure is generated.

SYS
Linkage to a system-supplied procedure is generated.
PROGRAM
Linkage to a program object (*PGM) is generated. This is synonymous to an environment-name-3 of PGM.
PROCEDURE
Linkage to an ILE procedure is generated. This is synonymous to an environment-name-3 of PRC.
literal-7
Literal-7 is the name of the program object or procedure. Literal-7 can contain an extended-name. It can be at most 10 characters long for program names and 256 characters long for procedure names. Literal-7 is affected by the OPTION(*MONOPRC) parameter. When *MONOPROC is specified, lowercase characters are converted to uppercase and the rules for formation of a program-name are followed. See program-name in PROGRAM-ID Paragraph for details.
USING
Specifies which parameters are to have their operational descriptors made available to the called procedure. These parameters must be defined as elementary data items with a USAGE of DISPLAY or DISPLAY-1. They may not be reference modified.

The USING clause is allowed for a linkage type of procedure and applies only to a CALL statement.

integer-1, integer-2
Must be a positive non-zero integer. Specifies the ordinal position of any parameter described using operational descriptors.

Integer-2 must be greater than integer-1.

DESCRIBED
The parameters specified by integer-1 through integer-2 are passed along with corresponding operational descriptors. If ALL is specified, all parameters defined for the procedure are passed along with corresponding operational descriptors, where applicable.


[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]