2.4.43 JMN2067I-S

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

例題

[P2067.cob]
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句は，無効になります．