Re: Create duplicate object

[Pete Hall <peteh@xxxxxxxxxx>]

At 16:34 12/24/1998 -0600, Ravi wrote:
>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........

I usually pick an object that I can depend on being in the source library
(and in the library list). In your case, the file you will duplicate is
probably the one to use, since it must already be there. I then run
something like this:

  DCL     VAR(&SRCLIB) TYPE(*CHAR) LEN(10)
  RTVOBJD OBJ(existingfile) RTNLIB(&SRCLIB)


Pete Hall
peteh@inwave.com
http://www.inwave.com/~peteh
+---
| 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
+---