added LSL2 stored procedures

LSL2/STPROC/OBJ_PR_SPEC.txt

@@ -0,0 +1,61 @@
+COMPILE FUNCTION obj_PR_Spec(Method,Parms)
+/*
+	Methods for PR_Spec (Product Specification table
+    
+	06/07/2004 JCH - Initial Coding
+     
+    Properties:
+     
+    Methods:
+    
+    Find			;* Standardized lookup window
+	
+*/
+
+
+DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, Dialog_Box
+DECLARE SUBROUTINE  Set_Status, Msg, obj_Tables, Make.List
+
+$INSERT MSG_EQUATES
+$INSERT PR_SPEC_EQU
+
+ErrTitle = 'Error in Stored Procedure "obj_PR_Spec"'
+ErrorMsg = ''
+
+IF NOT(ASSIGNED(Method))	THEN ErrorMsg = 'Unassigned parameter "Method" passed to subroutine'
+IF NOT(ASSIGNED(Parms))		THEN Parms = ''
+
+IF ErrorMsg NE '' THEN
+	Set_Status(-1,ErrTitle:@SVM:ErrorMsg)
+	RETURN ''
+END
+
+Result = ''
+
+BEGIN CASE
+	CASE Method = 'Find'	; GOSUB Find
+	
+	CASE 1
+
+END CASE
+
+IF ErrorMsg NE '' THEN
+	Set_Status(-1,ErrTitle:@SVM:ErrorMsg)
+	RETURN ''
+END
+
+RETURN Result
+
+
+* * * * * * *
+Find:
+* * * * * * *
+
+
+Result = dialog_box( 'PRS_QUERY', @window, '' )
+
+RETURN
+
+
+
+