引数の説明
DEPENDING ON,KEY IS,INDEXED BY |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1298. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 TBL1. 000006 02 DATA-1 PIC X OCCURS 2 ASCENDING KEY "C1298". 000007 END PROGRAM C1298.
C1298.cob (6) : JMN1298I-S OCCURS句中に指定されているKEY IS指定の構文が誤っています.OCCURS句中のそれ以降の指定が無効になります.