Uni-Basic Program :

OPEN '', 'CS.(Financial Aid Award Year)' TO CS.ACYR ELSE STOP 'ERROR'
OPEN '', 'CI.(Financial Aid Award Year)' TO CI.ACYR ELSE STOP 'ERROR'
OPEN '', 'YS.(Financial Aid Award Year)' TO YS.ACYR ELSE STOP 'ERROR'
OPEN '', 'PEOPLE' TO PEOPLE ELSE STOP 'ERROR'
EXECUTE "SELECT CS.(Financial Aid Award Year) WITH CS.STD.TOTAL.EXPENSES <> '' BY CS.NAME"
EXECUTE "SETPTR 0,80,0,0,0,1,FORM <<PRINTER NAME (80+ CPL) =>>,NOHEAD,BRIEF"
MONTH.ARR = "01":@FM:"02":@FM:"03":@FM:"04":@FM:"05":@FM:"06":@FM:"07":@FM:"08":@FM:"09":@FM:"10":@FM:"11":@FM:"12"
DAY.ARR = "01":@FM:"02":@FM:"03":@FM:"04":@FM:"05":@FM:"06":@FM:"07":@FM:"08":@FM:"09":@FM:"10":@FM:"11":@FM:"12":@FM:"13":@FM:"14":@FM:"15":@FM:"16":@FM:"17":@FM:"18":@FM:"19":@FM:"20":@FM:"21":@FM:"22":@FM:"23":@FM:"24":@FM:"25":@FM:"26":@FM:"27":@FM:"28":@FM:"29":@FM:"30":@FM:"31"
LOOP
  PRINT @(0,5):"      The following date should be greater than or equal to the" 
  PRINT @(0,6):"              file completion date to check against."
  PRINT @(0,9):"Enter file completion date to check against or END: MM/DD/YYYY":@(-4):
  INPUT @(64,9) CHK.DATE
  IF UPCASE(CHK.DATE) = 'END' THEN STOP
  MONTH.GRAD = CHK.DATE[1,2]
  DAY.GRAD = CHK.DATE[4,2]
  YEAR.GRAD = CHK.DATE[7,2]
  LOCATE MONTH.GRAD IN MONTH.ARR<1> SETTING MONTH.GOOD ELSE MONTH.GOOD = 0
  LOCATE DAY.GRAD IN DAY.ARR<1> SETTING DAY.GOOD ELSE DAY.GOOD = 0
  YEAR.GOOD = 0
  IF YEAR.GRAD = '19' THEN YEAR.GOOD = 1
UNTIL MONTH.GOOD AND DAY.GOOD AND YEAR.GOOD
REPEAT
PRINTER ON
PRINT CHAR(12)
EOF = 0
LOOP
  READNEXT CS.ID ELSE EOF =1
UNTIL EOF
  READ YS.REC FROM YS.ACYR,CS.ID THEN
    IF YS.REC<5> >= ICONV(CHK.DATE,"D") THEN
      CI.ID = CS.ID:'*EDE'
      READ CI.REC FROM CI.ACYR,CI.ID THEN
        IF CI.REC<181> = 'Y' THEN
          READ CS.REC FROM CS.ACYR,CS.ID THEN
            IF CS.REC<14> = '' AND CS.REC<16> <> '' AND CS.REC<13> <> '' AND CS.REC<18> <> '' THEN 
              CS.REC<14> = (Budget Adjustment)
              IF (CS.REC<13> - CS.REC<18> >= -(Budget Adjustment)) THEN CS.REC<16> = (CS.REC<13> - CS.REC<18>) + (Budget Adjustment)
              READ PEOPLE.REC FROM PEOPLE,CS.ID ELSE PEOPLE.REC = ""
              IF TRIM(PEOPLE.REC<3>) <> '' THEN
                FULL.NAME = PEOPLE.REC<2>:" ":PEOPLE.REC<3>[1,1]:" ":PEOPLE.REC<1>
              END ELSE
                FULL.NAME = PEOPLE.REC<2>:" ":PEOPLE.REC<1>
              END
              FULL.NAME = FMT(FULL.NAME[1,32],"L#32")
              PRINT FULL.NAME,CS.ID,CS.REC<14>,CS.REC<16>
              WRITE CS.REC TO CS.ACYR,CS.ID
            END
          END
        END
      END
    END
  END
REPEAT
PRINT CHAR(12)
PRINTER OFF
END

This page hosted by Get your own Free Homepage