文章详情

短信预约-IT技能 免费直播动态提醒

请输入下面的图形验证码

提交验证

短信预约提醒成功

带按钮的DSPF怎么实现

2023-06-03 06:26

关注

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

阅读原文内容投诉

免责声明:

① 本站未注明“稿件来源”的信息均来自网络整理。其文字、图片和音视频稿件的所属权归原作者所有。本站收集整理出于非商业性的教育和科研之目的,并不意味着本站赞同其观点或证实其内容的真实性。仅作为临时的测试数据,供内部测试之用。本站并未授权任何人以任何方式主动获取本站任何信息。

② 本站未注明“稿件来源”的临时测试数据将在测试完成后最终做删除处理。有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341

软考中级精品资料免费领

  • 历年真题答案解析
  • 备考技巧名师总结
  • 高频考点精准押题
  • 2024年上半年信息系统项目管理师第二批次真题及答案解析(完整版)

    难度     813人已做
    查看
  • 【考后总结】2024年5月26日信息系统项目管理师第2批次考情分析

    难度     354人已做
    查看
  • 【考后总结】2024年5月25日信息系统项目管理师第1批次考情分析

    难度     318人已做
    查看
  • 2024年上半年软考高项第一、二批次真题考点汇总(完整版)

    难度     435人已做
    查看
  • 2024年上半年系统架构设计师考试综合知识真题

    难度     224人已做
    查看

相关文章

发现更多好内容

猜你喜欢

AI推送时光机
位置:首页-资讯-后端开发
咦!没有更多了?去看看其它编程学习网 内容吧
首页课程
资料下载
问答资讯