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
> >
> >
