added LSL2 stored procedures

LSL2/STPROC/TEST_QA_SERVICES.txt

@@ -0,0 +1,65 @@
+Compile function Test_QA_Services(@Test)
+#pragma precomp SRP_PreCompiler
+
+$Insert LOGICAL
+
+Declare function Qa_Services
+Declare subroutine Qa_Services
+
+// TODO: Code to run before each test goes here
+RDSKey = 255871
+WaferNo = 1
+
+GotoTest
+
+// TODO: Code to run after each test goes here
+
+Return TestResult or 1
+
+//-----------------------------------------------------------------------------
+// TESTS
+//-----------------------------------------------------------------------------
+
+
+Test IndWaferDataImport
+
+    For TestNo = 1 to 1000
+        SODWaferArray = ''
+        SODWaferArray = Qa_Services('GetSODPerWafer', RDSKey)
+        Assert SODWaferArray NE ''
+    next TestNo
+
+End Test
+
+
+Test CompleteDataImport
+    
+    For TestNo = 1 to 2
+        SODWaferArray = ''
+        SODWaferArray = Qa_Services('GetSODPerWafer', RDSKey)
+        Assert SODWaferArray NE ''
+      
+        WaferNos = SODWaferArray<1>
+        For each WaferNo in WaferNos using @VM
+            If WaferNo NE '' then
+                WaferPDF = ''
+                WaferPDF = Qa_Services('PostWaferImageRequest', RDSKey, WaferNo)
+            end
+        Next WaferNo
+    next TestNo
+    
+end test
+
+
+Test WaferImageImport
+    
+    For TestNo = 1 to 20
+        WaferPDF = ''
+        WaferPDF = Qa_Services('PostWaferImageRequest', RDSKey, WaferNo)
+        Assert WaferPDF NE ''
+    Next TestNo
+    
+end test
+
+
+