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'
--define VCUSTIDENFM here
DECLARE c2 CURSOR FOR SELECT EMAIL FROM VWEMAILCUST where CUSTIDEN =
.VCUSTIDENFM
OPEN c1
FETCH c1 INTO vCUSTIDENFM IND v1
WHILE sqlcode <>100 THEN
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
