例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2945.
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(IX + 1.2).
000011 PROCEDURE DIVISION.
000012 END PROGRAM P2945.
P2945.cob (10) : JMN2945I-S 指標名に続く+または-の直後は整数でなければなりません.次の認識できる句,段落,節または部まで無効になります.
詳細な説明
演算子が+のときは,演算子の後ろに指定した整数の値を,指標名の値(出現番号に対応する値)に加えた値が添字の値になります.演算子が-のときは,演算子の後ろに指定した整数の値を,指標名の値から引いた値が添字の値になります.