RE: Create duplicate object

I usually do 
CPYF MYFILE QTEMP/MYFILE CRTFILE(*YES) NBRRCDS(1) then 
CLRPFM QTEMP/MYFILE

Or you could do 
RTVMBRD FILE(MYFILE) RTNLIB(&LIBR) and 
CRTDUPOBJ OBJ(MYFILE) FROMLIB(&LIBR)

Joe Giusto II
Patuxent Publishing Company
 <mailto:jgiusto@patuxent.com> mailto:JGiusto@patuxent.com
http://www.lifegoeson.com <http://lifegoeson.com> 


        -----Original Message-----
        From:   Ravi [SMTP:ravi@spacestar.com]
        Sent:   Thursday, December 24, 1998 5:34 PM
        To:     MIDRANGE-L@midrange.com
        Subject:        Create duplicate object

        Hello,

        I am working on creating a CLP which needs to run in different
        environments(diff. library lists). In the CL I need to create a
        duplicate object of a PF into QTEMP which will then be subsequently
        processed in an RPG program. The CRTDUPOBJ command expects the From
        Library name and does not accept *LIBL. Since the from library name
will
        differ depending on the environment, how can I dynamically retrieve
the
        library name where the PF exists and use it in my CRTDUPOBJ command?
I
        can do a DSPOBJD of the PF into an outfile and then read the file in
my
        CL to retrieve the library name, but are there any other
alternatives??
        Otherwise, I will have to rethink my design since the  quota of a
single
        DCLF in a CL is already taken........

        Thanks

        Ravi
        +---
        | This is the Midrange System Mailing List!
        | To submit a new message, send your mail to
MIDRANGE-L@midrange.com.
        | To subscribe to this list send email to
MIDRANGE-L-SUB@midrange.com.
        | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
        | Questions should be directed to the list owner/operator:
david@midrange.com
        +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---