Calling COBOL program via Delphi


2004-04-30 03:32:05 AM
delphi138
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!