COMPILE ROUTINE TEST_OBJ_POST_LOG(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Notes, Set_Status, obj_Export, ErrMsg, obj_Post_Log
DECLARE FUNCTION Get_Status, Utility, obj_Post_log

$INSERT POST_LOG_EQUATES

EQU CRLF$ TO \0D0A\




FieldNos = 33:@VM:33:@VM:33:@VM:33
FieldVals = '99863':@VM:'100000':@VM:'100002':@VM:'100391'
FieldAddMVBys = 'AR':@VM:'AR':@VM:'AR':@VM:'AR'

DEBUG

FOR I = 1 TO 4
	obj_Post_Log('Create','WO_LOG':@RM:'150091':@RM:FieldNos:@RM:FieldVals:@RM:FieldAddMVBys)
NEXT I

awShit = Get_Status(errCode)


DEBUG

obj_Post_Log('Post')


goto Bail

StartTime = Time()
LOOP
	a = XLATE('SYSLISTS','1*2*3*4','','X')
UNTIL a NE ''
REPEAT
EndTime = Time()

Delta = EndTime - StartTime

awShit = Get_Status(errCode)


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

RETURN