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                                    
