test.clist

PROC 2 USER TOTAL 
CONTROL NOCAPS 
WRITE *** Protecting users &USER 1 to &USER &TOTAL
DO &COUNT = 1 TO &TOTAL 
 ALU &USER&COUNT NOPASS 
END 
WRITE *** DONE