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

2.3.187 JMN2384I-S

@1@句のデータ名は，基底場所節以外に定義されていなければなりません．

引数の説明

@1@:

APPLY REORG-CRITERIA．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2384.
      000003 ENVIRONMENT    DIVISION.
      000004 INPUT-OUTPUT    SECTION.
      000005 FILE-CONTROL.
      000006     SELECT IXFILE1 ASSIGN TO I-SYS001
      000007       ACCESS MODE    IS RANDOM
      000008       NOMINAL KEY    IS WNKEY
      000009       RECORD KEY     IS WRKEY.
      000010 I-O-CONTROL.
      000011     APPLY REORG-CRITERIA TO WRORG ON IXFILE1.
      000012 DATA           DIVISION.
      000013 BASED-STORAGE   SECTION.
      000014 01 WRORG        PIC X(8).
      000015 FILE            SECTION.
      000016 FD IXFILE1.
      000017 01 IXF1REC.
      000018   02 WRKEY      PIC X(2).
      000019   02            PIC X(80).
      000020 WORKING-STORAGE SECTION.
      000021 01 WNKEY        PIC X(2).
      000022 PROCEDURE      DIVISION.
      000023 END PROGRAM    P2384.
    

P2384.cob (11) : JMN2384I-S APPLY REORG-CRITEREA句のデータ名は，基底場所節以外に定義されていなければなりません．

詳細な説明

APPLY REORG-CRITERIA句は，OSIV系システムの固有機能です．