#!/bin/csh
# set pgm=($argv[*])

if( $argv[1] == "all") then
     echo "pull all files in disk" $argv[*]
     dcp bpa50/eohbdlc::"disk1:[eohbdlc.pvm.src_31]*.*;" .
else
     echo "pull from vms: " $argv[*]
     set inp=($argv[*])
     dcp bpa50/eohbdlc::"disk1:[eohbdlc.pvm.src_31]$inp" .
endif

     echo -n "Enter list of files or wildcards to transfer: "
     set inp=($<)
     if(inp != "") then
       dcp bpa50/eohbdlc::"disk1:[eohbdlc.pvm.src_31]$inp" .
     endif
