Compress files libraries with a couple of commands: Just use the DTACPR(*YES) parameter on the SAV commands to a save file and retain the objects online compressed. Try it, you will be able to archive online immediately.
CRTSAVF LIB/FILENAME
SAVOBJ OBJ(FILENAME)
LIB(LIBRARY)
DEV(*SAVF)
SAVF(SAVFLIB/SAVF)
DTACPR(*YES)
This was first published in March 2001