If Not IsObject(application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = application.Children(0)
End If
If Not IsObject(session) Then
Set session = connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject application, "on"
End If
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "/nsm37"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/txtBTCH2170-JOBNAME").text = "PFCG_TIME_DEPENDENCY"
session.findById("wnd[0]/usr/txtBTCH2170-JOBNAME").caretPosition = 20
session.findById("wnd[0]").sendVKey 8
session.findById("wnd[0]/usr/chk[1,12]").selected = true
session.findById("wnd[0]/tbar[1]/btn[45]").press
session.findById("wnd[0]/usr/lbl[5,3]").setFocus
session.findById("wnd[0]/usr/lbl[5,3]").caretPosition = 5
session.findById("wnd[0]/mbar/menu[2]/menu[4]").select
session.findById("wnd[0]/tbar[1]/btn[17]").press
session.findById("wnd[1]/usr/ctxtG_0400_DATA-SELECTED_OBJECT-OBJ_NAME").text = "ZRHR_COMPARE_LEAVE_REPORT"
session.findById("wnd[1]/usr/ctxtG_0400_DATA-SELECTED_OBJECT-OBJ_NAME").caretPosition = 25
session.findById("wnd[1]").sendVKey 0
session.findById("wnd[0]").sendVKey 8
session.findById("wnd[0]/usr/txtP_TAB").text = "X"
session.findById("wnd[0]/usr/txtP_TAB").caretPosition = 1
session.findById("wnd[0]").sendVKey 8
session.findById("wnd[0]/usr/ctxtGD-TAB").text = "AGR_DEFINE"
session.findById("wnd[0]/usr/txtGD-MAX_LINES").text = ""
session.findById("wnd[0]/usr/txtGD-MAX_LINES").setFocus
session.findById("wnd[0]/usr/txtGD-MAX_LINES").caretPosition = 0
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]").sendVKey 8
session.findById("wnd[0]/usr/cntlRESULT_LIST/shellcont/shell").currentCellRow = -1
session.findById("wnd[0]/usr/cntlRESULT_LIST/shellcont/shell").selectColumn "AGR_NAME"
session.findById("wnd[0]/usr/cntlRESULT_LIST/shellcont/shell").pressToolbarButton "&SORT_DSC"
Set SapGuiAuto = GetObject("SAPGUI")
Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = application.Children(0)
End If
If Not IsObject(session) Then
Set session = connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject application, "on"
End If
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "/nsm37"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/txtBTCH2170-JOBNAME").text = "PFCG_TIME_DEPENDENCY"
session.findById("wnd[0]/usr/txtBTCH2170-JOBNAME").caretPosition = 20
session.findById("wnd[0]").sendVKey 8
session.findById("wnd[0]/usr/chk[1,12]").selected = true
session.findById("wnd[0]/tbar[1]/btn[45]").press
session.findById("wnd[0]/usr/lbl[5,3]").setFocus
session.findById("wnd[0]/usr/lbl[5,3]").caretPosition = 5
session.findById("wnd[0]/mbar/menu[2]/menu[4]").select
session.findById("wnd[0]/tbar[1]/btn[17]").press
session.findById("wnd[1]/usr/ctxtG_0400_DATA-SELECTED_OBJECT-OBJ_NAME").text = "ZRHR_COMPARE_LEAVE_REPORT"
session.findById("wnd[1]/usr/ctxtG_0400_DATA-SELECTED_OBJECT-OBJ_NAME").caretPosition = 25
session.findById("wnd[1]").sendVKey 0
session.findById("wnd[0]").sendVKey 8
session.findById("wnd[0]/usr/txtP_TAB").text = "X"
session.findById("wnd[0]/usr/txtP_TAB").caretPosition = 1
session.findById("wnd[0]").sendVKey 8
session.findById("wnd[0]/usr/ctxtGD-TAB").text = "AGR_DEFINE"
session.findById("wnd[0]/usr/txtGD-MAX_LINES").text = ""
session.findById("wnd[0]/usr/txtGD-MAX_LINES").setFocus
session.findById("wnd[0]/usr/txtGD-MAX_LINES").caretPosition = 0
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]").sendVKey 8
session.findById("wnd[0]/usr/cntlRESULT_LIST/shellcont/shell").currentCellRow = -1
session.findById("wnd[0]/usr/cntlRESULT_LIST/shellcont/shell").selectColumn "AGR_NAME"
session.findById("wnd[0]/usr/cntlRESULT_LIST/shellcont/shell").pressToolbarButton "&SORT_DSC"