NetCOBOL for .NET V8.0 メッセージ集

2.2.201 JMN1326I-S

ALTERNATE RECORD KEY句は，索引ファイル以外に指定できません．

例

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID.     C1326.
      000003 ENVIRONMENT     DIVISION.
      000004 INPUT-OUTPUT    SECTION.
      000005 FILE-CONTROL.
      000006     SELECT IN-F ASSIGN SYS000
      000007     RECORD KEY           IS FNO
      000008     ALTERNATE RECORD KEY IS FGPNO
      000009     .
      000010 DATA            DIVISION.
      000011 FILE            SECTION.
      000012 FD  IN-F.
      000013 01  IN-R.
      000014   02  FNO       PIC 9(4).
      000015   02  FGP       PIC 9(4).
      000016   02  FNAME     PIC X(30).
      000017 END PROGRAM C1326.
    

C1326.cob (8) : JMN1326I-S ALTERNATE RECORD KEY句は，索引ファイル以外に指定できません．