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