可以使用大型机的附件发送电子邮件吗？

Question

我有以下代码：

//******************************************
//PROC01   EXEC PGM=IEBGENER                
//SYSIN    DD DUMMY                         
//SYSPRINT DD SYSOUT=*                      
//SYSUT2   DD SYSOUT=(B,SMTP)               
//SYSUT1   DD *                               
RCPT TO:<[email protected]>                
DATA                                                             
SOME TEXT GOES HERE   

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

Answer 1

尝试类似的东西：

//******************************************
//PROC01   EXEC PGM=IEBGENER                
//EMAIL    OUTPUT DEST=EMAIL,
//         USERDATA=('FILENAME:attachment.txt',
//         'TO:<[email protected]>',
//         'FILEDESC:Sent from MVS'),
//         TITLE=('Sent from MVS'),
//         MAILFROM=('<[email protected]>'),
//         REPLYTO=('<[email protected]>')
//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:<[email protected]>',
//         'PDFPGSIZ=(826,1169)',
//         'PDFFONT=(COURIER,8)',
//         'FILEDESC:Sent from MVS'),
//         TITLE=('Sent from MVS'),
//         MAILFROM=('<[email protected]>'),
//         REPLYTO=('<[email protected]>')
//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卡也是一种选择。