Using another database to run LEI activities?

HCL Domino Domino Forum
1

Hello Everyone,

I have a LEI server installed and run smoothly on a domino server.

I have set up several activities on this LEI server to transfer data from DB2 source to an Oracle target. All works fine.

Now I need let some users to run these LEI activities as and when they required to do so, WITHOUT getting into LEI admin database.(descadm.nsf)

What I have done so far: and the questions …….Or appreciate if you could advise me of suitable method to achieve my objective

  1. Created another lotus notes database on the same domino server, and created a Form with some buttons.

How do make this button, when someone click it to run a LEI activity on LEI admin database?

  1. Can I have sequence of activities set to this button?

Something like

  1. To activate LEI activity on LEI admin Server

  2. To run a batch program in certain folder ( C:\ntwork\MEA.Bat)

Thanks……

Mira

2

Subject: Using another database to run LEI activities??

Here is code that I put in an agent that I gave a user a button to trigger. You should be able to modify it to suite your needs

Dim s As New NotesSession

Dim ws As New NotesUIWorkspace

Dim db As NotesDatabase

Dim leidb As NotesDatabase

Dim leiview As NotesView

Dim leidoc As NotesDocument

Dim picklist As Variant

Dim item As NotesItem

Dim gCategory As String



Set db = s.CurrentDatabase

Set leidb = s.GetDatabase( db.Server, "decsadm.nsf" )

Set leiview = leidb.GetView( "(All Activities)" )

gCategory = "Dev - Source Codes"



picklist = ws.PickListStrings( PICKLIST_CUSTOM,False, db.Server,"decsadm.nsf","Activities\By Category", "LEI Activity:","Please select the LEI Activity.", 4, gCategory)



Set leidoc = leiview.GetDocumentByKey( Cstr(picklist(0)) , True )

Set item = leidoc.ReplaceItemValue( "RunASAP", 1 )



Call leidoc.Save(False, True)

Msgbox "Activity successfully started.", , "Start Activity Action"
3

Subject: Thanks {eom}