Code: Select all
PROC C10_1
onfocus
valueset string VS;
do numeric ctr = 1 while ctr <= C9_VS1.length()
if not ischecked(C9_VS1.codes(ctr), C9) then
VS.add(C9_VS1.labels(ctr), C9_VS1.codes(ctr));
endif;
enddo;
setvalueset($, VS);
Code: Select all
PROC C10_1
onfocus
valueset string VS;
do numeric ctr = 1 while ctr <= C9_VS1.length()
if not ischecked(C9_VS1.codes(ctr), C9) then
VS.add(C9_VS1.labels(ctr), C9_VS1.codes(ctr));
endif;
enddo;
setvalueset($, VS);