COMPILE ROUTINE TEST_Err_Msg(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE  Set_Status, Send_Info, obj_tables, ErrMsg
DECLARE FUNCTION Get_Status,obj_Order, ErrMsg

DEBUG

otParms = 'SYSOBJ':@RM:'VISION_COMM'
obj_Tables('LockRec',otParms)	;* Places lock on fictional record

IF Get_Status(errCode) THEN
	
	ErrMsg(errCode)
	
END
GOTO Bail

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

END