ClearQuest Web および ClearQuest Eclipse のクライアントでは、警告メッセージ パラメータを通常のフック エラー メッセージに埋め込むことで、フックがユーザーにエラー、警告、および情報の警告メッセージを示すことができます。ただし、ClearQuest for Windows のクライアント、ユーザーが記述したスクリプト、および古いクライアントが警告メッセージ パラメータを認識しない可能性があるため、以下のグローバル フックをスキーマに追加してから、そのグローバル フックを介してこの機能にアクセスする必要があります。このフックは、クライアントがカスタム メッセージをサポートしていない場合には通常の die ステートメントにメッセージ パラメータを使用しますが、クライアントがサポートしている場合にはカスタム メッセージを出して異常終了します。
以下の DieWithCustomMessage 関数は、die ステートメントを使用できるすべての場所から呼び出すことが可能で、現行操作での die ステートメントと同じ効果があります。例えば、アクセス制御フックから DieWithCustomMessage 関数を呼び出すと、die ステートメントが失敗を示す場合と全く同じように失敗を示しますが、カスタム メッセージを出します。
グローバル フック コードのダウンロード手順については、http://www.ibm.com/support/docview.wss?&rs=939&uid=swg21322606 のテクニカル ノート 1322606 を参照してください。
sub Defect_generate_error_message { my($result); my($param) = @_; # record type name is Defect $error_summary="ReturnCustomErrorMessage"; $error_details="Error message: Clicking this button will activate a computer virus!"; # $result=&DieWithCustomMessage($error_summary,$error_details,"ERROR"); DieWithCustomMessage("ERROR",$error_summary, $error_details); return $result; }
sub Defect_generate_warning_message { my($result); my($param) = @_; # record type name is Defect $error_summary="ReturnCustomWarningMessage"; $error_details="Warning message: Do not smoke at the work place!"; DieWithCustomMessage("WARNING",$error_summary, $error_details); return $result; }
sub Defect_generate_info_message { my($result); my($param) = @_; # record type name is Defect $error_summary="ReturnCustomInfoMessage"; $error_details="Information message: Welcome to Beijing!"; DieWithCustomMessage("INFO",$error_summary, $error_details); return $result; }
Function recordtype_ErrorMessage(param) ' param As Variant ' record type name is recordtype REM add your hook code here Dim error_summary Dim error_details error_summary="ReturnCustomErrorMessage" error_details="Error message: Clicking this button will activate a computer virus!" ' $result=&DieWithCustomMessage($error_summary, $error_details,"ERROR"); call DieWithCustomMessage("ERROR",error_summary, error_details) End Function
Function recordtype_WarningMessage(param) ' param As Variant ' record type name is recordtype REM add your hook code here Dim error_summary Dim error_details error_summary="ReturnCustomWarningMessage" error_details="Warning message: Do not smoke at the work place!" call DieWithCustomMessage("WARNING",error_summary, error_details) End Function
Function recordtype_InfoMessage(param) ' param As Variant ' record type name is recordtype REM add your hook code here Dim error_summary Dim error_details error_summary="ReturnCustomInfoMessage" error_details="Information message: Welcome to Beijing!" call DieWithCustomMessage("INFO",error_summary, error_details) End Function