急。。。 请教信息问题!

发表于: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