Re: [MI400] Compressing a savf file

[Dave McKenzie <davemck@xxxxxxxxxxxxx>]

2 points:

1. You evidently put in the SQL because you wanted to handle any number of
records, not just 99,999,999 (a 50 Gig savf ! ).  Instead, you can leave out
the SQL and change line 14 to:

14  DO FOREVER

Line 16 will terminate the pgm after all the records have been read.


2.  Does RCVPF have a record length of 528 and does it contain records that
came from a valid savf without alteration, or does it contain compressed
data?  The system includes a checksum in each 528-byte record and if you try
to write records to a savf that aren't identical to the records from the
original save file, it will refuse to write them into the output savf.

If you're trying to write compressed data, you will have to keep it in a
non-savf (PF or streamfile), then at the receiving end, decompress it to put
the records into their original form before writing back into a savf.

--Dave


On Tuesday 18 June 2002 06:58 am, Bruce Heath wrote:
> I know this is no longer a MI question as opposed to an AS/400 or REXX
> question.
> But I have been testing the following rexx function, but keep getting this
> error:
>
> Error in line 17: Failure in system service.
>
> the function looks as follows. (the lines numbers are only for reference)
>
> 01   'OVRDBF FILE(STDIN) TOFILE(MYLIB/RCVPF)'
> 02   'OVRDBF FILE(STDOUT) TOFILE(MYLIB/RCVSAVF)'
> 03
> 04   address EXECSQL
> 05   EXECSQL 'SET OPTION COMMIT = *NONE'
> 06   SEL = 'SELECT COUNT(*) FROM MYLIB/RCVPF'
> 07   EXECSQL 'PREPARE S1 FROM :SEL'
> 08   EXECSQL 'DECLARE C1 CURSOR FOR S1'
> 09   EXECSQL 'OPEN C1'
> 10   EXECSQL 'FETCH C1 INTO :ICOUNT'
> 11   EXECSQL 'CLOSE C1'
> 12
> 13   RECORD_COUNT = ICOUNT
> 14   DO RECORD_COUNT
> 15     PARSE LINEIN INREC
> 16   IF INREC == '' THEN LEAVE
> 17     SAY INREC
> 18   END
> 19   EXIT
>
> I have created the savf, but it looks like it cannot write to it anyway.
> If I change the STDOUT to be the screen instead, then I have no problem.
>
> Thanks again
> Bruce
>
>
> ******************* 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.
> **********************************************************