請(qǐng)教,400下COBOL中的遞歸調(diào)用

colinkou

程序1:STEST2BU:

       IDENTIFICATION DIVISION .
       PROGRAM-ID. STEST2BU.

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. IBM-AS400.
       OBJECT-COMPUTER. IBM-AS400.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-LK                                  PIC 9(1).

       PROCEDURE DIVISION .

           MOVE 1 TO WS-LK.
           CALL "STEST1BU" USING BY CONTENT WS-LK.

           STOP RUN.


程序2:STEST1BU:

       IDENTIFICATION DIVISION .
       PROGRAM-ID. STEST1BU.

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. IBM-AS400.
       OBJECT-COMPUTER. IBM-AS400.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-RETURN                              PIC 9(1).
       01 WS-A                                   PIC 9(1).
      
       LINKAGE SECTION.
          01  LK-RETURN                          PIC X(1).

       PROCEDURE DIVISION USING LK-RETURN.
           
           MOVE LK-RETURN TO WS-RETURN.
           MOVE WS-RETURN TO WS-A.
           ADD 1 TO WS-RETURN.
           DISPLAY "A " WS-A.
           IF WS-RETURN < 5
              CALL "STEST1BU" USING BY CONTENT WS-RETURN.
           DISPLAY "B " WS-A.

           EXIT PROGRAM.

運(yùn)行:

CALL STEST2BU

期待結(jié)果:
A 1
A 2
A 3
A 4
B 4
B 3
B 2
B 1

實(shí)際結(jié)果:
A 1
A 2
A 3
A 4
B 4
B 4
B 4
B 4  

希望哪位同學(xué)指點(diǎn),謝謝哦

digitalchina

懷疑被AS/400 優(yōu)化了.    內(nèi)存優(yōu)化了.

[ 本帖最后由 digitalchina 于 2006-7-28 11:19 編輯 ]

大肥肥

CALL "STEST1BU" USING BY CONTENT WS-RETURN.
means: LK-RETURN  = WS-RETURN,
then: MOVE LK-RETURN TO WS-RETURN.
           MOVE WS-RETURN TO WS-A.
means:WS-A = LK-RETURN.
DISPLAY "A " WS-A.
DISPLAY "B " WS-A.
應(yīng)該就是顯示累加后的WS-RETURN，顯示的沒問題呀，沒有看出來(lái)怎么會(huì)越來(lái)越小。

colinkou

謝謝大家，我的同事給我的答案是：
COBOL85中不支持遞歸調(diào)用，在COBOL2000  之后才開始COBOL的遞歸調(diào)用，（包括IBM）但是需要顯示的聲明為遞歸程序。格式：PROGRAM-ID.  PGMID  IS  RECURSIVE  PROGRAM.

不過我沒用過COBOL2000。

大肥肥

這不是支持的問題呀，你這個(gè)程序顯然達(dá)不到你想要的結(jié)果，你調(diào)試一下就知道變量怎么變化了。

aliceliu

如果要得到你期望的結(jié)果，編譯程序的時(shí)候選擇 *new一個(gè)active group.
不然，相同的active group中，同一個(gè)變量ws-a被放在同樣的存儲(chǔ)空間，被最內(nèi)層的程序修改之后，外層程序中看到的也是相同的值了。

大肥肥

關(guān)于子程序的變量如何變化，你可以參考cobol手冊(cè)，或者搜索我以前的貼子。
這是我以前寫的一個(gè)遞歸程序，針對(duì)漢諾塔移位的，就是有三個(gè)塔A,B,C，A有N個(gè)盤子，大的在下，小的在上，借助C, 把A的盤子移動(dòng)到B, 同樣順序排列。
python寫的
# Type "copyright", "credits" or "license" for more information.
>>> def move(a, b):
...     print a,'----->', b
...     
>>> move('A','B')
A -----> B
>>> def digui(n,a,b,c): #move a to b by c 移動(dòng)a到b，借助c
...     if (n==1):
...         move(a,b)
...     else:   
...         digui(n-1,a,c,b) #move a to c by b 移動(dòng)a到c，借助b
...         move(a,b)
...         digui(n-1,c,b,a) #move c to b by a 移動(dòng)c到b，借助a
...         
>>> digui(3,'A','B','C')
A -----> B
A -----> C
B -----> C
A -----> B
C -----> A
C -----> B
A -----> B