WORKSET:  PROC(REQUESTED_LIMIT);

/* PROCEDURE ATTEMPTS TO ADJUST WORKING SET SIZE TO VALUE PASSED 
   AS ARGUMENT.  

   AUTHOR:  AL JAWORSKI
   DATE:    MAY 5, 1982 */

%INCLUDE $STSDEF;
%INCLUDE SYS$ADJWSL;

DCL (REQUESTED_LIMIT,CHANGE_NEEDED,CURRENT_LIMIT) FIXED BINARY(31);

STS$VALUE=SYS$ADJWSL(0,CURRENT_LIMIT);

CHANGE_NEEDED=REQUESTED_LIMIT-CURRENT_LIMIT;

STS$VALUE=SYS$ADJWSL(CHANGE_NEEDED,CURRENT_LIMIT);

END WORKSET;