I have a job which basically lists the contents of the IFS into a table. It uses IFS APIs in RPG to do so. Yes, I know about RTVDIRINF, and new capabilities in SQL for 7.4, but let's concentrate on this, please. It writes the results out to a partition (aka member) in this table. That should let you know that this program has been around a long time as I'm not a big fan of multipartition tables on systems without DB2 multisystem (which basically is too stupid crazy expensive to only use it for multipartition tables on a single system).
Regular day:
Job 685679/ROB/DSKIFS started on 11/01/19 at 08:00:00 in subsystem QBASE
in QSYS. Job entered system on 11/01/19 at 08:00:00.
IFSLIST OBJ(/) OBJTYPE(*ALL) TREELIST(Y)
Member D201911011 added to file IFSLIST in ROUTINES.
Job 685679/ROB/DSKIFS ended on 11/01/19 at 08:33:13; 19.588 seconds used;
end code 0 .
The first executable line is that IFSLIST command and that started promptly at Time sent . . . . . . : 08:00:00
Yesterday morning:
Job 687350/ROB/DSKIFS started on 11/04/19 at 08:00:00 in subsystem QBASE
in QSYS. Job entered system on 11/04/19 at 08:00:00.
Job 687350/ROB/DSKIFS submitted.
IFSLIST OBJ(/) OBJTYPE(*ALL) TREELIST(Y)
Member D201911041 added to file IFSLIST in ROUTINES.
Job 687350/ROB/DSKIFS ended on 11/05/19 at 03:10:21; 264.148 seconds used;
end code 0 .
Again, the first executable line started promptly at Time sent . . . . . . : 08:00:00. Therefore it wasn't hung up on a job queue or some such thing. No obvious MSGW replies. Just to verify
DSPLOG PERIOD((*AVAIL 110419)) JOB(687350/ROB/DSKIFS)
Job 687350/ROB/DSKIFS started on 11/04/19 at 08:00:00 in subsystem QBASE in Q
Job 687350/ROB/DSKIFS ended on 11/05/19 at 03:10:21; 264.148 seconds used; en
System is dedicated for Domino work. Probably the biggest object in DB2 is that IFSLIST file. Not a whole lot of work going on in DB2.
% of Size in
Description Disk 1,000,000 bytes
User libraries 7.21 112870.08
User directories 60.39 945608.90
Folders and documents .00 4.26
QSYS .20 3118.63
Other IBM libraries 2.09 32703.36
Licensed Internal Code .60 9397.75
Temporary space 1.62 25426.99
Unused space 27.74 434323.76
System internal objects .03 482.61
Objects not in a library .00 .02
QTEMP libraries .00 16.86
TOTAL 99.88 1563953.22
I suppose one hypothesis might be stream file locking.
DSPJOBD JOBD(ROUTINES/DSKSUM)
Routing data . . . . . . . . . . . . . . . . . . : QCMDI
DSPSBSD SBSD(QBASE)
7. Routing entries
Routing entry sequence number . . . . . . . : 50
Program . . . . . . . . . . . . . . . . . . : QCMD
Library . . . . . . . . . . . . . . . . . : QSYS
Class . . . . . . . . . . . . . . . . . . . : QINTER
Library . . . . . . . . . . . . . . . . . : QGPL
Maximum active routing steps . . . . . . . : *NOMAX
Pool identifier . . . . . . . . . . . . . . : 2
Compare value . . . . . . . . . . . . . . . : 'QCMDI'
DSPCLS CLS(QGPL/QINTER)
Default wait time in seconds . . . . . . . . . . : 30
I could modify that somehow.
DSPFD FILE(ROUTINES/IFSLIST)
File is currently journaled . . . . . . . . : No
So I cannot see when the writes were happing. The table has no row change timestamp type column.
Do you think the hypothesis is the way to go, or look at something else? Why would stream file locking be such a factor on any particular run? Perhaps a server wide Domino database maintenance run like compact/fixup/updall?
Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1
Group Dekko
Dept 1600
Mail to: 2505 Dekko Drive
Garrett, IN 46738
Ship to: Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
midrange.com
