FOCUS program :

JOIN CLEAR *
TABLE FILE RTFILE
PRINT CURR_ATTEMPTED_HRS BY STU_ID
ON TABLE HOLD AS RTTEMP1
IF CURR_ATTEMPTED_HRS GT 0
IF TERM EQ '(input enrollment term)'
END
-*
JOIN STU_ID IN RTTEMP1 TO STU_ID IN AAFILE AS J1
-*
DEFINE FILE RTTEMP1
  STUD_CTR_ALL/I4=IF STU_ID EQ '' THEN 0 ELSE 1;
  DOB_3/YMD=BIRTH_DT;
-*
-*  Capture system date. 
-*
   NOW/YMD=&YMD;
-*
-*  Determine age.
-*
  DAYSOLD/I6=NOW-DOB_3;
  AGE/I2=DAYSOLD/365;
  AGE_HOLD/I5=AGE;
END
TABLE FILE RTTEMP1
SUM STUD_CTR BY AGE_HOLD 
WHERE (AGE_HOLD LT 97) AND (AGE_HOLD GT 14);
END
JOIN CLEAR *

This page hosted by Get your own Free Homepage