例題
[C5567.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5567. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS EXCEL AS "*OLE". 000007 IDENTIFICATION DIVISION. 000008 OBJECT. 000009 PROCEDURE DIVISION. 000010 IDENTIFICATION DIVISION. 000011 METHOD-ID. M5567A. 000012 DATA DIVISION. 000013 WORKING-STORAGE SECTION. 000014 PROCEDURE DIVISION. 000015 DISPLAY SELF :: "M5567B" (EXCEL) 000016 END METHOD M5567A. 000017 IDENTIFICATION DIVISION. 000018 METHOD-ID. M5567B. 000019 DATA DIVISION. 000020 LINKAGE SECTION. 000021 01 WOBJ OBJECT REFERENCE. 000022 01 WRTSTR PIC X(2). 000023 PROCEDURE DIVISION 000024 USING WOBJ 000025 RETURNING WRTSTR. 000026 END METHOD M5567B. 000027 END OBJECT. 000028 END CLASS C5567.
C5567.cob 15: JMN5567I-S メソッドの行内呼出しの引数に指定するクラス名は,特殊クラスのクラス名であってはなりません.
詳細な説明
環境部のリポジトリ段落のクラス指定子の定数の値が以下のいずれかである場合,そのクラス名は特殊クラスのクラス名になります.
"*COM" (または"*OLE")
"*COM-ARRAY" (または"*OLE-ARRAY")
"*COM-EXCEPTION" (または"*OLE-EXCEPTION")
"*COB-BINDTABLE"
"*COM:COMサーバ名:COMクラス名" (COMサーバ名=型ライブラリとの対応付けに使用する任意の名前, COMクラス名=dispinterface名またはcoclass名)