set sessionObj = GetSession
If sessionObj.IsMetadataReadonly Then
' ...
End If
Perl
#Get a Rational ClearQuest session
$sessionObj = $entity->GetSession();
#If the session's metadata is read-only, perform some action.
if ( $sessionObj->IsMetadataReadonly ) {
# ...
}