Uni-Basic Program :

OPEN '', 'STUD.SCHEDS' TO STUD ELSE STOP 'ERROR'
OPEN '', 'CR.(Financial Aid Award Year)' TO CR.FL ELSE STOP 'ERROR'
OPEN '', 'CS.(Financial Aid Award Year)' TO CS.FL ELSE STOP 'ERROR'
OPEN '', 'YS.(Financial Aid Award Year)' TO YS.FL ELSE STOP 'ERROR'
EXECUTE "SELECT CR.(Financial Aid Award Year) WITH CR.DEPENDENCY.STATUS = 'I' BY CR.STUDENT.ID BY CR.CALC.RESULT.TYPE"
EOF = 0
CHK.CR.ID = ' '
CNT.1 = 0
CNT.2 = 0
CNT.3 = 0
CNT.4 = 0
CNT.5 = 0
CNT.6 = 0
CNT.7 = 0
CNT.8 = 0
CNT.9 = 0
CNT.10 = 0
CNT.11 = 0
CNT.12 = 0
CNT.13 = 0
CNT.14 = 0
CNT.15 = 0
LOOP
  READNEXT CR.ID ELSE EOF=1
UNTIL EOF
  READ CR.REC FROM CR.FL,CR.ID  THEN
    IF (CHK.CR.ID <> CR.ID[1,7]) AND (CR.REC<13> = 'I') THEN
      CS.ID.NO = FIELD(CR.ID,'*',1,1)
      READ CS.REC FROM CS.FL,CS.ID.NO  ELSE CS.REC = ''
      READ YS.REC FROM YS.FL,CS.ID.NO  ELSE YS.REC = ''
      STUD.ID = '(Fall Term ID)*':CS.ID.NO
      READV ATT.HRS.FALL FROM STUD,STUD.ID,15 ELSE ATT.HRS.FALL = 0
      STUD.ID = '(Spring Term ID)*':CS.ID.NO
      READV ATT.HRS.SPR FROM STUD,STUD.ID,15 ELSE ATT.HRS.SPR = 0
      IF (CS.REC<10> <> '') AND ((ATT.HRS.FALL < 1200 AND ATT.HRS.FALL > 0) OR (ATT.HRS.SPR > 0 AND ATT.HRS.SPR < 1200)) THEN 
          CNT.15 = CNT.15 + 1
        IF CS.REC<10> >= 60000 THEN
          CNT.14 = CNT.14 + 1
        END ELSE IF CS.REC<10> >= 54000 THEN
          CNT.13 = CNT.13 + 1
        END ELSE IF CS.REC<10> >= 48000 THEN
          CNT.12 = CNT.12 + 1
        END ELSE IF CS.REC<10> >= 42000 THEN
          CNT.11 = CNT.11 + 1
        END ELSE IF CS.REC<10> >= 36000 THEN
          CNT.10 = CNT.10 + 1
        END ELSE IF CS.REC<10> >= 30000 THEN
          CNT.9 = CNT.9 + 1
        END ELSE IF CS.REC<10> >= 24000 THEN
          CNT.8 = CNT.8 + 1
        END ELSE IF CS.REC<10> >= 18000 THEN
          CNT.7 = CNT.7 + 1
        END ELSE IF CS.REC<10> >= 15000 THEN
          CNT.6 = CNT.6 + 1
        END ELSE IF CS.REC<10> >= 12000 THEN
          CNT.5 = CNT.5 + 1
        END ELSE IF CS.REC<10> >= 9000 THEN
          CNT.4 = CNT.4 + 1
        END ELSE IF CS.REC<10> >= 6000 THEN
          CNT.3 = CNT.3 + 1
        END ELSE IF CS.REC<10> >= 3000 THEN
          CNT.2 = CNT.2 + 1
        END ELSE
          CNT.1 = CNT.1 + 1
        END
      END
    END
  END
  CHK.CR.ID = CR.ID[1,7]
REPEAT
PRINT "$     0 - $ 2,999    :":CNT.1
PRINT "$ 3,000 - $ 5,999    :":CNT.2
PRINT "$ 6,000 - $ 8,999    :":CNT.3
PRINT "$ 9,000 - $11,999    :":CNT.4
PRINT "$12,000 - $14,999    :":CNT.5
PRINT "$15,000 - $17,999    :":CNT.6
PRINT "$18,000 - $23,999    :":CNT.7
PRINT "$24,000 - $29,999    :":CNT.8
PRINT "$30,000 - $35,999    :":CNT.9
PRINT "$36,000 - $41,999    :":CNT.10
PRINT "$42,000 - $47,999    :":CNT.11
PRINT "$48,000 - $53,999    :":CNT.12
PRINT "$54,000 - $59,999    :":CNT.13
PRINT "$60,000 & OVER       :":CNT.14
PRINT "T O T A L            :":CNT.15
END

This page hosted by Get your own Free Homepage