JCL

Сравнение файлов средствами JCL и ISRSUPC

Настал черед рассказать Вам о полезной утилите ISRSUPC, которая позволяет сразвнивать файлы, не выходя из задания =) Для того, чтобы произвести сравнение файлов необходимо запустить в задании утилиту ISRSUPC и указать ей параметры (DELTAL,LINECMP,'','') В файле NEWDD необхоидмо объявить первый из сравниваемых файлов, а в OLDDD - второй. Так же не помешает объявить файл OUTDD, в который будет помещен вывод утилиты. Шаг сравнения на языке JCL будет выглядеть следующим образом: //SUPERC2 EXEC PGM=ISRSUPC, // PARM=(DELTAL,LINECMP,'','') //NEWDD DD DISP=SHR,DSN=FILE1 //OLDDD DD DISP=SHR,DSN=FILE2 //OUTDD DD SYSOUT=(*,,0204),DEST=ANYLOCAL После выполнения шага Вам нужно будет проверить возвращенный код - он будет равен нулю в случае, если содержимое файлов совпадает, и 4 - если файлы отличаются.

Отсылка файла на почту в JCL

Сегодня предлагаю поговорить про простой способ отсылки содержимого текстового файла на почтовый ящик. Решение этой задачи возложим на 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 первого адресата