引数の説明
CALLまたはINVOKE. |
オブジェクトプロパティまたはフィールド参照. |
例
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID. C5585.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 REPOSITORY.
000006 IDENTIFICATION DIVISION.
000007 OBJECT.
000008 DATA DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01 PR5585 PIC S9(9) COMP-5 PROPERTY.
000011 PROCEDURE DIVISION.
000012 IDENTIFICATION DIVISION.
000013 METHOD-ID. M5585.
000014 DATA DIVISION.
000015 LINKAGE SECTION.
000016 01 LK1 PIC S9(9) COMP-5.
000017 PROCEDURE DIVISION RETURNING LK1.
000018 END METHOD M5585.
000019 END OBJECT.
000020 END CLASS C5585.
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P5585.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 REPOSITORY.
000006 CLASS C5585.
000007 DATA DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 WOBR OBJECT REFERENCE C5585.
000010 PROCEDURE DIVISION.
000011 INVOKE WOBR "M5585"
000012 RETURNING PR5585 OF WOBR
000013 END PROGRAM P5585.
P5585.cob (12) : JMN5585I-S INVOKE文のRETURNING指定にオブジェクトプロパティは記述できません.INVOKE文を無効とします.