added LSL2 stored procedures

LSL2/STPROC/SECURITY_ERR_MSG.txt

@@ -0,0 +1,37 @@
+compile subroutine security_err_msg( TableName, ErrType )
+begin condition
+pre:
+post:
+end condition
+declare subroutine msg
+$insert msg_equates
+$insert logical
+$insert security_rights_equ
+
+MsgRec = ''
+MsgRec<mcol$> = -2
+MsgRec<mrow$> = -2
+begin case
+   case ErrType = Read$
+      MsgRec<mtext$> = 'You do not have READ rights to the ':TableName:' table.' 
+      MsgRec<micon$> = 'H'
+      msg( '', MsgRec )
+   case ErrType = Write$
+      MsgRec<mtext$> = 'You do not have WRITE rights to the ':TableName:' table.' 
+      MsgRec<micon$> = 'H'
+      msg( '', MsgRec )
+   case ErrType = Edit$
+      MsgRec<mtext$> = 'You do not have EDIT rights to the ':TableName:' table you will not be able to change any data on existing records.'
+      MsgRec<micon$> = '!' 
+      msg( '', MsgRec )
+   case ErrType = Delete$
+      MsgRec<mtext$> = 'You do not have DELETE rights to the ':TableName:' table.'
+      MsgRec<micon$> = 'H'
+      msg( '', MsgRec )       
+   case ErrType = Print$
+      MsgRec<mtext$> = 'You do not have PRINT rights to the ':TableName:' table.'
+      MsgRec<micon$> = 'H'
+      msg( '', MsgRec ) 
+   case otherwise$
+end case   
+