Board index » delphi » Calling COBOL program via Delphi
Leafster
Delphi Developer |
Calling COBOL program via Delphi2004-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! |