39 lines
1.2 KiB
Plaintext
39 lines
1.2 KiB
Plaintext
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
|
|
|
|
|