New user, and need some help... we download data from ADP to a Procomm terminal screen to capture data. Everything works fine, except sometimes the page will "hang up" or "skip" pages. It might go from page 25 to 30 "just an example". Therefore we are not getting a good download. Below is a few lines of the script:
func LoginAdp:integer
param string p_strUserName
param string p_strPassword
transmit "^M"
waitfor "login" NORM_TIMEOUT
if success
goto Login
endif
waitfor "user id" NORM_TIMEOUT
Login:
transmit p_strUserName ;USERID
transmit "^M"
pause 3
transmit p_strPassword;PASSWORD
transmit "^M"
waitfor "Function" NORM_TIMEOUT
if Failure
return 0
endif
if 1 == 0
;ChangePwd(p_strDealerNum)
endif
pause SHORT_TIMEOUT
sendvkey VK_RETURN
return 1
endfunc
proc adpSetup
call ResetEvents
set terminal type VT220
set terminal keyboardfile VT220_KBD
set terminal columns 132
set terminal rows 25
set terminal sbpages 1300
when target PAGE_EVENT "Press any Key" call TransmitEnterKey
when target EXIT_EVENT "F3=EXIT" call TransmitF3
;when USEREXIT call Exit_User
endproc
Thanks in advance for any help!
func LoginAdp:integer
param string p_strUserName
param string p_strPassword
transmit "^M"
waitfor "login" NORM_TIMEOUT
if success
goto Login
endif
waitfor "user id" NORM_TIMEOUT
Login:
transmit p_strUserName ;USERID
transmit "^M"
pause 3
transmit p_strPassword;PASSWORD
transmit "^M"
waitfor "Function" NORM_TIMEOUT
if Failure
return 0
endif
if 1 == 0
;ChangePwd(p_strDealerNum)
endif
pause SHORT_TIMEOUT
sendvkey VK_RETURN
return 1
endfunc
proc adpSetup
call ResetEvents
set terminal type VT220
set terminal keyboardfile VT220_KBD
set terminal columns 132
set terminal rows 25
set terminal sbpages 1300
when target PAGE_EVENT "Press any Key" call TransmitEnterKey
when target EXIT_EVENT "F3=EXIT" call TransmitF3
;when USEREXIT call Exit_User
endproc
Thanks in advance for any help!