RE: How to dup files but NO data

CRTDUPOBJ OBJ(OBJ*) FROMLIB(YOURLIB) OBJTYPE(*FILE) TOLIB(NEWLIB) NEWOBJ(*OBJ) 
DATA(*NO)                                                                  

\Vincent

 -----Original Message-----
From:   midrange-l-bounces@xxxxxxxxxxxx 
[mailto:midrange-l-bounces@xxxxxxxxxxxx]  On Behalf Of fu_james@xxxxxxxxxxxxxx
Sent:   June 6, 2006 10:02 AM
To:     Midrange Systems Technical Discussion
Subject:        How to dup files but NO data

We would like to duplicate/restore many files to another library but don't
want any data in the files.
Is there any simple way to do it beside clearing data in the files one by
one?
Thanks in advance.


Best Regards.

James Fu

TDL Group Corp. (Tim Hortons)
Oakville, Ontario
Direct: 905-339-5798
fu_james@xxxxxxxxxxxxxx
Web: http://www.timhortons.com


The information contained in this message is confidential and may be
legally privileged. The message is intended solely for the addressee(s).
If you are not the intended recipient, you are hereby notified that any
use, dissemination, or reproduction is strictly prohibited and may be
unlawful. If you are not the intended recipient, please contact the sender
by return e-mail and destroy all copies of the original message.

L'information contenue dans ce  message est de nature confidentielle et
peut etre de nature privilegiee. Ce  message est strictement reserve a
l'usage de son ou ses destinataires. Si vous  n'etes pas le destinataire
prevu, prenez avis, par la presente, que tout usage,  distribution, ou
copie de ce message est strictement interdit et peut etre  illicite. Si
vous n'etes pas le destinataire prevu, veuillez en aviser  l'expediteur par
courriel et detruire tous les exemplaires du message original.