... einfach dem CPY ein CHGAUT DTAAUT(*RWX) OBJAUT(*ALL) hinterherschicken (2 x QCMDEXC).

Gruß,
Robert