Naja, mit SQL wäre es effektiver:

Create Table MyTable (Field as char(nn) CCSID xxxx, ...)

Die Quellinformationen erhältst du aus QSYS2/SYSCOLUMNS !
Das ist allerdings Releaseabhängig ob das Feld CCSID vorhanden ist (ab V5 glaube ich).