NetCOBOL V11.0 メッセージ集

2.4.82 JMN2132I-S

SAME AREA句のファイル名をSAME RECORD AREA句に指定した場合，同じSAME AREA句のすべてのファイル名も，SAME RECORD AREA句に指定しなければなりません．

例題

[P2132.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2132.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT SQFILE2 ASSIGN TO SYS002.
000008     SELECT SQFILE3 ASSIGN TO SYS003.
000009 I-O-CONTROL.
000010     SAME AREA SQFILE1 SQFILE2
000011     SAME RECORD AREA SQFILE1 SQFILE3.
000012 DATA           DIVISION.
000013 FILE            SECTION.
000014 FD SQFILE1.
000015 01 SQF1REC.
000016   02                   PIC X(80).
000017 FD SQFILE2.
000018 01 SQF2REC.
000019   02                   PIC X(80).
000020 FD SQFILE3.
000021 01 SQF3REC.
000022   02                   PIC X(80).
000023 WORKING-STORAGE SECTION.
000024 01 WFS1        PIC X(2).
000025 PROCEDURE      DIVISION.
000026 END PROGRAM    P2132.

P2132.cob 10: JMN2132I-S SAME AREA句のファイル名をSAME RECORD AREA句に指定した場合，同じSAME AREA句のすべてのファイル名も，SAME RECORD AREA句に指定しなければなりません．