1) PICK 2) EXECUTE 3) Good idea Jef
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Hona, David S Sent: Friday, 14 November 2008 5:08 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] SELECT-READNEXT That's odd What UV account flavour? What does SR.EXECUTESQL do exactly: EXECUTE or BCI SQLExecute ? Why don't you clearselect 0, if you're not going to process the result select list? Like "READNEXT DEPENDANT.ID THEN CLEARSELECT 0 ELSE"..it seems pointless ? Or are am I missing something? -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Jef Lee Sent: Friday, 14 November 2008 6:39 PM To: u2-users@listserver.u2ug.org Subject: [U2] SELECT-READNEXT That's odd One of our programmers wrote this snippet: FOR YY=1 TO DCOUNT(WORK.ITEM.REC<17>,VM) LISTNUMBER='' SQLCOMMAND='' UNISTATEMENT='SELECT BPM.WORKITEMS WITH A1="':WORK.ITEM.REC<1>:'" AND WITH A2="':WORK.ITEM.REC<2>:'" AND WITH A17="':WORK.ITEM.REC<17,YY>:'" AND WITH A24#"C" AND WITH A24#"R" AND WITH A24#"F"' *MY.REC<1>=UNISTATEMENT CALL SR.EXECUTESQL(LISTNUMBER,UNISTATEMENT,SQLCOMMAND) READNEXT DEPENDANT.ID ELSE * NO ACTIVE ITEMS LEFT I NEED TO UPDATE THE STATUS OF THE DEPENDANT TASK CALL SR.READSQL('BPM.WORKITEMS',DEP.TASK.REC,WORK.ITEM.REC<17,YY>,'') DEP.TASK.REC<24>='A' DEP.TASK.REC<8>=DATE() DEP.TASK.REC<9>=TIME() CALL SR.WRITESQL('BPM.WORKITEMS',DEP.TASK.REC,WORK.ITEM.REC<17,YY>) END NEXT YY The FOR loop has 2 values to iterate, so it does 2 loops. The function SR.EXECUTESQL()does the SELECT call. Loop 1 returns 2 keys found. Loop 2 returns 0 keys found. What's odd is that the select list is empty on loop iteration 2 and the READNEXT is populated the ID with the second key from the first iteration. I looked in the help PDFs and all I found was a reference to a corrected error relating to memory not being released if the READNEXT did not exhaust the SELECT list. Any thoughts? We have since changed our strategy to check the count returned instead. But it would be nice to know that others have encountered this as well. Jeffrey Lee Senior Analyst/Programmer IT Vision Australia Pty Ltd (ABN: 34 309 336 904) PO Box 881, Canning Bridge WA 6153 Level 3, Kirin Centre, 15 Ogilvie Road, Applecross, WA, 6153 P: (08) 9315 7000 F: (08) 9315 7088 W: http://www.itvision.com.au ___________________________________________________________ NOTICE : This e-mail and any attachments are intended for the addressee(s) only and may contain confidential or privileged material. Any unauthorised review, use, alteration, disclosure or distribution of this e-mail (including any attachments) by an unintended recipient is prohibited. If you are not the intended recipient please contact the sender as soon as possible by return e-mail and then delete both messages. ___________________________________________________________ ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
