What is the Library that the WRKSPLF command resides in?

I am using the i Series Access for Windows cwbx.dll module to make remote calls to an AS400 machine for the first time.  I have posted the code below as to the method I am using.  The jist of the code is there is 2 buttons 1) Connect and 2) Send command - some text boxes are filled in (IP, UserID, Password, Library, Program.  Right now I am testing just the WRKSPLF call which is why the parameter building is static.  The library I am entering in the txtLibrary textbox is QSYS and the program in txtProgram is WRKSPLF.  When I run this code it gives me the message

MCH3401 - Cannot resolve to object WRKSPLF. Type and Subtype X'0201' Authority X'0000'.

I assume that I am not using the right Library.  Keep in mind that I am a .NET developer and am ignorant to most AS400 terminology and technique.

Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
        CreateNew(txtIP.Text, txtUserID.Text, txtPassword.Text, _
                  txtLibrary.Text, txtProgram.Text)
    End Sub
 
 
 Private Sub btnSendCommand_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendCommand.Click
        Dim stringConverter As cwbx.StringConverter = New cwbx.StringConverterClass()
        'Dim parameters As cwbx.ProgramParameters = New cwbx.ProgramParametersClass()
 
        'parameters.Append("Parameter1Name", cwbx.cwbrcParameterTypeEnum.cwbrcInout, 12)
        'stringConverter.Length = 12
        'parameters("Parameter1Name").Value = stringConverter.ToBytes("SomeString".PadRight(12, " "c))
 
 
        Dim prmParameterList As New cwbx.ProgramParameters
        Dim prmParameter As cwbx.ProgramParameter
 
        Try
            prmParameter = prmParameterList.Append("PRINTPARAM", cwbx.cwbrcParameterTypeEnum.cwbrcInout)
            stringConverter.Length = 6
            prmParameter.Value = stringConverter.ToBytes("OUTPUT (*PRINT)".PadRight(15, " "c))
 
            SendCommand(prmParameterList)
        Catch ex As Exception
            Output("Error sending command" & vbCrLf & ex.Message)
        End Try
    End Sub
 
Public Sub CreateNew(ByVal strAS400 As String, ByVal strUserID As String, _
                         ByVal strPassword As String, ByVal strLibrary As String, _
                         ByVal strProgram As String)
        If Not mblnConfigured Then
            as400 = New cwbx.AS400SystemClass()
            prgAS400Program = New cwbx.Program()
 
            Try
                as400.Define(strAS400)
 
                Try
                    With prgAS400Program
                        .system = as400
                        .system.UserID = strUserID
                        .system.Password = strPassword
                        '  .libraryName = strLibrary
                        .ProgramName = strProgram
                    End With
                Catch e As Exception
                    as400 = Nothing
                    prgAS400Program = Nothing
                End Try
 
                Try
                    as400.Connect(cwbx.cwbcoServiceEnum.cwbcoServiceRemoteCmd)
                                    Catch ex As Exception
                End Try
            Catch ex As Exception
                as400 = Nothing
                prgAS400Program = Nothing
            End Try
 
        End If
    End Sub
 
  Public Sub SendCommand(ByRef prmParameterList As cwbx.ProgramParameters)
        Try
            If as400.IsConnected(cwbx.cwbcoServiceEnum.cwbcoServiceRemoteCmd) = 0 Then
                '  Lost connection with the AS400. Disconnect, then reconnect. 
                as400.Disconnect(cwbx.cwbcoServiceEnum.cwbcoServiceAll)
                as400.Connect(cwbx.cwbcoServiceEnum.cwbcoServiceRemoteCmd)
            End If
 
            prgAS400Program.Call(prmParameterList)
        Catch e As Exception
 
           ' Capture to log the errors
            If as400.Errors.Count > 0 Then
                Dim intAS400IX As Int16 = 0
 
                ' Log something here. 
                For Each [error] As cwbx.Error In as400.Errors
                    intAS400IX += 1
                Next
            End If
 
            If prgAS400Program.Errors.Count > 0 Then
                Dim intPRGIX As Int16 = 0
 
                ' Log something here. 
                For Each [error] As cwbx.Error In prgAS400Program.Errors
                    intPRGIX += 1
                Next
            End If
 
        End Try
 
    End Sub

Select allOpen in new window