RE: UsrPrf(*OWNER)

["Reeve Fritchman" <reeve@xxxxxxxxxx>]

One other useful parameter: *YOUKNOWWHATIMEAN

-----Original Message-----
From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
Behalf Of Jeff Crosby
Sent: Friday, September 21, 2001 4:30 PM
To: rpg400-l@midrange.com
Subject: Re: UsrPrf(*OWNER)

Carsten Flensburg wrote:

> The USRPRF attribute is inherited from the old object if REPLACE(*YES) is
> specified - did the program exist prior to both of your compilations?

Well I'll be d&#*@+!  If I delete the program first, then it works.

To answer your question, yes, the program existed before the compile in
both cases.  But the reason a prompted "14" worked is that by actually
typing in that parm, it becomes part of the RQSDTA parm, like this:

     RQSDTA('CRTBNDRPG PGM(DILGARD/SH15) SRCFILE(DILGARD/QRPGSRC) +
             SRCMBR(SH15) REPLACE(*YES) USRPRF(*OWNER)')

Whereas if the "14" is _not_ prompted, the RQSDTA parm looks like this:

     RQSDTA('CRTBNDRPG PGM(DILGARD/SH15) SRCFILE(DILGARD/QRPGSRC) +
            SRCMBR(SH15) REPLACE(*YES)')

What we need on the USRPRF parm is a 3rd option:  *WHATEVERITISNOW

<vbg>

--
-Jeff
The opinions expressed are my own and not necessarily
the opinion of my company.  Unless I say so.

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.