SAS: How to create password protected SAS Datasets through EG

/*Assigning password "green" to dataset "testpass"*/
proc datasets lib = work;
modify testpass (pw=green);
run;


/*Change Existing password "green" to "red" for dataset "testpass"*/
proc datasets lib = work;
modify testpass (pw=green/red);
run;

/*Removing password "green" from dataset "testpass"*/
proc datasets lib = work;
modify testpass (pw=green/);
run;

/*Reading into another dataset*/
data testpass_next;
set testpass(read=red);
run;