Как написать JCL для отправки электронного письма

Question

Как написать JCL для отправки электронной почты, но содержимое (данные) должно быть выбрано из другого PDS / участника. Если кто-нибудь может сообщить мне, что 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:<msgs@rsch.our.edu>
RCPT TO:<alice@ai.our.edu>
DATA
Date: Thur, 26 Mar 92 21:48:57 EST
From: Carol <CAROL@YOURMVS>
To:   <msgs@rsch.your.edu>
Cc:   <alice@ai.your.edu>    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, например,

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

`Вам могут понадобиться другие вещи после вашего члена - просто объедините больше DD *. Помните, что ваши данные PDS должны быть LRECL = 80