× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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 thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.