Re: Strange behavior : I4GL , transactions AND reports = Lost data

Hi Art, Thanks so much for your quick response. I know that if I open cursors are closed when I do a "commit". But in the example I don't see where I put the cursor. TIA ----- Missatge Original ----- De: "Art Kagel" <art.kagel@gmail.com> A: "Isidre Pons Roca" <ipons@base.cat> Cc: informix-list@iiug.org Enviat: Divendres, 30 de Novembre 30el 2012 11:53:39 Assumpte: Re: Strange behavior : I4GL , transactions AND reports = Lost data COMMIT WORK will close any open cursors that were not declared to be WITH HOLD, maybe that's your problem. Art Art S. Kagel Advanced DataTools ( www.advancedatatools.com ) Blog: http://informix-myview.blogspot.com/ Disclaimer: Please keep in mind that my own opinions are my own opinions and do not reflect on my employer, Advanced DataTools, the IIUG, nor any other organization with which I am associated either explicitly, implicitly, or by inference. Neither do those opinions reflect those of other individuals affiliated with any entity with which I am affiliated nor those of the entities themselves. On Fri, Nov 30, 2012 at 4:30 AM, Isidre Pons Roca < ipons@base.cat > wrote: Hi all, After a long fighting , we could not solve a very weird problem. In a program with I4GL transactions and reports, lost data in the report. (See example below) However, only if the report have an "order by" clause, never witout this clause or "order external by" clause. We tested two different environments and two different versions of the product with the same result. Test 1: Solaris 10, I4GL 7.50.FC1 Test 2: Centos 64b, I4GL 7.50.FC6 Someone can help us? What is wrong? Thanks in advance Isidre #----- Beguin example TEST.4gl---- #--------------------------------------------------------- # # Strange behavior I4GL : Transactions and reports # # (c) BASE - Gesti d'Ingressos # Isidre Pons # 11/30/2012 v 1.0 # #--------------------------------------------------------- database oartdb #------------------------------------------------------------------------------- main #------------------------------------------------------------------------------- define i smallint start report test_1 to "kk.out" for i = 1 to 10 begin work if (i mod 3) = 0 then display "Commited value :",i commit work else display "Rollback value :",i rollback work end if output to report test_1(i) end for finish report test_1 prompt "Press a key : " for char status end main #------------------------------------------------------------------------------- report test_1(r_value) #------------------------------------------------------------------------------- define r_value smallint output left margin 0 top margin 0 bottom margin 0 order by r_value # order external by r_value format after group of r_value display " ---------- > change of group ",r_value print " ---------- > change of group ",r_value on every row display " Row: ",r_value clipped print " Row: ",r_value clipped end report #---- End example TEST.4gl ----------- BASE-Gesti'' d Advertiment legal : Aquest missatge i, si escau, els fitxers annexos tenen caire confidencial, especialment pel que fa a les dades personals, i s'adrecen e xclusivament al destinatari referenciat. Si vostè no ho és i l'ha rebut per error o se li ha fet arribar per qualsevol motiu, us demanem que ens ho comuniqui per aquesta mateixa via i el destrueixi o l'esborri i, en tot cas, s'abstingui d'utilitzar, reproduir, alterar, arxivar o comunicar a tercers aquest missatge i fitxers annexos, tot sota pena d'entrar en responsabilitats legals. Abans d'imprimir aquest missatge o qualsevol dels documents adjunts, si us plau comproveu que és veritablement necessari. Advertencia legal : Este mensaje y, en su caso, los ficheros anexos son confidenciales, especialmente en lo que respecta a los datos personales, y se dirigen exclusivamente al destinatario referenciado. Si usted no lo es y lo ha recibido por error o tiene conocimiento del mismo por cualquier motivo, le rogamos que nos lo comunique por este medio y proceda a destruirlo o borrarlo, y que en todo caso se abstenga d e utilizar, reproducir, alterar, archivar o comunicar a terceros el presente mensaje y ficheros anexos, todo ello bajo pena de incurrir en responsabilidades legales. Antes de imprimir este mensaje o cualquiera de los documentos adjuntos, por favor compruebe que es verdaderamente necesario. Disclaimer : This message and any attached files transmitted with it, is confidential, especially as regards personal data. It is intended solely for the use of the individual or entity to whom it is addressed. If you are not the intended recipient and have received this information in error or have accessed it for any reason, please notify us of this fact by email reply and then destroy or delete the message, refraining from any reproduction, use, alteration, filing or communication to third parties of this message and attached files on penalty of incurring legal responsibilities. Before printing this message or any attachments, plea se check that it is really necessary. . _______________________________________________ Informix-list mailing list Informix-list@iiug.org http://www.iiug.org/mailman/listinfo/informix-list .