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

2.4.89 JMN3128I-S

CONTROL AREA句は,通信ファイル以外に指定できません.

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID. C3128.
      000003 ENVIRONMENT  DIVISION.
      000004 INPUT-OUTPUT SECTION.
      000005 FILE-CONTROL.
      000006     SELECT FILE-1  ASSIGN TO S-SYS001.
      000007 DATA  DIVISION.
      000008 FILE SECTION.
      000009 FD  FILE-1.
      000010    01 REC-1 PIC X(80).
      000011 WORKING-STORAGE SECTION.
      000012    01 CNTL-DATA PIC X(36).
      000013 PROCEDURE  DIVISION.
      000014     WRITE REC-1 CONTROL AREA IS CNTL-DATA.
      000015     STOP RUN.
    

C3128.cob (14) : JMN3128I-S CONTROL AREA句は,通信ファイル以外に指定できません.