1. Какой код ошибки?
2. Например, так:
Код:
IF cmpl THEN
	IF (err=0) THEN
	 	B:=a;
	END_IF;
        Enabl := TRUE;
END_IF