COMPILE ROUTINE FIX_PRS_PROP(Dummy)
ROWDEF(CHARSTR)

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

$INSERT PROD_SPEC_EQUATES
$INSERT QUOTE_SPEC_EQU
$INSERT PART_EQUATES
$INSERT RLIST_EQUATES

$INSERT CUST_EPI_PART_EQUATES
$INSERT PRS_PROP_EQUATES
$INSERT CLEAN_INSP_EQUATES

EQU TAB$ TO \09\:'/'

EQU CRLF$ TO \0D0A\

EQU PDISPLAY$ TO 8

OPEN 'PROD_SPEC' TO PSNTable ELSE
	DEBUG
	GOTO Bail
END


OPEN 'PRS_STAGE' TO StageTable ELSE
	DEBUG
	GOTO Bail
END

OPEN 'PRS_PROP' TO PropTable ELSE
	DEBUG
	GOTO Bail
END


SelectSent = 'SELECT PRS_PROP '

RList(SelectSent,TARGET_ACTIVELIST$,'','','')

DEBUG


Done = 0
RecCnt = 0
FixCnt = 0

LOOP
	READNEXT PropKey ELSE Done = 1
UNTIL Done 
	
	

	READ PropRec FROM PropTable,PropKey  THEN
	
		PropRec<PRS_PROP_MET_SLOT$> = 1
		
		WRITE PropRec ON PropTable,PropKey THEN
			Send_Info(RecCnt:' ':PropKey)
		END
		
		RecCnt += 1
	END
		

	
REPEAT

GOTO Bail


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

END


