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

2.4.88 JMN3127I-S

FROM指定の作用対象@1@とレコード名@2@は,同じ領域を占有することはできません.

引数の説明

@1@:

FROM指定の一意名

@2@:

レコード名

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID.  C3127.
      000003 ENVIRONMENT  DIVISION.
      000004 INPUT-OUTPUT SECTION.
      000005 FILE-CONTROL.
      000006     SELECT FILE-1 ASSIGN TO SYS001.
      000007 DATA  DIVISION.
      000008 FILE SECTION.
      000009   FD FILE-1.
      000010    01 REC-1.
      000011     02 REC-1-1 PIC XX.
      000012     02 REC-1-2 PIC XX.
      000013     02 FILLER  PIC X(76).
      000014 PROCEDURE  DIVISION.
      000015     WRITE REC-1 FROM REC-1-2.
      000016     STOP RUN.
    

C3127.cob (15) : JMN3127I-S FROM指定の作用対象'REC-1-2'とレコード名'REC-1'は,同じ領域を占有することはできません.