如何在SUBFILE的顶部和底部同时显示文字？

dazzling2000

我做了一个SUBFILE在WINDOW中显示，现在显示均正常，我想在顶端加上列标题，底端加上键提示。
问题就出现了：要么只能加顶部的文字，要么只能加底部的提示，不可两者同时加上去，否则就编译错误：“Subfile control record overlaps subfile record”

如何解决？？


SFLCTL部分源码：
A          R SUBFC                     SFLCTL(SUBF)                             
A                                      SFLSIZ(9999)                             
A                                      SFLPAG(5)                                
A                                      WINDOW(8 20 12 40)                       
A                                      WDWTITLE((*TEXT 'RECORD DETAILS') +      
A                                      (*DSPATR HI))                           
A                                      SFLDSP                                   
A                                      SFLDSPCTL                                
A  40                                  SFLEND(*MORE)                           
A                                      OVERLAY                                 
A*                                 1  2'Opt Name               Description'     
A                                 10  2'1-Select    F12:Cancel'                 
最后2行大家看到了，如果同时出现编译就会报错。

[ 本帖最后由 dazzling2000 于 2007-5-4 23:59 编辑 ]

sjbao

把下面顯示的做另外一個記錄試驗一下看有沒有問題

dazzling2000

那样不行. 因为提示就不会显示在窗口内了.

pantierui

1. 
   
2. A          R DSP04                     OVERLAY                                 
   
3. A                                      WINDOW(&LINE &POS 13 25)               
   
4. A                                      WDWTITLE((*TEXT 'RECORD DETAILS') +     
   
5. A                                      (*DSPATR HI))                           
   
6. A            LINE           2S 0P                                             
   
7. A            POS            3S 0P                                             
   
8. A                                 11  9'CTRL ?? '                           
   
9. A  80        ERRMSG        20A  O 12  2DSPATR(HI)                              
   
10. A                                      DSPATR(BL)                              
    
11. A*                                                                             
    
12. A          R DSP05                     SFL                                    
    
13. A            SMORD          2S 0O  4  3                                       
    
14. A            SNAME         10O  O  4  8                                       
    
15. A          R DSP06                     SFLCTL(DSP05)                           
    
16. A  80                                  ALARM                                   
    
17. A                                      WINDOW(DSP04)                           
    
18. A                                      SFLPAG(6)                              
    
19. A                                      SFLSIZ(7)                              
    
20. A  26                                  SFLDSP                                 
    
21. A  27                                  SFLDSPCTL        
    
22. A  28                                  SFLCLR           
    
23. A  29                                  SFLEND(*MORE)   
    
24. A                                  2  1' 代碼'         
    
25. A N60                              2  8' 外包商 '      
    
26. A  60                              2  8' 作業類別 '     
    
27. A                                  3  2'===='           
    
28. A                                  3  9'======'         
    

复制代码

dazzling2000

1. 
   
2. A          R WINDOW1                   OVERLAY                                    
   
3. A                                      WINDOW(8 20 12 40)                          
   
4. A                                      WDWTITLE((*TEXT 'RECORD DETAILS') +         
   
5. A                                      (*DSPATR HI))                              
   
6. A                                 10  2'1-Select    F12:Cancel'                    
   
7. A                                      DSPATR(HI)                                 
   
8. A                                                                                 
   
9. A** BLEOW IS SUBFILE                                                               
   
10. A          R SUBF                      SFL                                         
    
11. A            SFLOPT         1   I  2  2VALUES('1')                                 
    
12. A            SFLNAME       18   O  2  6                                            
    
13. A            SFLDESC       12   O  2 25                                            
    
14. A          R SUBFC                     SFLCTL(SUBF)                                
    
15. A                                      WINDOW(WINDOW1)                             
    
16. A                                      SFLSIZ(9999)                                
    
17. A                                      SFLPAG(5)                                   
    
18. A                                      SFLDSP                                      
    
19. A                                      SFLDSPCTL                                   
    
20. A  40                                  SFLEND(*MORE)                              
    
21. A                                  1  2'Opt Name               Description'      
    
22. A                                      DSPATR(HI)
    
23. 
    

复制代码

这样写能有错吗? 可是为何一执行到exfmt SUBFC处程序就报错:
Session or device error occurred in file WIN (C G D F).
真百思不得其解...

[ 本帖最后由 dazzling2000 于 2007-5-6 18:41 编辑 ]

nhxingliang

RPGLE 代码呢？

