Declare both cursors at the same time. Then just use OPEN c2 RESET in you inner loop.
Dennis McGrath ________________________________________ From: [email protected] [mailto:[email protected]] On Behalf Of J BLAUSTEIN Sent: Sunday, August 15, 2010 10:27 PM To: RBASE-L Mailing List Subject: [RBASE-L] - trace vs input problem Can some one explain why when I trace rhe below code everything works correctly - but when I input I get the following error - thanks J set echo on R>inp qq inp qq drop cursor c1 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 drop cursor c2 DECLARE c2 CURSOR FOR SELECT EMAIL FROM VWEMAILCUST where CUSTIDEN = .VCUSTIDENFM OPEN c2 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 computer displays the following: 7 12,13,20,24,28,30,32,34,36,39,47,70,75,77,78,86,88,89,91,92,93,101,103,104,112,114,115,116,121,128,131,134,138,141,142,155,163,165,169,172,173,178,181,184,187,190,191,192,198,201,209,210,212,213,217,218,219,221,229,230,231,232,235,236,238,239,241,254,255,266,273,275,279,280,282,283,284,286,291,293,304,306,308,310,321,326,330,333,336,338,343,346,350,351,357,359,366,368,370,389,393,403,404,405,406,410,412,421,423,425,426,429,432,433,434,435,436,437,438,439,440,442,444,446,448,450,451,456,457,462,463,466,467,471,472,473,475,478,480,484,485,488,489,490,492,495,498,499,508,510,515,516,517,519,522,524,526,527,534,535,536,541,543,545,546,549,550,551,552,553,560,561,563,567,568,569,570,571,574,575,577,582,583,586,587,588,589,592,594,595,597,598,599,600,606,608,609,610,611,613,614,615,616,618,619,620,622,625,626,629,630,631,632,634,635,636,637,639,640,642,645,646,653,654,656,657,658,662,664,665,670,672,673,674,675,676,677,678,681,682,684,685,686,689,692,693,694,697,699,701,702,705,70 6,707,708,709,719,720,721,722,72 ,727,728,729,730,731,732,733,734,737,738,739,740,741,742,748,749,750,751,752,753,754,756,758,759,761,763,764,765,768,771,772,774,775,776,779,780,782,783,784,785,787,788,789,792,793,794,797,799,803,804,805,806,808,810,811,812,813,814,815,816,818,820,821,822,823,824,826,827,828,829,847,848,849,850,855,858,859,868,869,871,876,878,882,884,886,887,888,891,897,899,901,904,906,909,910,911,912,913,917,918,919,921,926,927,930,931,932,934,936,941,943,945,947,948,953,956,957,959,961,9 c:\pdf_files\7.pdf ***Capital Structures DoNotFill WC bringB CUSTOMER CONFIRMATION -ERROR- Missing right side of comparison. (2295) c:\pdf_files\0.pdf ***Capital Structures DoNotFill WC bringB CUSTOMER CONFIRMATION RETURN J. Blaustein J Blaustein Associates, Inc. 12 Herrick Drive Lawrence, NY 11559 516-371-3445 FAX 516-345-8009
