jcl - 可以发送带有来自大型机附件的电子邮件吗？

Question

我有以下代码：

//******************************************
//PROC01   EXEC PGM=IEBGENER                
//SYSIN    DD DUMMY                         
//SYSPRINT DD SYSOUT=*                      
//SYSUT2   DD SYSOUT=(B,SMTP)               
//SYSUT1   DD *                               
RCPT TO:<MAIL@AR.TEST.COM>                
DATA                                                             
SOME TEXT GOES HERE   

我可以将数据集/文件附加到邮件中吗？谢谢。

Answer 1

尝试类似：

//******************************************
//PROC01   EXEC PGM=IEBGENER                
//EMAIL    OUTPUT DEST=EMAIL,
//         USERDATA=('FILENAME:attachment.txt',
//         'TO:<MAIL@AR.TEST.COM>',
//         'FILEDESC:Sent from MVS'),
//         TITLE=('Sent from MVS'),
//         MAILFROM=('<YOURMAIL@AR.TEST.COM>'),
//         REPLYTO=('<YOURMAIL@AR.TEST.COM>')
//SYSIN    DD DUMMY                         
//SYSPRINT DD SYSOUT=*                      
//SYSUT2   DD SYSOUT=Z,OUTPUT=*.EMAIL
//SYSUT1   DD DISP=SHR,DSN=<DSNNAME>

或者，如果您希望附件是 PDF，则类似于：

//******************************************
//PROC01   EXEC PGM=IEBGENER                
//EMAIL    OUTPUT DEST=EMAILPDF,
//         USERDATA=('FILENAME:attachment.pdf',
//         'TO:<MAIL@AR.TEST.COM>',
//         'PDFPGSIZ=(826,1169)',
//         'PDFFONT=(COURIER,8)',
//         'FILEDESC:Sent from MVS'),
//         TITLE=('Sent from MVS'),
//         MAILFROM=('<YOURMAIL@AR.TEST.COM>'),
//         REPLYTO=('<YOURMAIL@AR.TEST.COM>')
//SYSIN    DD DUMMY                         
//SYSPRINT DD SYSOUT=*                      
//SYSUT2   DD SYSOUT=Z,OUTPUT=*.EMAIL
//SYSUT1   DD DISP=SHR,DSN=<DSNNAME>

希望这对你有用:)

Answer 2

您应该可以只添加卡：

// DD DSN=,DISP=SHR

到你现有工作的结束。我们一直使用这种风格。如前所述，使用 OUTPUT 卡也是一种选择。