Re: Local File Record Blocking -- RPG400-L

Should be distinct ODPs Kurt so I can’t see how having the file in two subprocs would have any impact.

It may be that local files are never blocked because by default they are not static. It should have at least have warned you if the Block(*Yes) was being ignored.

I suspect Barbara is the only one who can shed light on this. The “light” of course may come in the form of suggesting you open an APAR. On that topic - have you checked if you are up-to-date on PTFs?

Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On May 4, 2015, at 5:00 PM, Kurt Anderson <Kurt.Anderson@xxxxxxxxxxxx> wrote:

I have the following file defined in a procedure:
dcl-f InvErrP Usage( *Output ) Qualified Static;

I was looking at the job using this file and I noticed it's not blocking the output.

Member/ Record File I/O ----Open--- Relative
File Library Device Format Type Count Opt Shr-Nbr Record
INVERRP TA9LIB INVERRP INVERRF PHY 1215 O NO 1215

Sure, in this case it's not exactly a high volume file, but I feel I might learn something here.
I then modified the above InvErrP declaration to include Block(*Yes), but it didn't help.

I also have another procedure with the same file defined locally as input.
dcl-f InvErrP Qualified UsrOpn;
This procedure calls the one with the static output file define telling it to close the file before this one opens the file.

Is having two separate entries doing something to the automatic blocking detection in the RPG compiler? Or is there something else I'm missing?

I was referencing this page (sorry no ibm.biz link):
http://www-01.ibm.com/support/knowledgecenter/SSZND2_6.0.0/com.ibm.etools.iseries.pgmgd.doc/c0925076290.htm
This link of course talks about the program as a whole and globally defined files so I don't know how to apply this to a program using local files. Because in my case the two declarations of InvErrP are completely separate access paths so one being input and the other being output shouldn't prevent the two of them from blocking.

Thanks for your input. I'm on IBM i 7.2.

Kurt Anderson
Sr. Programmer/Analyst - Application Development, Service Delivery Platform
[cid:image002.jpg@01CD16F9.25D27630]
web: www.customcall.com<http://www.customcall.com/> | email: kanderson@xxxxxxxxxxxx<mailto:kanderson@xxxxxxxxxxxx>

A Division of Enghouse Systems Ltd.<http://www.enghouse.com/> (TSX:ESL)

--
This is the RPG programming on the IBM i (AS/400 and 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.