lc_sql = "SELECT Z804_menupad ,Z804_menuhead,Z804_menudesc,Z804_dataid,
Case
WHEN Z804_menupad Like 'DEV%' THEN 'High'
Else 'Medium'
End
AS l999_Security
From Z804 where Z804_menupad = '" & pc_menupad & "'"
lds = SYSDB.sysds(lc_sql)
Menusecurity = l999_security