COMPILE ROUTINE FIX_PROD_VER(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, RList, ErrMsg, obj_Prod_Spec, Btree.Extract
DECLARE FUNCTION Get_Status, Set_Printer,

$INSERT PROD_VER_EQUATES




OPEN 'PROD_VER' TO ProdVerTable ELSE
	DEBUG
	GOTO Bail
END

DEBUG

SELECT ProdVerTable


Done = 0
RecCnt = 0

LOOP
	READNEXT PVNo ELSE Done = 1
UNTIL Done
	READ ProdVerRec FROM ProdVerTable,PVNo THEN
	
	
		ReactType = ProdVerRec<PROD_VER_REACT_TYPE$>
		
		IF ReactType = 'EPS' THEN
			ProdVerRec<PROD_VER_REACT_TYPE$> = 'ASM'
			
		
			WRITE ProdVerRec ON ProdVerTable,PVNo THEN
				RecCnt += 1
				Send_Dyn(PVNo:' ':RecCnt:' ':ReactType:' -> ':ProdVerRec<PROD_VER_REACT_TYPE$>)
				Send_Info(RecCnt)
			END
		END
	END
REPEAT

GOTO Bail




GOTO Bail
*/

RList('SELECT PROD_SPEC WITH STATUS = "A" AND WITH EPI_PART_NO NE "" ',5)

SelCnt = @RECCOUNT
DEBUG
Done = 0
RecCnt = 0
FixCnt = 0
LOOP
	READNEXT ProdSpecNo ELSE Done = 1
UNTIL Done 

	READ ProdSpecRec FROM ProdSpecTable,ProdSpecNo THEN
	
		
		obj_Prod_Spec('PushSplit',ProdSpecNo)
		
		FixCnt += 1
			
		Send_Info(RecCnt:' - ':FixCnt)
		
		
	END	;* End of read
	
REPEAT




* * * * * * *
Bail:
* * * * * * *

END