added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_POST_LOG.txt

@@ -0,0 +1,50 @@
+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