일부 조건부 논리를 적용하기 위해, 현재 조치를 수행 중인 레코드의 대상 상태를 판별할 수 있습니다. 다음은 몇 가지 예제입니다.
Sub Defect_Notification(actionname, actiontype) Dim cqSes ' a Session object Dim entDef ' an EntityDef object Dim actionname ' a String Dim actiontype ' a Long ' action = test_base set cqSes = GetSession ' NOTE: You can also have conditional logic based on the ' current action set entDef = cqSes.GetEntityDef(GetEntityDefName) if entDef.GetActionDestStateName(actionName) = "Closed" then ' put send notification message code here end if End Sub
sub Defect_Notification {
my($actionName, $actiontype) = @_;
# $actionName as string scalar
# $actiontype as long scalar
# action is test_base
$actionName = $entity->GetActionName();
# NOTE: You can also have conditional logic based on the
# current action
# You can use the $session variable that Rational ClearQuest provides.
$entDef = session->GetEntityDef($entitiy->GetEntityDefName());
if ($entDef->GetActionDestStateName($actionName) eq "Closed")
{# put send notification message code here}
}