>******************************************************************** >* Description.......: MapRefStr >* Calling Samples...: >* Parameter List....: tcOperationType >* Created by........: Nadya Nosonovsky 04/02/2001 04:21:34 PM >* Modified by.......: Nadya Nosonovsky 04/04/2001 11:34:54 AM >******************************************************************** >lparameter tcOperationType >local lcRetStr, lcJoinCondition, lcAdditions, lcWhere >lcRetStr='space(1) as ModiType, '+ ; > 'AssrID, Apn, ParcelID, '+ ; > 'MapNum, WardNum, BlockNum, LotNum, UnitNum, MapData, MapRef, '+ ; > '.f. as Posted, ctot([]) as PostTime, 0 as Error, ' >if !empty(m.tcOperationType) and m.tcOperationType="MAPREF" > lcAdditions='PropMstr.ccode, PropMstr.FY, PropMstr.town, '+; > 'AssrMstr.ModiDate, [ASSRMSTR] as ModiTble, space(1) as APNed, '+ ; > 'space(1) as Parsed, space(1) as PclIDEd' >else > lcAdditions='PropMstr.*, space(25) as NewMapref, space(1) as MapRefEd, '+ ; > 'space(8) as ModiTble, "P" as Source, [ ] as Matched' >endif >lcJoinCondition = ' FROM PropMstr INNER JOIN ASSRMSTR ON PropMstr.PropID=AssrMstr.PropID' >lcWhere=[ where Complevl='P' and PropMstr.town=']+ojc.Town + ; > [']+iif(!empty(oJC.FY),[ and PropMstr.FY=']+oJC.FY+['],"")+" and InActvFl'A'" >return m.lcRetStr+m.lcAdditions+m.lcJoinCondition+m.lcWhere>
>selectCMD1 = evaluate(SelectCMD1Exp), so this long string would be produced > >select &SelectCMD1 ; > &SelectCMD2 ; > &Into