FOCUS program :

-*begin doc
-*
-*FEX:  FA-RAP-CODE-RPT
-*
-*      This FOCUS program will produce a report of students 
-*      by name and social security number in alpha order of 
-*      RAP codes of 3's and 4's.
-*
-*INPUT
-*      Award Year
-*      Award Period
-*
-*end doc
-**********************************************************************
-*
JOIN CLEAR *                                                                    
-*
-PROMPT &IAWYR/A4.ENTER THE FOUR DIGIT AWARD YEAR (CCYY) :
-PROMPT &IAWPD/A5.ENTER THE FIVE DIGIT AWARD PERIOD (CCYYX) :
-*
-*  Select eligible financial aid students.
-*
TABLE FILE SAFILE
PRINT PK_RAP_CODE BY STU_ID 
IF AWD_YR EQ '&IAWYR'
IF AWD_PER EQ '&IAWPD'
IF PK_RAP_CODE EQ '3' OR '4'
WHERE SA002_ORDER LE 2;
ON TABLE HOLD AS SATEMP1
END
-*
-*  Produce report.
-*
JOIN STU_ID IN SATEMP1 TO STU_ID IN AAFILE AS J1
TABLE FILE SATEMP1
"DATE: &DATE  TIME: &TOD  Report Name: FA-RAP-CODE-RPT"
" "
" "
PRINT STU_ID AS 'Student ID' PK_RAP_CODE AS 'Rap Code'
BY STU_NAME
ON TABLE HOLD AS REPORT FORMAT WP
END
JOIN CLEAR *                                                                    

This page hosted by Get your own Free Homepage