例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3543.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 REPOSITORY.
000006 CLASS EX AS "System.Exception"
000007 CLASS STG AS "System.String"
000008 .
000009 DATA DIVISION.
000010 WORKING-STORAGE SECTION.
000011 PROCEDURE DIVISION.
000012 IF STG IS EX THEN
000013 EXIT PROGRAM
000014 END-IF.
000015 END PROGRAM C3543.
C3543.cob (12) : JMN3543I-S 型条件の左辺は，オブジェクト参照一意名でなければなりません．