aOldResultData[i] THEN bNewData:=TRUE; EXIT; ELSE bNewData:=FALSE; END_IF END_FOR rtNewData(CLK:=bNewData); IF rtNewData.Q THEN IF ststatus.uStatusBits.stStatusBits.JobPass THEN FOR i:=0 TO 479 DO aStringData[i]:=F_ToChr(stStatus.aResultData[i]); END_FOR FOR j:=42 TO 479 DO IF aStringData[j]='' THEN iEnd:=j; EXIT; END_IF END_FOR sCode:=''; FOR k:=42 TO iEnd-1 DO sCode:=CONCAT(sCode,aStringData[k]); END_FOR ELSE sCode:=''; END_IF END_IF bNewCode:=bNewData AND (sCode<>''); aOldResultData:=stStatus.aResultData; bError:=nState<>0 OR stStatus.uStatusBits.stStatusBits.JobFail; // OR stStatus.uStatusBits.stStatusBits.ErrorAvailable; ]]>