dazzling2000

现在问题已经解决,但有新问题,就是在清除SUBFILE时.
这个SUBFILE显示第二次时,会同之前的重复,因此我使用了
SDA:
31                                          SUBCLR

RPGLE:
Seton                                                                31
Write         SUBFC(SUBFILE 的控制记录)
Setoff                                                                31
编译执行也正常,但发现之前旧数据地方变成了空白.
我试着eval         RRN=0
但在第二次显示SUBFILE报错.
如何解决??

uglyneo

原帖由 dazzling2000 于 2007-5-8 08:32 发表
现在问题已经解决,但有新问题,就是在清除SUBFILE时.
这个SUBFILE显示第二次时,会同之前的重复,因此我使用了
SDA:
31                                          SUBCLR

RPGLE:
Seton                      ...

RRN=0了，SUBFILE还怎么显示阿？

我一开始也出现了这个 Session or device error occurred in file WIN (C G D F).
不知楼主怎么解决的。
我在exfmt SUBFC 之前加了一句write window1 之后就都OK了。
还有 那个SUBCLR还是SFLCLR阿。

我的DSPF代码：

1. 
   
2.      A          R WIN
   
3.      A                                      WINDOW(3 4 19 68)
   
4.      A                                      OVERLAY
   
5.      A                                      WDWTITLE((*TEXT 'RECORD DETAILS') (-
   
6.      A                                      *DSPATR HI))
   
7.      A                                      WDWBORDER((*COLOR BLU) (*DSPATR RI))
   
8.      A                                 18  3'F1 - EXIT'
   
9.      A                                      COLOR(BLU)
   
10.      A          R IESECS                    SFL
    
11.      A            ISOPT          1A  B  5  4
    
12.      A            ISSECD         2A  O  5  9
    
13.      A            ISSANM        50A  O  5 16
    
14.      A          R IESECC                    SFLCTL(IESECS)
    
15.      A                                      SFLSIZ(0013)
    
16.      A                                      SFLPAG(0012)
    
17.      A                                      WINDOW(WIN)
    
18.      A                                      OVERLAY
    
19.      A  78                                  SFLDSP
    
20.      A  78                                  SFLDSPCTL
    
21.      A  76                                  SFLCLR
    
22.      A N77                                  SFLEND(*MORE)
    
23.      A                                  4  9'SEC.'
    
24.      A                                      DSPATR(UL)
    
25.      A                                      COLOR(WHT)
    
26.      A                                  4  3'OPT'
    
27.      A                                      DSPATR(UL)
    
28.      A                                      COLOR(WHT)
    
29.      A                                  4 16'SECTION NAME                      -
    
30.      A                                                      '
    
31.      A                                      DSPATR(UL)
    
32.      A                                      COLOR(WHT)
    
33.      A                                  2  2'F12: RETURN     OPT=1: SELECT'
    
34.      A                                      COLOR(BLU)
    
35. 
    

复制代码

RPG 代码

1. 
   
2.      C           SEC       BEGSR
   
3.      C                     SETON                     76
   
4.      C                     WRITEIESECC
   
5.      C                     SETOF                     76
   
6.      C                     SETOF                     55
   
7.      C                     Z-ADD0         RRNS    40
   
8.      C           *LOVAL    SETLLSEC010R1
   
9.      C           STEP09    TAG
   
10.      C                     READ SEC010R1                 55
    
11.      C           *IN55     CABEQ'1'       STEP10
    
12.      C                     MOVEL*BLANK    ISOPT
    
13.      C                     MOVELS1SECD    ISSECD
    
14.      C                     MOVELS1SANM    ISSANM
    
15.      C                     ADD  1         RRNS
    
16.      C                     WRITEIESECS
    
17.      C                     GOTO STEP09
    
18.      C*          RRNS      CABLE11        STEP09
    
19.      C*-------------------------------------
    
20.      C           STEP10    TAG
    
21.      C                     Z-ADDRRNS      WRNS    50
    
22.      C                     WRITEWIN
    
23.      C                     SETON                         78
    
24.      C                     EXFMTIESECC
    
25.      C                     SETOF                         78
    

复制代码

dazzling2000

同你的解决方法一样.

因为我的显示SUBFILE是在SUBPROCEDURE中的,
C                     Z-ADD0         RRNS    40
当第二次调用此过程显示SUBFILE时,执行到上述语句就出错

uglyneo

现在第二个问题解决了没？

能把你的源文件打包传上来看看么？