다음 예제는 클라이언트 운영 체제에서 원하는 값이 서버 운영 체제에서 사용자가 선택한 값에 따라 다르다고 가정합니다.
choices.AddItem("NT")
choices.AddItem("Unix")
push(@choices,"NT","Unix");
return @choices; #Rational ClearQuest Designer provides this line of code
SetFieldValue "client_os", ""
$entity->SetFieldValue("client_os", "");
dim server_os_choice
set server_os_choice = GetFieldValue("server_os")
select case server_os_choice.GetValue()
case "NT"
choices.AddItem ("Win95")
choices.AddItem ("NT")
choices.AddItem ("Web")
case "Unix"
choices.AddItem ("Web")
end select
$server_os_choice = $entity->GetFieldValue("server_os");
$svalue = $server_os_choice->GetValue();
if ($svalue eq "NT") {
push(@choices, "Win95","NT","Web");
} elsif ($svalue eq "Unix") {
push(@choices,"CQWeb");
}
return @choices;
#Rational ClearQuest Designer provides this line of code