引数の説明
PROPERTY |
例
000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5119. 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 BB. 000012 02 PROP1 PIC X(8). 000013 01 AA. 000014 02 PROP1 PIC X(8). 000015 01 PROP1 PIC S9(8) BINARY PROPERTY. 000016 PROCEDURE DIVISION. 000017 IDENTIFICATION DIVISION. 000018 METHOD-ID. MO1. 000019 DATA DIVISION. 000020 WORKING-STORAGE SECTION. 000021 01 OBR1 USAGE OBJECT REFERENCE SYSOBJ. 000022 PROCEDURE DIVISION. 000023 DISPLAY PROP1 OF OBR1. 000024 END METHOD MO1. 000025 END OBJECT. 000026 END CLASS C5119.
C5119.cob (15) : JMN5119I-S PROPERTY句は修飾なしで一意に参照可能な項目にだけ指定できます.PROPERTY句は無効になります.