object O,Ocu,Ocb,Osw;
set S,Scc;
int i,n,m; 
S = SEL.All();
i = S.Count();
Info('Number of objekts: %d',i); 
O = S.First();
while (O) {
O.ShowFullName(); 
n = O.GetConnectionCount();
Info('Number of connections: %d',n); 
i = 0;
while (i<n) {
Ocu = O.GetCubicle(i); 
Ocb = Ocu:cBusBar; if (Ocb) Ocb.ShowFullName(); else Warn('Node not found !!!');
Ocb = Ocu:obj_out; if (Ocb) Ocb.ShowFullName(); else Warn('Branch not found !!!');
Ocb = Ocu:cpCB; if (Ocb) Ocb.ShowFullName(); else Warn('Circuit breaker not found !!!');
Ocb = Ocu:cpCts; if (Ocb) Ocb.ShowFullName(); else Warn('No current Transformer found !!!');
Ocb = Ocu:cpRelays; if (Ocb) Ocb.ShowFullName(); else Warn('No relay found !!!'); 
Scc = Ocu.GetContents();
m = 0;
Osw = Scc.FirstFilt('*AF*.StaSwitch');
while (Osw) {
m = m+1;
Osw.ShowFullName();
Osw = Scc.NextFilt();
} 
i = i+1;
} 
printf(''); 
O = S.Next();
} 
