*************************************************************************************
* CREATED BY:   Paul G. Earls                                                       *
*				Institutional Research                                              *
*				Central Piedmont Community College                                  *
*				Phone: (704) 330-6399                                               *
*				Email: paul.earls@cpcc.edu                                          *
*                                                                                   *
* DATE CREATED: 02-25-2008                                                          *
* MODIFIED1:                                                                        *
* REQUESTOR:    CCPRO                                                               *
* PURPOSE:      Curriculum & Extension Sections, Seats, FTE From ICR - By Prefix    *
*               For Any Term                                                        *
*************************************************************************************;
OPTIONS PS=500 LS=80 NONUMBER NOCENTER;

LIBNAME pge1 'C:\ICRWORK\';

%LET yt01=200703; * CHANGE VARIABLE TO YEAR/TERM (EXAMPLE: 200703 FOR FALL 2007);

%LET lb01=pge1;
%LET ds01=C_;
%LET rp01=ICR_;

%LET lb02=C:\ICRWORK\;
%LET ds02=C_;
%LET rp02=FTE_;
%LET tp02=Prefix_;

DATA cuicr01 (KEEP=ADCRptTerm ADCCampus ADCPrefix ADCNumber ADCSection ADCMethod ADCTotHrs FTE Sections ADCStuCt Seats);
SET &lb01 .&ds01&rp01&yt01;
Sections=1;
Seats=ADCStuCt;
FTE=ADCTotHrs/512;
TITLE2 "Curriculum Sections, Seats, FTE From ICR By Prefix";
TITLE3 "For &yt01";
PROC SORT DATA=cuicr01; BY ADCPrefix;
PROC SUMMARY DATA=cuicr01; BY ADCPrefix;
	VAR Seats FTE;
OUTPUT OUT=cuicr01out SUM=Seats FTE;
PROC SORT NODUPKEY DATA=cuicr01; BY ADCPrefix ADCNumber ADCSection;
PROC SUMMARY DATA=cuicr01; BY ADCPrefix;
	VAR Sections;
OUTPUT OUT=cuicr02out SUM=Sections;
*PROC PRINT DATA=cuicr01out;
RUN;

DATA mergecfte;
	MERGE cuicr02out cuicr01out; BY ADCPrefix;
DROP _TYPE_ _FREQ_;
PROC PRINT DATA=mergecfte;
RUN;

PROC EXPORT DATA= WORK.MERGECFTE 
            OUTFILE= "&lb02&ds02&rp02&tp02&yt01 .xls" 
            DBMS=EXCEL2000 REPLACE;
RUN;