NetCOBOL V11.0 メッセージ集

2.5.139 JMN3202I-S

@1@文に，一つのファイル@2@を重複して指定することはできません． 最初の指定だけが受け入れられます．

埋め込みの説明

@1@ : 'OPEN'，'CLOSE'
@2@ : ファイル名

例題

[C3202.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3202.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO SYS001.
000007     SELECT FILE-2 ASSIGN TO SYS002.
000008 DATA DIVISION.
000009 FILE SECTION.
000010   FD FILE-1.
000011    01 REC-1 PIC X(80).
000012   FD FILE-2.
000013    01 REC-2 PIC X(80).
000014 PROCEDURE DIVISION.
000015     OPEN INPUT  FILE-1 FILE-2
000016          OUTPUT FILE-1.
000017     STOP RUN.

C3202.cob 16: JMN3202I-S OPEN文に，一つのファイル'FILE-1'を重複して指定することはできません．最初の指定だけが受け入れられます．