Можно ли отправить электронное письмо с приложением из мэйнфрейма?

Question

У меня есть следующий код:

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

Могу ли я прикрепить набор данных / файл к почте? Благодарю.

Answer 1

Попробуйте что-то вроде:

//******************************************
//PROC01   EXEC PGM=IEBGENER                
//EMAIL    OUTPUT DEST=EMAIL,
//         USERDATA=('FILENAME:attachment.txt',
//         'TO:<[e-mail]>',
//         'FILEDESC:Sent from MVS'),
//         TITLE=('Sent from MVS'),
//         MAILFROM=('<[e-mail]>'),
//         REPLYTO=('<[e-mail]>')
//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:<[e-mail]>',
//         'PDFPGSIZ=(826,1169)',
//         'PDFFONT=(COURIER,8)',
//         'FILEDESC:Sent from MVS'),
//         TITLE=('Sent from MVS'),
//         MAILFROM=('<[e-mail]>'),
//         REPLYTO=('<[e-mail]>')
//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 также является опцией, как отмечалось ранее.