FOCUS program :

-SET &TRKFORM = (Tracking document to check for);
-SET &IAWYR = (Financial Aid Award Year);
-SET &IAWPD = (Financial Aid Award Period);
JOIN CLEAR *
-*
MATCH FILE SAFILE
  PRINT AWD_YR_SA
    BY SID_SA AS SID_CODE
  IF AWD_YR_SA EQ '&IAWYR'
  IF PELL_SEG_CTR GT 0
  IF PL_INFO_SRC EQ 'P' OR '0' OR '1' OR '2'
RUN
FILE STFILE
  SUM TRK_AWPD
    BY SID_ST AS SID_CODE
  IF TRK_CTR_ST GT 0
  IF TRK_AWD_YR EQ '&IAWYR'
  IF TRK_AWPD EQ '&IAWPD'
  IF TRK_FORM EQ '&TRKFORM'
  WHERE (ST_020_ORDER LE TRK_CTR_ST);
  AFTER MATCH HOLD OLD-NOT-NEW
END
-RUN
-*
FILEDEF PLAY DISK PLAY.FTM APPEND
DEFINE FILE HOLD
  BTH_TRANS1/A29 = ('72B'|SID_CODE|'  '|'&IAWYR'|'&IAWPD'|
                    '     '|'&TRKFORM'); 
END
TABLE FILE HOLD
  PRINT BTH_TRANS1 IN 1 AS ''
  ON TABLE SAVE AS PLAY
END
JOIN CLEAR *

This page hosted by Get your own Free Homepage