COBCH0853S System error - evaluation stack mismatch

Hi,

I am getting

'COBCH0853S System error - evaluation stack mismatch ... -> in the line 'EVALUATE HV-POS' 

using the VC5 Bytecode Compiler when compiling

EVALUATE HV-POS
       WHEN 02 MOVE 'something ' TO H-TEXT
       ADD 1 TO ZZ-02
       WHEN 67 MOVE 'something else ' TO H-TEXT
       MOVE 'J' TO KEZ-AUSGABE
      WHEN 68 MOVE 'something else x ' TO H-TEXT
      MOVE 'J' TO KEZ-AUSGABE
      WHEN ANY MOVE ' ' TO H-TEXT
END-EVALUATE

Reducing the nestings, e.g.

EVALUATE HV-POS
       WHEN 02 MOVE 'something ' TO H-TEXT
       ADD 1 TO ZZ-02
*       WHEN 67 MOVE 'something else ' TO H-TEXT
*       MOVE 'J' TO KEZ-AUSGABE
      WHEN 68 MOVE 'something else x ' TO H-TEXT
      MOVE 'J' TO KEZ-AUSGABE
      WHEN ANY MOVE ' ' TO H-TEXT
END-EVALUATE

or 

EVALUATE HV-POS
       WHEN 02 MOVE 'something ' TO H-TEXT
       ADD 1 TO ZZ-02
       WHEN 67 MOVE 'something else ' TO H-TEXT
       MOVE 'J' TO KEZ-AUSGABE
      WHEN 68 MOVE 'something else x ' TO H-TEXT
      MOVE 'J' TO KEZ-AUSGABE
*      WHEN ANY MOVE ' ' TO H-TEXT
END-EVALUATE

ist works.

It also compiles with a former VC compiler (2.3 or 4) or the 'native compiler'

Is there any Directive where I can limit the nestings ?!

Thanks and greetings,

Herbert

 

Parents
  • Verified Answer

    Is it when any or when other?
    i think when other
    Why do you want to Limit nestings?
    What is you Problem?
  • My problem is, that the following code does not compile with the message

    COBCH0853S System error - evaluation stack mismatch ... -> in the line 'EVALUATE HV-POS'

    EVALUATE HV-POS
    WHEN 02 MOVE 'something ' TO H-TEXT
    ADD 1 TO ZZ-02
    WHEN 67 MOVE 'something else ' TO H-TEXT
    MOVE 'J' TO KEZ-AUSGABE
    WHEN 68 MOVE 'something else x ' TO H-TEXT
    MOVE 'J' TO KEZ-AUSGABE
    WHEN ANY MOVE ' ' TO H-TEXT
    END-EVALUATE

    I don't want to reduce it !

    But when I reduce, it compiles, for example:

    EVALUATE HV-POS
    WHEN 02 MOVE 'something ' TO H-TEXT
    ADD 1 TO ZZ-02
    WHEN 67 MOVE 'something else ' TO H-TEXT
    MOVE 'J' TO KEZ-AUSGABE
    *      WHEN 68 MOVE 'something else x ' TO H-TEXT    
    *      MOVE 'J' TO KEZ-AUSGABE
    WHEN ANY MOVE ' ' TO H-TEXT
    END-EVALUATE

Reply
  • My problem is, that the following code does not compile with the message

    COBCH0853S System error - evaluation stack mismatch ... -> in the line 'EVALUATE HV-POS'

    EVALUATE HV-POS
    WHEN 02 MOVE 'something ' TO H-TEXT
    ADD 1 TO ZZ-02
    WHEN 67 MOVE 'something else ' TO H-TEXT
    MOVE 'J' TO KEZ-AUSGABE
    WHEN 68 MOVE 'something else x ' TO H-TEXT
    MOVE 'J' TO KEZ-AUSGABE
    WHEN ANY MOVE ' ' TO H-TEXT
    END-EVALUATE

    I don't want to reduce it !

    But when I reduce, it compiles, for example:

    EVALUATE HV-POS
    WHEN 02 MOVE 'something ' TO H-TEXT
    ADD 1 TO ZZ-02
    WHEN 67 MOVE 'something else ' TO H-TEXT
    MOVE 'J' TO KEZ-AUSGABE
    *      WHEN 68 MOVE 'something else x ' TO H-TEXT    
    *      MOVE 'J' TO KEZ-AUSGABE
    WHEN ANY MOVE ' ' TO H-TEXT
    END-EVALUATE

Children
No Data