NetCOBOL V11.1 メッセージ集

2.4.90 JMN2149I-S

@1@句のデータ名は，固定長項目でなければなりません．

埋め込みの説明

@1@ : TRACK-AREA，CONTROL AREA，ALTERNATE RECORD KEY，RECORD KEY，NOMINAL KEYまたはAPPLY REOROG CRITEREA．

例題

[P2149.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2149.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT IXFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS INDEXED
000008       RECORD KEY     IS WRKY1.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD IXFILE1.
000013 01 IXF1REC.
000014   02 WDPND     PIC S9(4).
000015   02 WRKY1.
000016     03         PIC X(1)
000017                OCCURS 10 DEPENDING ON WDPND.
000018   02           PIC X(80).
000019 WORKING-STORAGE SECTION.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2149.

P2149.cob 8: JMN2149I-S RECORD KEY句のデータ名は，固定長項目でなければなりません．

詳細な説明

句に指定された項目は，可変反復データ項目(OCCURS句にDEPENDING指定を指定したデータ項目)であってはなりません．