急。。。 请教信息问题!
发表于:2007-05-26来源:作者:点击数:
标签:
如图,假如到了最后一页我还按“PgDn”键,系统会提示“Youhavereachedthebottomofthelist.”。我现想在程序中实现这种信息提示,请问该怎么做?谢谢!:? USING_AS400 回复于:2005-05-24 15:16:20 查看一些前辈写的程序,大概知道怎么弄了! rebecca_oml 回
如图,假如到了最后一页我还按“Pg Dn”键,系统会提示“You have reached the bottom of the list.”。我现想在程序中实现这种信息提示,请问该怎么做?谢谢! :?

|
USING_AS400 回复于:2005-05-24 15:16:20
| 查看一些前辈写的程序,大概知道怎么弄了!
| rebeclearcase/" target="_blank" >cca_oml 回复于:2005-05-24 15:32:43
| MESSAGE 顥示有幾種不同方式可應用..提供其中一種給你參考
(1) CRTMSGF XXXX 如下:(此 MSGF 有個好處是可供不同程序共用)
===============================================
Work with Message Descriptions
System: SXXXXXXX
Message file: XXXX Library: XXXLIB
Position to . . . . . . . Message ID
Type options, press Enter.
2=Change 4=Delete 5=Display details 6=Print
Opt Message ID Severity Message Text
[color=darkred:5cead8efa9]CPF5203 30 CPF5203--->已達最前或最後一頁[/color:5cead8efa9]
CPF5204 0 CPF5204--->功能鍵選擇錯誤
CPF5208 30 CPF5208--->小數位數輸入不正確或輸入太多數字
CPF5223 30 CPF5223--->欄位輸入錯誤
CPF5238 0 CPF5238--->請按CANCEL鍵以繼續工作
CPF6801 50 CPF6801--->功能鍵PF4使用結束
KBD0005 10 KBD0005--->此處無法輸入
KBD0008 10 KBD0008--->此欄位只能輸入字母(A-Z , .' *BLANK)
More...
Parameters or command
===>
F3=Exit F5=Refresh F6=Add F12=Cancel F24=More keys
==============================================
(2)在 DDS MESSAGE 應用編寫如下:(記得自行定義上下頁之功能鍵)
==============================================
0316.00 A R DSPC2
0317.00 A 23 2'PF03:結束作業'
0318.00 A 23 22'PF12:回前畫面'
0319.00 A 23 42'PA01:查下一頁'
0320.00 A 23 62'PA02:查上一頁'
0321.00 A ERRID 7A H
0322.00 A ERRF 10A H
0323.00 A 98 ERRMSG 70A O 24 2MSGID(&ERRID &ERRF)
0324.00 A DSPATR(HI)
===============================================
(3) 在 RPG 編寫如下
===============================================
0939.00 C BOTM1 IFEQ 'Y' [color=brown:5cead8efa9]==>判斷已是最後一筆 [/color:5cead8efa9]
0940.00 C MOVEL'CPF5203' ERRID
0941.00 C MOVEL'PTMF' ERRF
0942.00 C SETON 98
0943.00 C END
===============================================
| USING_AS400 回复于:2005-05-24 22:52:29
| 十分感谢!
| 人世间 回复于:2005-05-25 09:39:15
| 不错,又学了一招。
收藏
| fairyboy 回复于:2005-05-27 09:09:19
| 有空试一下.
| |
|
原文转自:http://www.ltesting.net
|