这篇文章主要讲解了“带按钮的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怎么实现这一问题有了更深刻的体会,具体使用情况还需要大家实践验证。这里是亿速云,小编将为大家推送更多相关知识点的文章,欢迎关注!
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。