如何写一个JCL来发送邮件？

Question

如何编写JCL来发送邮件，但内容(数据)应该从另一个PDSmember中获取。如果有人能让我知道我所需要的JCL将是有帮助的。

Answer 1

这是一个旧的例子，但听起来像你要找的东西。 它使用IEBGENER来发送电子邮件。 (内容不是我写的，所以如果你不喜欢，可以向IBM抱怨。)

这是知识中心的内容

//BATSMTP  JOB (userid,nn),MSGCLASS=B,PRTY=12,MSGLEVEL=(2,1)
//*
//* Store message in a PDS
//*
//PUTMSG   EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD *
HELO YOURMVS
MAIL FROM:<CAROL@YOURMVS>
RCPT TO:<[email protected]>
RCPT TO:<[email protected]>
DATA
Date: Thur, 26 Mar 92 21:48:57 EST
From: Carol <CAROL@YOURMVS>
To:   <[email protected]>
Cc:   <[email protected]>    Subject: update

 Mike: Cindy stubbed her toe.  Bobby went to 
       baseball camp.  Marsha made the cheerleading team. 
       Jan got glasses.  Peter has an identity crisis. 
       Greg made dates with 3 girls and couldn't 
       remember their names. 
 .
 QUIT
 /*
 //SYSUT2 DD DSN=MYPDS.OF.MESSAGES(MSGID1),DISP=SHR
 //*               
 //SYSPRINT DD SYSOUT=A
 //*               
 //* Send Message from placed in PDS in prior step               
 //*               
 //SENDMSG  EXEC PGM=IEBGENER
 //SYSIN    DD  DUMMY
 //SYSUT1   DD  DSN=MYPDS.OF.MESSAGES(MSGID1),DISP=SHR
 //*
 //SYSUT2   DD  SYSOUT=(B,smtp)
 //*                 |   v
 //*                 v  SMTP address space name for external writer
 //*                SYSOUT class
 //SYSPRINT DD  SYSOUT=A

Answer 2

将你的PDS成员和SYSUT1中的其他东西连在一起，例如：`你可能需要在你的成员后面加上其他的东西--只需连入更多的DD *.记住你的PDS数据必须是LRECL=80。

//SYSUT1 DD *
your stuff here
//       DD DSM=your.pds(member),DISP=SHR

`你可能需要在你的成员后面加上其他的东西--只需连接更多的DD *.记住，你的PDS数据必须是LRECL=80。