added LSL2 stored procedures

LSL2/STPROC/TEST_LINK_WO_STEP_RDS.txt

@@ -0,0 +1,52 @@
+COMPILE ROUTINE TEST_LINK_WO_STEP_RDS(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_RDS, Send_Dyn, Btree.Extract, ErrMsg
+DECLARE FUNCTION Get_Status,obj_RDS, Send_Dyn, 
+
+debug
+RDSNo = 201318
+
+
+RDSRec = XLATE('RDS',RDSNo,'','X')
+
+QuoteNo	= RDSRec<1>
+WONo	= RDSRec<6>
+OrdNo	= RDSRec<7>
+PSN		= RDSRec<114>
+
+QuoteRec = XLATE('QUOTE',QuoteNo,'','X')
+QuoteDetKeys = QuoteRec<35>
+
+IF NOT(INDEX(QuoteDetKeys,@VM,1)) THEN
+
+	* Single quote item
+	
+	QuoteDetRec = XLATE('QUOTE_DET',QuoteNo:'*1','','X')
+	QuoteSteps		= QuoteDetRec<8>
+	QuotePSNs		= QuoteDetRec<9>
+	QuoteProcDescs	= QuoteDetRec<10>
+	
+	IF INDEX(QuoteDetRec<9>,@VM,1) THEN
+		* Multi Step Process
+		
+		
+	END ELSE
+		* Single Step Process
+		
+		
+	END
+	
+
+
+
+END
+
+
+GOTO Bail
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END