COMPILE ROUTINE TEST_OBJ_PRS_PROP(Dummy)
ROWDEF(CHARSTR)

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

$INSERT PROD_SPEC_EQUATES


PSNo = '4454'
PropCd = 'CRES'
CassNo = 49
DEBUG
FOR CassNo = 1 TO 50
	Flag = obj_PRS_Prop('GetIntervalFlag',PSNo:@RM:PropCd:@RM:CassNo)

	Send_Dyn(CassNo:' ':Flag)

NEXT CassNo



GOTO Bail

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

END