Re: Compressing a savf file -- MI400

Hi

You can convert a physical file to a savf using the following rex code,
Just ensure you create the RCVSAVF before hand and make sure the PF has a
record length of 528

'OVRDBF FILE(STDIN) TOFILE(<LIB>/RCVPF)'
'OVRDBF FILE(STDOUT) TOFILE(<LIB>/RCVSAVF)'
RECORD_COUNT = 99999999
DO RECORD_COUNT
 PARSE LINEIN inputrecord
 IF inputrecord == '' THEN LEAVE
 SAY inputrecord
END
EXIT


James

James L Taulbut
IT Architect
Current Project   :  CLS Project, Systems Engineering
Current Location:  IBM, North Harbour, MP :  F3L




                      "Bruce Heath"
                      <bruce.heath@zuri        To:       mi400@midrange.com
                      ch.com>                  cc:
                      Sent by:                 Subject:  Re: [MI400] 
Compressing a savf file
                      mi400-admin@midra
                      nge.com


                      18/06/2002 08:41
                      Please respond to
                      mi400







I have also tried using Leifs compression function to compress a savf and
although the compression works very well, there is a slight problem.
The resulting compressed, and eventual decompressed, files are physical
files which (this is where I may be wrong) cannot be changed back/converted
into a savf.

Thus, despite the excellent compression achieved, the result, I found, was
not useful as the contents of the original savf cannot be restored again.

Does anybody know if it is possible to either change a physical file into a
savf, or write a savf directly during decompression? or is this not
possible altogether.

Thanks in advance
Bruce




                      "Harry Williams"
                      <planesmart@telet        To:       "Mi400"
                      <mi400@midrange.com>
                      eam.net>                 cc:
                      Sent by:                 Subject:  [MI400]
                      Compressing a savf file
                      mi400-admin@midra
                      nge.com


                      18-06-2002 00:13
                      Please respond to
                      mi400






I was trying to see if I can compress save files to a size smaller that a
save file.  First is anyone has tried this I will not try it otherwise I
will try.

I was looking a leif book and I was trying to read a save file and got a
message that the length was too long. It said save files need to be 528.  I
was reading chapter 12 on compression.

The statement it had a problem with

CALLX   .SEPT(OPEN-ENTRY), OPEN-I, * ;

I do not see where the length of this file is set at all.

Any suggestions?

Harry

_______________________________________________
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.





******************* PLEASE NOTE *******************
This message, along with any attachments, may be confidential or legally
privileged.  It is intended only for the named person(s), who is/are the
only authorized recipients. If this message has reached you in error,
kindly destroy it without review and notify the sender immediately. Thank
you for your help.
**********************************************************


_______________________________________________
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.