SUM clause in REPORT WRITER - Problems

From: Lueko Willms (l.willms_at_jpberlin.de)
Date: 12/21/04

  • Next message: Lueko Willms: "FUNCTION LENGTH() in PERFORM VARYING" 
    Date: 21 Dec 2004 18:39:00 GMT

    Using Fujitsu's COBOL 3.0, I want to write a REPORT using REPORT
    WRITER. The compiler flags the SUM clauses in the CONTROL FOOTING
    FINAL, this way or that way.

    Here is the relevant part of the program -- the data names are of
    course all in German -- parts of the WORKING-STORAGE SECTION and the
    full REPORT SECTION.

    [code]
     WORKING-STORAGE SECTION.

     01 Je-Gespraech .
         02 Merker DISPLAY.
            03 Tarifklasse PIC X.
               88 ist-Ortsgespraech VALUE 'L'.
               88 ist-Ferngespraech VALUE 'D'.
         02 Betraege COMP.
            03 Tarif PIC 9V9(5) .
            03 Grundpreis PIC 9(6)V99 .
            03 Basissteuer PIC 9(6)V99 .
            03 Entfernungssteuer PIC 9(6)V99 .
            03 Summe PIC 9(6)V99 .

     01 Kumuliert COMP.
         02 Basissteuer PIC 9(12)V99 .
         02 Entfernungssteuer PIC 9(12)V99 .
         02 Summe PIC 9(12)V99 .

     REPORT SECTION.

     RD Ausgabereport
            CONTROLS ARE FINAL
            .
     01 Einzige-Zeile LINE PLUS 1 TYPE DETAIL
            .
         02 Dauer PIC ZZZ.ZZ9 COLUMN 1
                            SOURCE Gespraechsdauer
                            .
         02 Tarifklasse PIC X COLUMN 9
                            SOURCE Tarifklasse OF Je-Gespraech
                            .
         02 Tarif PIC 9,9999 COLUMN 10
                            SOURCE Tarif OF Je-Gespraech
                            .
         02 Grundpreis PIC ZZZ.ZZZ.ZZ9,99 COLUMN 18
                            SOURCE Grundpreis OF Je-Gespraech
                            .
         02 Basissteuer PIC ZZZ.ZZZ.ZZ9,99 COLUMN 38
                            SOURCE Basissteuer OF Je-Gespraech
                            .
         02 Entfernungssteuer PIC ZZZ.ZZZ.ZZ9,99 COLUMN 58 BLANK WHEN ZERO
                            SOURCE Entfernungssteuer OF Je-Gespraech
                            .
         02 Summe PIC ZZZ.ZZZ.ZZ9,99 COLUMN 78
                            SOURCE Summe OF Je-Gespraech
                            .

     01 Summenzeile LINE PLUS 2 TYPE CONTROL FOOTING FINAL
         .
         02 Grundpreis-R PIC ZZZ.ZZZ.ZZ9,99 COLUMN 18
                            SUM Grundpreis OF Ausgabereport RESET ON FINAL
                            .
         02 Basissteuer-R PIC ZZZ.ZZZ.ZZ9,99 COLUMN 38
                            SUM Basissteuer OF Ausgabereport RESET ON FINAL
                            .
         02 Entfernungssteuer-R PIC ZZZ.ZZZ.ZZ9,99 COLUMN 58 BLANK WHEN ZERO
                            SUM Entfernungssteuer OF Ausgabereport RESET ON FINAL
                            .
         02 Summe-R PIC ZZZ.ZZZ.ZZ9,99 COLUMN 78
                            SUM Summe OF Ausgabereport RESET ON FINAL
                            .

    [/code]

    The above, i.e. the SUM-clauses in "Summenzeile", are flagged by the
    Fujitsu-Compiler (Version 3.0) like this:

    TelcoBM.COB 126: JMN2414I-S IF 'UPON' IS NOT SPECIFIED IN SUM CLAUSE,
      DATA-NAME 'GRUNDPREIS' IN REPORT SECTION MUST BE SUM COUNTER.
      DATA -NAME IGNORED.
    TelcoBM.COB 129: JMN2414I-S IF 'UPON' IS NOT SPECIFIED IN SUM CLAUSE,
      DATA-NAME 'BASISSTEUER' IN REPORT SECTION MUST BE SUM COUNTER.
      DATA-NAME IGNORED.
    TelcoBM.COB 132: JMN2414I-S IF 'UPON' IS NOT SPECIFIED IN SUM CLAUSE,
      DATA-NAME 'ENTFERNUNGSSTEUER' IN REPORT SECTION MUST BE SUM COUNTER.
      DATA-NAME IGNORED.
    TelcoBM.COB 135: JMN2414I-S IF 'UPON' IS NOT SPECIFIED IN SUM CLAUSE,
      DATA-NAME 'SUMME' IN REPORT SECTION MUST BE SUM COUNTER.
      DATA-NAME IGNORED.

    When I add "UPON Einzige-Zeile" it comes with another error message:

    [code]
     01 Summenzeile LINE PLUS 2 TYPE CONTROL FOOTING FINAL
         .
         02 Grundpreis-R PIC ZZZ.ZZZ.ZZ9,99 COLUMN 18
                            SUM Grundpreis OF Ausgabereport UPON Einzige-Zeile RESET ON FINAL
                            .
         02 Basissteuer-R PIC ZZZ.ZZZ.ZZ9,99 COLUMN 38
                            SUM Basissteuer OF Ausgabereport UPON Einzige-Zeile RESET ON FINAL
                            .
         02 Entfernungssteuer-R PIC ZZZ.ZZZ.ZZ9,99 COLUMN 58 BLANK WHEN ZERO
                            SUM Entfernungssteuer OF Ausgabereport UPON Einzige-Zeile RESET ON FINAL
                            .
         02 Summe-R PIC ZZZ.ZZZ.ZZ9,99 COLUMN 78
                            SUM Summe OF Ausgabereport UPON Einzige-Zeile RESET ON FINAL
                            .
    [/code]

    126: JMN2413I-S IF 'UPON' IS SPECIFIED IN SUM CLAUSE,
       IDENTIFIER 'GRUNDPREIS' IN SUM CLAUSE MUST
       NOT BE DATA-NAME IN REPORT SECTION. IDENTIFIER IGNORED.
    129: JMN2413I-S IF 'UPON' IS SPECIFIED IN SUM CLAUSE,
       IDENTIFIER 'BASISSTEUER' IN SUM CLAUSE MUST
       NOT BE DATA-NAME IN REPORT SECTION. IDENTIFIER IGNORED.
    132: JMN2413I-S IF 'UPON' IS SPECIFIED IN SUM CLAUSE,
       IDENTIFIER 'ENTFERNUNGSSTEUER' IN SUM CLAUSE MUST
       NOT BE DATA-NAME IN REPORT SECTION. IDENTIFIER IGNORED.
    135: JMN2413I-S IF 'UPON' IS SPECIFIED IN SUM CLAUSE,
       IDENTIFIER 'SUMME' IN SUM CLAUSE MUST
       NOT BE DATA-NAME IN REPORT SECTION. IDENTIFIER IGNORED.

       What's up? I think this is correct COBOL code. Isn't it?

    MfG,
    L. Willms

    Lüko Willms http://www.willms-edv.de
    /--------- L.WILLMS@jpberlin.de -- Alle Rechte vorbehalten --

    Das Buch, das in der Welt am ehesten verboten zu werden verdiente, wäre ein Katalogus von verbotenen Büchern. -G.C.Lichtenberg

  • Next message: Lueko Willms: "FUNCTION LENGTH() in PERFORM VARYING"

    Relevant Pages

    • Re: SUM clause in REPORT WRITER - Problems
      ... I want to write a REPORT using REPORT ... > DATA-NAME 'BASISSTEUER' IN REPORT SECTION MUST BE SUM COUNTER. ... > IDENTIFIER 'GRUNDPREIS' IN SUM CLAUSE MUST ... > IDENTIFIER 'BASISSTEUER' IN SUM CLAUSE MUST ...
      (comp.lang.cobol)
    • Re: SUM clause in REPORT WRITER - Problems
      ... sufficiently qualified by the REPORT name, ... later confirmed by Syntax Rule for the SUM CLAUSE ... Fujitsu compiler said again and again in its error messages: ... That's what Fujitsu's error message 2114 wanted to convey ...
      (comp.lang.cobol)