NetCOBOL V11.0 メッセージ集

2.4.280 JMN2489I-S

SUM句またはSOURCE句の添字または部分参照子には，合計カウンタを指定してはなりません． そのまま処理を続行します．

例題

[P2489.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2489.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD         PIC 9(2).
000014 01 .
000015   02 WITM       PIC 9(2) OCCURS 10.
000016 REPORT          SECTION.
000017 RD REP1 PAGE 66
000018       CONTROL CTLD.
000019 01 TYPE CF CTLD.
000020   02 WSC1      PIC S9(4) SUM WITM(2).
000021   02 WSC2      PIC S9(4) SUM WITM(WSC1).
000022 PROCEDURE      DIVISION.
000023 END PROGRAM    P2489.

P2489.cob 21: JMN2489I-S SUM句またはSOURCE句の添字または部分参照子には，合計カウンタを指定してはなりません．そのまま処理を続行します．