Auxillary storage on AS/400 continues to increse. At the first announcement the popular low end model B20
had a maximum of 4.80 G disks! However the need of storage seems to grow even faster. On many systems it is an
inadmissible luxery to save historic versions of program source.
Here I give you a good argument to start dooing so anyway: Cut two third of the size of your existing source files
with my PACKSRC. It's free!
The 'Pack source member(s)' command recuces the number of records in Source Physical File members to typical 10 - 50 % of its original. Use UNPACKSRC to restore the source to its original. The packed member is useless on its own. It can be saved and transmitted with less use of resources (because of it's smaller size), but it can not be read by any compiler or SEU. It is however easy to create an PDM option to unpack it. UNPACKSRC does not retain the original source change date but all content of the file (including line number and line change date) are retained after unpacking.
The command has been published previously in a version limited to 92 byte source files.
Highligts
License
Unless otherwise specified you can
only use the PACKSRC if you have got it directly from me. You
can install and use it on one single iSeries 400 (AS/400)
in any commercial or non-commercial project YOU are working on.
You can allow anyone else working on the same project on the same
iSeries 400 (AS/400) to use it. Very limited right to re-distribute (see
details that comes with the software). You
must remove the utility from machines you will no longer have
access to. You are not allowed to sell (alone or as part of
a project) any services from this utility.
You are expected within a month after download to send a message with your opinion to the author.
How to order Pack source member(s) (PACKSRC) command for IBM iSeries 400 (AS/400)
All you have to do is to fill the form.
