/* whereami.p */

 MESSAGE "CONNECTED TO" ldbname(1) "[" + pdbname(1) + "]" VIEW-AS ALERT-BOX.

/* end of program */