FOCUS program (1) :

-*begin doc
-*
-*FEX:  GE-FACULTY-LIST-FT.FEX
-*
-*      This report lists and totals the full time faculty as entered into
-*      SIS.
-*
-*end doc
-*
SET LINES=999999
JOIN CLEAR *
DEFINE FILE AYFILE
INST_CTR/I5=IF FAC_ID NE ' ' THEN 1 ELSE 0;
END
-*
TABLE FILE AYFILE
"DATE: &DATE  TIME: &TOD  Report Name: GE-FACULTY-LIST-FT"
" "
"Full Time Faculty List"
" "
-*
PRINT FAC_NAME BY FAC_NAME NOPRINT
WHERE TENURE EQ 'F';
ON TABLE SUBFOOT
"</2 Grand total : <CT.INST_CTR "
ON TABLE HOLD AS REPORT FORMAT WP
END
JOIN CLEAR *


FOCUS program (2) :

-*begin doc
-*
-*FEX:  GE-FACULTY-LIST-PT.FEX
-*
-*      This report lists and totals the part time faculty as entered into
-*      SIS.
-*
-*end doc
-*
SET LINES=999999
JOIN CLEAR *
DEFINE FILE AYFILE
INST_CTR/I5=IF FAC_ID NE ' ' THEN 1 ELSE 0;
END
-*
TABLE FILE AYFILE
"DATE: &DATE  TIME: &TOD  Report Name: GE-FACULTY-LIST-PT"
" "
"Part Time Faculty List"
" "
-*
PRINT FAC_NAME BY FAC_NAME NOPRINT
WHERE TENURE EQ 'P';
ON TABLE SUBFOOT
"</2 Grand total : <CT.INST_CTR "
ON TABLE HOLD AS REPORT FORMAT WP
END
JOIN CLEAR *

This page hosted by Get your own Free Homepage