|
Another thing to look at: Unmatched records. Before going through all that work, create a sample where there are no unmatched records and try your existing code on that. Phil > -----Original Message----- > From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On > Behalf Of Hatzenbeler, Tim > Sent: Wednesday, August 29, 2001 6:15 PM > To: 'rpg400-l@midrange.com' > Subject: RE: Recommended PTF's for Dynamic Sql in RPG? > > > This message is in MIME format. Since your mail reader does not understand > this format, some or all of this message may not be legible. > -- > [ Picked text/plain from multipart/alternative ] > I stole the join straight out of the Db2 udb for as/400 sql programming > concepts on page 76. > > As for trying the where clause to join the tables, that didn't solve the > problem either, it still hung on the fetch... > > Inner join using JOIN syntax > To use the inner join syntax, both of the tables you are joining > are listed > in the > FROM clause, along with the join condition that applies to the tables. The > join > condition is specified after the ON keyword and determines how the two > tables > are to be compared to each other to produce the join result. The condition > can be > any comparison operator; it does not need to be the equal > operator. Multiple > join > conditions can be specified in the ON clause separated by the AND keyword. > Any > additional conditions that do not relate to the actual join are > specified in > either the > WHERE clause or as part of the actual join in the ON clause. > SELECT EMPNO,LASTNAME,PROJNO > FROM CORPDATA.EMPLOYEE INNER JOIN CORPDATA.PROJECT > ON EMPNO =RESPEMP > WHERE LASTNAME >'S' > > (c)ibm > > > > > -----Original Message----- > > From: Bob Cozzi (RPGIV) [SMTP:cozzi@rpgiv.com] > > Sent: Wednesday, August 29, 2001 2:51 PM > > To: rpg400-l@midrange.com > > Subject: RE: Recommended PTF's for Dynamic Sql in RPG? > > > > You have a JOIN keyword in there... we used to have to use the WHERE > > clause to do joining, did that change while I was sleeping? I know 3rd > > party SQL products, such as SEQUEL. > > > > Bob Cozzi > > cozzi@rpgiv.com > > Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum > > > > > -----Original Message----- > > > From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com] > > On > > > Behalf Of Hatzenbeler, Tim > > > Sent: Wednesday, August 29, 2001 3:42 PM > > > To: 'rpg400-l@midrange.com' > > > Subject: RE: Recommended PTF's for Dynamic Sql in RPG? > > > > > > This message is in MIME format. Since your mail reader does not > > understand > > > this format, some or all of this message may not be legible. > > > -- > > > [ Picked text/plain from multipart/alternative ] > > > And after some repeated testing, the dynamic sql works as long as my > > where > > > clause only looks at table a, but the moment I tell it to do a where > > on > > > table B also, thats when it locks up.. But if I do a debug, and copy > > the sql > > > expression and use it in ops nav, it works great... even with the > > where > > > clause on table B. > > > > > > tim > > > > > > I'm going to look into my :into part of the fetch, and see what > > happens if I > > > internally define those fields instead of externally defining them > > from the > > > database file... > > > > > > > -----Original Message----- > > > > From: Hatzenbeler, Tim [SMTP:thatzenbeler@clinitech.net] > > > > Sent: Wednesday, August 29, 2001 1:20 PM > > > > To: 'rpg400-l@midrange.com' > > > > Subject: RE: Recommended PTF's for Dynamic Sql in RPG? > > > > > > > > This message is in MIME format. Since your mail reader does not > > understand > > > > this format, some or all of this message may not be legible. > > > > -- > > > > [ Picked text/plain from multipart/alternative ] > > > > The weird part is this... If I don't declare dynamicly, it works > > just > > > > fine... So my datastructures that I have should be ok... > > > > > > > > but i'm still debugging and trying different things, to hopefully > > narrow > > > > down where the problem is... > > > > > > > > tim > > > > > > code > > > > > > on table B. > > > > > > > > > > > > > > > > This works fine from the command link, and also as a > > declared > > > > > > > > statement with > > > > > > > > the fields hardcoded.. > > > > > > > > > > > > > > > > This is the declared version that did work... > > > > > > > > > > > > > > > > c*exec sql > > > > > > > > c* declare c1 cursor for > > > > > > > > c* select * > > > > > > > > c* > > > > > > > > c* from (prdjrnusg a join jpldcusgsm b on > > > > > > > > c* a.pjstr# = b.jpstr#) > > > > > > > > c* > > > > > > > > c* where (a.pjhdat between 37110 and 37115) and > > > > > > > > c* a.pjprod in ('1804','1310','2153') and > > > > > > > > c* b.rddid = 'LAB' > > > > > > > > c*end-exec > > > > > > > > > > > > > > > > And this is the one that doesn't... I took out all the > > variables, > > > > to > > > > > > > test > > > > > > > > this... > > > > > > > > > > > > > > > > And it's very likely (probable) that the reason it's not > > working, > > > > > > > > is because > > > > > > > > I might have a coding error, so I'm including most of the > > relavant > > > > > > > parts.. > > > > > > > > > > > > > > > > Dprdjrnusg E DS extname(PRDJRNUSG) inz > > > > > > > > d prefix(a_) > > > > > > > > Djpldcusgsm E DS extname(jpldcusgsm) > > inz > > > > > > > > d prefix(b_) > > > > > > > > > > > > > > > > d sql s 1000 varying > > > > > > > > > > > > > > > > c/exec sql > > > > > > > > c+ declare c1 cursor for DynSqlStmt > > > > > > > > c/end-exec > > > > > > > > > > > > > > > > c eval sql= > > > > > > > > c 'Select * ' + > > > > > > > > c 'From (prdjrnusg a JOIN '+ > > > > > > > > c 'jpldcusgsm b '+ > > > > > > > > c 'ON a.pjstr# = b.jpstr#) > > '+ > > > > > > > > c 'WHERE (a.pjhdat between > > 37110'+ > > > > > > > > c ' AND 37115) ' + > > > > > > > > c 'and a.pjprod in ' + > > > > > > > > c '(''1804'',''1310'',''2153'')' > > + > > > > > > > > c ' and b.rddid = ''LAB'' ' > > > > > > > > c/exec sql > > > > > > > > c+ Prepare DynSqlStmt from :sql > > > > > > > > c/end-exec > > > > > > > > > > > > > > > > c/EXEC SQL OPEN C1 > > > > > > > > c/end-exec > > > > > > > > > > > > > > > > c dou Done > > > > > > > > c/EXEC SQL > > > > > > > > c+ FETCH next from c1 INTO :prdjrnusg, :jpldcusgsm > > > > > > > > c/END-EXEC > > > > > > > > > > > > > > > > c if sqlcod <> 0 > > > > > > > > c leave > > > > > > > > c endif > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Below was the orginal non hardcoded version... > > > > > > > > c* eval sql= > > > > > > > > c* 'Select * ' + > > > > > > > > c* 'From (PrdJrnUsg a JOIN '+ > > > > > > > > c* 'JPLDCusgsm b '+ > > > > > > > > c* 'ON a.pjstr# = b.jpstr#) > > '+ > > > > > > > > > > > > > > > > c* 'WHERE (a.pjhdat between '+ > > > > > > > > c* > > %editc(startdateh:'Z') + > > > > > > > > c* ' AND ' + > > > > > > > > c* %editc(EndDateH:'Z') + > > ') '+ > > > > > > > > > > > > > > > > c* if %trim(dspwhere) <> *blanks > > > > > > > > c* eval sql = sql + 'AND > > '+%trim(dspwhere) > > > > > > > > c* endif > > > > > > > > > > > > > > > > Thanks, tim > > > > > > > > _______________________________________________ > > > > > > > > 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 > > > > > > > > > > > > > > > > > > > > > > > > > > > > > _________________________________________________________ > > > > > > > Do You Yahoo!? > > > > > > > Get your free @yahoo.com address at http://mail.yahoo.com > > > > > > > > > > > > > > _______________________________________________ > > > > > > > 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 > > > > > > _______________________________________________ > > > > > > 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 > > > > > > > > > > > > > > > > > > > > > _________________________________________________________ > > > > > Do You Yahoo!? > > > > > Get your free @yahoo.com address at http://mail.yahoo.com > > > > > > > > > > _______________________________________________ > > > > > 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 > > > > _______________________________________________ > > > > 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 > > > _______________________________________________ > > > 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 > > > > _______________________________________________ > > 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 > _______________________________________________ > 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 > _________________________________________________________ Do You Yahoo!? Get your free @yahoo.com address at http://mail.yahoo.com
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
