Dear all,

I like to get VB or VBA code to execute query stored in AS/400. The objective is to execute multiple queries in AS/400 from VBA module in Excel environment without having to manually run the AS400 queries.

Any code example with explanation will be much appreciated.

One example I got was like:

cnAS400.Execute "{{QSYS/DSPFD FILE(*ALLUSR/QS36SRC) TYPE(*RCDFMT) " & _
"OUTPUT(*OUTFILE) OUTFILE(QS36F/S36LIBS)}}",0,adCmdText

I did not understand it or how to adopt to my own use.

My database: SOMPO1
library: RHSULIB
query: T0
output file: W0

Thanks again.