BorlandTalk.com

Leafster · Guest

I have the following code:

Cn400 := CreateOleObject('adodb.connection');
systemName := inputbox('What AS/400', 'Enter system name:', '');
connectString := Concat('Provider=IBMDA400;Data Source=', systemName);
connectString := Concat(connectString, ';');
Cn400.Open(connectString, '','');

cn400.Execute('{{CHGCURLIB CURLIB(X814376)}}', Rcds, adCmdText);
cn400.Execute('{{CALL PGM(X814376/FUNELDQ97)}}', Rcds, adCmdText);

It does perform the last two lines and the connection works, but I don't see
the results on the 400 that I want. The program is suppose to write a record
to a dataqueue. I can call the program on the 400 and it works.

Any thoughts?
Thanks!