z.B.

d sqlstm s 1024a varying
d wrkfile s 20a inz('QTEMP/TESTFILE')
/Free
sqlstm = 'CREATE Table ' + %trim(wrkfile) +
' as +
(select * from test) +
with data ';

/End-Free
c/exec sql
c+ execute immediate :sqlstm
c/end-exec
c move *on *inlr