rpg中执行EXFMT DSP02出错

tom9030

代码如下：


Permanent I/O error occurred (C G S D F)


                         Additional Message Information                        
                                                                                
Message ID . . . . . . :   RPG1251       Severity . . . . . . . :   99         
Message type . . . . . :   Inquiry                                             
Date sent  . . . . . . :   05/04/08      Time sent  . . . . . . :   09:56:54   
                                                                                
Message . . . . :   Permanent I/O error occurred (C G S D F).                  
Cause . . . . . :   The RPG program SSUDDR in library TOJLIB at statement 8100   
   detected a permanent (not recoverable) file, session, or device error.  The  
   session, device and/or program has been stopped. Examine the major/minor     
   return code value to determine the specific error that occurred. If the      
   major return code is 80 then a system or file error occurred and programmer  
   action is required to fix the problem. If the major return code is 81 then a
   session or device error occurred, but use of another session or device may   
   be successful.                                                               
Recovery  . . . :   Enter C to cancel, G to continue processing at *GETIN, S   
   to obtain a system dump, or D to obtain an RPG formatted dump.               
Possible choices for replying to message . . . . . . . . . . . . . . . :      
D -- Obtain RPG formatted dump.   
S -- Obtain system dump.           
G -- Continue processing at *GETIN.
C -- Cancel.                       
F -- Obtain full formatted dump.   

哪位兄弟能解释一下是什么错呢？

majorz

可能是subfile里關於Clear subfile records 設置的指示器問題吧. 可以用seton 或 setof  設置指示器值看看

michael9406

mabye the subfile have not reach records.

tom9030

dsp02不是subfile啊

1. 
   
2. A          R DSP02                                                                           
   
3. A                                      CF02(02 'PRV.')                          
   
4. A                                      CF04(04 'PROMPT')                        
   
5. A                                      OVERLAY                                 
   
6. A                                      RTNCSRLOC(&S@RCD2 &S@FLD2 &S@POS2)      
   
7. A            S@FLD2        10A  H                                               
   
8. A            S@RCD2        10A  H                                               
   
9. A            S@POS2         4S 0H                                               
   
10. A            S@WUSR        10A  O  1 13DSPATR(RI)                              
    
11. A            S@SYDT         8Y 0O  1 60EDTWRD('  /  /    ')                     
    
12. A                                  1 73TIME                     
    
13. A                                  1  2'<SSUDS2>;'                           
    
14. A                                  1 29'card'            
    
15. A                                      DSPATR(HI)                              
    
16. A                                  7 24'Employee no.:(F4)'                     
    
17. A                                      DSPATR(HI)                              
    
18. A                                  8 33'CN name:'                              
    
19. A                                      DSPATR(HI)                              
    
20. A                                  9 33'EN name:'                              
    
21. A                                      DSPATR(HI)                              
    
22. A                                 10 32'Card no.:'                             
    
23. A                                      DSPATR(HI)                           
    
24. A            S2EMNO    R        B  7 42REFFLD(SAXEMPR/AAEMNO *LIBL/SAXEMPP)
    
25. A  37                                  DSPATR(PC)                           
    
26. A  37                                  DSPATR(RI)                           
    
27. A            S2EMCA        14O  O  8 42                                    
    
28. A            S2EMEA        20A  O  9 42                                    
    
29. A            S2WCNO        13A  B 10 42                                    
    
30. A  36                                  DSPATR(PC)                           
    
31. A  36                                  DSPATR(RI)                           
    
32. A*****************************************************************                          
    

复制代码

xbreeze

你的DSP02 的记录的排列顺序重写一下，按行从上到下，按列从左到右的顺序。
如果隐藏字段被任何一个参数多次使用，会发生不可预测的后果。所以你最好是 再定义RTNCSRLOC(&line &col )   &line    3s  0h    &col    3s  0h     ,这两个参数是16进制，你可以写代码转换为2进制，在EXFMT DSP02前，如果你不要特意定位的话，直接Z-ADD*ZERO  &line，Z-ADD*ZERO  &col  。