请教下RPG程序的编译问题！

人世间

我在STRPDM环境下，编译后程序执行到

1. C     string        dsply

复制代码

时，程序会停下来，等待我按执行键再继续执行。

但是我在CALL程序时，为什么不会停下来，等待我按执行键呢。
程序总是一下就执行完了。

ping__shui

原帖由 人世间 于 2006-8-23 14:11 发表
我在STRPDM环境下，编译后程序执行到

1. C     string        dsply

复制代码

时，程序会停下来，等待我按执行键再继续执行。

但是我在CALL程序时，为什么不会停下来，等待我按执行键呢。
程序总是一下就执 ...

正常情况下应该都会显示下的，你CALL的时候要CALL全路径而且要放在你最后编译的位置，还不行的话，DEBUG下看看！

人世间

显示是都显示了，但是没有停下来，直到程序结束。
显示时也就一闪就过去了。根本看不清呀！

ayu0926

我记得我老师教的时候，好象可以打开一个窗口来查看结果。方法忘记了，不知道哪位老兄知道

人世间

我倒不是说看不清楚值是多少，这些在JOBLOG中都能看到。
关键是

1. C     string        dsply

复制代码

在两种方式下运行的差别会那么大。在STRPDM中调用，执行到这句时，会停下来，等待用户按执行键才继续运行。
但是在CALL状态下，到这句时不会停下来，直到程序运行结束。

qingzhou

你可以检查你的帐户的JOBD指向是否为QGPL/QDFTJOBD，然后为了避免影响别的用户，你可以拷贝一份到自己LIB下：
===> CRTDUPOBJ OBJ(QDFTJOBD) FROMLIB(QGPL) OBJTYPE(*JOBD) TOLIB(MYLIB) NEWOBJ(MYJOBD)   

然后修改MYJOBD的以下参数：

Message logging:                 LOG                     
  Level  . . . . . . . . . . . .                4         
  Severity . . . . . . . . . . .                00        
  Text . . . . . . . . . . . . .              > *MSG      
Log CL program commands  . . . . LOGCLPGM     > *YES

然后再加载到你的帐户中：
===> CHGUSRPRF USRPRF(AS400USR) JOBD(MYLIB/MYJOBD)

然后重新登陆400，再测试CALL PGM，看看是否能够停顿下来？

人世间

不好用，没起作用！

子樵

说实话还真不明白为什么.查一查是否有重复的PGM和DSPF.我怀疑有以前生成的目标存在.
或者F16看一下PDM中用户定义的功能CALL是如何指定的.

人世间

这们吧，我把程序贴出来，大家试试看。
这是IBM网上的样例程序，生成数字，字母混合的字串。RPGLE

1. 
   
2. DCOUNTERS         C                   '0123456789+                  
   
3. D                                     ABCDEFGHIJKLMNOPQRSTUVWXYZ'   
   
4. Dstring           s             10a   inz('000000ZZZW')            
   
5.                                                                     
   
6. Di                s             10i 0                              
   
7. Dcur              s             10i 0                              
   
8. Ddigit            s             10i 0                              
   
9. DlastChar         s              1a                                 
   
10. DfirstChar        s              1a                                 
    
11. DcurChar          s              1a                                 
    
12.                                                                     
    
13. C                   Eval      firstChar = %subst(counters : 1 : 1)  
    
14. C                   Eval      lastChar =                           
    
15. C                             %subst(counters : %len(counters) : 1)
    
16. C* // "add" 1 to the string 10 times                                
    
17. C                   FOR       I = 1 TO 10                           
    
18. C* // this does the "adding"                                       
    
19. C                   for       digit = %len(string) downto 1         
    
20. C                   eval      curChar = %subst(string : digit : 1)  
    
21. C                   eval      cur = %scan(curChar : counters)      
    
22. C                   if        cur = %len(counters)                  
    
23. C                   eval      %subst(string : digit : 1) = firstChar
    
24. C* // we have to "carry the 1" to the next digit                    
    
25. C                   else                                            
    
26. C                   eval      %subst(string : digit : 1) =         
    
27. C                             %subst(counters : cur + 1 : 1)        
    
28. C* // done; we have added the 1 to the current digit               
    
29. C                   leave                                          
    
30. C                   endif                                          
    
31. C                   endfor                                          
    
32. C     string        dsply                                          
    
33.                                                                     
    
34. C                   endfor                                          
    
35.                                                                     
    
36. C                   eval      *inlr = '1'                           
    

复制代码

qingzhou

我刚才在本地环境测试了一下你的RPGLE代码，没问题啊，，，

每敲一次键盘，就画面闪一下，先生成一个字符+数字组合的字符串，后面会生成单纯的数字串。