RE: [MI400] Compressing a savf file

["Adrian Oprea" <aoprea@xxxxxxxxxxxxx>]

Rolf,
I would be interested to find out how you test the size of the zip file to
burn the CD.
I am looking for a way to do that automatically for quite a while.

Thanks,
Adrian
-----Original Message-----
From: mi400-admin@midrange.com [mailto:mi400-admin@midrange.com]On
Behalf Of Rolf Mittag
Sent: Tuesday, June 18, 2002 9:36 AM
To: mi400@midrange.com
Subject: Re: [MI400] Compressing a savf file


>> FTP them to a platform that supports PKZIP or WinZip, then zip

> There is an AS400 Zip, although I remember it was on the same price line
as
> any AS/400 software, that is, expensive.

in fact it's there and it's free with Java :

cpyToStmF &savFilPth &stmFilPth +
          stmFOpt(*replace) cvtDta(*none) endLinFmt(*fixed)

chgVar &qShCmd ('jar cf ' *cat &savDir *tCat &zipNamW +
                *bCat &wrkDir *tCat '*')

qSh cmd(&qShCmd)

just fill in the appropriate values for the variables, e.g.
&savFilPth = '/qsys.lib/yourLib.lib/savefile.file' ... copy all
your save files to the directory &wrkDir and you'll have 1
.zip file with your saves.

I do it every night and burn a CD when I've reached 650 MB ;-)

hth Rolf

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
! Dipl.Inf.(FH) Rolf P Mittag  IBM Partner in Development     !
! Leipziger Str. 50            D-69214 Eppelheim              !
! Fon: +49 (6221) 76 78 60     Fax: +49 (6221) 76 80 26   /"\ !
! eMl: rm@r-m-e-d-v.de                                    \ / !
!                                                          X  !
!              ASCII Ribbon campaign against HTML E-Mail  / \ !
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*


_______________________________________________
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/mi400
or email: MI400-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.