引数の説明
PROPERTY |
例
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID. C5120.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 REPOSITORY.
000006 CLASS SYSOBJ AS "System.Object".
000007 IDENTIFICATION DIVISION.
000008 OBJECT.
000009 DATA DIVISION.
000010 WORKING-STORAGE SECTION.
000011 01 PROP1 POINTER PROPERTY.
000012 PROCEDURE DIVISION.
000013 IDENTIFICATION DIVISION.
000014 METHOD-ID. MO1.
000015 DATA DIVISION.
000016 WORKING-STORAGE SECTION.
000017 01 OBR1 USAGE OBJECT REFERENCE SYSOBJ.
000018 PROCEDURE DIVISION.
000019 END METHOD MO1.
000020 END OBJECT.
000021 END CLASS C5120.
C5120.cob (11) : JMN5120I-S PROPERTY句はポインタデータ項目には指定できません.PROPERTY句は無効になります.