Постановка задачи. Необходимо в человекочитаемом виде протоколировать случаи удаления наборов данных в файловом хранилище на мэйнфрейме. Нужно записывать в некий протокол имя набора данных, время и дату его удаления, а также имя адресного пространства, которое выдало команду на удаление. При этом интересны случаи удаление только наборов, имя которых начинается с "ARCHIVE.".

Общие замечания. На случай, если кто-то совсем не работал с SMF, я напомню некоторые общие положения. SMF - один из стрейших и самых общих механизмов мониторинга событий в ОС. Смысл его состоит в том, что в результате всевозможных событий в системе порождаются и записываются сначала в память, а потом и в специальные наборы данных записи различных форматов. Записи, порождаемые разными событиями, имеют различный формат - количество полей, содержимое информации в полях, длина. Чтобы отличать записи одну от другой, каждая запись имеет дескриптор, именуемый типом. он находится во втором байте каждой записи. Типов записей, а, соотвественно, и дескрипторов - много, так как и регистрируемых событий тоже много. Например, случай удаления набора данных описывается записями регистрации типа 17, а RMF использует записи нескольких типов - с 70 по 79. Вообще этих типов записей много - сейчас уже более 120 (для zOS 1.8). Количество типов будет расти, я так думаю. Сами записи - шестнадцатеричные последовательности. Для того, чтобы к ним добраться, саписи из наборов данных SMF надо выгрузить в последовательный набор данных.

Решение задачи. Задача решалась так.

• Каждую ночь, в 00.01 минуту происходило переключение на свободный SMF-набор, чтобы освободить остальные. Делалось это командой SWITCH SMF с операторской консоли, или из авторизованного задания.
• Осуществлялась выгрузка наборов данных SMF в последовательный набор данных. Приблизительно вот так -

//****************************************************************
//* JOB TO DUMP SMF RECORDS
//* VERIFY THE DUMPIN AND DUMPOUT DDS
//****************************************************************
//DMPSMF1 EXEC PGM=IFASMFDP,REGION=4096K
//SYSPRINT DD SYSOUT=A
//SMFIN DD DISP=OLD,DSN=SYS1.MAN1 <--------- входной набор
//SMFOUT DD DISP=SHR,DSN=Z18LCL.RMFBASE <--------- выходной набор
//SYSIN DD *
INDD(SMFIN,OPTIONS(ALL))
OUTDD(SMFOUT,TYPE(000:255))
//****************************************************************

• теперь у нас есть последовательный файл с записями SMF всех типов. В принципе, можно выгружать только нужный тип записей, но у нас несколько заданий последовательно вынимают требуемую информацию, так что я выгружаю все.
• Теперь нужно отобрать только нужные записи, отсортировать их, и красиво показать. Раньше я писал бы свою программку для отбора, потом сортировал бы сортировкой, потом бы формировал красивый протокольчик. Но у нас есть DFSORT - программа, которая может практически все. В результате я получаю требуемый протокол так -

//SMFSORT EXEC PGM=ICETOOL,REGION=0M
//SMFRAW DD DISP=SHR,DSN=Z18LCL.RMFBASE
//SMFSEL1 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(100,100))
//SMFSEL2 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(100,100))
//* SORTOUT DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(200,200))
//SORTOUT DD SYSOUT=*
//SORTWK01 DD DISP=(NEW,DELETE),UNIT=SYSDA,SPACE=(CYL,(200,200))
//SORTWK02 DD DISP=(NEW,DELETE),UNIT=SYSDA,SPACE=(CYL,(200,200))
//SORTWK03 DD DISP=(NEW,DELETE),UNIT=SYSDA,SPACE=(CYL,(200,200))
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DELDSN DD DISP=MOD,DSN=ARCHIVE.DELDSN
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SMFICNTL DD *

SORT FIELDS=(11,4,CH,A,7,4,CH,A),EQUALS
INCLUDE COND=(6,1,BI,EQ,+17)

//SMFACNTL DD *

SORT FIELDS=(11,4,CH,A,7,4,CH,A),EQUALS
INCLUDE COND=(45,7,CH,EQ,C'ARCHIVE',AND,53,4,CH,NE,C'PKES')

//TOOLIN DD *

SORT FROM(SMFRAW) TO(SMFSEL1) USING(SMFI)

SORT FROM(SMFSEL1) TO(SMFSEL2) USING(SMFA)

DISPLAY FROM(SMFSEL2) LIST(DELDSN) -
HEADER(NONE) ON(11,4,DT1,E'9999/99/99') -
HEADER(NONE) ON(7,4,TM1,E'99:99:99') -
HEADER(NONE) ON(19,8,CH) -
HEADER(NONE) ON(45,44,CH)
/*

• Как все работает ? Смотрим на DD TOOLIN, там лежит последовательность действий для сортировки. Разберем подробнее, что там есть. Всего в этом кусочке три оператора - два оператора SORT и один оператор DISPLAY. Сначала первым оператором SORT из входного НД (имя DD - SMFRAW, имя НД - Z18LCL.RMFBASE), полученного в результате выгрузки из SMF-наборов, отбираются записи нужного типа и укладываются во временный набор (имя DD - SMFSEL1, имя НД выбирает система). Это делается на основе содержимого SMFICNTL, где говорится как сортировать отобранные на основе оператора INCLUDE записи. Потом вторым оператором SORT из входного НД (имя DD - SMFSEL1, имя НД выбирает система) отбираются записи, где в поле с именем набода данных первые 7 байт соответствуют "ARCHIVE", но при этом наборы с именем "ARCHIVE.PKES" нам не нужны. Результаты уклдываются во временный набор (имя DD - SMFSEL2, имя НД выбирает система). Это делается на основе содержимого SMFАCNTL, где говорится как сортировать отобранные на основе оператора INCLUDE записи. А потом - оператор DISPLAY представляет результат в символьной форме, без заголовков, только те кусочки сортированных данных, которые нужны. Выходит нечто вроде -

2008/09/15 10:51:42 ARCHIVE ARCHIVE.RV00.F0117.F5838
2008/09/15 10:52:56 RPCR42 ARCHIVE.RV03.Z2007192.W1035204
2008/09/15 10:52:58 RPCR41 ARCHIVE.RV03.Z2008099.W1148177
2008/09/15 10:53:15 ARCHIVE ARCHIVE.RV00.F0117.F6061

тут видны дата и время удаления, имя адресного пространства, которое удаляло (задание, пользователь, сервер), и имя удаленного набора. Я этот протокол накапливаю, а потом, при необходимости, обрабатываю другими программами или просто смотрю глазами.