2012-09-22 80 views
1

假設在CL程序中聲明瞭顯示文件。它接受一些用戶輸入並對其進行一些驗證。如果驗證失敗,則會在顯示文件的底部顯示一條消息。在CL中可以實現這一點嗎?我已經嘗試了使用MSGTYPE(* DIAG)的SNDPGMMSG,但該消息僅在程序終止後才顯示,而不是在執行過程中的顯示文件中顯示。如何在CL程序的顯示文件底部顯示消息?

要從消息文件中檢索要發送的消息,所以使用字段來顯示消息是不適用的。

回答

4

通常情況下,我們使用消息子文件來實現上述要求。 它可以在CL和RPG的顯示文件中完成

對於CL示例,您可以在這裏閱讀http://www.mcpressonline.com/cl/the-cl-corner-letting-the-user-know-what-s-right-and-wrong.html。 您可以搜索其他示例的「cl程序消息子文件」

+0

是否有可能沒有消息子文件? –

+0

如果沒有消息子文件,我使用帶有RTVMSG的@Buck Calabro建議的方法從消息文件中檢索消息描述。 – lamLam

+0

那麼SNDPGMMSG不能使消息顯示在沒有消息子文件的顯示文件中呢? –

1

在顯示文件DDS中定義75個字符的字段。稱它爲MESSAGE。在你的CL做類似的事情:

if (&option *ge '35') do 
    CHGVAR &MESSAGE 'Invalid option chosen' 
    goto getOption 
enddo 
+0

好吧,我需要從消息文件中檢索要發送的消息,所以這個消息不太適合。 –

+0

該問題的描述不包括消息文件要求。 @lamLam的答案是經驗豐富的中端程序員使用的答案。 –