Meine Version
Code:
PGM 

DCLF X1

 DSPOBJD LIB/*ALL   
OBJTYPE(*ALL) OUTPUT(*OUTFILE) OUTFILE(QTEMP/X1)       

RUNSQL SQL(DELETE FROM X1 WHERE ODOBNM NOT LIKE '%TR') COMIT(*NONE)

RCVF X1
 SAVOBJ &ODLBNM/&ODOBNM TAP01

ENDPGM