Create CURSOR invent (class c(5), estado C(10))
Insert into invent values ("SUS", "AbNormal")
Insert into invent values ("TB", "Normal")
Insert into invent values ("CAD", "AbNormal")
Insert into invent values ("SUS", "AbNormal")
Insert into invent values ("ND", "Normal")
Insert into invent values ("SUS", "AbNormal")
Insert into invent values ("TB", "Normal")
Insert into invent values ("CAD", "AbNormal")
Insert into invent values ("SUS", "AbNormal")
Insert into invent values ("ND", "Normal")
Insert into invent values ("SUS", "AbNormal")
Insert into invent values ("TB", "Normal")
Insert into invent values ("CAD", "AbNormal")
Insert into invent values ("SUS", "AbNormal")
Insert into invent values ("ND", "Normal")
Insert into invent values ("SUS", "AbNormal")
Insert into invent values ("TB", "Normal")
Insert into invent values ("CAD", "AbNormal")
Insert into invent values ("SUS", "AbNormal")
Insert into invent values ("ND", "Normal")
Insert into invent values ("SUS", "AbNormal")
Insert into invent values ("TB", "Normal")
Insert into invent values ("CAD", "AbNormal")
Insert into invent values ("SUS", "AbNormal")
Insert into invent values ("NSD", "Normal")
DELETE FROM invent where UPPER(ALLTRIM(class)) IN ('SUS', 'TB', 'CAD', 'EF', 'ND' ) and UPPER(estado)=='NORMAL'
WAIT WINDOW + TRANSFORM(_Tally) + " records deleted" TIMEOUT 2
RECALL all
WAIT WINDOW + TRANSFORM(_Tally) + " records recalled" TIMEOUT 2
DELETE FROM invent where INLIST(UPPER(ALLTRIM(class)), 'SUS', 'TB', 'CAD', 'EF', 'ND' ) and UPPER(estado)=='NORMAL'
WAIT WINDOW + TRANSFORM(_Tally) + " records deleted" TIMEOUT 2
BROWSE
USE
RETURN