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



I have run into the same problem make sure that your DS fields match
your select exactly any difference will cause the data to not be
returned

Yet no error is returned Check Order, Length and Type 

Hope this helps


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
rpg400-l-request@xxxxxxxxxxxx
Sent: Wednesday, April 06, 2005 5:45 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RPG400-L Digest, Vol 4, Issue 413

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: SQLRPGLE help/advice/direction (rob@xxxxxxxxx)
   2. Re: Eval with two equals? (Scott Johnson)
   3. Re: Eval with two equals? (Paul Morgan)
   4. Re: Eval with two equals? (Scott Klement)
   5. Re: Eval with two equals? (James Rich)
   6. RE: SQLRPGLE help/advice/direction (fkany@xxxxxxxxxxxxxxxxxx)
   7. Re: Eval with two equals? (Captain Jerry)
   8. RE: Eval with two equals? (Joel Fritz)
   9. RE: SQLRPGLE help/advice/direction (rob@xxxxxxxxx)


----------------------------------------------------------------------

message: 1
date: Wed, 6 Apr 2005 15:34:48 -0500
from: rob@xxxxxxxxx
subject: RE: SQLRPGLE help/advice/direction

Good idea.  Also check your SQLCOD after opening the cursor and after
the fetch.

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Haas, Matt" <Matt.Haas@xxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/06/2005 03:15 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: SQLRPGLE help/advice/direction






Frank,

What's in the job log? If you were in debug mode (you don't have to
debug 
the program, keying in STRDBG UPDPROD(*YES) works) when you ran the 
program, you'll see SQL debugging messages in your job log that may
point 
you in the right direction.

Matt

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
fkany@xxxxxxxxxxxxxxxxxx
Sent: Wednesday, April 06, 2005 4:14 PM
To: CN=RPG programming on the AS400/O=iSeries
Subject: SQLRPGLE help/advice/direction



My SQLRPGLE program compiles, but there is not data in the multiple
occurence data structure after the RTV_CSR_IN routine.  Is there a
problem
with my SQL code?

Thanks,

Frank
<snip>

-- 
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: 2
date: Wed, 06 Apr 2005 15:30:22 -0500
from: Scott Johnson <sjohnson@xxxxxxxxxxxxxxx>
subject: Re: Eval with two equals?

I have to second the ICKY. _At a glance_ it is not clear what the 
statement is really doing.


Barbara Morris wrote:

>It's always been valid.  Icky (imo), but valid.
>
>  
>



------------------------------

message: 3
date: Wed, 6 Apr 2005 16:31:02 -0400
from: "Paul Morgan" <pmorgan@xxxxxxxxxxxxxx>
subject: Re: Eval with two equals?

Scott,

That's an Assert although assertions in other languages usually log when
the
condition fails and can get turned off when not debugging.  So you'd
code:

Assert( X > 0 : 'X is not positive' );

which would do nothing if you're not in debug.

Something similar is coding comparisons in functions to better document
the
comparison.  Instead of passing in the comparison the details of the
comparison are hidden in the function.  For example instead of coding:

If Flag = 'Y';  // Deleted?

use a function with:

If Deleted( Flag );

with the Deleted function:

P Deleted B
D Deleted PI N // returns an indicator value
D Flag     1A Const
 /Free
  Return Flag = 'Y'; // return the result of the comparison
 /End-Free
P Deleted E

Paul

-- 
Paul Morgan
Senior Programmer Analyst - Retail
J. Jill Group
100 Birch Pond Drive, PO Box 2009
Tilton, NH 03276-2009
Phone: (603) 266-2117
Fax:   (603) 266-2333

"Scott Klement" wrote

> For example, maybe I want to write a routine that will log a message
to
> the job log ONLY IF a particular condition is true.  I could do the
> following:





------------------------------

message: 4
date: Wed, 6 Apr 2005 15:47:39 -0500 (CDT)
from: Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>
subject: Re: Eval with two equals?

> That's an Assert although assertions in other languages usually log
when the
> condition fails and can get turned off when not debugging.  So you'd
code:
>

Yes, Paul... I meant to say that I posted an assert() function to this 
list two years ago. Search the archives for that.  The one I posted
today 
wasn't intended to be an assert.

If you want it to only be active when debugging that's trivial to do
with 
/IF DEFINED logic.


------------------------------

message: 5
date: Wed, 6 Apr 2005 14:53:03 -0600 (MDT)
from: James Rich <james@xxxxxxxxxxx>
subject: Re: Eval with two equals?

On Wed, 6 Apr 2005, Scott Johnson wrote:

> I have to second the ICKY. _At a glance_ it is not clear what the
statement 
> is really doing.
>
> Barbara Morris wrote:
>
>> It's always been valid.  Icky (imo), but valid.

