GoBack и GO TO пункте

Question

Есть ли способ, который может позволить мне отменить эффект «GO TO» в Cobol Пример:

PERFORM PROCEDURE1 THRU E--PROCEDURE1 
    display "PERFORM  PROCEDURE2 THRU E--PROCEDURE2" 
    PERFORM  PROCEDURE2 THRU E--PROCEDURE2 
    GOBACK. 

    PROCEDURE1 SECTION. 
     display "BEGIN============PROC PROCEDURE1" 
     PERFORM LECTURE THRU E--LECTURE 
     PERFORM ENDD THRU E--ENDD 
     display " ENDD============PROC PROCEDURE1" 
     CONTINUE. 
     EXIT. 
    E--PROCEDURE1. 
     EXIT. 


    LECTURE. 
     display "I AM LABEL LECTURE" 
     GO TO ENDD 
     CONTINUE. 
    E--LECTURE. 
     EXIT. 

    ENDD. 
     DISPLAY "I AM LABEL ENDD" 
     CONTINUE. 
    E--ENDD. 
     EXIT. 

    PROCEDURE2 SECTION. 
     display "BEGIN============PROC PROCEDURE2" 
     DISPLAY "I AM LABEL PROCEDURE2" 
     display " ENDD============PROC PROCEDURE2" 
     CONTINUE. 
    E--PROCEDURE2. 
     EXIT. 

Когда этот код выполняется, я не буду видеть дисплей «ПРОЦЕДУРА ВЫПОЛНЕНИЯ2 THRU E - ПРОЦЕДУРА2», beacause, когда я сделал GO К абзацу ENDD, элемент управления переносится в этот пункт, и я думаю, что я не могу использовать goback до конца proc1? Я ошибаюсь ?

@Bill

Это программа, я пытаюсь перевести:

GOTO5POW : PROC OPTIONS(MAIN); 
DCL FILE001 FILE INPUT RECORD ENV(RECSIZE(15)); 
DCL CTR1 PIC'99' INIT('0'); 
DCL CARTE CHAR(15); 
CALL PROCEDURE1; 
PUT SKIP LIST("PERFORM  PROCEDURE2 THRU E--PROCEDURE2"); 
CALL PROCEDURE2; 
PROCEDURE1: PROC; 
     PUT SKIP LIST("BEGIN============PROC PROCEDURE1"); 
     ON ENDFILE(FILE001) GOTO ENDD; 
     LECTURE: 
     PUT SKIP LIST("I AM LABEL LECTURE"); 
     READ FILE(FILE001) INTO(CARTE); 
     CTR1 = CTR1 + 1; 
     PUT SKIP LIST("Record "||CTR1||"=/" || CARTE ||"/"); 
     IF CARTE="AAAAAAAAAAAAAAA" THEN GOTO ENDD; 
     ENDD: 
     PUT SKIP LIST("I AM LABEL ENDD"); 
     PUT SKIP LIST(" ENDD============PROC PROCEDURE1"); 
END PROCEDURE1; 
PROCEDURE2 : PROC; 
    PUT SKIP LIST("BEGIN============PROC PROCEDURE2"); 
    PUT SKIP LIST("I AM LABEL PROCEDURE2"); 

    PUT SKIP LIST(" ENDD============PROC PROCEDURE2"); 
END PROCEDURE2; 
END GOTO5POW ; 

Выход:

BEGIN============PROC PROCEDURE1 
I AM LABEL LECTURE 
Record 01=/AAAAAAAAAAAAAAA/ 
I AM LABEL ENDD 
    ENDD============PROC PROCEDURE1 
PERFORM  PROCEDURE2 THRU E--PROCEDURE2 
BEGIN============PROC PROCEDURE2 
I AM LABEL PROCEDURE2 
    ENDD============PROC PROCEDURE2 

Но с COBOL, это генерируемый вывод:

BEGIN============PROC PROCEDURE1 
I AM LABEL LECTURE 
Record 01=/AAAAAAAAAAAAAAA/ 
I AM LABEL ENDD 
BEGIN============PROC PROCEDURE2 
I AM LABEL PROCEDURE2 
    ENDD============PROC PROCEDURE2 

Answer 1

A s сказал, не используйте через. Также используйте либо процедуры, либо разделы; не оба. ON ENDFILE (FILE001) устанавливает обработчик исключений для конечного файла

Это примерно то, что ваша программа должна быть:

  03        pic x value 'N'. 
       88 File001-EOF   value 'Y'. 
       88 File001-has-data value 'N'. 

     PERFORM PROCEDURE1 
     display "PERFORM  PROCEDURE2 THRU E--PROCEDURE2" 
     PERFORM PROCEDURE2 
     GOBACK. 

     PROCEDURE1 SECTION. 
      display "BEGIN============PROC PROCEDURE1" 
      display "I AM LABEL LECTURE" 
      Read File001 
      at end set File001-EOF    to true 
      end-read 
      if File001-has-data 
       compute CTR1 = CTR1 + 1; 
      end-if 

      DISPLAY "I AM LABEL ENDD" 
      display " ENDD============PROC PROCEDURE1" 

      EXIT. 
     E--PROCEDURE1. 
      EXIT. 


     PROCEDURE2 SECTION. 
      display "BEGIN============PROC PROCEDURE2" 
      DISPLAY "I AM LABEL PROCEDURE2" 
      display " ENDD============PROC PROCEDURE2" 
      CONTINUE. 
     E--PROCEDURE2. 
      EXIT. 

---

Для людей более знакомы с Java/C#

ON ENDFILE(FILE001) GOTO ENDD; 

настраивает исключение или обработчик ошибок для условия конечного файла. В java это будет выглядеть так:

try { 
    .... 
} catch (endOfFile e) { 
    Goto ENDD; 
}