Email from JCL with attachment

From: Bill Gentry (Bill_at_nospam.com)
Date: 12/21/04 

Date: Mon, 20 Dec 2004 17:25:35 -0800

OK, I've been spinning my wheels on this for a bit.

I want to send an email from a JCL *with an attachment*.

I'm able to send the email, but I can't get a file to attach.

The following JCL ( with some particulars changed to protect the innocent )
is what I have that works, so far:
//IMAUSERA JOB (,,0000,0000,0,00),'SEND AN EMAIL',

// CLASS=N,MSGCLASS=Q,MSGLEVEL=(1,1),NOTIFY=IMAUSER

//IEBGENER EXEC PGM=IEBGENER

//OUTPUT DD SYSOUT=*

//SYSIN DD DUMMY

//SYSUT1 DD *

HELO MBPGHA

MAIL FROM:<IMAUSER@THECO.COM>

RCPT TO:<BILL.GENTRY@NOSPAM.COM>

DATA

TO:BILL.GENTRY@NOSPAM.COM

SUBJECT: THIS IS A TEST!

MIME-VERSION: 1.0

CONTENT-TYPE: MULTIPART/MIXED;

BOUNDARY="----_=_NEXTPART_000_01C0DFAD.3EF4A2D0"

THIS MESSAGE IS IN MIME FORMAT...

------_=_NEXTPART_000_01C0DFAD.3EF4A2D0

CONTENT-TYPE: TEXT/PLAIN;

CHARSET="ISO-8859-1"

THIS IS A TEST!

FIRST MESSAGE!

SECOND MESSAGE!

------_=_NEXTPART_000_01C0DFAD.3EF4A2D0--

/*

//SYSUT2 DD SYSOUT=(X,ZSPTCPM)

//SYSOUT DD SYSOUT=*

//SYSPRINT DD SYSOUT=*

Anyone have any idea *how* I code the attachment???

Any input is appreciated!