24 lines
398 B
Plaintext
24 lines
398 B
Plaintext
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
|