Hi,
I am new at this Attachmate stuff and was hoping someone can tell me why I am getting an error on my IF statement? I am guessing it is in my declaration somewhere.
Thanks, Rich
--------- code -----------
global CWF_scr(3)
declare function chkpos_screen() as integer
CWF_scr(1) = 01
CWF_scr(2) = 25
CWF_scr(3) = "CWF PART A"
if (chkpos_screen(CWF_scr) <> 1) then ' <-- error
...
end if
'-------------------------------
function chkpos_screen( cMsg() )
'-------------------------------
dim iL as integer
dim iP as integer
dim tStr as string
dim lStr as integer
iL = cMsg(1)
iP = cMsg(2)
tStr = cMsg(3)
lStr = len(tStr)
if ( tStr = mid(Screen(iL), iP, lStr) ) then
return 1
else
return 0
end if
end function
I am new at this Attachmate stuff and was hoping someone can tell me why I am getting an error on my IF statement? I am guessing it is in my declaration somewhere.
Thanks, Rich
--------- code -----------
global CWF_scr(3)
declare function chkpos_screen() as integer
CWF_scr(1) = 01
CWF_scr(2) = 25
CWF_scr(3) = "CWF PART A"
if (chkpos_screen(CWF_scr) <> 1) then ' <-- error
...
end if
'-------------------------------
function chkpos_screen( cMsg() )
'-------------------------------
dim iL as integer
dim iP as integer
dim tStr as string
dim lStr as integer
iL = cMsg(1)
iP = cMsg(2)
tStr = cMsg(3)
lStr = len(tStr)
if ( tStr = mid(Screen(iL), iP, lStr) ) then
return 1
else
return 0
end if
end function