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