61 lines
1.1 KiB
Plaintext
61 lines
1.1 KiB
Plaintext
Subroutine t_clean_syslists(void)
|
|
|
|
|
|
Open 'SYSLISTS' To f_syslists Else
|
|
debug
|
|
x = 'wtf?'
|
|
Return ''
|
|
End
|
|
|
|
debug
|
|
list = ''
|
|
done = ''
|
|
Select f_syslists
|
|
Loop
|
|
Readnext id Else done = 1
|
|
Until done
|
|
killit = 0
|
|
Begin Case
|
|
Case id[1,1] eq '$'; killit = 1
|
|
Case Index(id, '__',1)
|
|
Case Indexc(id, 'BARRY',1)
|
|
Case Indexc(id, 'SEAN',1)
|
|
Case Indexc(id, 'BOBC',1)
|
|
Case Count(id,'*') gt 1 And Index(id, '201', 1) ; killit = 1
|
|
Case Count(id,'*') gt 1 And Index(id, '*15', 1) ; killit = 1
|
|
Case Count(id,'*') gt 1 And Index(id, '*14', 1) ; killit = 1
|
|
Case id[1,2] _Eqc 'W*'
|
|
test = id[-1,'B*']
|
|
test = test[1,'.']
|
|
If test gt 0 And test lt date() Then
|
|
killit = 1
|
|
end
|
|
End Case
|
|
If killit Then
|
|
list<-1> = id
|
|
End
|
|
|
|
Repeat
|
|
debug
|
|
|
|
id = ''
|
|
col = ''
|
|
Loop
|
|
Remove id From list at col Setting mark
|
|
If id # '' Then
|
|
test = id[-1,'B*']
|
|
Begin Case
|
|
Case Index(test, '.',1)
|
|
Case alpha(test)
|
|
Case Num(test)
|
|
id = Field(id, '*', 1, Count(id, '*'))
|
|
End Case
|
|
If id # '' Then
|
|
Call Delete_Save_Select(id)
|
|
Call Set_Status(0)
|
|
end
|
|
End
|
|
While mark
|
|
repeat
|
|
Return ''
|