added LSL2 stored procedures

LSL2/STPROC/LOAD_EVAL_WAFER_ID.txt

@@ -0,0 +1,54 @@
+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