• Subject: Why does library have to equal user id?
  • From: Rob Berendt <rob@xxxxxxxxx>
  • Date: Tue, 23 May 2000 10:59:58 -0500

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
+---


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.