DATA _NULL_; SET COUNTYDT END=EOF; /* READ SAS DATASET */ BY COUNTYNM; /* SORT SEQ */ IF FIRST.COUNTYNM THEN DO; /* NEW COUNTY ? */ NUMCTY+1; /* ADD 1 TO NUMCTY */ CTYOBS=0; /* OBS PER COUNTY TO 0 */ END; CTYOBS+1; /* ADD ONE OBSER FOR CTY */ IF LAST.COUNTYNM THEN DO; /* EOF CTY, MAKE MAC VARS*/ CALL SYMPUT('MCTY'||LEFT(PUT(NUMCTY,3.)),COUNTYNM); CALL SYMPUT('MOBS'||LEFT(PUT(NUMCTY,3.)),LEFT(CTYOBS)); END; IF EOF THEN CALL SYMPUT('MTOTCT',NUMCTY); /* MAC VAR NO DIF CTYS */ RUN; %PUT *** MTOTCT=&MTOTCT; /* DISPLAY NO OF CTYS */ %MACRO COUNTYMC; /* MACRO START */ %DO I=1 %TO &MTOTCT; /* LOOP THRU ALL CTYS */ %PUT *** LOOP &I OF &MTOTCT; /* DISPLAY PROGRESS */ PROC PRINT DATA=COUNTYDT; /* PROC PRINT */ WHERE COUNTYNM="&&MCTY&I"; /* GENERATED WHERE */ OPTIONS PAGENO=1; /* RESET PAGENO */ TITLE "REPORT FOR COUNTY &&MCTY&I"; /* TITLES AND FOOTNOTES */ FOOTNOTE "TOTAL OBSERVATION COUNT WAS &&MOBS&I"; RUN; %END; /* END OF %DO */ %MEND COUNTYMC; /* END OF MACRO */ %COUNTYMC /* INVOKE MACRO */ Message was edited by: Main ... View more

HI i have quoted my question not demanded as i framed that sentence like this as i quoted the query that is the way i want the answer .i also know this is a forum no on demand .If u know Reply to it. ... View more

Good work ... View more

data y(drop=x--r i ); set x; bounce_string=cat(a,b,c,d,e,f,g); BCount=0;CCount=0;PCount=0; do i=1 to length(bounce_string); select(substr(bounce_string,i,1)); when ("b") BCount=Bcount+1; when ("p") PCount=Pcount+1; when ("c") CCount=CCount+1; otherwise; end; end; run; proc print; run; Message was edited by: Michel_SAS ... View more

data dsn1; set dsn; by patid; cnt+1; if first.patid then cnt=1; run; proc sort data=dsn1; by patid descending cnt; run; data dsn2; set dsn1; by patid; retain totcnt; if first.patid then totcnt=cnt; output; run; proc print data=dsn2; run; or ... View more

got it data y(drop= a--g i); set x; array arr _character_; bcount=0;Ccount=0;Pcount=0; do i=1 to dim(arr); select (arr); when ("B") Bcount=Bcount+1; when ("C") Ccount=Ccount+1; when ("P") Pcount=Pcount+1; end; end; run; ... View more