2.4.129 JMN2218I-S

EXTERNAL句は，@1@句に指定されたファイルに指定できません．

埋め込みの説明

@1@ : SAME AREA，SAME RECORD AREAまたはAPPLY SAVED-AREA．

例題

[P2218.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2218.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT SQFILE2 ASSIGN TO SYS002.
000008 I-O-CONTROL.
000009     SAME AREA SQFILE1 SQFILE2.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02                   PIC X(80).
000015 FD SQFILE2 IS EXTERNAL.
000016 01 SQF2REC.
000017   02                   PIC X(80).
000018 WORKING-STORAGE SECTION.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2218.

P2218.cob 15: JMN2218I-S EXTERNAL句は，SAME AREA句に指定されたファイルに指定できません．