PROC WC01

i = AC12;
	if (LF01(i)=1 or LF02(i)=1 or LF03(i)=1 or LF04(i)=1 or LF05(i)=1) and $=2 then
		errmsg("Person has been working.");
		reenter $;
	endif;