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

2.3.43 JMN2067I-S

RECORD CONTAINS 0のファイルは，順ファイルでなければなりません．
RECORD CONTAINS句は，無効になります．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2067.
      000003 ENVIRONMENT    DIVISION.
      000004 INPUT-OUTPUT    SECTION.
      000005 FILE-CONTROL.
      000006     SELECT RLFILE1 ASSIGN TO SYS001
      000007       ORGANIZATION   IS RELATIVE.
      000008 I-O-CONTROL.
      000009 DATA           DIVISION.
      000010 FILE            SECTION.
      000011 FD RLFILE1
      000012      RECORD CONTAINS 0.
      000013 01 RLF1REC.
      000014   02           PIC X(80).
      000015 WORKING-STORAGE SECTION.
      000016 PROCEDURE      DIVISION.
      000017 END PROGRAM    P2067.
    

P2067.cob (12) : JMN2067I-S RECORD CONTAINS 0のファイルは，順ファイルでなければなりません．RECORD CONTAINS句は，無効になります．