SET ステートメントの形式 6 が実行されると、 受け入れフィールドの現行値が送り出しフィールドに含まれるアドレス値によって置き換えられます。
SET ステートメント - 形式 6 .-----------------------. V | >>-SET----プロシージャー・ポインター・データ項目-1-+-------------------------------> >--TO--+-プロシージャー・ポインター・データ項目-2----------------------------+---->< +-ENTRY--+-ID-1-------------------+--| LIBRARY 句 |-+ | '-+------------+--リテラル-1-' | | '-| リンケージ句 |-' | +-NULL---------------------------------------------+ '-NULLS--------------------------------------------' リンケージ句 |--+------------------------------------------+-----------------| +-LINKAGE--+------+--+----+--+-環境名-1-----+-+ | '-TYPE-' '-IS-' +-PROGRAM---+ | | '-PROCEDURE-' | +-PROGRAM----------------------------------+ '-PROCEDURE--------------------------------' LIBRARY 句 |--+-----------------------------+------------------------------| '-+----+--LIBRARY--+-ID-2---+-' '-IN-' '-リテラル-2-'
USAGE IS PROCEDURE-POINTER として記述されていなければなりません。