FOCUS program :

-*begin doc
-*
-*INPUT
-*	TERM
-*
-*	This procedure produces the generate a report showing
-*      average class size.
-*
-*
-*end doc
-*
JOIN CLEAR *
SET LINES=56
-PROMPT &TERM/A5.ENTER THE FIVE DIGIT TERM FOR THE AVERAGE CLASS SIZE LIST (CCYYX) :
-*
JOIN CLEAR *
DEFINE FILE RCFILE
SECT_CNT/I4=1;
STU_CNT/P07.2= SECT_TALLY_ENRL;
END
TABLE FILE RCFILE
HEADING
" "
"AVERAGE CLASS SIZE"
" "
PRINT SECTION_ID SECT_TALLY_ENRL
BY HIGHEST SECT_TALLY_ENRL NOPRINT
IF TERM EQ '&TERM'
IF COLLEGE NE 'CE'
IF ACTIVITY_TYPE1 EQ 'LEC'
IF SECT_STATUS NE 'X'
IF SECT_TALLY_ENRL GT 0
ON TABLE HOLD AS REPORT1 FORMAT WP
END
-*
TABLE FILE RCFILE
SUM CNT.SECT_CNT STU_CNT
IF TERM EQ '&TERM'
IF COLLEGE NE 'CE'
IF ACTIVITY_TYPE1 EQ 'LEC'
IF SECT_STATUS NE 'X'
IF SECT_TALLY_ENRL GT 0
ON TABLE HOLD AS RCTEMP1
END
-*
DEFINE FILE RCTEMP1
AVG_CLASS_SIZE/P07.2=STU_CNT/SECT_CNT;
END
TABLE FILE RCTEMP1
HEADING
" "
"AVERAGE CLASS SIZE"
" "
PRINT AVG_CLASS_SIZE AS 'Average Class Size'
ON TABLE HOLD AS REPORT2 FORMAT WP
END
-RUN
-VMS COPY REPORT1.WP,REPORT2.WP REPORT.WP
JOIN CLEAR *

This page hosted by Get your own Free Homepage