MODULE CHKACT=	!Test program for new CHK_ACCESS
BEGIN
	LIBRARY 'RMCOPY';
	LITERAL DEVMAX = 6,
		PATMAX = 100;
	OWN CHKBLK:CHK$ARGBLK;
	OWN FILE:BLOCK[CH$ALLOCATION(50)];!:INITIAL (%ASCIZ 'LIB:FOO.BAR');
	OWN DEVBLK:BLOCK[CH$ALLOCATION(DEVMAX)];
	OWN PATH:BLOCK[CH$ALLOCATION(PATMAX)];
GLOBAL ROUTINE SETBLK=
BEGIN
	CHKBLK [CHK$SPEC$PTR] = CH$PTR (FILE);
	CHKBLK [CHK$DEV$PTR] = CH$PTR (DEVBLK);
	CHKBLK [CHK$DEV$CNT] = 0;
	CHKBLK [CHK$DEV$MAX] = DEVMAX;
	CHKBLK [CHK$PRO] = 0;
	CHKBLK [CHK$LIM] = 0;
	CHKBLK [CHK$ACCESS$VAL] = CHK_AC$REA;
	CHKBLK [CHK$PATH$PTR] = CH$PTR (PATH);
	CHKBLK [CHK$PATH$MAX] = PATMAX;
	CHKBLK [CHK$PATH$CNT] = 0;
END;! of SETBLK
END ELUDOM