引数の説明
プロパティ名/フィールド名 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3503. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS ATTR-1 AS "MyClass1.AttributeA". 000007 SPECIAL-NAMES. 000008 CUSTOM-ATTRIBUTE AT-MC-1 CLASS ATTR-1 000009 PROPERTY OBJDCML IS +35.5. 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 PROCEDURE DIVISION. 000013 END PROGRAM C3503.
000001 CLASS-ID. ATR-A AS "MyClass1.AttributeA" 000002 INHERITS SYSATTR. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS SYSATTR AS "System.Attribute" 000007 CLASS SYSDCML AS "System.Decimal". 000008 OBJECT. 000009 ENVIRONMENT DIVISION. 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 OBJDCML OBJECT REFERENCE SYSDCML PROPERTY. 000013 PROCEDURE DIVISION. 000014 METHOD-ID. NEW. 000015 DATA DIVISION. 000016 LINKAGE SECTION. 000017 PROCEDURE DIVISION. 000018 END METHOD NEW. 000019 END OBJECT. 000020 END CLASS ATR-A.
C3503.cob (8) : JMN3503I-S 'OBJDCML'は,CUSTOM-ATTRIBUTE句のPROPERTY指定として許されない型のプロパティまたはフィールドです.PROPERTY句を無効にします.