It is far beyond icky.  The implied if statement is completely hidden. 
The statement gives absolutely no clue at all to what it is doing.  The 
statement quite logically reads "assign value1 to variable1 and
variable2" 
and does not in any way say "make this assignment based on a truth value

of a compare"

James Rich

It's not the software that's free; it's you.
        - billyskank on Groklaw


------------------------------

message: 6
date: Wed, 6 Apr 2005 16:07:27 -0500
from: fkany@xxxxxxxxxxxxxxxxxx
subject: RE: SQLRPGLE help/advice/direction



SQLCOD = 0 after OPENing cursor

SQLCOD = -901 after FETCH

Field Values:
XFHOT OF SQLDATA = 404.
XFHPRO OF SQLDATA = 4040404.
XFHDDAT OF SQLDATA = 04040404.
XFHDTIM OF SQLDATA = 0404.
XFHDT OF SQLDATA = 404.
XFHDADT OF SQLDATA = 04040404.
XFHPUDT OF SQLDATA = 04040404.
XFHSCD OF SQLDATA = '       '
XFHCCD OF SQLDATA = '       '
XFHCCT OF SQLDATA = '
XFHCZIP OF SQLDATA = '      '

Job Log:
  8600 - CALL PGM(FR47R457)          /* The CALL command contains
  parameters */
Unable to retrieve query options file.
Unable to retrieve query options file.
CONNECT to relational database AEPROD completed.
Current connection is to relational database AEPROD.
Unable to retrieve query options file.
**** Starting optimizer debug message for query .
All access paths were considered for file FRL00144.
Additional access path reason codes were used.
Unable to retrieve query options file.
**** Ending debug message for query .
ODP created.
Blocking used for query.
Cursor SQLDATAINPUT opened.
File QAP0ZDMP created in library QTEMP.
Member QP0Z452473 added to file QAP0ZDMP in QTEMP.
User Trace data for job 452473/FRANK/QPADEV00HL dumped to member
  QP0Z452473 in file QAP0ZDMP in library QTEMP.
27 records copied from member QP0Z452473.
1 User Trace buffer(s) deleted.
SQL system error.





rob@xxxxxxxxx@midrange.com on 04/06/2005 03:34:48 PM

Please respond to RPG programming on the AS400 / iSeries
       <rpg400-l@xxxxxxxxxxxx>

Sent by:    rpg400-l-bounces+fkany=averittexpress.com@xxxxxxxxxxxx


To:    RPG programming on the AS400/iSeries <rpg400-l@xxxxxxxxxxxx>
cc:

Subject:    RE: SQLRPGLE help/advice/direction


Good idea.  Also check your SQLCOD after opening the cursor and after
the
fetch.

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Haas, Matt" <Matt.Haas@xxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/06/2005 03:15 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: SQLRPGLE help/advice/direction






Frank,

What's in the job log? If you were in debug mode (you don't have to
debug
the program, keying in STRDBG UPDPROD(*YES) works) when you ran the
program, you'll see SQL debugging messages in your job log that may
point
you in the right direction.

Matt

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
fkany@xxxxxxxxxxxxxxxxxx
Sent: Wednesday, April 06, 2005 4:14 PM
To: CN=RPG programming on the AS400/O=iSeries
Subject: SQLRPGLE help/advice/direction



My SQLRPGLE program compiles, but there is not data in the multiple
occurence data structure after the RTV_CSR_IN routine.  Is there a
problem
with my SQL code?

Thanks,

Frank
<snip>






------------------------------

message: 7
date: Wed, 6 Apr 2005 14:21:25 -0700
from: Captain Jerry <captainjerry@xxxxxxxxx>
subject: Re: Eval with two equals?

Icky???  LOL

This is one of the greatest inventions since Peanut Butter and RPG
sandwiches!  LOL

/CJ/

On Apr 6, 2005 12:55 PM, Barbara Morris <bmorris@xxxxxxxxxx> wrote:
> Bruce Guetzkow wrote:
> >
> > I'm not sure when this became valid in RPGLE, but would guess at
least
> > V5.
> 
> It's always been valid.  Icky (imo), but valid.
> 
> --
> 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, 6 Apr 2005 14:22:53 -0700
from: "Joel Fritz" <JFritz@xxxxxxxxxxxxxxxx>
subject: RE: Eval with two equals?


That's why it's convenient to have an assignment operator and a
comparison operator.  If RPG supported something like
logical_var = (x == 10);  there'd be no confusion. 

Seems to me I tried assignment on the right side of an equals sign a few
years ago and it didn't work.  Personally, I never liked doing that in a
language that supported it.  There are a lot of cases where a more
verbose way of doing something results in the same machine code as the
terse version. 

