>LPARAMETERS lcToMatch, lcChoice1, lcChoice2, lcChoice3, lcAnswer1, lcAnswer2, lcAnswer3 > >DO CASE > CASE lcToMatch = lcChoice1 > RETURN lcAnswer1 > CASE lcToMatch = lcChoice2 > RETURN lcAnswer2 > CASE lcToMatch = lcChoice3 > RETURN lcAnswer3 Otherwise Return space(10) >ENDCASE >>
dime aStatTxt[3] aStatTxt[1]="Canceled" aStatTxt[2]="Not Ready" aStatTxt[3]="No Show" SELECT cname, tdatetime, ; IIF(EMPTY(cPickup), cPaddr, cPickup) AS cPickup, ; IIF(EMPTY(cDropoff), cDaddr, cDropoff) AS cDropoff, ; int(at(cStatus, "CXLNR NS ")+2)/3) AS nstatus ; space(12) as cStatusText ; FROM Trip_History ; INTO CURSOR ro_trips ; WHERE (INLIST(cStatus, "CXL", "NR", "NS")) AND BETWEEN(TTOD(tdatetime), pdBegin, pdEnd) ; ORDER BY nStatus, tdatetime use (dbf()) alias vTrips in 0 again sele vTrips repl all cStatusText with aStatTxt[nStatus] for betw(nstatus,1,3)