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

2.3.345 JMN2566I-S

RETURN文には，AT END指定を記述しなければなりません．
AT END CONTINUEが指定されたものとみなします．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2566.
      000003 ENVIRONMENT    DIVISION.
      000004 INPUT-OUTPUT    SECTION.
      000005 FILE-CONTROL.
      000006     SELECT SRTFILE ASSIGN TO SYS003.
      000007 I-O-CONTROL.
      000008 DATA           DIVISION.
      000009 FILE            SECTION.
      000010 SD SRTFILE.
      000011 01 SRTREC.
      000012   02 SRTKEY    PIC X(8).
      000013   02           PIC X(72).
      000014 WORKING-STORAGE SECTION.
      000015 01 WFS1        PIC X(2).
      000016 PROCEDURE      DIVISION.
      000017     RETURN SRTFILE
      000018 END PROGRAM    P2566.
    

P2566.cob (17) : JMN2566I-S RETURN文には，AT END指定を記述しなければなりません．AT END CONTINUEが指定されたものとみなします．

詳細な説明

RETURN文を実行すると，SORT文またはMERGE文に指定したキーの並びによって決められた次のレコードが指定したファイルから引き取られます．引き取られるレコードがなくなったときに行う処理を，AT END指定で記述します．