COMPILE ROUTINE TEST_OBJ_WM_OUT(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info,  Send_Dyn, Btree.Extract, ErrMsg, obj_WM_In, obj_WM_Out, obj_WO_Mat, obj_Tables

DECLARE FUNCTION Get_Status, obj_WM_Out, Send_Dyn, obj_Tables

$INSERT WO_LOG_EQUATES


DEBUG

WONo = '155215'
WOStep = 1
NewCassNos = 1:@VM:2:@VM:3:@VM:4:@VM:5
OutQty = 5

/*
otParms = 'WO_LOG':@RM:WONo
WOLogRec = obj_Tables('ReadRec',otParms)

DEBUG

CassCnt = COUNT(NewCassNos,@VM) + (NewCassNos NE '')

FOR I = 1 TO CassCnt
	NewCassNo = NewCassNos<1,I>
	WOLogRec<WO_LOG_WO_MAT_KEY$,-1> = WONo:'*':NewCassNo
NEXT I



*/

obj_WM_Out('Create',WONo:@RM:WOStep:@RM:NewCassNos:@RM:OutQty)

debug
GOTO Bail

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

END
