例題
[C5601.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5601. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS SHEET AS "*COM:EXCEL:WORKSHEET" 000007 CLASS FJBASE. 000008 OBJECT. 000009 PROCEDURE DIVISION. 000010 METHOD-ID. M5601. 000011 DATA DIVISION. 000012 WORKING-STORAGE SECTION. 000013 01 WEXCEL OBJECT REFERENCE SHEET. 000014 01 WOBR OBJECT REFERENCE FJBASE. 000015 PROCEDURE DIVISION. 000016 SET WEXCEL TO WOBR AS SHEET. 000017 END METHOD M5601. 000018 END OBJECT. 000019 END CLASS C5601.
C5601.cob 16: JMN5601I-S オブジェクト指定子に特殊クラスのクラス名を指定する場合,ASの左側は特殊クラスのオブジェクト参照一意名でなければなりません.