Classics Forum

4gl email

Posted By: David Taylor
Date: Wednesday, 21 May 2003, at 9:17 a.m.

I've figured out how to send emails to particular users within a 4gl. However, there are a number of random users that receive a copy of the email as well. I'm not exactly sure how this happens, but when the 4gl ran last night it sent out 4 correct emails and at least 7 incorrect emails. The idea behind this 4gl is to automate a change within our database. User's submit these change requests and they are processed twice a week. If the request fails for one reason or another it would make my job easier if that user was simply notified via email to double-check their request for any mistakes. So I added the following to the 4gl that runs. It grabs the user's names that have open requests and then checks our usergrp table to get that user's email address. It will then process a new email for each of these users (reason for this is that each email contains a link specific to that user). Everyone that has an open request does receive an email correctly formatted. However, after the last email is sent to the correct user, somehow it continues to email that same email to several other users (i.e.. if the last email is sent to user CSUNDSTRUM, several other people get the email that was originally intended for CSUNDSTRUM as well as CSUNDSTRUM). I am using the dcclp unix function to send the emails. If anyone has any clue as to why this is happening or any suggestions about doing this another way I'd appreciate the help. I also realize that my code may not be spectacular, but I'm learning. I'm running AIX 4.3 with Informix 72. on a RS6000

Thanks in advance,
david


let scratch =
"SELECT email ",
"FROM usergrp ",
"WHERE nt_user = ? "
prepare pr_email from scratch
declare cr_email cursor for pr_email

let scratch =
" SELECT Distinct requested_by ",
" FROM change_requests ",
" WHERE status_id NOT IN ('W', 'C') "
prepare pr_acorn_email from scratch
declare cr_acorn_email cursor for pr_acorn_email

foreach cr_acorn_email into p_acorn.*
let p_user_name = DOWNSHIFT(p_acorn.user)
let p_email = NULL

open cr_email using p_user_name
fetch cr_email into p_email
close cr_email

let email_link = "//pida/acorn/xref1/default.asp?action=report&type=search&changetype=&status=&username=",UPSHIFT(p_user_nameclipped),"&stattype=O&startdate=1/1/2001&enddate="

let final_message = "Acorn_email.txt"
let start_message = "cat Acorn_email.top > ", final_message
run start_message
let email_echo = "echo '", email_link clipped, "' >> ", final_message
run email_echo
let end_message = "cat Acorn_email.end >> ", final_message
run end_message

let print_command = "dcclp -dEMAIL -t'Check Your Acorn Requests' -omn=", p_email, " -oruser=ACORN -onompack crossref/fg/codegen/rapid.4gm/utils/Acorn_email.txt"
run print_command

end if

end foreach

free pr_acorn_email
free cr_acorn_email
free pr_email
free cr_email

___________________________
David Taylor
Database Specialist
Rapidparts Inc.
616.647.3108
dtaylor@rpionline.com

Messages In This Thread

• 4gl email
  David Taylor -- Wednesday, 21 May 2003, at 9:17 a.m.
  • Re: 4gl email
    vze2qjg5@verizon.net -- Wednesday, 21 May 2003, at 9:41 a.m.
  • Re: 4gl email
    Joe Vigil -- Wednesday, 21 May 2003, at 10:14 a.m.
  • RE: 4gl email
    David Taylor -- Wednesday, 21 May 2003, at 11:03 a.m.
    • Re: 4gl email
      Arthur Groen -- Wednesday, 21 May 2003, at 11:56 a.m.

Classics Forum is maintained by Administrator with WebBBS 5.12.