added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_PROD_SPEC.txt

@@ -0,0 +1,37 @@
+COMPILE ROUTINE TEST_OBJ_PROD_SPEC(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_Prod_Spec, Dend_Dyn
+DECLARE FUNCTION Get_Status,obj_Prod_Spec
+
+$INSERT PROD_SPEC_EQU
+$INSERT PRS_PROP_EQUATES
+
+/*
+PSNo		= Parms[1,@RM]
+PSRec		= Parms[COL2()+1,@RM]	;* 
+LayerNo		= Parms[COL2()+1,@RM]	;* Pass Null for all Layers
+PropCode	= Parms[COL2()+1,@RM]	;* Pass Property Code or pass as null for Fields in the PRS_LAYER table
+FieldNo		= Parms[COL2()+1,@RM]	;* Pass FieldNo as an equate
+
+*/
+
+
+
+opsParms  = '2548'
+
+debug
+
+A	= obj_Prod_Spec('CassSigProfile',opsParms)
+*B	= obj_Prod_Spec('GetWfrSigProfile',opsParms)
+
+
+DEBUG
+
+GOTO Bail
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END