Available in:
Apps (win)
Apps (char)
Reportwriter
RPC
Standalone PL
X
X
X
X
X
int db_id()
if (db_id() == db_oracle)
ll = list_open("SELECT decode(ID,1,'Clerk',2,'Mgr','Unknown') "
"FROM staff",100);
else if (db_id() == db_rdb){
ll = list_open("SELECT id FROM staff",100);
while (true) {
list_modcol(ll,0,decode(list_curr(ll,0),1,"Clerk",2,"Mgr","Unknown"));
if(list_pos(ll) == list_next(ll))break;
}
}