55 lines
1.5 KiB
Plaintext
55 lines
1.5 KiB
Plaintext
compile function LOAD_EVAL_WAFER_ID()
|
|
begin condition
|
|
pre:
|
|
post:
|
|
end condition
|
|
|
|
declare function msg, fieldcount, next_key, get_property, set_property
|
|
declare subroutine rlist
|
|
|
|
$insert msg_equates
|
|
$insert logical
|
|
$insert spc_limits_equ
|
|
|
|
CurRange = get_property( @window:'.EVALRANGE', 'TEXT' )
|
|
SPCLimits = xlate( 'CONFIG', 'SPC_LIMITS', '', 'X' )
|
|
if @window = 'SPC_EVAL_FTIR' and ( CurRange <> '' ) then
|
|
begin case
|
|
case CurRange = 'High'
|
|
CurWaferIDs = SPCLimits<EvalFTIRHWaferID$>
|
|
case CurRange = 'Mid'
|
|
CurWaferIDs = SPCLimits<EvalFTIRMWaferID$>
|
|
case CurRange = 'Low'
|
|
CurWaferIDs = SPCLimits<EvalFTIRLWaferID$>
|
|
end case
|
|
WafCnt = fieldcount( CurWaferIDs, @vm )
|
|
for i = WafCnt to 1 step -1
|
|
ThisWaferID = CurWaferIDs<1,i>
|
|
if ThisWaferID <> '' then
|
|
Void = set_property( @window:'.EVALFTIRWAFERID', 'LIST', ThisWaferID )
|
|
end
|
|
until ThisWaferID <> ''
|
|
next i
|
|
end else
|
|
if ( CurRange <> '' ) then
|
|
begin case
|
|
case CurRange = 'High'
|
|
CurWaferIDs = SPCLimits<Eval4PPHWaferID$>
|
|
case CurRange = 'Mid'
|
|
CurWaferIDs = SPCLimits<Eval4PPMWaferID$>
|
|
case CurRange = 'Low'
|
|
CurWaferIDs = SPCLimits<Eval4PPLWaferID$>
|
|
end case
|
|
WafCnt = fieldcount( CurWaferIDs, @vm )
|
|
for i = WafCnt to 1 step -1
|
|
ThisWaferID = CurWaferIDs<1,i>
|
|
if ThisWaferID <> '' then
|
|
Void = set_property( @window:'.EVAL4PPWAFERID', 'LIST', ThisWaferID )
|
|
end
|
|
until ThisWaferID <> ''
|
|
next i
|
|
end
|
|
end
|
|
|
|
return 0
|