引数の説明
INVOKEまたはCALL. |
例
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID. C5504.
000003 IDENTIFICATION DIVISION.
000004 OBJECT.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 PR5504 PIC S9(9) COMP-5 PROPERTY.
000008 PROCEDURE DIVISION.
000009 IDENTIFICATION DIVISION.
000010 METHOD-ID. M5504.
000011 DATA DIVISION.
000012 LINKAGE SECTION.
000013 01 LK1 PIC S9(9) COMP-5.
000014 01 LK2 PIC S9(9) COMP-5.
000015 PROCEDURE DIVISION USING LK1
000016 RETURNING LK2.
000017 END METHOD M5504.
000018 END OBJECT.
000019 END CLASS C5504.
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P5504.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 REPOSITORY.
000006 CLASS C5504.
000007 DATA DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 WOBR USAGE OBJECT REFERENCE C5504.
000010 PROCEDURE DIVISION.
000011* プロパティ
000012 INVOKE WOBR "M5504" USING PR5504 OF WOBR
000013* 行内呼び出し
000014 INVOKE WOBR "M5504" USING WOBR :: "M5504" (12)
000015 END PROGRAM P5504.
P5504.cob (12) : JMN5504I-S INVOKE文のUSING指定にオブジェクトプロパティまたはメソッドの行内呼出しは指定できません.INVOKE文を無効とします.
P5504.cob (14) : JMN5504I-S INVOKE文のUSING指定にオブジェクトプロパティまたはメソッドの行内呼出しは指定できません.INVOKE文を無効とします.
詳細な説明
オブジェクトプロパティあるいはメソッドの行内呼出しの結果を別のデータ項目に格納し,そのデータ項目をUSING指定に指定してください.