| **Navigation:**  [[introduction.htm|Language Reference]] > App A - DDE, OLE, and OCX > DDE Procedures >====== DDEAPP (return server application) ====== | [[ddeacknowledge  send acknowledgement from dde server .htm|{{btn_prev_n.gif|Previous page}}]][[introduction.htm|{{btn_home_n.gif|Return to chapter overview}}]][[ddechannel  return dde channel number .htm|{{btn_next_n.gif|Next page}}]] |
|  ||

**DDEAPP( )**

{{blk2blue.jpg|blk2blue.jpg}}

The **DDEAPP** procedure returns a string containing the application name in the DDE channel that has just posted a DDE event. This is usually the same as the first parameter to the DDESERVER or DDECLIENT procedure when the DDE channel is established.

**Return Data Type:     **STRING

**Example:**

**ClientApp STRING(20)**

**WinOne  WINDOW,AT(0,0,160,400)**

**         STRING(@S20),AT(5,5,90,20),USE(ClientApp)**

**        END**

**TimeServer LONG**

**DateServer LONG**

**FormatTime STRING(5)**

**FormatDate STRING(8)**

** CODE**

** OPEN(WinOne)**

** TimeServer = DDESERVER('SomeApp','Time')    !Open as server**

** DateServer = DDESERVER('SomeApp','Date')    !Open as server**

** ACCEPT**

**  CASE EVENT()**

**  OF EVENT:DDErequest**

**   CASE DDECHANNEL()**

**   OF TimeServer**

**    ClientApp = ****DDEAPP****()                     !Get client's name**

**    DISPLAY                                  !and display on screen**

**    FormatTime = FORMAT(CLOCK(),@T1)**

**    DDEWRITE(TimeServer,DDE:manual,'Time',FormatTime)**

**   OF DateServer**

**    ClientApp = ****DDEAPP****()                     !Get client's name**

**    DISPLAY                                  !and display on screen**

**    FormatDate = FORMAT(TODAY(),@D1)**

**    DDEWRITE(DateServer,DDE:manual,'Date',FormatDate)**

**   END**

**  END**

** END**

**See Also:**

[[ddeclient  return dde client channel .htm|DDECLIENT]]

[[ddeserver  return dde server channel .htm|DDESERVER]]