Because I work in a shop where a lot of people use IFEQ et. al. I like
to use things like logical_var = (x = 10) out of perversity.  If they
can use left hand indicators and avoid using select, I can use my own
forms of obfuscation.   

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of James Rich
> Sent: Wednesday, April 06, 2005 1:53 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: Eval with two equals?
>
> On Wed, 6 Apr 2005, Scott Johnson wrote:
>
> > I have to second the ICKY. _At a glance_ it is not clear what the
> > statement is really doing.
> >
> > Barbara Morris wrote:
> >
> >> It's always been valid.  Icky (imo), but valid.
>
> It is far beyond icky.  The implied if statement is
> completely hidden.
> The statement gives absolutely no clue at all to what it is
> doing.  The statement quite logically reads "assign value1 to
> variable1 and variable2"
> and does not in any way say "make this assignment based on a
> truth value of a compare"
>
> James Rich
>
>

*****************************
NOTICE:
All e-mail sent to or from this e-mail address will be received or
otherwise recorded by
The Sharper Image corporate e-mail system and is subject to archival,
monitoring,
and review by and/or disclosure to Sharper Image security and other
management.
This message is intended only for the use of the addressee and may
contain information
that is privileged and confidential.

The contents of this message may contain personal views which are not
the views of The Sharper Image.
If you are not the intended recipient, dissemination of this
communication is prohibited.
*****************************



------------------------------

message: 9
date: Wed, 6 Apr 2005 16:44:42 -0500
from: rob@xxxxxxxxx
subject: RE: SQLRPGLE help/advice/direction

It don't look good Kemosabe.
Do a WRKPTFGRP and paste the results
According to 
http://publib.boulder.ibm.com/iseries/v5r3/ic2924/index.htm?info/rzala/r
zalafinder.htm
a sqlcod of -901 matches SQL0901 which is the same message as the last 
message in your joblog.
SQL system error.

Gotta boogie out for the night.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





fkany@xxxxxxxxxxxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/06/2005 04:07 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
CN=RPG programming on the AS400/O=iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: SQLRPGLE help/advice/direction








SQLCOD = 0 after OPENing cursor

SQLCOD = -901 after FETCH

Field Values:
XFHOT OF SQLDATA = 404.
XFHPRO OF SQLDATA = 4040404.
XFHDDAT OF SQLDATA = 04040404.
XFHDTIM OF SQLDATA = 0404.
XFHDT OF SQLDATA = 404.
XFHDADT OF SQLDATA = 04040404.
XFHPUDT OF SQLDATA = 04040404.
XFHSCD OF SQLDATA = '       '
XFHCCD OF SQLDATA = '       '
XFHCCT OF SQLDATA = '
XFHCZIP OF SQLDATA = '      '

Job Log:
  8600 - CALL PGM(FR47R457)          /* The CALL command contains
  parameters */
Unable to retrieve query options file.
Unable to retrieve query options file.
CONNECT to relational database AEPROD completed.
Current connection is to relational database AEPROD.
Unable to retrieve query options file.
**** Starting optimizer debug message for query .
All access paths were considered for file FRL00144.
Additional access path reason codes were used.
Unable to retrieve query options file.
**** Ending debug message for query .
ODP created.
Blocking used for query.
Cursor SQLDATAINPUT opened.
File QAP0ZDMP created in library QTEMP.
Member QP0Z452473 added to file QAP0ZDMP in QTEMP.
User Trace data for job 452473/FRANK/QPADEV00HL dumped to member
  QP0Z452473 in file QAP0ZDMP in library QTEMP.
27 records copied from member QP0Z452473.
1 User Trace buffer(s) deleted.
SQL system error.





rob@xxxxxxxxx@midrange.com on 04/06/2005 03:34:48 PM

Please respond to RPG programming on the AS400 / iSeries
       <rpg400-l@xxxxxxxxxxxx>

Sent by:    rpg400-l-bounces+fkany=averittexpress.com@xxxxxxxxxxxx


To:    RPG programming on the AS400/iSeries <rpg400-l@xxxxxxxxxxxx>
cc:

Subject:    RE: SQLRPGLE help/advice/direction


Good idea.  Also check your SQLCOD after opening the cursor and after
the
fetch.

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Haas, Matt" <Matt.Haas@xxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/06/2005 03:15 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: SQLRPGLE help/advice/direction






Frank,

What's in the job log? If you were in debug mode (you don't have to
debug
the program, keying in STRDBG UPDPROD(*YES) works) when you ran the
program, you'll see SQL debugging messages in your job log that may
point
you in the right direction.

Matt

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
fkany@xxxxxxxxxxxxxxxxxx
Sent: Wednesday, April 06, 2005 4:14 PM
To: CN=RPG programming on the AS400/O=iSeries
Subject: SQLRPGLE help/advice/direction



My SQLRPGLE program compiles, but there is not data in the multiple
occurence data structure after the RTV_CSR_IN routine.  Is there a
problem
with my SQL code?

Thanks,

Frank
<snip>




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




------------------------------

-- 
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 4, Issue 413
****************************************


As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.