Filter
Top Products
5-242
5.4 Network Dedicated Instruction
5.4.31 ERRRD instruction
ZP_ERRRD
[ST]
IF((Var_Flag_Inst=TRUE) AND (Var_Flag_Exe=FALSE))THEN
MOVP(TRUE,H1,Var_ControlData[2]);
(* Sets open error code of connection number 1 *)
MOVP(TRUE,H0,Var_ControlData[3]);
(* Sets latest error information *)
SET(TRUE,Var_Flag_Exe); (* Turns execution flag ON*)
END_IF;
IF(Var_Flag_Exe=TRUE)THEN
ZP_ERRRD(TRUE,"00",Var_ControlData,Var_Result);
(* Reads error information *)
END_IF;
IF(Var_Result[0]=TRUE)THEN (* Execution finished *)
IF(Var_Result[1]=FALSE)THEN(* Normal completion *)
MOVP(TRUE,Var_ControlData[4],Var_ErrorInfo);
(* Stores error information*)
END_IF;
IF(Var_Result[1]=TRUE)THEN (* Error completion *)
MOVP(TRUE,Var_ControlData[1],Var_ErrorCode);
(* Stores error code *)
END_IF;
RST(TRUE,Var_Flag_Exe); (* Turns execution flag OFF *)
END_IF;