COMPILE ROUTINE TEST_OBJ_PRS_STAGE(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_PRS_Stage, Send_Dyn
DECLARE FUNCTION Get_Status

$INSERT PROD_SPEC_EQUATES

OPEN 'PROD_SPEC' TO PSNTable ELSE
	DEBUG
	RETURN
END

SELECT PSNTable

RecCnt = 0
Done = 0

LOOP
	READNEXT PSNo ELSE Done = 1
UNTIL Done
	READ PSRec FROM PSNTable,PSNo THEN
		IF PSRec<PROD_SPEC_STATUS$> = 'A' THEN
			RecCnt += 1
			Send_Dyn('Converting: ':PSNo)
			obj_PRS_Stage('Convert',PSNo:@RM:PSRec)
			Send_Info(RecCnt:' ':PSNo)
			
		END
	END
REPEAT
	








GOTO Bail

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

END
