NetCOBOL V11.0 メッセージ集

2.4.189 JMN2384I-S

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

埋め込みの説明

@1@ : APPLY REORG-CRITERIA．

例題

[P2384.cob]
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句のデータ名は，基底場所節以外に定義されていなければなりません．

P2384.cob 11: JMN2766I-W このシステムでは，'APPLY REORG-CRITERIA'は注釈として扱います．

詳細な説明

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