How about

SELECT CURRENT SERVER

Bill



Jay Mills wrote:

> Is there a more elegant / direct method of find out the DSN SYSTEM NAME
> in an application program on the mainframe?
>
> SELECT SUBSTR(PDSNAME,1,4)
> FROM SYSIBM.SYSDBRM
> WHERE NAME= 'DSNTIAD'