"If Not conn.connectto(servername, Uname, Pwd) Then" hangs

[rob@xxxxxxxxx]

A developer here has a program that hangs every day around the same time, 
14:00 EST (not EDT).
- I've done a WRKOBJLCK OBJ(Uname) OBJTYPE(*USRPRF) to see if that user 
was in use by any server jobs and have found nothing.
- I've done a DSPLOG to see if anything jumps out and bites me, but either 
it doesn't, or I'm sensory deprived.
- I've done a DSPMSG QSYSOPR and nothing there.
- I've done a WRKOBJLCK OBJ(Uname) OBJTYPE(*USRPRF) to see if something 
there might be it.
Strange thing is that there are multiple copies of this database.  All use 
a different Uname.  And the data they access on our iSeries is in 
different file libraries.  However when one dies, they all die.
When this happens the client is basically hung until they Ctrl-Break out 
of it.
Any suggestions?  Here's what the developer sent me.

Here's the "Simplified" code that I have in the DHT database.  The "Print" 
statements will write the message out into the Notes log file.  When it is 
working, the log file will contain a "Connecting to server - GDIHQ" 
message followed by a "Connection completed" message.  When it stops 
working, there is only the "Connecting to server - GDIHQ" message.  It 
does not contain the "Connection failed." message, so it has to be hanging 
on the "ConnectTo" statement.  I can't tell you what happens between Notes 
and the AS400 database at that time.  I keep hoping something will show up 
on the AS400 side.

                Print db.filepath+" - Connecting to server - "+servername
                If Not conn.connectto(servername, Uname, Pwd) Then
                        Print db.filepath+" - Connection failed."
                        (Misc error statements)
                        Exit Agent
                End If
                Print db.filepath+" - Connection completed."

Domino 5.0.12
OS/400=V5R2
cume=TL03021
WRKPTFGRP
PTF Group             Level  Status 
SF99519                  40  Installed
SF99502                   6  Installed
SF99271                   7  Installed
SF99169                   8  Installed
SF99149                   3  Installed
SF99148                   3  Installed
SF99098                   7  Installed
SF99085                   2  Installed
SF99039                   2  Installed

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin