Die Tests werden immer mit einem neuen Job ausgeführt. Ich melde mich im Terminal ab, schliesse den Terminal-Client und mache eine neue Session auf.

Bei SQL reicht das damit das erste insert wieder langsam ist.

Ich habe den rpg-code für die Native-Variante unten angehängt (Davor findest Du die Ausgabe). In dem Beispiel ist die Tabelle eine andere als oben in meinem Post, der Effekt ist aber genau der gleiche. Bei dieser Tabelle im Code unten dauer das insert mit embedded sql beim ersten mal immer ca 240ms. Wie man sehen kann brauch der RPG-Code ca 22ms.

LG,
Franz




----------------------------------------------

DSPLY Start
DSPLY 2018-12-20-17.34.21.269
DSPLY 2018-12-20-17.34.21.291
DSPLY End

--------------------------------------------

**free
ctl-opt option(*DEBUGIO: *SRCSTMT) ccsid(*char:*jobrun) actgrp(*new) datfmt(*iso);


dcl-f xxzb extfile(*extdesc) extdesc('TESTLIB3/TBZB') USAGE(*INPUT: *OUTPUT);


dcl-s ts char(30) dim(10);

dcl-s inp01 char(1);

dsply 'Start' '*EXT' inp01;

ts(1) = %char(%timestamp(*SYS : 3));

zbid = 100002;
zbdatum = %date();
pvid =1;
maid = 1;
zbstatus = 0;


write tbzb;
ts(2) = %char(%timestamp(*SYS : 3));

dsply ts(1);
dsply ts(2);

dsply 'End' '*EXT' inp01;
return;