Um Daten in die AS/400 zu schreiben verwendest du am besten einen SQL-Befehl:

insert into mylib.myfile
(F1, F2, F3, ...)
values (?, ?, ?, ...)

und dann per
cmdobj.execute , array(Val1, Val2, Val3, ...) , adExecuteNoRecords

die Daten übertragen.

IBMDA400 unterstützt das Hinzufügen bzw. Ändern nicht bei einer Tabelle.
Also auch einen Update per SQL durchführen:

update mylib.mytable
set F1=?, F2=?, F3=?, ...
where K1=?, K2=?, ...

und dann per
dim mRecords as long
cmdobj.execute mRecords, array(Val1, Val2, Val3, ..., Key1, Key2, ...) , adExecuteNoRecords