Wollte gestern auch einen kleinen Test fahren .
Die LF durchlesen von Anfang bis Ende .

Dieses kleine PGM lief nach 7 Stunden immer noch !!!!!


ftestdds if e k disk
d time1 s z
d time2 s z
d time3 s 6 0
/free
time1 = %timestamp();
setll *start testdds ;
read testdds ;
dow not %eof(testdds );
read testdds ;
enddo;
time2 = %timestamp();
time3= %diff(time2:time1:*seconds);
dsply time3;
*inlr = *on;

/end-free

bin echt verwirrt.