温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

带按钮的DSPF怎么实现

发布时间:2021-12-30 17:15:43 来源:亿速云 阅读:127 作者:iii 栏目:编程语言

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

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI