引数の説明
INVOKEまたはCALL. |
例
000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5707. 000003 IDENTIFICATION DIVISION. 000004 STATIC. 000005 PROCEDURE DIVISION. 000006 IDENTIFICATION DIVISION. 000007 METHOD-ID. MAIN. 000008 DATA DIVISION. 000009 WORKING-STORAGE SECTION. 000010 01 WOBJ OBJECT REFERENCE C5707. 000011 PROCEDURE DIVISION. 000012 INVOKE WOBJ "M5707" USING BY REFERENCE C5707. 000013 END METHOD MAIN. 000014 END STATIC. 000015* 000016 IDENTIFICATION DIVISION. 000017 OBJECT. 000018 PROCEDURE DIVISION. 000019 IDENTIFICATION DIVISION. 000020 METHOD-ID. M5707. 000021 DATA DIVISION. 000022 LINKAGE SECTION. 000023 01 LK1 OBJECT REFERENCE C5707. 000024 PROCEDURE DIVISION. 000025 END METHOD M5707. 000026 END OBJECT. 000027 END CLASS C5707.
C5707.cob (12) : JMN5707I-S INVOKE文のBY REFERENCE指定には,定数節で定義したデータ項目,定数,定義済みオブジェクト一意名,クラス名,インタフェース名,デリゲート名,ENUM名は指定できません.INVOKE文を無効とします.
詳細な説明
診断メッセージに列記されている型の項目は,BY REFERENCE指定の引数としては指定できません.