Thank you Art, base on your code,need is what I need: %let date=Jan1986; %let lowdate=Jan1900; %let update=Jan2112; data test8; date=symget('date'); xx=cats('01',date); need=input(xx,date9.); lowdate=symget('lowdate'); xx2=cats('01',lowdate); low=input(xx2,date9.); update=symget('update'); xx3=cats('01',update); up=input(xx3,date9.); if 0 lt need lt 55518 then put 'year of date between 1960 and 2112'; else put 'date illegal'; run; SAS code was updated by: Mike Davis ... View more

data want;   set have;   if CHADDx=1    or ASATAK53 =1    or AIDHLP53 =1    or WLKLIM53 =1    or SOCLIM53 =1    or COGLIM31=1    or COGLIM53=1    or BLIND42= 1    or DEAF42 = 1    or ADDAYA42 =1    or ADCLIM42 =1    or ADPAIN42 in (4,5)    or ADSOCA42 in (1,2)    or DSKIDN53=1    or DSEYPR53=1    or ARTHDX=1    or JTPAIN53=1    or UNABLE53=1    or ACTLIM31=1    or ACTLIM53=1    or ADMWLM42 in (1,2)    or ADPWLM42 in (1,2)    or BENDIF31 in (3,4)    or BENDIF53 in (3,4)    or FNGRDF31 in (3,4)    or FNGRDF53 in (3,4)    or JTPAIN31=1    or LFTDIF31 in (3,4)    or LFTDIF53 in (3,4)    or MILDIF31 in (3,4)    or MILDIF53 in (3,4)    or RCHDIF31 in (3,4)    or RCHDIF53 in (3,4)    or STNDIF31 in (3,4)    or STNDIF53 in (3,4)    or STPDIF31 in (3,4,5)    or STPDIF53 in (3,4,5)    or UNABLE31=1    or WLKDIF31 in (3,4)    or WLKDIF53 in (3,4)    or WLKLIM31=1    or WRKLIM31=1    or WRKLIM53=1    or BMINDX53 GE 30; run; ... View more