Copy the document only if the copied document is classified to a specific class ("ClassA"), and assign that class to the copied document. If the copied document has another classification result, cancel the copy action.

' Project Script
Private Sub Batch_BeforeCopyDocument(pSrcXDocInfo As CASCADELib.CscXDocInfo, sClassName As String, bCancel As Boolean) 
   If pSrcXDocInfo.XDocument.ExtractionClass = "ClassA" Then       sClassName =  pSrcXDocInfo.XDocument.ExtractionClass 
   Else 
      bCancel = True 
   End If 

End Sub 

' Project Script
Private Sub Batch_AfterAddDocument(pSrcXDocInfo As CASCADELib.CscXDocInfo, pNewXDocInfo As CASCADELib.CscXDocInfo) 
   Dim n As Long  
   For n = 0 To pSrcXDocInfo.XDocument.Fields.Count - 1 
      pNewXDocInfo.XDocument.Fields(n).InitiFromField(pSrcXDocInfo.XDocument.Fields(n)) 
   Next n  
End Sub