Эбберс М. Введение в современные мейнфреймы: основы z/OS

Подождите немного. Документ загружается.

532 ПриложениеС

FD NAME=FIELD1,LENGTH=30,FORMAT=AL,ACTION=RP

FD NAME=FIELD2,LENGTH=10,PICTURE=10,'TEST DATA '

FD NAME=FIELD3,LENGTH=10,FORMAT=RA

CREATE QUANTITY=90000,NAME=(FIELD1,FIELD2,FIELD3)

END

Это задание создает новый набор данных OGDEN.TEST.DATA, содержащий 90000

записей. Каждая запись имеет длину 80 байт, что задано в параметрах DCB в DD-опе-

раторе. Управляющие операторы определяют три поля, занимающих первые 50 байт

каждой записи. По умолчанию IEBDG заполняет остальные байты двоичными нулями.

Этими тремя полями являются:

• Алфавитное поле ('ABCDEF...’) длиной 30 байт. Оно циклически сдвигается на

один байт влево после генерирования каждой записи.

• Второе поле содержит 10 байт с фиксированной константой 'TEST DATA ‘.

• Третье поле содержит 10 байт случайных двоичных данных.

Утилита может генерировать более сложные образцы, но приведенный выше

пример является типичным примером простого использования. Он также иллюстри-

рует определение количества дискового пространства, необходимого для хранения

данных:

• Нам известно, что дорожка 3390 содержит около 57 КБ и еще меньше из-за

пространства, теряемого в промежутках между записями.

• Нам известны параметры DCB (заданные в JCL): LRECL=80, BLKSIZE=8000

и RECFM=FB. Нам не известно, почему были выбраны эти параметры DCB, но,

предположительно, они связаны с программой, которая будет использовать

тестовые данные.

• Мы можем определить, что шесть блоков по 8000 байт в каждом, вероятно, по

местятся на одной дорожке. Такой размер блока не очень эффективен, так как

некоторое пространство дорожки будет потеряно, однако он является доста-

точно практичным.

• Каждый блок содержит 100 записей по 80 байт в каждой. Каждая дорожка

содержит 600 записей (в блоке FB-записей не происходит потери про-

странства).

• Цилиндр содержит 15 дорожек, следовательно цилиндр может содержать 9000

записей.

• Исходя из вышесказанного, нам нужно 10 цилиндров для содержания 90000

записей. Мы задали 10 цилиндров как пространство первичного распределе-

ния

в JCL и один цилиндр как приращение при вторичном распределении.

Нам вряд ли потребуется вторичное распределение, однако это обеспечивает

некоторый запас надежности. Мы могли запросить 150 дорожек, а не 10 ци-

линдров; результат был бы такой же.

 Утилиты 533

IDCAMS

Программа IDCAMS не относится к основному набору утилит z/OS, описанному в ру-

ководстве Utilities. Программа IDCAMS используется, главным образом, для создания

и управления наборами данных VSAM. Она имеет и другие функции (например, изме

нение каталога), но чаще всего она связана с VSAM. Она содержит множество слож-

ных функций, описание которых заняло бы отдельные руководства. На момент напи-

сания данной книги основным руководством от компании IBM является DFSMS Access

Method Services for Catalogs.

Типичный пример простого использования IDCAMS:

//OGDEN12 JOB 1,BILL,MSGCLASS=X

//DEL EXEC PGM=IDCAMS

//SYSPRINT DD SYSOUT=*

//SYSIN DD *

DELETE OGDEN.DATA.VSAM CLUSTER

//LOAD EXEC PGM=IDCAMS

//SYSPRINT DD *

//DATAIN DD DISP=OLD,DSN=OGDEN.SORTOUT

//SYSIN DD *

DEFINE CLUSTER (NAME (OGDEN.DATA.VSAM) -

VOLUMES(WORK02) CYLINDERS(1 1) -

RECORDSIZE (72 100) KEYS(9 8) INDEXED)

REPRO INFILE(DATAIN) OUTDATASET(OGDEN.DATA.VSAM) ELIMIT(200)

Этот пример иллюстрирует множество моментов.

• Задание содержит два шага. Первый шаг удаляет набор данных, который будет

создан вторым шагом. Это называется функцией очистки. Набор данных может

не существовать на данном этапе, и первый шаг сгенерирует код завершения,

указывающий на ошибку при выполнении этого действия, который в данном

случае игнорируется.

• Обратите внимание на отсутствие операторов DD для набора данных VSAM.

IDCAMS осуществляет динамическое распределение для создание требуе-

мого JCL.

• Второй шаг выполняет две функции. Сначала он создает набор данных VSAM

(командой DEFINE CLUSTER), после чего загружает его из последовательного

набора данных (командой REPRO). Последовательный набор данных требует

использования оператора DD.

• Команда DEFINE CLUSTER занимает три строки. Используются такие же инди

каторы продолжения, что и в TSO-командах.

534 ПриложениеС

• Набор данных VSAM находится на томе WORK02 и использует один цилиндр

в качестве первичного пространства и один цилиндр для вторичного распре

деления. Средний размер записи составляет 72 байт, а максимальный размер

записи – 100 байт (наборы данных VSAM всегда используют записи перемен-

ной длины). Первичный ключ (для доступа к записям в наборе данных) имеет

длину 8 байт и начинается со смещения 9 байт в каждой записи.

• Таким образом, записи для загрузки набора данных VSAM должны уже быть

упорядочены по ключу.

• Параметр ELIMIT задает количество ошибочных записей, игнорируемых ко

мандой REPRO, прежде чем прервать операцию. Ошибочные записи обычно

являются результатом дублирования значения ключа.

Многие из функций IDCAMS можно вводить как TSO-команды. Например, DEFINE

CLUSTER можно использовать как TSO-команду. Однако обычно не рекомендуется

этого делать, так как эти команды могут быть сложными, и могут возникнуть трудно-

сти с анализом ошибок. Ввод команд IDCAMS посредством пакетного задания позво-

ляет просматривать команды и результирующие сообщения настолько часто, на-

сколько это нужно, используя SDSF для просмотра выходных данных.

Примечание Некоторыепользователипроизносятимяданнойпрограммыкак«идкамс»(вдва

слога),тогдакакдругиепроизносят«айдикамс»(втрислога)

IEBUPDTE

Утилита IEBUPDTE используется для создания нескольких разделов в библиотечном

наборе данных или для обновления записей в разделе. Хотя ее можно использовать для

других типов записей, ее основное применение состоит в создании или обслуживании

библиотек процедур JCL или библиотек макросов на ассемблере. В настоящее время эта

утилита используется, главным образом, для распространения и обслуживания лицен-

зированных программ z/OS. Ее редко используют пользователи TSO.

Простой пример выполняет добавление двух JCL-процедур в MY.PROCLIB. Это

легко осуществляется через ISPF, но если предположить, что следующее задание было

отправлено на магнитной ленте, его полезность становится более очевидной:

//OGDEN10 JOB 1,BILL,MSGCLASS=X

// EXEC PGM=IEBUPDTE

//SYSPRINT DD SYSOUT=*

//SYSUT1 DD DISP=OLD,DSN=MY.PROCLIB

//SYSUT2 DD DISP=OLD,DSN=MY.PROCLIB

//SYSIN DD DATA

./ ADD LIST=ALL,NAME=MYJOB1

//STEP1 EXEC=BILLX1

//PRINT DD SYSOUT=A

// (more JCL for MYJOB1)

 Утилиты 535

//SYSUDUMP DD SYSOUT=* (last JCL for MYJOB1)

./ REPL LIST=ALL,NAME=LASTJOB

//LIST EXEC PGM=BILLLIST

//  (дополнительный JCL-код этой процедуры)

//* LAST JCL STATEMENT FOR LASTJOB

./ ENDUP

Этот пример требует некоторых комментариев.

• При обновлении библиотеки, SYSUT1 и SYSUT2 должны указывать на эту биб-

лиотеку (если они указывают на разные библиотеки, выполняется копирова-

ние библиотеки SYSUT1 в библиотеку SYSUT2 с последующим обновлением).

• Формат SYSIN DD DATA указывает, что данные во входном потоке содержат //

в столбцах 1 и 2. Эти символы не следует интерпретировать как JCL. Конец

входного потока обозначен символами /*.

• Утилита IEBUPDTE использует управляющие операторы, содержащие ./ в пер-

вых двух столбцах.

• Раздел MYJOB1 добавляется в MY.PROCLIB; этот раздел не обязательно должен

уже существовать в библиотеке.

• Раздел LASTJOB заменяется новым содержимым.

Утилита IEBUPDTE может также добавлять или заменять операторы в разделе на

основе порядковых номеров в операторах. Это представляет один из примеров ис-

пользования порядковых номеров в JCL или операторах исходного кода.

Опять же заметим, что IEBUPDTE обычно используется для распространения и

обслуживания программ. Например, если программный продукт добавляет 25 JCL-

процедур в библиотеку процедур клиента, изготовитель программного продукта мо-

жет упаковать процедуры как задание IEBUPDTE. Одно из преимуществ этого способа

состоит в том, что весь материал имеет исходный формат, и клиент может с легко-

стью просмотреть его содержимое до запуска задания.

Системно-ориентированные утилиты

Программы, рассматриваемые в этом разделе, выполняют ряд базовых функций для

системных администраторов и лишь кратко описываются.

IEHLIST

Утилита IEHLIST используется для вывода оглавления библиотечного набора данных

или оглавления дискового тома. Она обычно используется для вывода листингов ог-

лавления тома и предоставляет информацию на уровне битов. В большинстве инс

талляций утилита IEHLIST используется редко, однако она необходима в случаях

повреждения оглавления тома. Иногда она используется вместе с программой SUPER-

ZAP для исправления поврежденного оглавления тома.

536 ПриложениеС

IEHINITT

Утилита IEHINITT используется для записи стандартных меток на магнитные ленты.

При необходимости ее можно использовать для разметки одной ленты или для раз-

метки больших пакетов магнитных лент. Многие крупные инсталляции z/OS не поз-

воляют использовать неразмеченные ленты в инсталляции.

IEHPROGM

Утилита IEHPROGM, в сущности, уже устарела. Она используется, главным образом,

для управления каталогами, переименования наборов данных и удаления наборов

данных через программу, а не через JCL-операции. Она чаще использовалась во время

установки системы или крупного программного продукта. Эти функции могут вклю-

чать десятки (или даже сотни) операций с каталогами и наборами данных. Заблагов-

ременная подготовка команд (в пакетном задании IEHPROGM) гораздо менее под-

вержена ошибкам, чем динамические подходы. Большая часть функций IEHPROGM

доступна в IDCAMS, и эта утилита теперь является более предпочтительной для рабо-

ты с каталогами и наборами данных.

ICKDSF

Утилита ICKDSF используется, главным образом, для инициализации дисковых томов.

Это, как минимум, включает создание записи метки диска и оглавления тома. ICKDSF

может также выполнить сканирование тома, чтобы убедиться в том, что он пригоден

для использования, переформатировать все дорожки, записать домашние адреса

и записи R0 и т. д.

SUPERZAP

Программу SUPERZAP (ее имя менялось несколько раз) можно использовать для ис-

правления дисковых записей. Она понимает формат исполняемых модулей в библи-

отеках PDS, что необходимо при ее использовании в своем основном назначении

при применении обновлений для таких исполняемых модулей. В настоящее время

утилита SUPERZAP редко используется для системного обслуживания; она гораздо

чаще использовалась в более ранних версиях операционной системы.

Утилита SUPERZAP используется для исправления оглавлений томов, исполняе-

мых программ, а также почти любой дисковой записи. На практике она преимущест-

венно используется для исправления исполняемых программ. Она широко использо-

валась в прежние времена для установки небольших исправлений в программах.

Рассмотрим, например, новую версию продукта XXX. Новая версия могла быть

отправлена на магнитной ленте сотням или тысячам клиентов. После доставки всех

этих лент разработчики могли обнаружить небольшую ошибку, которую можно ис-

править изменением нескольких инструкций. Вместо того чтобы создавать новые

дистрибутивные ленты и их доставлять всем клиентам (что является трудоемким и

дорогостоящим мероприятием для крупного программного продукта), разработчики

могут создать решение на основе SUPERZAP и отправить его по почте/факсу/ftp сво-

им клиентам.

 Утилиты 537

Утилита SUPERZAP работает на уровне битов. Ее использование является целесо-

образным, когда нужно изменить относительно небольшое число битов или байтов.

Пример SUPERZAP-обновления представлен ниже:

//OGDEN15 JOB 1,BILL,MSGCLASS=X

// EXEC PGM=AMASPZAP

//SYSPRINT DD SYSOUT=*

//SYSLIB DD DISP=OLD,DSN=OGDEN.LIB.LOAD

//SYSIN DD *

NAME QSAM1

VERIFY 004E 4780

REP 004E 4700

Оператор SYSLIB DD должен указывать на набор данных, содержащий модуль,

требующий изменения. Управляющий оператор NAME указывает исполняемый мо-

дуль (представленный именем раздела PDS), который нужно изменить. Оператор

VERIFY указывает, что нужно перейти к адресу со смещением x’004E’ в модуле и убе-

диться в том, что он содержит x’4780’. В этом случае следует изменить модуль таким

образом, чтобы он содержал x’4700’ по адресу с этим смещением. Это заменит инс-

трукцию Branch Equal на No Operation и, предположительно, изменит логику про-

граммы.

Мы смогли создать SUPERZAP-обновление таким образом, потому что у нас был

листинг программы на ассемблере, и мы могли увидеть точное смещение в модуле,

содержащем инструкцию, которую требовалось изменить. Без листинга это было бы

гораздо сложнее, хотя листинг можно было восстановить путем чтения шестнадцате-

ричных дампов памяти и воссоздания машинных операций с дампов. Обратите вни-

мание на то, что исполняемые программы на диске имеют сложный формат и не яв-

ляются простым образом программы, загруженной в память (частично эта сложность

обуславливается перемещением данных, внешними символами и оптимизированным

форматом дисковой загрузки). SUPERZAP понимает этот дисковый формат и позво-

ляет пользователям обновить исполняемую программу, как если бы она являлась об-

разом в памяти.

Мы обсуждаем SUPERZAP, однако в данном примере используется программа

AMASPZAP. Это текущее имя данной программы, хотя она все еще широко известна

как SUPERZAP.

Утилиты уровня приложений

Существует множество приложений, которые можно считать утилитами. Мы кратко

рассмотрим некоторые наиболее часто используемые из них. Они более сложны

в применении, чем простые программы, которые мы рассматривали выше, и мы не

приводим примеры их использования.

ADRDSSU

Эта программа является основной программой создания дампов диска и восстанов-

ления дисков, поставляемой с z/OS. Она способна выполнять фильтрацию и выбор

наборов данных, подлежащих включению в дамп или восстановлению, однако чаще

всего она используется для создание полного дампа диска. Цель создания дампа диска

обычно состоит в создании резервной копии содержимого, с которой, при необхо-

димости, можно выполнить восстановление. Часто с помощью этой программы со-

здаются дампы полных томов, но восстанавливается только определенный набор

данных, который был случайно поврежден.

Резервная копия обычно записывается на магнитную ленту, однако может быть

записана и в дисковый набор данных. Дамп диска можно создавать по дорожкам

(физический дамп) или по наборам данных (логический дамп). При выполнении ло-

гического дампа, несколько экстентов наборов данных совмещаются в один экстент,

библиотечные наборы данных сжимаются, и все свободное пространство остается в

одном экстенте.

RMF

Средство RMF (Resource Measurement Facility) является дополнительной лицензиро-

ванной программой компании IBM, используемой для измерения различных аспек-

тов производительности системы. Разные модули RMF осуществляют долгосрочный

сбор статистики, фиксацию мгновенных данных, долгосрочное ведение отчетов, со-

здание отчетов пакетного типа, создание TSO-ориентированных отчетов и т. д. Аппа

ратная система ввода-вывода поддерживает статистические счетчики времени на-

хождения в очереди для каждого устройства ввода-вывода, количества операций на

устройство и прочей низкоуровневой информации. RMF осуществляет доступ к этим

аппаратным счетчикам и включает их в свои отчеты.

 ТаблицаEBCDIC-ASCII 539

Таблица EBCDIC - ASCII

Hx Dec E A Hx Dec E A Hx Dec E A Hz Dec E A

00 00 NUL 20 32 SP 40 64 SP @ 60 96 - '

01 01 21 33 ! 41 65 A 61 97 / a

02 02 22 34 “ 42 66 B 62 98 b

03 03 23 35 # 43 67 C 63 99 c

04 04 24 36 $ 44 68 D 64 100 d

05 05 25 37 % 45 69 E 65 101 e

06 06 26 38 & 46 70 F 66 102 f

07 07 27 39 ' 47 71 G 67 103 g

08 08 28 40 ( 48 72 H 68 104 h

09 09 29 41 ) 49 73 I 69 105 i

0A 10 2A 42 * 4A 74 ^ J 6A 106 | j

0B 11 2B 43 + 4B 75 . K 6B 107 , k

0C 12 2C 44 , 4C 76 < L 6C 108 % l

0D 13 2D 45 - 4D 77 ( M 6D 109 _ m

0E 14 2E 46 . 4E 78 + N 6E 110 > n

0F 15 2F 47 / 4F 79 | O 6F 111 ? o

10 16 30 48 0 50 80 & P 70 112 p

11 17 31 49 1 51 81 Q 71 113 q

12 18 32 50 2 52 82 R 72 114 r

13 19 33 51 3 53 83 S 73 115 s

14 20 34 52 4 54 84 T 74 116 t

15 21 35 53 5 55 85 U 75 117 u

16 22 36 54 6 56 86 V 76 118 v

540 ПриложениеD

Hx Dec E A Hx Dec E A Hx Dec E A Hz Dec E A

17 23 37 55 7 57 87 W 77 119 w

18 24 38 56 8 58 88 X 78 120 x

19 25 39 57 9 59 89 Y 79 121 y

1A 26 3A 58 : 5A 90 ! Z 7A 122 : z

1B 27 3B 59 ; 5B 91 $ [ 7B 123 # {

1C 28 3C 60 < 5C 92 * \ 7C 124 @ |

1D 29 3D 61 = 5D 93 ) ] 7D 125 ‘ }

1E 30 3E 62 > 5E 94 ; ^ 7E 126 = ~

1F 31 3F 63 ? 5F 95 not _ 7F 127 “

-------------------------------------------------------------------

80 128 A0 160 C0 192 { E0 224 \

81 129 a A1 161 C1 193 A E1 225

82 130 b A2 162 s C2 194 B E2 226 S

83 131 c A3 163 t C3 195 C E3 227 T

84 132 d A4 164 u C4 196 D E4 228 U

85 133 e A5 165 v C5 197 E E5 229 V

86 134 f A6 166 w C6 198 F E6 230 W

87 135 g A7 167 x C7 199 G E7 231 X

88 136 h A8 168 y C8 200 H E8 232 Y

89 137 i A9 169 z C9 201 I E9 233 Z

8A 138 AA 170 CA 202 EA 234

8B 139 AB 171 CB 203 EB 235

8C 140 AC 172 CC 204 EC 236

8D 141 AD 173 [ CD 205 ED 237

8E 142 AE 174 CE 206 EE 238

8F 143 AF 175 CF 207 EF 239

90 144 B0 176 D0 208 } F0 240 0

91 145 j B1 177 D1 209 J F1 241 1

92 146 k B2 178 D2 210 K F2 242 2

93 147 l B3 179 D3 211 L F3 243 3

94 148 m B4 180 D4 212 M F4 244 4

95 149 n B5 181 D5 213 N F5 245 5

96 150 o B6 182 D6 214 O F6 246 6

97 151 p B7 183 D7 215 P F7 247 7

98 152 q B8 184 D8 216 Q F8 248 8

99 153 r B9 185 D9 217 R F9 249 9

9A 154 BA 186 DA 218 FA 250

9B 155 BB 187 DB 219 FB 251

9C 156 BC 188 DC 220 FC 252

9D 157 BD 189 ] DD 221 FD 253

9E 158 BE 190 DE 222 FE 254

9F 159 BF 191 DF 223 FF 255

 Программадляпрактическойработы 541

Программа для практической

работы

Все приведенные здесь примеры работают с файлом (или базой данных) сотрудни-

ков; этот файл идентифицирует всех сотрудников по номеру сотрудника и содержит

основную информацию о персонале.

Упражнение использует номер отдела как входные данные, выбирает все записи по

этому отделу, после чего вычисляет сумму полей оклада в этих записях. В результате,

выводится средний оклад.

Следующие упражнения написаны на разных языках, выполняются в разных средах

и используют разные источники данных, но все они выполняют функции, описанные

выше. Упражнения содержат код, подготовительные задания и инструкции.

Предполагается, что студенты установили соответствующий эмулятор 3270 и имеют

требуемые полномочия в TSO, CICS, DB2 и WebSphere для z/OS. Обратите внимание

на системные определения (в частности, на HLQ, имя базы данных DB2 и т. д.), кото-

рые могут потребоваться в каждом упражнении.