src/cmd/INIT/ldd.mvs.390

   1 : mvs.390 ldd
   2 case $# in
   3 1)      header=0 ;;
   4 *)      header=1 ;;
   5 esac
   6 for file
   7 do      case $header in
   8         1)      echo "$file:"
   9                 header=2
  10                 ;;
  11         2)      echo
  12                 echo "$file:"
  13                 ;;
  14         esac
  15         strings $file |
  16         sed -e '/\<[[:lower:]][[:alnum:]]*\.dll\>/!d' -e 's/^/  /' |
  17         sort -u
  18 done