|
That's yet another option on the SET OPTION statement. Had that in my example. Rob Berendt -- Group Dekko Services, LLC Dept 01.073 PO Box 2000 Dock 108 6928N 400E Kendallville, IN 46755 http://www.dekko.com "Steve Peel" <Steve.Peel@xxxxxxxxxx> Sent by: rpg400-l-bounces@xxxxxxxxxxxx 09/08/2004 12:53 PM Please respond to RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> To <rpg400-l@xxxxxxxxxxxx> cc Fax to Subject RE: CRTSQLRPGI USRPRF(*OWNER) not working Check the DYNUSR parameter on the CRTSQLRPGI command, this determines who's authority to use for SQL, not the USRPRF user. Found this myself the hard way - the program would work fine in testing but failed in production when executed by 'Normal' users. Steve Peel >>> rpg400-l-request@xxxxxxxxxxxx 9/8/2004 1:01:22 PM >>> Send RPG400-L mailing list submissions to rpg400-l@xxxxxxxxxxxx To subscribe or unsubscribe via the World Wide Web, visit http://lists.midrange.com/mailman/listinfo/rpg400-l or, via email, send a message with subject or body 'help' to rpg400-l-request@xxxxxxxxxxxx You can reach the person managing the list at rpg400-l-owner@xxxxxxxxxxxx When replying, please edit your Subject line so it is more specific than "Re: Contents of RPG400-L digest..." Today's Topics: 1. RE: CRTSQLRPGI USRPRF(*OWNER) not working (Dan Bale) 2. Override problem (Jeff Markel) 3. Re: Binary variables in RPG (James H H Lampert) 4. RE: CRTSQLRPGI USRPRF(*OWNER) not working (rob@xxxxxxxxx) 5. Re: What happens to unused constants? (Barbara Morris) 6. Re: What happens to unused constants? (Barbara Morris) 7. RE: Override problem (CWilt@xxxxxxxxxxxx) 8. Re: VisualAge RPG Questions (Marco Facchinetti) ---------------------------------------------------------------------- message: 1 date: Tue, 7 Sep 2004 13:26:20 -0400 from: "Dan Bale" <dbale@xxxxxxxxxxxxx> subject: RE: CRTSQLRPGI USRPRF(*OWNER) not working > -----Original Message----- > From: rpg400-l-bounces@xxxxxxxxxxxx / rob@xxxxxxxxx > Sent: Tuesday, September 07, 2004 12:18 PM > > Have you thought about modifying the following: > C/EXEC SQL > C+ Set Option > C+ Naming = *Sys, > C+ Commit = *None, > C+ UsrPrf = *User, > C+ DynUsrPrf = *User, > C+ Datfmt = *iso, > C+ CloSqlCsr = *EndMod > C/END-EXEC Not until you mentioned it, Rob. Don't see how that would solve the problem of the program object needing USRPRF(*OWNER) so that the users can run the program. Are you suggesting that the compiler is ignoring this parameter on the CRTSQLRPGI command because of "Set Option" statement? db ------------------------------ message: 2 date: Tue, 7 Sep 2004 10:49:40 -0700 from: Jeff Markel <JMarkel@xxxxxxxxxx> subject: Override problem I am having a problem with an override data base operation. My file is internally defined: FInfile if f10000 5aiDisk Infds(Dsfile) Usropn In the program I override to the desired file: * Override and open file C Eval %subst(Cmdovr:23:21) = %Trimr(Lib) + '/' + C File C Call 'QCMDEXC' C Parm CmdOvr C Parm CmdLen C Open InFile When I run this on our development box, everything is fine. However, when I run this on our production box, I receive the following error: Message ID . . . . . . : CPF4101 Severity . . . . . . . : 40 Message type . . . . . : Escape Date sent . . . . . . : 09/07/04 Time sent . . . . . . : 10:27:24 Message . . . . : File in library not found or inline data file missing. Cause . . . . . : The file was not opened. The reason code is 01. The reason codes and their meanings are as follows: 01 - THE LIBRARY DOES NOT EXIST. The file and library do exist, there aren't any typos, the override command is correctly executed, displaying active overrides shows InFile being overridden to the correct file. If I call the program and specify *LIBL for the library, I receive the exact same error message. If it said "file not found" I would understand. But how can *LIBL generate this error?! Any help would be appreciated. /jam Jeff Markel Developer, Information Access IBM Certified Specialist - iSeries RPG IV Developer Costco Wholesale Corporate Office Issaquah, Washington ------------------------------ message: 3 date: Tue, 7 Sep 2004 11:10:13 -0700 (PDT) from: "James H H Lampert" <jamesl@xxxxxxxxxxx> subject: Re: Binary variables in RPG Thanks, everybody. Nobody around here even KNEW that the "I" and "U" data types had been added. Hopefully, we'll still remember by the next time we need them. Incidentally, since the variable in question is a subfield of a data structure (so that we could access its bytes individually), we WERE specifying the number of bytes, not the number of digits. -- JHHL ------------------------------ message: 4 date: Tue, 7 Sep 2004 13:14:49 -0500 from: rob@xxxxxxxxx subject: RE: CRTSQLRPGI USRPRF(*OWNER) not working Worth a try... Rob Berendt -- Group Dekko Services, LLC Dept 01.073 PO Box 2000 Dock 108 6928N 400E Kendallville, IN 46755 http://www.dekko.com "Dan Bale" <dbale@xxxxxxxxxxxxx> Sent by: rpg400-l-bounces@xxxxxxxxxxxx 09/07/2004 12:26 PM Please respond to RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> To "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx> cc Fax to Subject RE: CRTSQLRPGI USRPRF(*OWNER) not working > -----Original Message----- > From: rpg400-l-bounces@xxxxxxxxxxxx / rob@xxxxxxxxx > Sent: Tuesday, September 07, 2004 12:18 PM > > Have you thought about modifying the following: > C/EXEC SQL > C+ Set Option > C+ Naming = *Sys, > C+ Commit = *None, > C+ UsrPrf = *User, > C+ DynUsrPrf = *User, > C+ Datfmt = *iso, > C+ CloSqlCsr = *EndMod > C/END-EXEC Not until you mentioned it, Rob. Don't see how that would solve the problem of the program object needing USRPRF(*OWNER) so that the users can run the program. Are you suggesting that the compiler is ignoring this parameter on the CRTSQLRPGI command because of "Set Option" statement? db -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. ------------------------------ message: 5 date: Tue, 07 Sep 2004 14:52:20 -0400 from: Barbara Morris <bmorris@xxxxxxxxxx> subject: Re: What happens to unused constants? CWilt@xxxxxxxxxxxx wrote: > > If I've got a standard include that defines a bunch of constants, based or > not based data structures what happens when most of it is not referenced in > a given program/module? > > I assume the compiler throws away the unused stuff, so you are not wasting > space. > > Can anyone confirm this? Does the behavior depend on debug level or > optimization level? > Constants are thrown away if they are not used. If they are used, they may actually cause zero or more "things" to be generated. For example, say you have named constant ONE with the value 1. If you used this in an expression ONE + 2 the compiler would generate a constant with the value 3. This is "constant folding"; folding of constant expressions into a single constant. If you used it like this: eval someInt = ONE eval somePacked = ONE the compiler might generate two constants, an integer and a packed value with the value 1. Unused based variables don't cause any storage to be declared (beyond the basing pointer), but they do cause debug information to be generated. Unused non-based variables get both declared storage and debug information. ------------------------------ message: 6 date: Tue, 07 Sep 2004 14:58:59 -0400 from: Barbara Morris <bmorris@xxxxxxxxxx> subject: Re: What happens to unused constants? Jon Paris wrote: > ... > Can't remember the exact term ("constant folding" I think) but I believe the > compiler and/or translator do some work to reduce the number/size of > constants by commoning them up etc. Things like having a single constant of > '123' when the program used '123', '12', '1', '2', etc. > "Constant folding" refers to the compression of constant expressions (like 1 + 2 - 3, "abc" + "def") into a single constant. The RPG compiler does fairly extensive constant folding. The optimization of the storage used for constants that you described is done to some extent by RPG; it may also be done by the translator. ------------------------------ message: 7 date: Tue, 7 Sep 2004 15:26:17 -0400 from: CWilt@xxxxxxxxxxxx subject: RE: Override problem Jeff, Off the top of my head, it sounds as if there is a difference between the two systems in the call level used for the override. Check that the program is created with the same activation group parms on both systems. Also, check that the default for the OVRSCOPE parm of the OVRDBF command is the same on both systems. HTH, Charles > -----Original Message----- > From: Jeff Markel [mailto:JMarkel@xxxxxxxxxx] > Sent: Tuesday, September 07, 2004 1:50 PM > To: 'Midrange RPG/400 mailing list' > Cc: Jeff Haddix; Kenneth Seeber; David Tilbrook; Blake Kennedy; Don > LaLiberte > Subject: Override problem > > > I am having a problem with an override data base operation. My file is > internally defined: > > FInfile if f10000 5aiDisk Infds(Dsfile) Usropn > > In the program I override to the desired file: > > * Override and open file > > C Eval %subst(Cmdovr:23:21) = > %Trimr(Lib) + > '/' + > C File > > > > C Call 'QCMDEXC' > > C Parm CmdOvr > > C Parm CmdLen > > > > C Open InFile > > > When I run this on our development box, everything is fine. > However, when I > run this on our production box, I receive the following error: > > Message ID . . . . . . : CPF4101 > Severity . . . . . . . : 40 > Message type . . . . . : Escape > > Date sent . . . . . . : 09/07/04 Time sent . . > . . . . : > 10:27:24 > > > Message . . . . : File in library not found or > inline data file > missing. > Cause . . . . . : The file was not opened. The > reason code is 01. > The > reason codes and their meanings are as follows: > > 01 - THE LIBRARY DOES NOT EXIST. > > > The file and library do exist, there aren't any typos, the > override command > is correctly executed, displaying active overrides shows InFile being > overridden to the correct file. > > If I call the program and specify *LIBL for the library, I > receive the exact > same error message. If it said "file not found" I would > understand. But how > can *LIBL generate this error?! > > Any help would be appreciated. > /jam > > Jeff Markel > Developer, Information Access > IBM Certified Specialist - iSeries RPG IV Developer > Costco Wholesale Corporate Office > Issaquah, Washington > > > > -- > This is the RPG programming on the AS400 / iSeries (RPG400-L) > mailing list > To post a message email: RPG400-L@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l > or email: RPG400-L-request@xxxxxxxxxxxx > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. > ------------------------------ message: 8 date: Wed, 8 Sep 2004 01:10:54 -0700 (PDT) from: Marco Facchinetti <facchinetti@xxxxxxxxx> subject: Re: VisualAge RPG Questions Late answer but... http://www.poolgalileo.it/pdf/Company%20Profile%20(Est%20Europa).pdf HTH Marco --- Scott Johnson <sjohnson@xxxxxxxxxxxxxxxxxxxx> wrote: > Jon, > > Can you tell us who built and/or the name of these "major > applications and > packages"? I would be interested to see what they built, > how the screens look, > and what they were able to do. Maybe IBM needs to put > them out there to show > people what VARPG can do...... > > Thanks, > Scott J. > > Jon Paris wrote: > > Comments in-line: > > > > 1) Is VARPG still viable? Is IBM still developing it? > Is anything > > changing in Windows in the foreseeable future to > prevent it from > > working? > > > > >> Yes and Yes. The latest release already has full > V5R2 capability - > > including free-form support. IBM has also discussed > some of the features > > they plan on adding in the mailing list. There are > several major > > applications and packages out there built with the > tool. If Windows changes > > I can't see IBM letting their BP's go hang. > -- > This is the RPG programming on the AS400 / iSeries > (RPG400-L) mailing list > To post a message email: RPG400-L@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: > http://lists.midrange.com/mailman/listinfo/rpg400-l > or email: RPG400-L-request@xxxxxxxxxxxx > Before posting, please take a moment to review the > archives > at http://archive.midrange.com/rpg400-l. > > _______________________________ Do you Yahoo!? Win 1 of 4,000 free domain names from Yahoo! Enter now. http://promotions.yahoo.com/goldrush ------------------------------ -- This is the RPG programming on the AS400 / iSeries (RPG400-L) digest list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. End of RPG400-L Digest, Vol 3, Issue 688 **************************************** *********************************************************************** The information transmitted is confidential and is intended for the person or persons named above. Any unauthorized reading, distribution, copying, or other use of this message or its attachments is strictly prohibited. If you received this message in error, contact the sender and then delete and destroy all copies of the material. -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
