当程序goto到return后面之后……

爱笑的猫猫

今天写了个rpg程序，在return后边写了几条语句，使用goto跳转到return语句之后的语句，发现程序在执行完return后面的语句后又跳到了程序的开头！
   然后就又写了个简单的程序测试：

1. 
   
2. c     'aaaaa'       dsply     aaa         
   
3. c                   exsr      bbb         
   
4. c                   goto      ccc         
   
5. c                   eval      *inlr = *on
   
6. c                   return               
   
7.                                           
   
8. c     ccc           tag                  
   
9. c     'ccccc'       dsply                 
   
10. c     'ddddd'       dsply                 
    
11.                                           
    
12. c     eee           begsr                 
    
13. c     'eeeee'       dsply                 
    
14. c                   endsr                 
    
15. c     bbb           begsr                 
    
16. c     'bbbbb'       dsply                 
    
17. c                   endsr                 
    

复制代码

这个程序是个死循环，当程序执行到dsply语句的时候遇到begsr跳回到程序开头。
执行结果：
DSPLY  aaaaa
DSPLY  bbbbb
DSPLY  ccccc
DSPLY  ddddd
DSPLY  aaaaa
DSPLY  bbbbb
DSPLY  ccccc
DSPLY  ddddd
DSPLY  aaaaa
DSPLY  bbbbb
……
这是IBM故意设定的么？

niuhua77

最后一条语句不是return的话，就再从第一条语句开始执行。

你的例子完美的证明了这一点

roden

在RPGG还没用过GOTO

junlee1986

你是像说为什么已经 SETON *LR   RETURN了之后还在执行么？
按理是应该结束程序的意思么？

niuhua77

回复 4# junlee1986


    NO。他这个例子没有执行seton *inlr  和return ，跳过去了。
所以程序不会结束。而是又从头开始执行

junlee1986

回复  junlee1986


    NO。他这个例子没有执行seton *inlr  和return ，跳过去了。
所以程序不会结束 ...
niuhua77 发表于 2011-09-24 14:17

    没有执行那个，当然一直执行了，那是400的程序周期。

122408644

你dubeg一下你的程序不就知道了嘛

爱笑的猫猫

回首过往，mark

pacman2000

爱笑的猫猫 发表于 2017-09-20 13:17
回首过往，mark

哈哈，已成大神？