ページの先頭行へ戻る
NetCOBOL for .NET V8.0 メッセージ集
FUJITSU Software

2.4.135 JMN3202I-S

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

引数の説明

@1@:

'OPEN','CLOSE'

@2@:

ファイル名

      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'を重複して指定することはできません.最初の指定だけが受け入れられます.