×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
On 13-Dec-2015 22:25 -0600, CRPence wrote:
<<SNIP>> the simplest [effectively to what Jon alludes] is really
quite simple, and probably can be put in place in that scenario;
likely with a very simple code _addition_ requiring just a couple
hours to test after implementing to satisfy both that the function is
not impacted *except* with a benefit in performance by eliminating
all full-opens and full-closes. Note again, that the suggestion, if
as I expect, would not be a design change nor even any code change
[except either in a preface CL or an effective initialization for
process of the control file]. <<SNIP>>
Correction to above: "eliminating all _but one per file_ full-opens
and full-closes"; i.e. the files named in the control file would be
opened with one full-open, but shared, and all remaining opens and
closes would be effected for a shared ODP [thus invoking QDBSOPEN as the
shared-open instead of QDBOPEN as the full-open].
I prototyped what I allude above, using a simple CLP [but with an
added RPG program to effect something that the CL can not do directly,
because there is only RCVF which is] performing just a read; the
existing RPG program might need to make a minor change to ensure proper
position is obtained, but unlike with my CLP they do not have to perform
yet another open\close to make that happen, so they would see an ever
greater benefit. In my limited tests, I saw about an 18% reduction in
clock-time for 400 open\close pairs; a side benefit is a reduction in
address-use for creating temporary ODPs that would approach 100%,
increasing toward that [but of course never reaching] with each
additional shared open that is no longer a full-open in the
since-modified processing.
Post that functional coded example [with setup script] that I asked
for, and I will put in what are effectively the same changes from my
prototype, and then test to confirm that I can effect the same as with
my prototyped change using CL opens [Receive File (RCVF)] and CL closes
[Close Database File (CLOSE)].
NoteToSelf; all in QCLSRC:
FILEA [mimic OP for full opn\clo; full open, full close]
FILEA_FIX [ensures only shared opens and closes after setup]
FILEASETLL [main\no cycle *caller to effect setposn=*start]
FILEASETLX [not valid per named activation]
FILEASETL1 [expensive per cycle]
--setup-- [crtsrcpf filea; crtdupobj filea to file1 and file2;
addpfm file1 f1m1; one row srcdta="Data from F1M1:"
addpfm file2 f2m1; one row srcdta="Data from F2M1:"]
midrange.com
