例題
[P2901.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2901. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WGRP. 000007 02 WOCC PIC X(1) 000008 OCCURS 10 INDEXED BY IX1. 000009 PROCEDURE DIVISION. 000010 MOVE SPACE TO WOCC(IX1 + 0) 000011 END PROGRAM P2901.
P2901.cob 10: JMN2901I-W 指標名に続く+または-の直後に0は記述できません．指定されたとおりに受け入れます．
詳細な説明
添字の値は，演算子が+のときは+に続く値を指標名の値(出現番号に対応する値)に加えたものに，また，演算子が-のときは-に続く値を指標名の値から引いたものになります．符号に続く値として0は指定できません．
