引数の説明
LINAGEまたはOCCURS. |
エラーの原因となったデータ名. |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C23851.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT AFILE1 ASSIGN DD1
000007 ORGANIZATION INDEXED
000008 RECORD KEY IS RR1.
000009 DATA DIVISION.
000010 BASED-STORAGE SECTION.
000011 01 RK1 PIC X(5).
000012 FILE SECTION.
000013 FD AFILE1 .
000014 01 AREC1.
000015 02 RR1 PIC X(2).
000016 WORKING-STORAGE SECTION.
000017 01 WREC1.
000018 02 BREC2 OCCURS 10 DEPENDING ON RK1 PIC X(2).
000019 PROCEDURE DIVISION.
000020 END PROGRAM C23851.
C23851.cob (18) : JMN2385I-S OCCURS句のデータ名'RK1'は,基底場所節以外に定義されていなければなりません.データ名は,無効になります.