带按钮的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怎么实现这一问题有了更深刻的体会，具体使用情况还需要大家实践验证。这里是亿速云，小编将为大家推送更多相关知识点的文章，欢迎关注！