Uni-Basic program :

-*
-*  THIS PROCESS CREATES A SAVE LIST TO BE USED IN BAWD (Batch Awarding) IN
-*  ORDER TO MODIFY AWARDS AFTER A TUTITION INCREASE.
-*
OPEN '', 'SA.(Financial Aid Award Year)' TO SA.FL ELSE STOP 'ERROR'
OPEN '', 'PEOPLE' TO PEOPLE ELSE STOP 'ERROR'
OPEN '','SAVEDLISTS' TO LISTS ELSE STOP "CAN'T OPEN SAVEDLISTS"
EXECUTE "SELECT SA.(Financial Aid Award Year) WITH SA.AWARD = '(Award ID)' AND SA.ACTION <> 'D' AND SA.AMOUNT = 2910 BY SA.NAME"
EXECUTE "SETPTR 0,80,58,0,0,1,FORM <<PRINTER NAME (80+ CPL) =>>,NOHEAD,BRIEF"
PRINTER ON
PRINT "STUDENTS WITH MODIFIED AWARD AMOUNTS - 2910 TO 3100"
PRINT " "
PRINT " "
PRINT "STUDENT         NAME                         AWARD"
PRINT "  ID"
PRINT " "
EOF = 0
LINES.PER.PAGE = 58
LINES.PRINTED = 6
HOLD.IDS = ''
HOLD.IDX = 1
LOOP
  READNEXT SA.ID ELSE EOF = 1
UNTIL EOF
  READ SA.REC FROM SA.FL,SA.ID THEN
    MAX.AWD = DCOUNT(SA.REC<7>,@VM)
    FOR I = 1 TO MAX.AWD
      IF (SA.REC<7,I> = '(Award ID)') AND (SA.REC<8,I> = 291000) AND (SA.REC<14,I> <> 'D') THEN
        READ PPL.REC FROM PEOPLE,SA.ID THEN
          IF TRIM(PPL.REC<3>) <> '' THEN
            FULL.NAME = PPL.REC<2>:" ":PPL.REC<3>[1,1]:" ":PPL.REC<1>
          END ELSE
            FULL.NAME = PPL.REC<2>:" ":PPL.REC<1>
          END
          FULL.NAME = FMT(FULL.NAME[1,32],"L#22")
          HOLD.IDS<HOLD.IDX> = SA.ID
          HOLD.IDX += 1
          PRINT FMT(SA.ID,'7R'):'     ':FMT(FULL.NAME,'22L'):'           ':FMT(SA.REC<7,I>,'7L')
          LINES.PRINTED = LINES.PRINTED + 1
          IF LINES.PRINTED = 58 THEN
            PRINT " "
            PRINT "STUDENTS WITH MODIFIED AWARD AMOUNTS - 2910 TO 3100"
            PRINT " "
            PRINT " "
            PRINT "STUDENT         NAME                         AWARD"
            PRINT "  ID"
            LINES.PRINTED = 6
          END
        END
      END
    NEXT I
  END
WRITE HOLD.IDS TO LISTS,"(Save List Name)"
REPEAT
END

This page hosted by Get your own Free Homepage