引数の説明
PUBLIC,PRIVATEまたはPROTECTED. |
例
000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5261. 000003 ENVIRONMENT DIVISION. 000004 STATIC. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 WFILED IS PUBLIC PIC X(2). 000008 PROCEDURE DIVISION. 000009 END STATIC. 000010 END CLASS C5261.
C5261.cob (7) : JMN5261I-S データ記述項にPUBLICを指定する場合,そのデータはCLR型データでなければなりません.
詳細な説明
CUSTOM-ATTRIBUTE句,または,アクセス指定句(PUBLIC/PRIVATE/PROTECTED)は,CLR型のデータ記述項にだけ指定できます.
CLR型のデータを定義するには,以下の条件をすべて満たさなければなりません.ひとつでも満足しない場合はCOBOL独自型のデータとなります.
作業場所節または連絡節で定義されたデータ項目でなければなりません.(※ただしプログラム定義の連絡節データは,用途がオブジェクト参照であるものを除いて,COBOL独自型です)
01または77レベルの基本項目でなければなりません.
ほかの項目を再定義せず,ほかの項目から再定義されません.
再命名されてはなりません.
EXTERNAL句が指定されていてはなりません.
SQLホスト変数であってはなりません.
データの属性は,以下のいずれかでなければなりません.
OBJECT REFERENCE
BINARY-CHAR UNSIGNED
BINARY-SHORT SIGNED
BINARY-LONG SIGNED
BINARY-DOUBLE SIGNED
S9(4) COMP-5
S9(9) COMP-5
S9(18) COMP-5
COMP-1
COMP-2
PIC N
CHARACTER TYPE句,PRINTING POSITION句が指定されていてはなりません.