#!/usr/bin/perl -w

#
#  Function:  
#  Create new mvs3380+3390+3375-nnnn.zip
#

my $zip = "mvs3380+3390+3375-0009.zip";			# Config 

sub cleandir {
	my ($dir) = @_;
	chdir $dir or die "cannot chdir to $dir\n";
	system "rm *~";
}

&cleandir("/herc2/mvs/3390");
&cleandir("/herc2/mvs/3390/asm");
&cleandir("/herc2/mvs/3390/doc");
&cleandir("/herc2/mvs/3390/jcl");
&cleandir("/herc2/mvs/3390/misc");
&cleandir("/herc2/mvs/3390/smpmcs");
&cleandir("/herc2/mvs/3390/xmit");

chdir "/herc2/mvs/3390";

system "rm $zip";
system "zip $zip herc*.cnf j9*.het readme.txt asm/* doc/* jcl/* misc/* smpmcs/* xmit/*";







