例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2946.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 TBL.
000007 02 TBL1 OCCURS 10 INDEXED BY IX.
000008 03 T-NO PIC 9(1).
000009 SCREEN SECTION.
000010 01 SC1 PIC 9(1) FROM T-NO("1").
000011 PROCEDURE DIVISION.
000012 END PROGRAM P2946.
P2946.cob (10) : JMN2946I-S 添字は算術式，指標名［+/-整数］またはALLでなければなりません．次の認識できる句，段落，節または部まで無効になります．
詳細な説明
添字は，表(OCCURS句を指定したデータ記述項)の中の要素の出現位置を表す値であり，表要素を一意に参照するために使用します．
添字にALLを書くと，その次元のすべての表要素を，出現順に従って左から右へ指定したかのように扱われます．