例
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 型条件の左辺は,オブジェクト参照一意名でなければなりません.