Super Smarticon

This Content Component encountered an error
this code, in a smarticon, is an invaluable tool for administrators.

Note: To use the Switch ID function, you must have a place where you keep
backup copies of created ID's.

You also need to create a new database and place the agents listed below into
it, I use 2 custom navigators to make the screen look more professional when
"Check Groups" and "Switch ID" are used, they are not needed.
Smarticon Code.
Person := "";
ID := "";
Name := "";
sA := "";
Access := "";
Roles := "";
Data := "";
Line = "";
Server :="Your Server";
Database := "Your Database";

list := "Check Groups":"Anon E-Mail":"Switch ID":"Open Another Mailfile":"My
member := @Prompt([OKCANCELLIST]:[NoSort]; "Admin Choice"; "Select an Option";
""; list);

@If(member = "Check Groups";@Do(
@Command([FileOpenDatabase]; Server:Database ; "Custom Display Navigator, just
for show";"1" );
@Command( [ToolsRunMacro];"ShowGroups");
@If(member = "Anon E-Mail";@Do(
@Command([FileOpenDatabase]; Server:Database ; "Untitled" );
@Command( [ToolsRunMacro];"Anon Mail");
@If(member = "Open Another Mailfile"; @Do(
@Command([FileOpenDatabase]; Server:Database ; "Untitled" );
@Command( [ToolsRunMacro];"OpenMail");
@If(member = "My Access";@Do(
@Set("sA";@Subset(@UserAccess( @DbName );1));
@Set("Roles"; @If(@UserRoles="";"None Set";@UserRoles));
@Prompt([OK];"Database Name = "+@DbTitle+ " : Server =
"+@DbName;"Your Name =" + @Name([CN] ; @UserName) +
@Char(13)+@Char(10)+@Char(13)+@Char(10)+"Your Access Level =
"+Access+@Char(13)+@Char(10)+@Char(13)+@Char(10)+"Roles set for you =
"+Roles+"." ));
@If(member = "Switch ID";@Do(
@Set("Person";@PickList( [Name]:[Single]) );
@Command([FileOpenDatabase]; Server:Database ; "Custom Display
Navigator, just for show";"1" );
@Command( [ToolsRunMacro] ; "IDSwitch" );

the macros are as follows

"ShowGroups" (Agent in Your Database on Your Server)

replace 00000000:00000000 with the Replica ID of your Main Address book

REM "Groups can be nested up to a maximum of 6 levels";
UserName := @Environment("GroupName") ;
temp :=@DbLookup("":"";"00000000:00000000";"($ServerAccess)";UserName;2);
MemberList1 := @If(!@IsError(temp);temp;"");
berList1;" ";"+"));"|");"|";0);"+";" ");
MemberList2 := @If(!@IsError(temp) & LU !="";temp;UserName);
ring(MemberList2;" ";"+"));"|");"|";0);"+";" "));
MemberList3 := @If(!@IsError(temp) & LU !="";temp;UserName);
ring(MemberList3;" ";"+"));"|");"|";0);"+";" "));
MemberList4 := @If(!@IsError(temp) & LU !="";temp;UserName);
ring(MemberList4;" ";"+"));"|");"|";0);"+";" "));
MemberList5 := @If(!@IsError(temp) & LU !="";temp;UserName);
ring(MemberList5;" ";"+"));"|");"|";0);"+";" "));
This was first published in November 2000

Dig deeper on Domino Resources - Part 6



Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:




  • iSeries tutorials's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...