I’m getting an unknown statement error for “arraylinebuild” in a procedure I’m trying to convert to X from a Pan 6 DB.
Assuming it’s the case that not everything got carried over. I wrote all the procedures in this application 18 years ago, so I have to admit that I’m not really sure what this is doing. Probable that there was a better way to do this that I couldn’t figure out at the time.
Is it the case that arraylinebuild does not exist in X? Any obvious workaround? Thanks for any help.
local total,rcount,speedpartotal
fileglobal oarray,ototal
FirstRecord
Loop
arraylinebuild oarray,";","",
?(SpeedNumber1>0,str(SpeedNumber1)+"+","")+
?(SpeedNumber2>0,str(SpeedNumber2)+"+","")+
?(SpeedNumber3>0,str(SpeedNumber3)+"+","")+
?(SpeedNumber4>0,str(SpeedNumber4)+"+","")+
?(SpeedNumber5>0,str(SpeedNumber5)+"+","")+
?(SpeedNumber6>0,str(SpeedNumber6)+"+","")+
?(SpeedNumber7>0,str(SpeedNumber7)+"+","")+
?(SpeedNumber8>0,str(SpeedNumber8)+"+","")+
?(SpeedNumber9>0,str(SpeedNumber9)+"+","")+
?(SpeedNumber10>0,str(SpeedNumber10),"")
oarray=arraystrip(oarray,"+")
oarray=oarray[1,"-0-9"]
if oarray=""
OPercent=0
else
execute “ototal=”+(oarray)
rcount=arraysize(oarray,"+")
speedpartotal=100*rcount
ototal=round((float(val(ototal))/float(val(speedpartotal)))*float(100),1)
OPercent=ototal
endif
downrecord
until info(“stopped”)