#!/bin/csh -fv
set p = `lsdev -C | grep pdisk | sort | awk '{ print $1 }'`
echo $p

top:

foreach j ( $p )
	/usr/lpp/ssatools/ssaident -l $j -y
	sleep 5
	/usr/lpp/ssatools/ssaident -l $j -n
end

goto top