Creating an object via Function Library

[sshukla12]

Hi,

Please find the below code 4 refrence:

Code:

Set vo_ResDesc=createDescription("Link",DataTable("REScreateexport",dtGlobalSheet))


Function createDescription(vs_micClass,vs_Text)

   '_________________________________________________________________

'   Function: createDescription
'   Project: OCM
'   Library: Thales Functional Library
'   Description: This function will create the Description for the specified object
   '_________________________________________________________________

   'Variable Declaration:
   Dim vo_ResDesc
  

   '___________________________________________________________________

   'Code:
   Set vo_ResDesc=Description.Create()
   vo_ResDesc("micclass").value=vs_micClass
   vo_ResDesc("text").Value=vs_Text
   Set createDescription=vo_ResDesc
  

  
End Function

Let me know in case of any help required.

Regards,
Sankalp