例題
[C1790.cob] 000001 @OPTIONS THREAD(MULTI),NOSHREXT 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1790. 000004** 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 A PIC X EXTERNAL DEF. 000008** 000009 PROCEDURE DIVISION. 000010 CONTINUE. 000011 END PROGRAM C1790.
C1790.cob 7: JMN1790I-S 翻訳オプションTHREAD(MULTI)，NOSHREXTが有効な場合，EXTERNAL句にDEFINITIONおよびREFERENCEは指定できません．DEFINITIONまたはREFERENCEは無効になります．
