请问这个窗口是怎么做出来的呢？

xuguopeng

对啊 楼主把成功的经验SHARE给大家吧

快乐狗

好的

快乐狗

第2部分

快乐狗

看不清的地方告诉我，我会重贴

pantierui

DSPF完整代码:
     A*--------------------------------------------------------------*
     A*  画面ファイル名：ＷＩＮＤＯＷ                              *
     A*                ：
     A*                　　　　　　　　　　　　　　　　　　　  　   *
     A*--------------------------------------------------------------*
     A                                      ALTPAGEUP
     A                                      ALTPAGEDWN
     A                                      DSPSIZ(24 80 *DS3)
     A*===============================================================*
     A*    ＳＦＬ( DATRCD )
     A*===============================================================*
     A          R DATRCD                    SFL
     A                                      CHECK(AB)
     A            ULINE          2A  B  7  5TEXT('OPT')
     A            UCLS           4A  O  7 10TEXT(' 状态 ')
     A            ULCNAME       12O  O  7 17TEXT(' 说明 ')
     A          R CTLRCD                    SFLCTL(DATRCD)
     A                                      SFLSIZ(0999)
     A                                      SFLPAG(0005)
     A                                      WINDOW(2 20 14 37 *NOMSGLIN)
     A                                      OVERLAY
     A                                      CA12(12)
     A  95                                  SFLDSP
     A  96                                  SFLDSPCTL
     A N95                                  SFLCLR
     A  40                                  SFLEND(*MORE)
     A                                      WDWBORDER((*DSPATR RI) (*CHAR +
     A                                                 '        '))
     A                                      RMVWDW
     A            RRN            5S 0H
     A                                  2 13'隶属関系 '
     A                                      COLOR(PNK)
     A                                  4  3'活働'
     A                                      COLOR(WHT)
     A                                  4 10'1=選'
     A                                      COLOR(WHT)
     A                                  4 19'8=定位'
     A                                      COLOR(WHT)
     A                                  4 28'10=検索'
     A                                      COLOR(WHT)
     A            FLD001         2A  B  6  5
     A            FLD002         4A  B  6 10
     A            FLD003        12A  B  6 17
     A                                  5  4'ACT'
     A                                  5  9'状態'
     A                                  5 17'説　　　明'
     A          R TECD
     A                                      WINDOW(CTLRCD)
     A                                      CA12(12)
     A                                      OVERLAY
     A                                 13  2'F12= CANCEL'
     A                                 13 14'F7= PAGEDWN'
     A                                 13 26'F8= PAGEUP'
     A*===============================================================*
我只是把楼主的代码整理了一下。
楼主能不能把程序也贴出来，供大家参考。
谢谢！

[ 本帖最后由 pantierui 于 2006-6-29 16:20 编辑 ]

mynet400

请教各位：
    为什么我们建立 SFILE 的时候都有 SFLDSPCTL 这一项，而上面例子中两位的 SOURCE 里面都没有，那么如何在 RPG 里面调用其EXFMT显示呢 ？我这里没有这项会报错误的 。请问大家是怎么做的呢，谢谢 ！

DDS:  

1. 
   
2. A  85                                  SFLDSPCTL  
   
3. A  95                                  SFLDSP  
   

复制代码

RPG:

1. 
   
2. C                     SETON                     9585  
   
3. C                     EXFMTCTLRCD                     
   
4. C                     SETOF                     9585  
   

复制代码

如果没有

1. C                      SETON                     85

复制代码

就会报错 。 而且，我们可以通过判断 RRN 是否有值来控制 85 ，95 ，显示SFL 还是 CTL 。
请大家不吝赐教 。