added LSL2 stored procedures

LSL2/STPROC/TEST_ERR_MSG.txt

@@ -0,0 +1,23 @@
+COMPILE ROUTINE TEST_Err_Msg(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE  Set_Status, Send_Info, obj_tables, ErrMsg
+DECLARE FUNCTION Get_Status,obj_Order, ErrMsg
+
+DEBUG
+
+otParms = 'SYSOBJ':@RM:'VISION_COMM'
+obj_Tables('LockRec',otParms)	;* Places lock on fictional record
+
+IF Get_Status(errCode) THEN
+	
+	ErrMsg(errCode)
+	
+END
+GOTO Bail
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END