SOURCE> dir/date sys_programs:*zip*
 
Directory MJS_TOP:[SYS.PROGRAMS]
 
UNZIP.EXE;2           3-MAY-1994 09:37:45.00
UNZIP.NEW;1          19-AUG-2009 10:51:29.75
ZIP.EXE;3            19-AUG-2009 10:51:40.20
ZIP.EXE;2             3-MAY-1994 09:38:15.00
 
Total of 4 files.
SOURCE>
SOURCE> unzip := $sys_programs:unzip.exe
SOURCE> unzipn := $sys_programs:unzip.new
SOURCE> unzip -h
UnZip:  Zipfile Extract v5.0 of 21 August 1992;  (c) 1989 S.H.Smith and others
Versions 3.0 and later by Info-ZIP.  Bug reports ONLY to zip-bugs@cs.ucla.edu
.
.
.
SOURCE> unzipn -h
UnZip 6.00 of 20 April 2009, by Info-ZIP.  For more details see: unzip -v.
.
.
.
SOURCE> set def received_files
SOURCE> dir/secu
 
Directory $1$DGA214:[RECEIVED_FILES]
 
RS2JC092.ZIP;1       [GROGAN]                         (RWED,RWED,RWED,RWED)
 
Total of 1 file.
SOURCE> unzip RS2JC092
  Inflating: RS2JC092
SOURCE> dir/secu
 
Directory $1$DGA214:[RECEIVED_FILES]
 
RS2JC092.;1          [SYSTEM]                         (RWED,RWED,RWED,RWED)
RS2JC092.ZIP;1       [GROGAN]                         (RWED,RWED,RWED,RWED)
 
Total of 2 files.
SOURCE> del RS2JC092.;1
SOURCE> unzipn RS2JC092
Archive:  $1$DGA214:[RECEIVED_FILES]RS2JC092.ZIP;1
  inflating: RS2JC092
SOURCE> dir/secu
 
Directory $1$DGA214:[RECEIVED_FILES]
 
RS2JC092.;1          [SYSTEM]                         (RWED,RWED,,)
RS2JC092.ZIP;1       [GROGAN]                         (RWED,RWED,RWED,RWED)
 
Total of 2 files.
SOURCE> del RS2JC092.;1
SOURCE> set def [000000]
SOURCE> dir/secu received_files.dir
 
Directory $1$DGA214:[000000]
 
RECEIVED_FILES.DIR;1
                     [SYSTEM]                         (RWED,RWED,RWED,RWED)
          (DEFAULT_PROTECTION,SYSTEM:RWED,OWNER:RWED,GROUP:RWED,WORLD:RWED)
 
Total of 1 file.
SOURCE> edit/acl RECEIVED_FILES.DIR
(DEFAULT_PROTECTION,SYSTEM:RWED,OWNER:RWED,GROUP:RWED,WORLD:RWED)
.
.
.
(DEFAULT_PROTECTION,SYSTEM:RWED,OWNER:RWED,GROUP:,WORLD:RWED)
[End of ACL]
Buffer:MAIN         FILE:RECEIVED_FILES.DIR                     Insert   Forward
 
%ACLEDIT-S-FILEIN, 1 line read from file $1$DGA214:[000000]RECEIVED_FILES.DIR;1
%ACLEDIT-S-FILEOUT, 1 line written to file $1$DGA214:[000000]RECEIVED_FILES.DIR;1

SOURCE> set def received_files
SOURCE> dir/secu
 
Directory $1$DGA214:[RECEIVED_FILES]
 
RS2JC092.ZIP;1       [GROGAN]                         (RWED,RWED,RWED,RWED)
 
Total of 1 file.
SOURCE> unzip RS2JC092
  Inflating: RS2JC092
SOURCE> dir/secu
 
Directory $1$DGA214:[RECEIVED_FILES]
 
RS2JC092.;1          [SYSTEM]                         (RWED,RWED,,RWED)
RS2JC092.ZIP;1       [GROGAN]                         (RWED,RWED,RWED,RWED)
 
Total of 2 files.
SOURCE> del RS2JC092.;1
SOURCE> unzipn RS2JC092
Archive:  $1$DGA214:[RECEIVED_FILES]RS2JC092.ZIP;1
  inflating: RS2JC092
SOURCE> dir/secu
 
Directory $1$DGA214:[RECEIVED_FILES]
 
RS2JC092.;1          [SYSTEM]                         (RWED,RWED,,)
RS2JC092.ZIP;1       [GROGAN]                         (RWED,RWED,RWED,RWED)
 
Total of 2 files.
SOURCE>