Re: Need Help with Email from RPG

Thats the question I am asking. I have the RPG program that sens an email
message. One of the parameters is to TO value. The sql string I have piut
together will retreive the email addresses I need. Now how do I
incorporate this sql into the RPG?




"Michael Ryan" <michaelrtr@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
09/11/2008 10:49 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Need Help with Email from RPG






How are you running that SQL statement? As embedded SQL in an RPG
program using a cursor? Using Select Into a data structure? Creating a
file that contains the information? IOW, running the SQL statement
will provide a means of ordering and selecting the data, but it
doesn't make it available to a program. How do you plan on making the
SQL-derived data accessible to the RPG program?

On Thu, Sep 11, 2008 at 8:39 AM, <steve.dyke@xxxxxxxxxxxxxxxx> wrote:

Please disreguard my last post.

This is the sql statement I need for getting e-mail addresses. It uses

two

different libraries. The wend date parameter will have to be

dynamically

calculated based on the next Sunday from the date the program is ran:

testString = "Select (CASE WHEN userp4 is null Then
CONCAT(CONCAT(CONCAT(TRIM(fname),'.'),TRIM(lname)),'@weber.zodiac.com')"
+;
" WHEN userp4 = '' THEN
CONCAT(CONCAT(CONCAT(TRIM(fname),'.'),TRIM(lname)),'@weber.zodiac.com')
Else userp4 END) As userp4" +;
" From oipayfiles.employee" +;
" Join oipayfiles.jcmaster On oipayfiles.employee.jobcls =
oipayfiles.jcmaster.jccode" +;
" Left Join webprddt6.resmngt10 On webprddt6.resmngt10.userid =
oipayfiles.employee.prurf1" +;
" Where badge Not In(Select badgeno From webprddt6.engpmtbl6 Where wend

=

'09/07/2008')" +;
" And epemst in('ISAL','DSAL')" +;
" And (posstr(jcdsc,'PRESIDENT') < 1" +;
" And posstr(jcdsc,'ACCOUNTANT') < 1" +;
" And posstr(jcdsc,'CHIEF') < 1" +;
" And posstr(jcdsc,'MANAGER') < 1" +;
" And posstr(jcdsc,'DIRECTOR') < 1 Or badge in('61429','57394','9637'))"
+;
" And emdelt = 'A'" +;
" Order By emorg2, badge"





"Aaron Bartell" <aaronbartell@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
09/11/2008 06:17 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Need Help with Email from RPG

Now my next challenge is to iterate through a file of e-mail addresses

and
dynamically populate the to field. Can you help with this?

You bet. Just iterate over the RPGMail_addAddress() API with a DO loop.

setll key file;
reade key file;
dow not %eof(file);
RPGMail_addAddress(email: 'TO': DB2EMLADR: DB2CUSTNAM);
enddo;

HTH,
Aaron Bartell
http://mowyourlawn.com


On Wed, Sep 10, 2008 at 1:27 PM, <steve.dyke@xxxxxxxxxxxxxxxx> wrote:

I am sorta new at all this. However, I did consider the fact that I was
not specifiying the error. Trouble was all I knew was I had a 15 page
spool file, which part would I send.

Anyway I figured out I was not in the correct library for the compile.
After I fixed that it compiled okay. I sent my first email.

Now my next challenge is to iterate through a file of e-mail addresses

and

dynamically populate the to field. Can you help with this?

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.