4 Stimmen

Verschachtelte if-Anweisungen in Cobol

Ich versuche, verschachtelte if-Anweisungen in Cobol zu verwenden. Soweit ich das beurteilen kann, halte ich mich an die Styleguides, erhalte aber immer wieder die Fehlermeldung:

file_name.cob:64: Error: syntax error, unexpected ELSE

^^ (Dies ist die zweite ELSE-Anweisung)

Der Code soll wie eine Caesar-Chiffre funktionieren, doch scheint es sich nur um die verschachtelte if Anweisungen, die den Fehler verursachen. Ich habe versucht, die verschachtelten Anweisungen nach der ELSE Klausel der ursprünglichen IF Erklärung, die jedoch ebenfalls erfolglos blieb.

bearbeiten : Ich verwende open-cobol, und kompiliere mit dem -free option

    IF CharCount < 26 
                    ADD firstnum, CharCount GIVING stringShift.
                    DISPLAY stringShift.

                    IF FUNCTION MOD(stringShift, 26) IS NOT ZERO 

                            MOVE FUNCTION MOD(stringShift, 26) to stringShift
                            DISPLAY stringShift

                            MOVE abc(stringShift:stringShift) TO newChar
                            DISPLAY newChar

                            STRING newString DELIMITED BY "", newChar DELIMITED BY SIZE INTO newString

                            DISPLAY newString
                    ELSE
                            STRING newString DELIMITED BY "", searchChar DELIMITED BY SIZE INTO newString
                            DISPLAY newString
                    END-IF
            ELSE
                    STRING newString DELIMITED BY "", searchChar DELIMITED BY SIZE INTO newString
                    DISPLAY newString
            END-IF.

Danke!

CodeJaeger.com

CodeJaeger ist eine Gemeinschaft für Programmierer, die täglich Hilfe erhalten..
Wir haben viele Inhalte, und Sie können auch Ihre eigenen Fragen stellen oder die Fragen anderer Leute lösen.

Powered by:

X