Possibilities: 1. Set your variables outside the loop before opening the cursor 2. Change SET VAR … FROM to SELECT … INTO
Albert > On May 17, 2017, at 7:32 AM, Jim Belisle <[email protected]> wrote: > > We have been using the same code within RBASE 9.5 to print our invoices to a > printer and create a PDF for almost two years now. > Starting yesterday, while trying to print the invoices (both a report and a > PDF), printing starts then after printing three invoices, the RBASE session > completely shuts down. > No ERROR codes show. RBASE completely shuts down. > > Last night I did a reload. The user did a test run this morning having the > same result. > I decided to run the code outside of the application in the TRACE mode and > everything printed fine and the PDFs were created. RBASE did not shut down. > > Does anyone have any “Blues Clues”? > Below is the code I use in a cursor. > > SET ERROR MESSAGE 705 OFF > DROP CURSOR c1 > SET ERROR MESSAGE 705 ON > DECLARE c1 CURSOR FOR SELECT control# FROM tinvcust ORDER BY control# > OPEN c1 > FETCH c1 INTO vord INDICATOR ivord > WHILE SQLCODE <> 100 THEN > SET VAR vinv = invoice# FROM tinvcust WHERE control# = .vord > SET VAR vfilename = ('PDFinvcust\'+.vinv+'.PDF') > PRINT kayparkinvtemp WHERE control# = .vord OPTION PRINTER > PRINT kayparkinvtemp WHERE control# = .vord + > OPTION PDF + > |FILENAME &vFileName + > |TITLE Kay Park Recreation + > |SUBJECT Invoice + > |AUTHORIZATION Accounts Receivable + > |OPEN OFF > CLS > FETCH c1 INTO vord INDICATOR ivord > ENDWHILE > DROP CURSOR c1 > > > > James Belisle > > Making Information Systems People Friendly Since 1990 > <image001.jpg> > > > -- > You received this message because you are subscribed to the Google Groups > "RBASE-L" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to [email protected] > <mailto:[email protected]>. > For more options, visit https://groups.google.com/d/optout > <https://groups.google.com/d/optout>. -- You received this message because you are subscribed to the Google Groups "RBASE-L" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. For more options, visit https://groups.google.com/d/optout.
