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
