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 первого адресата