ページの先頭行へ戻る
NetCOBOL for .NET V8.0 メッセージ集
FUJITSU Software

2.3.214 JMN2418I-S

SOURCE句の一意名が報告書節に定義されている場合,その一意名は,PAGE-COUNTER,LINE-COUNTERまたはそのSOURCE句が指定されたデータ名と同一報告書中の合計カウンタでなければなりません.

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2418.
      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 REPORT          SECTION.
      000015 RD REP1 PAGE 66
      000016       CONTROL CTLD.
      000017 01 DE-1 TYPE DE.
      000018   02 LINE PLUS 1.
      000019     03        COLUMN 10
      000020               PIC S9(4) SOURCE TARGET.
      000021 01 TYPE CF CTLD.
      000022   02 LINE PLUS 1.
      000023    03 TARGET COLUMN 5  PIC X(10) VALUE SPACE.
      000024    03 SC1    COLUMN 20 PIC S9(4) SUM CTLD.
      000025 PROCEDURE      DIVISION.
      000026 END PROGRAM    P2418.
    

P2418.cob (20) : JMN2418I-S SOURCE句の一意名が報告書節に定義されている場合,その一意名は,PAGE-COUNTER,LINE-COUNTERまたはそのSOURCE句が指定されたデータ名と同一報告書中の合計カウンタでなければなりません.