帶“按鈕”的DSPF及演示程序

caomangyu

在AS400中,  點(diǎn)擊確定、 單選、多選  等“按鈕” 用得相對比較少。 但在適當(dāng)?shù)牡胤绞褂靡餐Ψ奖愕摹?br />
以下通過一個(gè)簡單的演示例子，介紹下如何實(shí)現(xiàn)， 有興趣的朋友可參考。 效果如附件圖所示

1、建一 PF 用存放 演示 結(jié)果，  DDS如下

   SEU==>                                                                  TESTPF
        *************** Beginning of data *************************************
0001.00      A          R RTEST                                                
0002.00      A            SING           1  0       COLHDG(' 單選值 ')         
0003.00      A            DUB1           1  0       COLHDG(' 多選值 1')         
0004.00      A            DUB2           1  0       COLHDG(' 多選值 2')         
        ****************** End of data ***************************************

2、建 DSPF  ，  DDS如下：

SEU==>                                                                TESTDSPF
        *************** Beginning of data *************************************
0001.00      A                                      CA03(03 'exit')            
0002.00      A          R R1                                                   
0003.00      A            D2@            1Y 0H                                 
0004.00      A            D1@            1Y 0H                                 
0005.00      A            S1             1Y 0H                                 
0006.00      A            FLD001         2Y 0B  4 18SNGCHCFLD(*RSTCSR *SLTIND (
0007.00      A                                      3))                        
0008.00      A                                      CHOICE(1 ' 測試 1')         
0009.00      A                                      CHCCTL(1 &S1)               
0010.00      A                                      CHOICE(2 ' 測試 2')         
0011.00      A                                      CHCCTL(2 &S1)               
0012.00      A            FLD002         2Y 0B  8 18MLTCHCFLD((*NUMCOL 3))      
0013.00      A                                      CHOICE(1 ' 多選 1  ')      
0014.00      A                                      CHCCTL(1 &D1@)              
0015.00      A                                      CHOICE(2 ' 多選 2')         
0016.00      A                                      CHCCTL(2 &D2@)              
0017.00      A            ENT@           2Y 0B 12 18PSHBTNFLD                  
0018.00      A                                      PSHBTNCHC(1 ' 確定 ')      
0019.00      A            EXT@           2Y 0B 12 36PSHBTNFLD                  
0020.00      A                                       PSHBTNCHC(1 ' 返回 ')                                                                                          
3. 演示程序 ， RPG 代碼 如下：

SEU==>                                                                 TESTRPG
        *************** Beginning of data *************************************
0001.00 H*                                                                     
0002.00 FTESTPF    UF A E           K DISK                                      
0003.00 FTESTDSPF  CF   E             WORKSTN                                   
0004.00 C                   EXFMT     R1                                       
0005.00 C                   EVAL      SING=FLD001                              
0006.00 C                   EVAL      DUB1=D1@                                 
0007.00 C                   EVAL      DUB2=D2@                                 
0008.00 C                   IF        ENT@=1                                    
0009.00 C                   WRITE     RTEST                                    
0010.00 C                   ENDIF                                               
0011.00 C                   IF        EXT@=1                                    
0012.00 C                   RETURN                                             
0013.00 C                   ENDIF                                               
0014.00 C                   SETON                                        LR     
        ****************** End of data ***************************************

4、運(yùn)行完 RPG 后   用 QUERY 查看結(jié)果如下：
Line   ....+....1....+....2....+....3      
         單選值    多選值 1   多選值 2      
000001     1         1          1         
000002     2         1          1         
000003     1         1          1         
000004     2         1          1         
****** ********  End of report  ********

李海雋

謝謝啦。不過，這樣的命令我都用過，感覺上是得不償失。

桃子0330

看到,^_^

qingzhou

不錯(cuò)~~~

fairyboy

用過,感覺不太好

magic_007

用過,不過感覺在項(xiàng)目中很少用到

wangyang6614

不錯(cuò)不錯(cuò)，不過只能玩玩，項(xiàng)目里基本不會(huì)用的，呵呵

nhxingliang

玩玩不錯(cuò)

jerry_1754

粗看效果還不錯(cuò)挺新鮮，但很不實(shí)用。