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

2.3.474 JMN2819I-S

表示ファイル(編成GS)のAPPLY MULTICONVERSATION-MODE句を指定した場合,表示ファイル(編成GS)のAPPLY SAVED-AREA句を指定しなければなりません.

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID. P2819.
      000003 ENVIRONMENT DIVISION.
      000004 INPUT-OUTPUT SECTION.
      000005 FILE-CONTROL.
      000006     SELECT AFILE1 ASSIGN GS-DD1.
      000007 I-O-CONTROL.
      000008     APPLY MULTICONVERSATION-MODE.
      000009 DATA DIVISION.
      000010 FILE SECTION.
      000011   FD AFILE1.
      000012   01 AREC.
      000013     02 RKY1  PIC X(80).
      000014 PROCEDURE DIVISION.
      000015 END PROGRAM P2819.
    

P2819.cob (8) : JMN2819I-S 表示ファイル(編成GS)のAPPLY MULTICONVERSATION-MODE句を指定した場合,表示ファイル(編成GS)のAPPLY SAVED-AREA句を指定しなければなりません.