AS/400 VB : DDE info required

["DAVID BULOG" <d2ba@xxxxxxxxxx>]

I  have finally found an application that has DDE which I wish to set up as
a client. Using Netsoft Elite on AS/400,Attachmate on Unisys Mainframe
I wish to convert all my send keys into LinkPoke or LinkExecute commands
(not sure which to use.  I have given three lines of code that I need
converted to get me started.All the dde
 server code that I use on our AS/400 was built by another developer-so I
have only a small understanding of DDE-most of the mainframe terminal
emulation products still use it for the purpose of screen-scraping---a
backdoor method to copy& paste data betwween mainframes (saves a typist
from RSI) when  management wont allow direct access using SQL , ODBC etc.
What I have usually been doing is just activating the other application
using sendkeys in the mainsub:example

AppActivate "Accessory Manager - [Tcpa_1]"     'Our Client Mr Unisys
Mainframe
  SendKeys AS400_Scroll_PhNo , True                    ' from AS400 to 
Unisys                                                                     
                                                                           
                                                                           
                                                                           
                                                           '
row8,column5,length9        
                                                                           
   Any Visual Basic 400ers out there?
thanks Dave B                                                              
        
                                                                           
                                                                           
             
  




I dont really understand DDE at all but here is the code that was set up on
our server.I have commented the code to understand it better.Its rock solid
and works a treat
FORM

Public Function ReadScreen(Position As String) As String        'Reads
AS/400 & Trims string

ReadScreenTxtBox.LinkTopic = Trim(Module1.AS400_DDETopic)  'AS400_DDETopic
= "elite|1"   
ReadScreenTxtBox.LinkItem = Position                
'AS400_DataExtract.ReadScreen("r?c?:t?")                     
ReadScreenTxtBox.LinkMode = 2                            'manual linkmode 
ReadScreenTxtBox.LinkRequest                               'the link
request method causes a update
*********************************************************************
MODULE

Global AS400_DDETopic As String

Public Sub Main()
    AS400_DDETopic = "elite|1"   'Change this to DDE session number...
(elite|2 possibly?) - Note: case sensitive
UpdateSoScroll ()                      'Pull in AS400 S/O scroll

'APP ACTIVATE & SEND KEYS PLACE CODE HERE

Public Sub UpdateSoScroll(Row As Integer)
    AS400_Scroll_PhNo = AS400_DataExtract.ReadScreen("r4c15:t9")    
'extracts ph no from


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---