+-------------------------------IBM Extension--------------------------------+
When Format 6 of the SET statement is executed,
the current value of the receiving field is replaced by the address value contained in the sending field.
SET Statement - Format 6
.-------------------------------.
V |
>>-SET----procedure-pointer-data-item-1-+----------------------->
>--TO--+-procedure-pointer-data-item-2------------------------------------+-><
+-ENTRY--+-identifier-1----------------------+--| Library Phrase |-+
| '-+--------------------+--literal-1-' |
| '-| Linkage Phrase |-' |
+-NULL-------------------------------------------------------------+
'-NULLS------------------------------------------------------------'
Linkage Phrase:
|--+---------------------------------------------------+--------|
+-LINKAGE--+------+--+----+--+-environment-name-1-+-+
| '-TYPE-' '-IS-' +-PROGRAM------------+ |
| '-PROCEDURE----------' |
+-PROGRAM-------------------------------------------+
'-PROCEDURE-----------------------------------------'
Library Phrase:
|--+-----------------------------------+------------------------|
'-+----+--LIBRARY--+-identifier-2-+-'
'-IN-' '-literal-2----'
They must be described as USAGE IS PROCEDURE-POINTER.
The LINKAGE TYPE phrase is used to specify the type of program that the procedure-pointer data item is set to. It could be set to the address of a separately compiled program object (*PGM) or a procedure within a program.
The IN LIBRARY phrase is valid only for setting a procedure pointer data item to an program object. That is, a linkage of program must be specified, whether implicitly or explicitly, on the SET statement.
Identifier-2 and literal-2 are not affected by the *MONOPRC compiler option, and can contain an extended name.
+----------------------------End of IBM Extension----------------------------+
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.