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

2.3.159 JMN2292I-S

END-OF-PAGE指定のWRITE文で参照されるファイルの入出力領域の個数は，1個でなければなりません．
RESERVE句を無効とし，入出力領域の個数を1個とみなします．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2292.
      000003 ENVIRONMENT    DIVISION.
      000004 INPUT-OUTPUT    SECTION.
      000005 FILE-CONTROL.
      000006     SELECT SQFILE1 ASSIGN TO SYS001
      000007        RESERVE 10 AREAS.
      000008 I-O-CONTROL.
      000009 DATA           DIVISION.
      000010 FILE            SECTION.
      000011 FD SQFILE1 .
      000012 01 SQF1REC.
      000013   02           PIC X(80).
      000014 WORKING-STORAGE SECTION.
      000015 PROCEDURE      DIVISION.
      000016     PERFORM WITH NO LIMIT
      000017       WRITE SQF1REC
      000018         AT END-OF-PAGE
      000019           DISPLAY "END OF PAGE"
      000020           EXIT PERFORM
      000021       END-WRITE
      000022     END-PERFORM
      000023 END PROGRAM    P2292.
    

P2292.cob (11) : JMN2292I-S END-OF-PAGE指定のWRITE文で参照されるファイルの入出力領域の個数は，1個でなければなりません．RESERVE句を無効とし，入出力領域の個数を1個とみなします．

詳細な説明

RESERVE AREA句に1以外の値が指定されています．

RESERVE AREA句はこのシステムでは注釈扱いです．(実行時には意味を持ちませんが，翻訳時には句の解析は行われます)