引数の説明
記述された語 |
例
// custom-attribute using System; [AttributeUsage(AttributeTargets.Method,Inherited=true,)] public class atcls : System.Attribute { public const string L1 = "literal"; string title; string number = "1"; public atcls(string a):base() {} public string prop1 { get { return title;} set { title = number;} } }
000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5258. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C1 AS "atcls" 000007 . 000008 SPECIAL-NAMES. 000009 CUSTOM-ATTRIBUTE ATTR1 000010 CLASS C1 USING "COBOL" 000011 PROPERTY L1 IS "PROPERTY" 000012 . 000003 STATIC. 000014 PROCEDURE DIVISION. 000015 END STATIC. 000016 END CLASS C5258.
C5258.cob (9) : JMN5258I-S CUSTOM-ATTRIBUTE句に指定されたL1は,プロパティ名,またはフィールド名でなければなりません.