In executing this file, I am also encountering a weird problem. When I run the file it stops after updating 3 records with the -ERROR- set error command (3031) (I have no set error commands in the file...). On the other hand, if I trace the file and 'execute to break' or 'execute to error', it doesn't hiccup and correctly updates all 276 rows... Go figure? Is this a full moon? <g>
> -----Original Message----- > From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Claudine > Robbins > Sent: Saturday, February 26, 2005 11:54 AM > To: RBG7-L Mailing List > Subject: [RBG7-L] - Re: Subroutines in command files > > Hi David, > > Thanks for your offer to help. I'm building and incrementing an invoice > number in a loop. In a batch process, I'm also updating an invoice number > field in a table with a cursor loop. So I have a switch loop inside a > cursor loop. Here is the code: > > DROP VIEW v_afelist NOCHECK > CREATE TEMPORARY VIEW `v_afelist` + > AS SELECT DISTINCT billing_id FROM d_b_allocation + > WHERE da_invoice_dt = .vbatchdate > > --First time I create a number > *(Number invoices) > SET VAR vinvoiceid INTEGER = NULL > SET VAR xmaxno TEXT = NULL > SET VAR xstep2 TEXT = NULL > SET VAR xlen TEXT = NULL > SET VAR xprefix TEXT = NULL > SET VAR xyear TEXT = NULL > SET VAR xpad TEXT = NULL > SET VAR vinvnbr TEXT = NULL > *(First step, gotta start somewhere....) > FILLIN vinvnbr USING 'Please Enter Last Invoice Number Used' > SET VAR xmaxno = .vinvnbr > GOTO makenumber > > *(UPDATE RECORDS with sequential invoice numbers through LOOP) > LABEL update_rec > > DROP CURSOR c1 > DECLARE c1 CURSOR FOR SELECT billing_id FROM v_afelist ORDER BY billing_id > OPEN c1 > FETCH c1 INTO vbillingid INDICATOR ivbillingid > WHILE SQLCODE <> 100 THEN > UPDATE d_b_allocation SET da_invoice_nb = .vinvnbr + > WHERE billing_id = .vbillingid + > AND da_invoice_dt = .vbatchdate > *(Invoice number gets incremented by 1 each iteration) > SET VAR xmaxno = .vinvnbr > FETCH c1 INTO vbillingid INDICATOR ivbillingid --get next billing number > --here is where I want to run my subroutine and come back to my cursor > loop > GOTO makenumber --create next invoice number > ENDWHILE > DROP CURSOR c1 > > This is my sub-routine > LABEL makenumber > *(Second step, extract the last four characters) > SET VAR xstep2 = (SGET(.xmaxno,4,5)) > *(Third step, make that value an integer) > SET VAR xstep2 INTEGER > *(Fourth step, increment to next number) > SET VAR xstep2 = (.xstep2 + 1) > *(Fifth step, back to a TEXT value) > SET VAR xstep2 TEXT > *(Sixth step, calculate how many zeros to pad with) > SET VAR xlen TEXT = (SLEN(.xstep2)) > SWITCH (.xlen) > CASE 1. > SET VAR xpad TEXT = '000' > BREAK > CASE 2. > SET VAR xpad TEXT = '00' > BREAK > CASE 3. > SET VAR xpad TEXT = '0' > BREAK > CASE 4. > SET VAR xpad TEXT = ' ' > BREAK > ENDSW > *(Seventh step, create new invoice number) > SET VAR xprefix = 'D' > SET VAR xyear = (SGET(CTXT(IYR4(.#DATE)),2,3)) > SET VAR vinvnbr = (.xprefix + .xyear + '-' + .xpad + .xstep2) > Sub-routine ends - Ideally, I would put this at the end of the code > RETURN --to calling line > > RETURN --End of command file > > > -----Original Message----- > > From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of David M. > > Blocker > > Sent: Saturday, February 26, 2005 11:29 AM > > To: RBG7-L Mailing List > > Subject: [RBG7-L] - Re: Subroutines in command files > > > > Claudine > > > > It's not clear from your email exactly waht you're trying to do. > > > > What do you mean by: > > > > Label first > > Do 1 > > Do 2 > > Return ???? - doesn't work... > > > > Do you mean: > > > > Label First > > RUN programname.RMD > > RUN programnam.RMD > > > > ? > > > > If you send the actual code I think I can help! > > > > David Blocker > > [EMAIL PROTECTED] > > 781-784-1919 > > Fax: 781-784-1860 > > Cell: 339-206-0261 > > ----- Original Message ----- > > From: "Claudine Robbins" <[EMAIL PROTECTED]> > > To: "RBG7-L Mailing List" <[email protected]> > > Sent: Saturday, February 26, 2005 11:50 AM > > Subject: [RBG7-L] - Subroutines in command files > > > > > > > Hi all, > > > > > > I want to imbed some subroutines in a command file. > > > > > > Label first > > > Do 1 > > > Do 2 > > > Return ???? - doesn't work... > > > > > > Label second > > > Cursor loop > > > Do 3 > > > Do 4 > > > Goto first > > > End loop > > > Return > > > > > > I can't find any documentation. I can do run labelfirst.rmd but I > > really > > > wanted to put all the code in one file. > > > > > > TIA, Claudine > > > > > >
