Checking in a New Document with WebDocs .Net API

From Support

Option Explicit

Sub Main

'Method: docCheckinNew32  
'Desc: Checkin New Document
'Public Function docCheckInNew32(ByVal sWebDocsUserID As String, ByVal sIFSFile As String, ByVal sDocumentType As 'String, ByVal sDocFolder1 As               String, ByVal sDocFolder2 As String, ByVal sDocFolder3 As String, ByVal sDocFolder4 As 'String, ByVal sDocFolder5 As String, ByVal sDocumentTitle As 
String, ByVal sDocKeyword1 As String, ByVal 'sDocKeyword2 As String, ByVal sDocKeyword3 As String, ByVal sDocKeyword4 As String, ByVal sDocKeyword5 As String, 'ByVal sDocKeyword6 As String, ByVal sDocKeyword7 As String, ByVal sDocKeyword8 As String, ByVal sDocKeyword9 As 'String, ByVal sDocKeyword10 As String, ByVal sDeleteIFSFile As String, Optional ByVal sCompMessage As String = '"*COMP", Optional ByVal lPCFileSize As Int32 = 0, Optional ByVal sSkipCopy As String = "") As Int32

Dim objWD As Object Dim rtnbool As Boolean Dim rtnTempFile As String Dim rtnDocID As String Dim sSkipCopy As String Dim rtn As Long Dim results() As Variant Dim resultsobj() As Variant

Load WebDocs DotNet API

Set objWD= CreateObject("WebDocsAPILib.WebDocsAPI")

Connect to iSeries

rtnbool = objWD.dociSeriesConnect("125.1.1.54", "WDUSER", "WDPASSWORD")

Bail if not connected

If rtnbool = false then
      MsgBox("Unable to Connect to iSeries.")
      Exit Sub
End If    

Upload Local PC File to iSeries in Temp Folder (/RJSTEMP) This API returns an IFS temp file name if successful

rtnTempFile = objWD.docUploadIFSFileTemp("c:\test.pdf")

If temp file was uploaded, attempt to check it in.

If rtnTempFile <> "" Then
   'Check in New Document
   rtn = objWD.docCheckInNew32("WDUSER", rtnTempFile, "DOCTYPE", "FOLDER1", "FOLDER2", "FOLDER3", "FOLDER4", "FOLDER5", "Document Title", "Key1", "Key2", "Key3", "Key4", "Key5", "Key6", "Key7", "Key8", "Key9", "Key10", "*YES", "*COMP", 0, "*NO")
   If rtn <> 0 Then
     ' Display Last Error
      MsgBox(rtn & " " & objWD.getLastErrorMessage)
   Else
   ' Successful checkin. Display Last Document ID
   MsgBox("Checkin complete: " & objWD.getLastDociD)
   End If
End If

Return Last Document ID from WebDocs API after checkin.

rtnDocID=objWD.getLastDociD

Release WebDocs API Object

Set objWD = Nothing

End Sub