added LSL2 stored procedures

LSL2/STPROC/MOVE_QUOTE_DESC.txt

@@ -0,0 +1,59 @@
+COMPILE ROUTINE MOVE_QUOTE_DESC(Dummy)
+ROWDEF (CHARSTR)
+
+DECLARE SUBROUTINE SEND_INFO, SEND_DYN, Utility, msg
+
+$INSERT QUOTE_EQU
+$INSERT QUOTE_DET_EQU
+
+EQU CRLF$ TO \0D0A\
+
+OPEN 'QUOTE' TO FileIn ELSE
+	DEBUG
+	GOTO Bail
+END
+
+OPEN 'QUOTE_DET' TO FileOut ELSE
+	DEBUG
+	GOTO Bail
+END
+
+
+SELECT FileIn
+
+
+
+RecCnt = 0
+Done = 0
+ManualList = ''
+LOOP
+	ReadNext QuoteNo ELSE Done = 1
+UNTIL Done
+	READ QuoteRec FROM FileIn,QuoteNo THEN
+		RecCnt += 1
+		
+		
+		READ QuoteDetRec FROM FileOut,QuoteNo:'*1' THEN
+			
+			QuoteDetDesc = QuoteDetRec<QUOTE_DET_DESC$>
+			IF QuoteRec<QUOTE_PROC_DESC$> = '' AND QuoteDetDesc NE '' THEN
+				
+				QuoteRec<QUOTE_PROC_DESC$> = QuoteDetDesc
+				WRITE QuoteRec ON FileIn,QuoteNo THEN Send_Info(RecCnt)
+			END
+			
+		END
+
+		
+	END	;* End of Quote Record Read
+REPEAT
+
+
+
+*UNLOCK All
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END