例題
[C3207.cob] 000001 @OPTIONS CONF(68) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3207. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 A PIC X(10) VALUE "ABC/*/*DEF". 000008 01 B PIC X(5). 000009 01 C PIC X(5). 000010 PROCEDURE DIVISION. 000011 P-START. 000012 UNSTRING A DELIMITED BY ALL "/*" 000013 INTO B DELIMITER IN C.
C3207.cob 12: JMN3337I-I (CONF)UNSTRING文において，添字または部分参照子の評価は，文の実行直前に1回だけ行われます．
C3207.cob 12: JMN3207I-I (CONF)UNSTRING文で，ALL指定ありのDELIMITED BY指定とDELIMITER IN指定の両方が記述されています．UNSTRING文の送出し側項目中に区切り文字の並びが存在しても，DELIMITER IN指定の項目には，その1回分の区切り文字が転記されるだけです．
