46 lines
1.2 KiB
Plaintext
46 lines
1.2 KiB
Plaintext
compile function remove_rds_ovr()
|
|
begin condition
|
|
pre:
|
|
post:
|
|
end condition
|
|
$insert logical
|
|
$insert rlist_equates
|
|
$insert msg_equates
|
|
$insert rds_equ
|
|
declare function utility, msg
|
|
|
|
open 'RDS' TO RdsTable else
|
|
Void = msg( '', 'Unable to open RDS...' )
|
|
return 0
|
|
end
|
|
*Void = utility( 'CURSOR', 'H' )
|
|
Stmt = 'SELECT RDS WITH WAFERS_SCHEDULED_OVR <> ""'
|
|
rlist( Stmt, target_activelist$, '', '', '' )
|
|
if @reccount then
|
|
NoLockRds = ''
|
|
Eof = false$
|
|
loop
|
|
readnext @id else Eof = true$
|
|
until Eof
|
|
lock RdsTable, @id then
|
|
writev '' on RdsTable, @id, rds_wafers_scheduled_ovr$ else
|
|
Void = msg( '', 'Unable to write to RDS ':@id )
|
|
return 0
|
|
end
|
|
unlock RdsTable, @id else
|
|
Void = msg( '', 'Unable to unlock RDS ':@id )
|
|
return 0
|
|
end
|
|
end else
|
|
NoLockRds := @id:', '
|
|
end
|
|
repeat
|
|
if NoLockRds then
|
|
NoLockRds[-2,2] = '.'
|
|
Mtext = 'Unable to lock the following RDS will have to manually remove wafers_shceduled_ovr or try later...':NoLockRds
|
|
Void = msg( '', Mtext )
|
|
end
|
|
end
|
|
*Void = utility( 'CURSOR', 'A' )
|
|
return 0
|