急。。。请教信息问题！

发布: 2007-6-08 22:43 | 作者: seanhe | 来源: | 查看: 23次 | 进入软件测试论坛讨论

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

USING_AS400 回复于：2005-05-24 15:16:20

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

rebecca_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

有空试一下．

急。。。 请教信息问题！

急。。。请教信息问题！