COMPILE ROUTINE TEST_OBJ_POPUP(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Part, Set_Status, ErrMsg
DECLARE FUNCTION Get_Status, obj_Popup

$INSERT PART_EQUATES


Set_Status(0)

debug



a = obj_Popup('DescCode','REACTOR_MODE':@RM:'Down no Material')

DEBUG


IF Get_Status(errCode) THEN
	ErrMsg(errCode)
END

GOTO Bail




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

RETURN