您好,登錄后才能下訂單哦!
這篇文章主要講解了“帶按鈕的DSPF怎么實現(xiàn)”,文中的講解內(nèi)容簡單清晰,易于學習與理解,下面請大家跟著小編的思路慢慢深入,一起來研究和學習“帶按鈕的DSPF怎么實現(xiàn)”吧!
在AS400中, 點擊確定、 單選、多選 等“按鈕” 用得相對比較少。 但在適當?shù)牡胤绞褂靡餐Ψ奖愕摹?
以下通過一個簡單的演示例子,介紹下如何實現(xiàn), 有興趣的朋友可參考。 效果如附件圖所示
1、建一 PF 用存放 演示 結(jié)果, 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 查看結(jié)果如下:
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怎么實現(xiàn)”的內(nèi)容了,經(jīng)過本文的學習后,相信大家對帶按鈕的DSPF怎么實現(xiàn)這一問題有了更深刻的體會,具體使用情況還需要大家實踐驗證。這里是億速云,小編將為大家推送更多相關知識點的文章,歡迎關注!
免責聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進行舉報,并提供相關證據(jù),一經(jīng)查實,將立刻刪除涉嫌侵權(quán)內(nèi)容。