2.3.477 JMN2823I-S

表示ファイル(編成GS)が定義されてない場合，@1@句にファイル名を指定しなければなりません．

引数の説明

@1@:

APPLY MULTICONVERSATION-MODEまたはAPPLY SAVED-AREA．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2823.
      000003 ENVIRONMENT    DIVISION.
      000004 INPUT-OUTPUT    SECTION.
      000005 FILE-CONTROL.
      000006     SELECT SQFILE1 ASSIGN TO SYS001
      000007       ORGANIZATION   IS SEQUENTIAL.
      000008 I-O-CONTROL.
      000009     APPLY SAVED-AREA TO WSVAR.
      000010 DATA           DIVISION.
      000011 FILE            SECTION.
      000012 FD SQFILE1.
      000013 01 SQF1REC.
      000014   02           PIC X(80).
      000015 WORKING-STORAGE SECTION.
      000016 01 WSVAR       PIC X(80).
      000017 PROCEDURE      DIVISION.
      000018 END PROGRAM    P2823.

P2823.cob (9) : JMN2823I-S 表示ファイル(編成GS)が定義されてない場合，APPLY SAVED-AREA句にファイル名を指定しなければなりません．