COMPILE ROUTINE TEST_OBJ_PART(Dummy)
ROWDEF(CHARSTR)

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

$INSERT PART_EQUATES


Set_Status(0)

debug

OrderDetKey = '52023*1'

obj_Part('Convert',OrderDetKey)

DEBUG


IF Get_Status(errCode) THEN
	ErrMsg(errCode)
END

GOTO Bail




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

RETURN