停止调用条目的效果

时间:2016-04-10 18:02:59

标签: cobol

我试图在cobol中调用内部条目。 调用没问题,但是在输入后有一些段落的问题也被错误地执行了。

这是我的计划:

   IDENTIFICATION DIVISION.
   PROGRAM-ID. ENTR1POW.
   DATA DIVISION.
   WORKING-STORAGE SECTION.
   LOCAL-STORAGE SECTION.
   PROCEDURE DIVISION.
    display "BEFORE CALL NOM_PROC1======================="
    PERFORM NOM_PROC1 THRU E--NOM_PROC1
    display "AFTER CALL NOM_PROC1======================="
    display "CALL NOM_PROC2============================="
    PERFORM NOM_PROC2 THRU E--NOM_PROC2
    display "CALL ENTRY1============================"
    CALL 'ENTRY1'
    GOBACK.

   NOM_PROC1.
       display "PGM ENTR1POW: BEGIN NOM_PROC1"
       display "PGM ENTR1POW:   END NOM_PROC1"
       CONTINUE.
   E--NOM_PROC1.
       EXIT.

   NOM_PROC2 SECTION.
       display "PGM ENTR1POW: BEGIN NOM_PROC2"

       ENTRY 'ENTRY1'
       display "===========BEGIN ENTRY ENTRY1"
       display "===========END   ENTRY ENTRY1"

       ENTRY 'ENTRY2'
       display "===========BEGIN ENTRY ENTRY2"
       display "===========END   ENTRY ENTRY2"

       ENTRY 'ENTRY3'
       display "===========BEGIN ENTRY ENTRY3"
       display "===========END   ENTRY ENTRY3"

       display "PGM ENTR1POW:   END NOM_PROC2"
       CONTINUE.
   E--NOM_PROC2.
       EXIT.

   NOM_PROC3 SECTION.
       display "PGM ENTR1POW: BEGIN NOM_PROC3"
       display "PGM ENTR1POW:   END NOM_PROC3"
       CONTINUE.
   E--NOM_PROC3 SECTION.
       EXIT.

   NOM_PROC4.
       display "PGM ENTR1POW: BEGIN NOM_PROC4"
       display "PGM ENTR1POW:   END NOM_PROC4"
       CONTINUE.
   E--NOM_PROC4.
       EXIT.

我获得的输出是:

BEFORE CALL NOM_PROC1=======================
PGM ENTR1POW: BEGIN NOM_PROC1
PGM ENTR1POW:   END NOM_PROC1
AFTER CALL NOM_PROC1=======================
CALL NOM_PROC2=============================
PGM ENTR1POW: BEGIN NOM_PROC2
===========BEGIN ENTRY ENTRY1
===========END   ENTRY ENTRY1
===========BEGIN ENTRY ENTRY2
===========END   ENTRY ENTRY2
===========BEGIN ENTRY ENTRY3
===========END   ENTRY ENTRY3
PGM ENTR1POW:   END NOM_PROC2
CALL ENTRY1============================
===========BEGIN ENTRY ENTRY1
===========END   ENTRY ENTRY1
===========BEGIN ENTRY ENTRY2
===========END   ENTRY ENTRY2
===========BEGIN ENTRY ENTRY3
===========END   ENTRY ENTRY3
PGM ENTR1POW:   END NOM_PROC2
PGM ENTR1POW: BEGIN NOM_PROC3
PGM ENTR1POW:   END NOM_PROC3
PGM ENTR1POW: BEGIN NOM_PROC4
PGM ENTR1POW:   END NOM_PROC4

我认为不应该调用段落NOM_PROC3和NOM_PROC4。

0 个答案:

没有答案