IBM Extension
IBM Extension
形式 6 - プロシージャー・ポインター・データ項目
形式 6 の SET ステートメントが実行されると、 受け入れフィールドの現 行値が送り出しフィールドに含まれるアドレス値によって置き換えられます。
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--'
- プロシージャー・ポインター・データ項目-1、プロシージャー・ポインター・データ項目-2
- プロシージャー・ポインター・データ項目-1 は受け入れフィールドです。
USAGE IS PROCEDURE-POINTER として記述されていなければなりません。
- ID-1
- 値をプログラム名にすることができるように、英数字項目として定義されていなければなりません。 (詳細は PROGRAM-ID 段落を参照してください。) プロシージャー・ポインター・データ項目は、同じコンパイル単位の最外部の COBOL プログラム (ILE プロシージャー)、 または ID-1 で指定されたプログラム・オブジェクト (*PGM) に設定されます。 ID の内容は、CRTCBLMOD または CRTBNDCBL コマンドの *MONOPRC オプションによって影響されます。
- リテラル-1
- 非数字でなければならず、プログラム名の形成に関する規則に従っていなければなりません。 リテラルは、CRTCBLMOD または CRTBNDCBL コマンドの *MONOPRC オプションによって影響されます。 プロシージャー・ポインター・データ項目は、 同じコンパイル単位の最外部の COBOL プログラム (ILE プロシージャー)、 他のコンパイル単位内の最外部の COBOL プログラム (ILE プロシージャー)、ILE プロシージャー (他の ILE 言語で書かれた)、 またはプログラム・オブジェクト (*PGM) に設定できます。 プロシージャー・ポインター・データ項目は、指定された名前のネストされた COBOL プログラムが SET のポイントから可視である場合でも、 ネストされた COBOL プログラムに設定することはできません。 プロシージャー・ポインター・データ項目が設定されるオブジェクトのタイプは、ENTRY 文節の LINKAGE TYPE 句と、SPECIAL-NAMES 段落の LINKAGE TYPE 文節および CRTCBLMOD または CRTBNDCBL コマンドの LINKLIT パラメーターによって判別されます。
End of IBM Extension
