PROC WC01

if (AC12>15 or AC12<1) then
	errmsg("AC12 is not a valid roster number.");
	reenter AC12;
endif;


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;