System Name - SQL current server

["Hudson, Ron" <rhudson@xxxxxxxxx>]

I couldn't find it in the recent archives (July/Aug), but I remembered
seeing this trick to get the system name.
 
        C/exec sql                       
        C+     values current server     
        C+       into :SysName           
        C/end-exec                       
 
It works great on the system it is compiled on.  But when I move the
program object to production, it quits working.
 
I've moved the object using the following methods, none work:
    1)  Implementer (David ??)
    2)  ASNET (SSA product)
    3)  Save program to a *SAVF and use SNDNETF.
 
Sending the source to the production box and compiling is the only way
I've gotten it to work.
 
Anyone know any tricks to get around this.  Compiling on a production
box is not long term solution.
 
Thanks
Ron

**********************
**   LEGAL DISCLAIMER  **
**********************

This E-mail message and any attachments may contain 
legally privileged, confidential or proprietary 
information. If you are not the intended recipient(s),
or the employee or agent responsible for delivery of 
this message to the intended recipient(s), you are 
hereby notified that any dissemination, distribution 
or copying of this E-mail message is strictly 
prohibited. If you have received this message in 
error, please immediately notify the sender and 
delete this E-mail message from your computer.