30 lines
464 B
Plaintext
30 lines
464 B
Plaintext
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
|