>>DO CASE >> CASE RecNo('MyCursor') = RecCount('MyCursor') >> * DO SOMETHING >>ENDCASE >>>>
SELECT csrTempAcct SCAN DO CASE CASE csrTempAcct.ECon < 0 OR csrTempAcct.EMat < 0 This.RollForwardInterestFund(tiPlanID, tcAcctNum, csrTempAcct.Acct_ID, csrTempAcct.Contrib_Dt, .T., .F.) CASE RecNo('csrTempAcct') = RecCount('csrTempAcct') WAIT WINDOW 'RUNS SECOND CASE CONDITION' This.RollForwardInterestFund(tiPlanID, tcAcctNum, csrTempAcct.Acct_ID, csrTempAcct.Contrib_Dt, .T., .F.) ENDCASE ENDSCAN