Why does library have to equal user id?

Background:  We are running Domino 4.6.6c on V4R4 of OS/400.

We have an RPGLE program called SPTEST2.  It is NOT registered 
as a stored procedure.
The agent below works fine.  The problem I am trying to solve 
is 'why does  the library have to be equal to the user id?'.
I created the user profile RON2 with the following command:
CRTUSRPRF USRPRF(RON2) PASSWORD(TEST) GRPPRF(SSA) OWNER(*GRPPRF)
Notice, no special job description to get a library list from or 
anything.  Also when the user signs on to a 5250 session the 
library RON2 does not appear in their library list.  Yet the 
program works if it exists in a library called RON2.

And from the WRKRDBDIRE I have the following:
                      Display Relational Database Detail
                                                        
Relational database  . . . . . . :   GDISYS             
Remote location:                                        
  Remote location  . . . . . . . :   *LOCAL             
Text . . . . . . . . . . . . . . :                      



Sub addusingstoredprocedure
     Dim session As New notessession
     Dim conn As New ODBCconnection
     Dim query As New ODBCquery
     Dim result As New ODBCResultSet
     Dim p1 As Integer
     Dim p2 As String
     Dim servername As String
     
     Dim n As Integer
     Dim tables As Variant
     Dim msg As String
     
     If session.isonserver Then
          servername="GDISYS"
     Else
          servername="GDISYS-RON"
     End If
     
     Msgbox  "Connecting to " & servername
     
     If Not conn.connectto(servername,"RON2","TEST") Then
          Print "Could not connect to the AS/400 " & servername & "."
          Msgbox "Could not connect to the AS/400 " & servername & ".  Try 
again later.",,"Error Connecting"
          Exit Sub
     End If
     
     tables = conn.ListProcedures()
     msg = "GDISYS contains the following stored procedures:" & Chr(10)
     If Ubound(tables) = 0 Then
          Messagebox "No procedures",, "Stored Procedures list"
'          Exit Sub
     End If
     For n% = Lbound(tables) To Ubound(tables)
          msg = msg & Chr(10) & tables(n%)
     Next
     Msgbox msg
     Msgbox  "Connected to " & servername
+---
| This is the Domino/400 Mailing List!
| To submit a new message, send your mail to DOMINO400@midrange.com.
| To subscribe to this list send email to DOMINO400-SUB@midrange.com.
| To unsubscribe from this list send email to DOMINO400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: meechamw@ptd.net
+---