引数の説明
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句は無効になります.