帶按鈕的DSPF怎么實現

這篇文章主要講解了“帶按鈕的DSPF怎么實現”，文中的講解內容簡單清晰，易于學習與理解，下面請大家跟著小編的思路慢慢深入，一起來研究和學習“帶按鈕的DSPF怎么實現”吧！

在AS400中,  點擊確定、 單選、多選  等“按鈕” 用得相對比較少。 但在適當的地方使用也挺方便的。

以下通過一個簡單的演示例子，介紹下如何實現， 有興趣的朋友可參考。 效果如附件圖所示

1、建一 PF 用存放 演示 結果，  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、運行完 RPG 后   用 QUERY 查看結果如下：
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  ********

感謝各位的閱讀，以上就是“帶按鈕的DSPF怎么實現”的內容了，經過本文的學習后，相信大家對帶按鈕的DSPF怎么實現這一問題有了更深刻的體會，具體使用情況還需要大家實踐驗證。這里是億速云，小編將為大家推送更多相關知識點的文章，歡迎關注！