FOCUS program :

JOIN CLEAR *
SET LINES=999999
SET PAGE=NOPAGE
TABLE FILE SAFILE
PRINT AWD_YR_SA BY SID_SA
ON TABLE HOLD AS SATEMP1
IF AWD_YR_SA EQ '(Award Year)'
END
JOIN TEMP_KEY WITH SID_SA IN SATEMP1 TO KEY IN AAFILE AS J1
DEFINE FILE SATEMP1
TEMP_KEY/A11=('XX'|SID_SA);
END
TABLE FILE SATEMP1
PRINT AWD_YR_SA STU_NAME_AA NAME_SORT_AA BY SID_SA
ON TABLE HOLD AS SATEMP2
WHERE AA_020_ORDER EQ 1;
END
DEFINE FILE SATEMP2
SID_OUT/A11=EDIT(SID_SA, '999-99-9999');
PRINT_LABEL1/A80=(SID_OUT|'                          '|SID_OUT);
PRINT_LABEL2/A80=(STU_NAME_AA|'     '|STU_NAME_AA);
EXTRA_LINE/A10=('          ');
END
TABLE FILE SATEMP2
PRINT PRINT_LABEL1 AS '' IN 1 OVER PRINT_LABEL2 AS '' IN 1 
      OVER EXTRA_LINE AS '' OVER EXTRA_LINE AS '' 
      BY NAME_SORT_AA NOPRINT
ON TABLE SAVE AS PLAY FORMAT WP
END
JOIN CLEAR *

This page hosted by Get your own Free Homepage