smtp

Для случая, когда отсылка почты из задания - это не совсем подходящий вариант реализации задачи, можно использовать средства PL/I для отсылки корреспонденции.

В нашем распоряжении имеется JES SPOOL API, и именно ее мы и будем использовать.

Для работы необходимо объявить следующие структуры:

DCL
1       CHNG_OPTIONS,
  3     LL        FIXED BIN (31),
  3     ZZ        FIXED BIN (15)
                  INIT      (0),
  3     TEXT1     CHAR      (14)
                  INIT      ('IAFP=N0M,PRTO='),
  3     CHNG_CMD  CHAR      (34) VARYING,
        LEN       FIXED BIN (15) BASED (ADDR(CHNG_CMD));
CHNG_OPTIONS.LL = CSTG(CHNG_OPTIONS)-2;
 
DCL
1       CHNG_FEEDBACK,
  3     LEN       FIXED BIN (31)
                  INIT      (104),
  3     ZZ        FIXED BIN (15)
                  INIT      (0),
  3     TEXT      CHAR      (100)
                  INIT      ('');
 
DCL
1       PROFS_DATA,

Сегодня предлагаю поговорить про простой способ отсылки содержимого текстового файла на почтовый ящик.

Решение этой задачи возложим на JCL. Шаг задания, выполняющий требуемое действие выглядит следующим образом:

//STEP010 EXEC PGM=IEBGENER
//SYSIN     DD DUMMY
//SYSPRINT  DD SYSOUT=*
//SYSUT1    DD DSN=USERID.MAILHEAD,DISP=SHR
//          DD DSN=USERID.TEXTFILE,DISP=SHR
//SYSUT2    DD SYSOUT=(B,SMTP)

IEBGENER - стандартная утилита;
USERID.TEXTFILE - файл с текстом письма;
USERID.MAILHEAD - файл с SMTP командами (в конце строк я оставил комментарии, в реальном файле их нужно удалить):

HELO CONFIRMATION
MAIL FROM:<sender@domain.com>           - email отправителя
RCPT TO:<email1@domain.com>             - email первого адресата
RCPT TO:<email2@domain.com>             - email второго адресата
DATA
TO: email1@domain.com                   - email первого адресата