*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
