Duvida Saber em qual banco está conectado

Agnaldo,

Consegui fazer desta forma..

Código:

/* 1 equivale o nr da conexão */
parametro = dbparam(1).

def var i as int.
def var vc as char.

do i = 1 to num-entries(parametro):
  if entry(i,parametro,",") begins "-S" then
      vc = entry(i,parametro,",").
end.
disp vc.

/*com isto eu consegui pegar o service name e ai sei se estou em produção ou qualidade.*/