急。。。 请教信息问题！

USING_AS400

如图，假如到了最后一页我还按“Pg Dn”键，系统会提示“You have reached the bottom of the list.”。我现想在程序中实现这种信息提示，请问该怎么做？谢谢！

USING_AS400

查看一些前辈写的程序，大概知道怎么弄了！

rebecca_oml

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                                       
       CPF5203       30     CPF5203--->;已達最前或最後一頁                    
       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'                        ==>;判斷已是最後一筆   
0940.00      C                     MOVEL'CPF5203' ERRID               
0941.00      C                     MOVEL'PTMF'       ERRF               
0942.00      C                     SETON                                   98  
0943.00      C                     END
===============================================

USING_AS400

十分感谢！

人世间

不错，又学了一招。
收藏

fairyboy

有空试一下．