VBScript To Insert Values Into UBE Data Selection List Of Values

First off… Shannon Moir ROCKS!

He has put together a VBScript that will insert a list of values into the UBE Data Selection List of Values text area on a fat client. If you do much data migration or data refresh work this script will really help.

set objShell = wscript.createobject("WScript.Shell")
 
Do until success = True
 Success = objshell.AppActivate("List Of Values") 
 wscript.sleep 1000 
Loop
 
wscript.sleep 100 
wscript.echo "Start data pump"
wscript.sleep 100 
Success = objshell.AppActivate("List Of Values") 
objshell.sendkeys "+{tab}+{tab}"
 
objshell.sendkeys "F98840~"
objshell.sendkeys "F98800~"
objshell.sendkeys "F98830~"
objshell.sendkeys "F98810~"
objshell.sendkeys "F594218~"
objshell.sendkeys "F590001~"
objshell.sendkeys "F594213~"
objshell.sendkeys "F590120~"
objshell.sendkeys "F594109~"
objshell.sendkeys "F4096~"
objshell.sendkeys "F0901D~"
objshell.sendkeys "F38111~"
objshell.sendkeys "F594111~"
objshell.sendkeys "F594110~"
objshell.sendkeys "F599312~"
objshell.sendkeys "F62UI13~"
objshell.sendkeys "F56108~"
objshell.sendkeys "F1204~"
objshell.sendkeys "F01131~"
objshell.sendkeys "F56107~"
objshell.sendkeys "F03B16~"
objshell.sendkeys "F3403~"
objshell.sendkeys "F6110~"
objshell.sendkeys "F57150~"
objshell.sendkeys "F470561~"
objshell.sendkeys "F00165~"
objshell.sendkeys "F43199~"

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.

Previous post EnterpriseOne IBM iSeries (AS400) Power Outage Fix
Next post Common Java KeyTool Commands