如何從SYSOUT中刪除DFSORT消息

Question

DFSORT有幾條消息，它由COBOL程序在內部使用，該程序有幾種排序操作。我想刪除這些DFSORT消息並僅保留來自COBOL程序的消息。

Answer 1

可以通過在JCL程序的執行步驟中指定ddname MSGDDN來重定向COBOL progrom的DFSORT消息（使用內部排序）。 例如

 

    //DFSOUTDD  DD DISP=SHR,DSN=XXX.DFSOUT 
    //DFSPARM   DD * 
     MSGDDN=DFSOUTDD 
    /* 

Answer 2

您有三種選擇。

使用OUTDD（ddname）企業COBOL編譯器選項更改用於DISPLAY輸出的DDName。

使用您發現的DFSPARM來更改DDName SORT在從程序調用（調用）它的消息時的使用（就像在COBOL中使用SORT或MERGE動詞時一樣）。

使用SORT-MESSAGE特殊寄存器。

如果您的SORT是獨立的，您還可以使用OPTION控制語句OPTION MSGDDN=ddname更改SORT消息文件。 DFSPARM是允許爲被調用的SORT/MERGE提供OPTION的方式。

您還有語言環境，它可以在運行單元期間爲語言環境（運行時錯誤，異常結束，請求的信息）中的消息使用SYSOUT。有一個MSGFILE（ddname）運行時選項讓LE使用不同的ddname。

最容易解決您問題的方法是使用OUTDD（ddname）編譯器選項。然後，您不必擔心DFSORT（或其他站點上的SyncSORT）或語言環境。

您可以使用MSGPRT選項禁止所有DFSORT消息。您可以通過爲每次調用指定帶FREE = CLOSE的DFSPARM DD來以不同方式處理DFSORT的多個調用。