Sometimes we required to change any parameter or condition at runtime.
I have developed a very simple yet powerful 3gl which accepts parameter from the user and based on input of the user, value of the variable modified.
In following example user is asked to provide percentage value which will be stored in the variable.
|******************************************************************************
|* Test 3GL
|* 21/06/14 [12:41]
|******************************************************************************
|* Script Type: 0
|******************************************************************************
function main()
{
domain tcmcs.str10 hold.path
domain tcmcs.long ret
hold.path= "10"
| hold.path="C:\Program Files\Microsoft Office\Office"
exec_dll_function("ottdllinputstr", "input.string", ret,
"New Commission Percentage", "Enter New Value:", 50, 50, hold.path)
if ret then
|****HERE EXECUTE YOUR FUNCTION WITH NEW VALUE IN hold.path************
| hold.path = hold.path&"\excel.exe"&" c:\temp\convert.xls"
| exec_dll_function("ottdllbw", "app_start", ret, hold.path,
| "", "", "", "", "")
endif
}
I have developed a very simple yet powerful 3gl which accepts parameter from the user and based on input of the user, value of the variable modified.
In following example user is asked to provide percentage value which will be stored in the variable.
|******************************************************************************
|* Test 3GL
|* 21/06/14 [12:41]
|******************************************************************************
|* Script Type: 0
|******************************************************************************
function main()
{
domain tcmcs.str10 hold.path
domain tcmcs.long ret
hold.path= "10"
| hold.path="C:\Program Files\Microsoft Office\Office"
exec_dll_function("ottdllinputstr", "input.string", ret,
"New Commission Percentage", "Enter New Value:", 50, 50, hold.path)
if ret then
|****HERE EXECUTE YOUR FUNCTION WITH NEW VALUE IN hold.path************
| hold.path = hold.path&"\excel.exe"&" c:\temp\convert.xls"
| exec_dll_function("ottdllbw", "app_start", ret, hold.path,
| "", "", "", "", "")
endif
}
No comments:
Post a Comment