例題
[C3091.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3091. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(10). 000007 01 B PIC XX. 000008 01 C PIC X(4). 000009 PROCEDURE DIVISION. 000010 P-START. 000011 UNSTRING A(1:6) DELIMITED BY B INTO C. 000012 STOP RUN.
C3091.cob 11: JMN3091I-S 部分参照された項目は，UNSTRING文の送出し側項目に指定できません．
