例題
[C3337.cob] 000001 @OPTIONS LANGLVL(85),CONF(74) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3337. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 SND PIC X(10). 000008 01 DLM. 000009 02 DLMB OCCURS 2 PIC X. 000010 01 INTO1 PIC X(10). 000011 01 INTO2 PIC X(10). 000012 01 DLMI1 PIC X(2). 000013 01 DLMI2 PIC X(2). 000014 01 COUNT1 PIC 9(2). 000015 01 COUNT2 PIC 9(2). 000016 01 PTR PIC 9(2). 000017 01 TALLY1 PIC 9(2). 000018 PROCEDURE DIVISION. 000019 UNSTRING SND DELIMITED BY DLMB(TALLY) 000020 INTO INTO1 DELIMITER IN DLMI1 COUNT IN COUNT1 000021 INTO2 DELIMITER IN DLMI2 COUNT IN COUNT2 000022 POINTER PTR 000023 TALLYING TALLY1. 000024 END PROGRAM C3337.
C3337.cob 19: JMN3337I-I (CONF)UNSTRING文において，添字または部分参照子の評価は，文の実行直前に1回だけ行われます．
