home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 29 Fixes_o
/
29-Fixes_o.zip
/
cobunzip.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-02-17
|
956b
|
42 lines
/*------------------------------------------------------*/
/* PROGRAM: COBUNZIP.CMD */
/* Unzip VisualAge COBOL 1.1 CSD #1 ZIP files */
/* COPYRIGHT: Copyright (C) International Business */
/* Machines Corp. 1996 */
/*------------------------------------------------------*/
basename = 'cob111'
nfiles = 9
parse upper arg options
if options == "?" | options == "/?" then do
say "Usage: cobunzip [/d]"
say " Unzip CSD files."
say " Use option /d to delete zip files after unzipping."
say " Requires PKUNZIP2.EXE."
exit
end
if options == "/D" then
delete = TRUE
else
delete = FALSE
do i = 1 to nfiles
if i < 10 then
num = "0" || i
else
num = i
zipname = basename || num || ".zip"
'pkunzip2 -d -o' zipname
if delete == TRUE then
'del' zipname
end
exit