引数の説明
"オブジェクトプロパティ" |
例
000001 CLASS-ID. C3422.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004 REPOSITORY.
000005 OBJECT.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 01 PROP-DATA PIC 9(10) PROPERTY.
000009 01 OBJ3422 OBJECT REFERENCE C3422.
000010 PROCEDURE DIVISION.
000011 METHOD-ID. C3422-M.
000012 DATA DIVISION.
000013 WORKING-STORAGE SECTION.
000014 01 X04 PIC X(4) VALUE "ABCD".
000015 LINKAGE SECTION.
000016 PROCEDURE DIVISION.
000017 MOVE PROP-DATA OF OBJ3422 (1:4) TO X04. *> JMN3422I-S
000018 END METHOD C3422-M.
000019 END OBJECT.
000020 END CLASS C3422.
C3422.cob (17) : JMN3422I-S オブジェクトプロパティは部分参照できません.