例題
[C5569.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5569. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 IDENTIFICATION DIVISION. 000007 OBJECT. 000008 PROCEDURE DIVISION. 000009 IDENTIFICATION DIVISION. 000010 METHOD-ID. M5569. 000011 DATA DIVISION. 000012 WORKING-STORAGE SECTION. 000013 01 WX PIC X(4). 000014 LINKAGE SECTION. 000015 PROCEDURE DIVISION. 000016 DECLARATIVES. 000017 ERR1 SECTION. USE GLOBAL AFTER EXCEPTION C5569. 000018 DISPLAY "ERROR SECTION". 000019 END DECLARATIVES. 000020 END METHOD M5569. 000021 END OBJECT. 000022 END CLASS C5569.
C5569.cob 17: JMN5569I-S クラス名を指定するUSE文にはGLOBAL指定は記述できません．GLOBAL指定は無効になります．
