get disk serial ids in AIX

#!/bin/sh

lspv | awk '{ print $1 }' | while read d;do
        S=`lsmpio -ql $d | grep -i serial | awk '{ print $3 }'`
        echo "$d : $S"
done