RE: Output record blocking

Tony,

If the physical (or any logical over the physical?) has a unique key.  The
blocking is turned off.  Otherwise the DB would not be able to ensure
uniqueness.

HTH,

Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: Tony Carolla [mailto:carolla@xxxxxxxxx]
> Sent: Friday, November 05, 2004 1:40 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Output record blocking
> 
> 
> I have written a program that is doing output to a file.  The output
> file is declared as such:
> 
>      FRvp1      O    E             Disk    ExtFile('DMME/RVP1')
>      F                                     Block(*Yes)
>      F                                     UsrOpn
> 
> When writing to this file, if I look at the 'Display Open Files'
> display for the job, the I/O Count and Relative Record number for this
> file stay the same.  As I understand, this means that the program is
> performing one write operation for each WRITE op that is executed in
> the program (not using blocking).
> 
> I have no overrides to the file, and I am simply usign the WRITE op. 
> The only two things that might be causing it are:
> 
> 1)  I am writing from a DS, i.e. 
> Write Rrvp1 RvpOut;
> The DS was defined:
>      D RvpOut          DS                  LikeRec(Rrvp1:*Output)
> 
> 2)  I have the same file opened for input with a different F-spec:
>      FRvp1      O    E             Disk    ExtFile('DMME/RVP1')
>      F                                     Block(*Yes)
>      F                                     UsrOpn
> 
> 3)  I have two logicals over this file opened also, with 
> blocking turned off.  
> 
> When I look in the job log, I get the message:
> Open of member RVP1 was changed to SEQONLY(*NO).
> I have never understood that message, or what causes it.  I have the
> file declared with no 'K', so I don't understand why this message says
> that I opened it in some 'seuqential' way... But it might not be
> related.
> 
> I like things to run fast, and without record blocking on this
> program, I know it could go faster.  Has anybody else had this
> problem?
> 
> 
> 
> -- 
> "Enter any 11-digit prime number to continue..."
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>