60 lines
895 B
Plaintext
60 lines
895 B
Plaintext
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
|