以下の例では、最初にロール Vendor、Sales、および Contractor を作成します。既定ロール (ユーザ・ロールと追加ロールの両方が含まれる) のコンマ区切りのリストが表示されます。最初の SET $ROLES は、追加ロールのリストを Sales と Contractor の 2 つのロールに置き換えます。2 番目の SET $ROLES は、Vendor ロールを追加ロールのリストに連結します。最後の SET $ROLES は、すべての追加ロールを削除して、追加ロール・リストを NULL 文字列に設定します。ユーザ・ロールは変更されません。
CreateRoles
&sql(CREATE ROLE Vendor)
&sql(CREATE ROLE Sales)
&sql(CREATE ROLE Contractor)
IF SQLCODE=0 {
WRITE !,"Created new roles"
DO SetRoles }
ELSEIF SQLCODE=-118 {
WRITE !,"Role already exists"
DO SetRoles }
ELSE { WRITE !,"CREATE ROLE failed, SQLCODE=",SQLCODE }
SetRoles()
WRITE !,"Initial: ",$ROLES
NEW $ROLES
SET $ROLES="Sales,Contractor"
WRITE !,"Replaced: ",$ROLES
NEW $ROLES
SET $ROLES=$ROLES_",Vendor"
WRITE !,"Concatenated: ",$ROLES
SET $ROLES=""
WRITE !,"Nulled: ",$ROLES