35 lines
403 B
Plaintext
35 lines
403 B
Plaintext
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
|