DO $SYSTEM.Security.Login("MyName","SecretPassword")
&sql(CREATE ROLE BkName)
IF SQLCODE=-99 {
WRITE !,"You don't have CREATE ROLE privileges" }
ELSE { WRITE !,"Created a role"}
/* Use role */
&sql(DROP ROLE BkName)
IF SQLCODE=-99 {
WRITE !,"You don't have DROP ROLE privileges" }
ELSE { WRITE !,"Dropped the role" }