FOCUS program :

JOIN CLEAR *
OFFLINE CLOSE
FILEDEF OFFLINE DISK TEMPFILE.DOC
-*
-*  THIS REQUEST WILL PULL ALL OF THE STUDENTS WHO ARE OVERAWARDED.
-*
TABLE FILE SAFILE
PRINT PGI_PRIM BY SID_SA
ON TABLE HOLD AS SATEMP1
IF AWD_YR_SA EQ '(Financial Aid Award Year)'
IF PELL_SEG_CTR GT 0
END
MATCH FILE SATEMP1
PRINT PGI_PRIM BY SID_SA AS SID_CODE
RUN
FILE SAFILE
PRINT NON_TITLE4 BY SID_SA AS SID_CODE
IF AWD_YR_SA EQ '(Financial Aid Award Year)'
IF PKG_AWPD EQ '(Financial Aid Award Period)'
IF PKG_SEG_CTR GT 0
WHERE SA_020_ORDER EQ 1;
AFTER MATCH HOLD OLD
END
-RUN
-*
-*  DETERMINE NEED
-*
-*
-*  COMPUTE FIGURE FROM VALUES ON SCREEN 312
-*
MATCH FILE HOLD
PRINT PGI_PRIM NON_TITLE4 BY SID_CODE
RUN
FILE SAFILE
PRINT N1_TOT_BDGT LOAN_FEE_N1 N1_OTH_RSRCS N1_VET_BEN N1_OTH_AID
      BY SID_SA AS SID_CODE
IF AWD_YR_SA EQ '(Financial Aid Award Year)'
IF BDGT_AWPD EQ '(Financial Aid Award Period)'
IF BDGT_SEG_CTR GT 0
WHERE SA_040_ORDER EQ 1;
AFTER MATCH HOLD OLD-AND-NEW
END
-RUN
-*
DEFINE FILE HOLD
FIG_FST/P06C=N1_TOT_BDGT-LOAN_FEE_N1-PGI_PRIM-N1_OTH_RSRCS-N1_VET_BEN-
N1_OTH_AID-NON_TITLE4;
END
TABLE FILE HOLD
PRINT PGI_PRIM FIG_FST BY SID_CODE
ON TABLE HOLD AS HOLDTEMP
END
TABLE FILE SWFILE
SUM AWPD_OFF FUND_NUM_SW BY SID_SW
ON TABLE HOLD AS SWTEMP1
IF AWD_YR_SW EQ '(Financial Aid Award Year)'
IF AWPD_OFF GT 00.00
IF AWPD_ID EQ '(Financial Aid Award Period)'
END
-*
MATCH FILE HOLDTEMP
PRINT PGI_PRIM FIG_FST BY SID_CODE
RUN
FILE SWTEMP1
PRINT AWPD_OFF BY SID_SW AS SID_CODE
AFTER MATCH HOLD OLD-AND-NEW
END
-RUN
JOIN TEMP_KEY WITH SID_CODE IN HOLD TO KEY IN AAFILE AS J1
DEFINE FILE HOLD
TEMP_KEY/A11=('XX'|SID_CODE);
UNMEET_NEED_FST/P08C=FIG_FST-AWPD_OFF;
END
TABLE FILE HOLD
PRINT STU_NAME_AA SID_CODE AS 'Student ID'  
BY UNMEET_NEED AS 'Unmeet Need'
WHERE UNMEET_NEED LT 00.00;
END
JOIN CLEAR *

This page hosted by Get your own Free Homepage