Uni-Basic program :

OPEN '', 'SA.(Financial Aid Award Year)' TO SA.FL ELSE STOP 'ERROR'
OPEN '', 'TA.(Financial Aid Award Year)' TO TA.FL ELSE STOP 'ERROR'
OPEN '', 'PEOPLE' TO PEOPLE ELSE STOP 'ERROR'
OPEN '', 'COUNTIES' TO COUNTIES ELSE STOP 'ERROR'
EXECUTE "SELECT SA.(Financial Aid Award Year) WITH SA.AWARD = '(Award ID)' AND SA.ACTION <> 'D' AND SA.AMOUNT > 0"
EXECUTE "SELECT PEOPLE BY COUNTY"
PRINT "  AWARD LIST BY COUNTY"
PRINT
PRINT "COUNTY              TOTAL FOR"
PRINT " NAME                COUNTY"
PRINT
LINES.PRINTED = 5
EOF = 0
    CHANGE.COUNTY = 'NO COUNTY'
    TOTAL.COUNTY = 0
    TOTAL.STATE = 0
LOOP
  READNEXT SA.ID ELSE EOF = 1
UNTIL EOF
  READ SA.REC FROM SA.FL,SA.ID THEN
    GOT.AWD = 0
    MAX.AWARD = DCOUNT(SA.REC<7>,@VM)
    FOR I = 1 TO MAX.AWARD
      IF SA.REC<7,I> = '(Award ID)' AND SA.REC<14,I> <> 'D' AND SA.REC<8,I> > 0 THEN
        GOT.AWD = 1
        IF SA.REC<14,I> EQ '*' THEN
          TA.ID = SA.ID:'*':SA.REC<7,I>:'*(Fall Term ID)'
          READV TA.ACT.FALL FROM TA.FL,TA.ID,6 ELSE TA.ACT.FALL = ''
          TA.ID = SA.ID:'*':SA.REC<7,I>:'*(Spring Term ID)'
          READV TA.ACT.SPR FROM TA.FL,TA.ID,6 ELSE TA.ACT.FALL = ''
          IF TA.ACT.FALL EQ 'D' AND TA.ACT.SPR EQ 'D' THEN GOT.AWD = 0
        END
      END
    NEXT I
    IF GOT.AWD THEN
      READV COUNTY.NUMBER FROM PEOPLE,SA.ID,11 ELSE COUNTY.NUMBER = 0
      READV COUNTY.NAME FROM COUNTIES,COUNTY.NUMBER,1 ELSE COUNTY.NAME = 'NO COUNTY'
      TOTAL.STATE = TOTAL.STATE + 1
      IF CHANGE.COUNTY <> COUNTY.NAME THEN
        PRINT FMT(CHANGE.COUNTY,'20L'):FMT(TOTAL.COUNTY,'4R')
        TOTAL.COUNTY = 1
        CHANGE.COUNTY = COUNTY.NAME
      END ELSE
        TOTAL.COUNTY = TOTAL.COUNTY + 1
      END
    END
  END
REPEAT
PRINT
PRINT "TOTAL FOR REPORT  :  ":TOTAL.STATE
END

This page hosted by Get your own Free Homepage