Yes and a few dropped lines further down.
________________________________ From: [email protected] [mailto:[email protected]] On Behalf Of J BLAUSTEIN Sent: Monday, August 16, 2010 11:23 AM To: RBASE-L Mailing List Subject: [RBASE-L] - RE: trace vs input problem Thank you for your help - one addition On 8/16/2010 11:28 AM, Dennis McGrath wrote: drop cursor c1 drop cursor c2 DECLARE c1 CURSOR FOR SELECT DISTINCT CUSTIDEN FROM VWEMAILCUST where EMAIL IS NOT NULL AND EMAIL NOT CONTAIN 'EMAIL' open c1 FETCH c1 INTO vCUSTIDENFM IND v1 WHILE sqlcode <>100 THEN --define VCUSTIDENFM here drop cursor c2 DECLARE c2 CURSOR FOR SELECT EMAIL FROM VWEMAILCUST where CUSTIDEN = .VCUSTIDENFM OPEN c1 OPEN c2 reset clear var vemailname set v vemailname text set v vcount integer = 0 FETCH c2 INTO vemail IND v2 WHILE sqlcode <>100 THEN if vcount = 0 then set v vemailname = .vemail else set v vemailname = (.vemailname + ',' + .vemail) endif set v vcount = (.vcount + 1) FETCH c2 INTO vemail IND v2 ENDWHILE label emailsetup set v vSUBJECT = (FirstName & MiddleName & LastName & FullNameX & 'CUSTOMER CONFIRMATION' ) from A1Customer where custiden = .vcustidenFM set v vfullnamexem = (CTXT(.VCUSTIDENFM)) set v vdirectory text = ('c:\pdf_files\') set v vfileext text = ('.pdf') set v vfullnamexpdf = (.vdirectory + .vfullnamexem + .vfileext) --('c:\pdf_files\' + .vfullnamexem + '.pdf') SET V VBODY TEXT = EmailMsgTxt FROM A3EmailMgs WHERE EmailMgsIden = 3 WRITE .VCUSTIDENFM .vemailname .vfullnamexpdf .VSUBJECT clear var vemailname set v vemailname text set v vcount integer = 0 FETCH c1 INTO vCUSTIDENFM IND v1 ENDWHILE -- J. Blaustein J Blaustein Associates, Inc. 12 Herrick Drive Lawrence, NY 11559 516-371-3445 FAX 516-345-8009
