FOCUS program :

-*begin doc
-*
-*FEX:	RE-MISSING-GRADES
-*
-*input
-*	Term
-*
-*	This procedure produces a list of students that have 
-*      "missing" non-CE grades for a given term.
-*
-*
-*end doc
-*
SET LINES=56
-PROMPT &TERM/A5.Enter the five digit term to find missing grades (CCYYX) : 
JOIN CLEAR *
-*
-*  Select student enrollments of those courses without a grade for
-*  the input term.
-*
TABLE FILE RTFILE                                          
PRINT SPE_PREV_GRADE OFFICIAL_GRADE SECTION_ID
BY STU_ID
ON TABLE HOLD AS RTTEMP1
WHERE (OFFICIAL_GRADE EQ '') AND (COLLEGE_SPE NE 'CE') AND
      (TERM EQ '&TERM') AND (SPE_STATUS NE 'D');
WHERE RT020_ORDER LE STU_PGM_ENTRY_CNTR;
END
-*
-*  Retrieve student name and create report.
-*
JOIN STU_ID IN RTTEMP1 TO STU_ID IN AAFILE AS J1
-*
TABLE FILE RTTEMP1                                          
HEADING
"DATE: &DATE  TIME: &TOD  Report Name: RE-MISSING-GRADES"
"<10 Students by course listing missing grades for term &TERM"
" "
-*
PRINT STU_ID AS 'Student,ID' SPE_PREV_GRADE AS 'Previous,Grade'
      OFFICIAL_GRADE AS 'Official,Grade'
BY SECTION_ID AS 'Course' NOSPLIT
BY STU_NAME
ON TABLE HOLD AS REPORT FORMAT WP
END                                                                           
JOIN CLEAR *

This page hosted by Get your own Free Homepage