All pastes #351651 Raw Edit

Unnamed

public text v1 · immutable
·published 2007-02-12 08:51 UTC
rendered paste body
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;