NetCOBOL for .NET V7.0 メッセージ集

2.5.7 JMN5101I-S

@1@句はプログラム定義にだけ記述できます．
@1@の指定は無効になります．

引数の説明

@1@:

APPLY SAVED-AREA, APPLY MULTICONVERSATION-MODE, APPLY RECORD-OVERFLOW, APPLY CORE-INDEXあるいはAPPLY REORG-CRITERIA

例

      000001 IDENTIFICATION DIVISION.
      000002 CLASS-ID.      C5101 INHERITS BASE.
      000003 ENVIRONMENT    DIVISION.
      000004 CONFIGURATION   SECTION.
      000005 SPECIAL-NAMES.
      000006     ON-YOMI IS JIS1.
      000007 REPOSITORY.
      000008     CLASS BASE AS "System.Object".
      000009 IDENTIFICATION DIVISION.
      000010 OBJECT.
      000011 ENVIRONMENT    DIVISION.
      000012 PROCEDURE      DIVISION.
      000013 IDENTIFICATION DIVISION.
      000014 METHOD-ID.     M5101.
      000015 ENVIRONMENT    DIVISION.
      000016 INPUT-OUTPUT    SECTION.
      000017 FILE-CONTROL.
      000018     SELECT CSFILE4 ASSIGN TO SYS001
      000019       FILE STATUS    IS WFS1.
      000020 I-O-CONTROL.
      000021     APPLY MULTICONVERSATION-MODE TO CSFILE4
      000022     APPLY SAVED-AREA TO WSVAR ON CSFILE4.
      000023 DATA           DIVISION.
      000024 FILE            SECTION.
      000025 FD CSFILE4.
      000026 01 CSF4REC.
      000027   02                   PIC X(80).
      000028 WORKING-STORAGE SECTION.
      000029 01 WFS1        PIC X(2).
      000030 01 WSVAR       PIC X(80).
      000031 END METHOD     M5101.
      000032 END OBJECT.
      000033 END CLASS    C5101.
    

C5101.cob (21) : JMN5101I-S APPLY MULTICONVERSATION-MODE句はプログラム定義にだけ記述できます．APPLY MULTICONVERSATION-MODEの指定は無効になります．
C5101.cob (22) : JMN5101I-S APPLY SAVED-AREA句はプログラム定義にだけ記述できます．APPLY SAVED-AREAの指定は無効になります．