$catCMD = "${ctpath}cleartool catcs -tag $view | grep \"_dev\""; 
        
$catOut = `catCMD 2>&1`; 
        
print "** CATCS= $catCMD\n\n $catOut\n" if ($debug_mode); 
$catRC = $?; 
if ($catRC !=0) { 
    print "ERROR9: Cannot list dev vobs for $view\n"; 
   }