Uni-Basic program :

OPEN '', 'INSTITUTIONS' TO INST ELSE STOP 'ERROR'
OPEN '', 'PEOPLE' TO PEOPLE ELSE STOP 'ERROR'
EXECUTE "SELECT SA.(Financial Aid Award Year) WITH SA.AWARD = '(Award IDs)' AND SA.ACTION = 'A''*'"
EXECUTE "SELECT PEOPLE BY SS.INST.NAME"
OPENSEQ '(Benefactor Directory)', '(Output File)' TO ASCII.FILE ELSE PRINT STATUS()
EOF = 0
CHK.DUP = ''
LOOP
  READNEXT PPL.ID ELSE EOF = 1
UNTIL EOF
  READV SS.INST FROM PEOPLE,PPL.ID,42 THEN
    IF CHK.DUP <> SS.INST THEN
      READ INST.REC FROM INST,SS.INST THEN
        STRING.REC = '""':',':'"':INST.REC<1>:'"':',':'"':INST.REC<2>:'"':',':'"':INST.REC<3>:', ':INST.REC<4>:' ':INST.REC<5>:'"'
        WRITESEQ STRING.REC ON ASCII.FILE ELSE PRINT PPL.ID
      END
    END
    CHK.DUP = SS.INST
  END
REPEAT
END

This page hosted by Get your own Free Homepage