例題
[P2569.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2569.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007 02 WOCC PIC X
000008 OCCURS 10 INDEXED BY IX1.
000009 PROCEDURE DIVISION.
000010 MOVE SPACE TO WOCC("12")
000011 END PROGRAM P2569.P2569.cob 10: JMN2569I-S 添字は，算術式または指標名〔+/-整数〕でなければなりません．1が指定されたものとみなします．