>>>select I.id, I.Department, I.Category, I.item, I.descrip, ; >>> inlist(proper(I.MatrixItem),'Yes','1','True','T') as i_matrix, ; >>> upper(MatrixTemplate) as MTemplate, GLNumber as gl_no, UserDefined as user_code, ; >>> Barcode, UPC, inlist(DirectPricing,'Yes','1','True','T') as set_price, ; >>> iif(len(PriceType)=0 or PriceType ='0',1,4) as price_cols, ; >>> Price as monday_0, dp_set_id, cast(PriceCalculationType as I) as daily_pric, AddTax as add_tax, ; >>> Tax_Rate, Tax_Rate_B, upper(Vendor1) as Vendor1, upper(Vendor2) as Vendor2, ; >>> VendorPartNumber as vpartno, ReorderPoint as reorder_pt, TargetQty as target_qty, ; >>> pr_ctr_1, 1 as split_type, 100 as pcsplit_1, ; >>> UserDefinedText1 as i_text_1, UserDefinedText2 as i_text_2, I.subclass, I.Season ; >>> from csrItems I where id not in (select id from csrDups) into cursor csrItems READWRITE >>>>>>
CREATE CURSOR X ( A I) APPEND blank REPLACE A WITH 1 IN X SELECT 2 AS B,*; INTO CURSOR X READWRITE FROM X WAIT WINDOWS ISREADONLY('X') REPLACE B WITH 3 IN X BROWSE * remember that if the select execution fails, you lose the original alias * next doesn't work SELECT X.B INTO CURSOR X READWRITE FROM X Y * and the datasession is empty now WAIT windows AUSED(Q)