Перенос os/390 на hercules

Gregory

Дата: Пт, 17.06.2016, 18:05 | Сообщение # 76

Генерал-майор

Группа: Доверенные

Сообщений: 482

Репутация: 22

Статус: Offline

Цитата mentor (

)

Из MF нужно картриджи, в которых хранятся DUMPы группы файлов, перенести в Hercules. Я думала, что можно будет сбросить, без RESTORE, на ps файл и далее по аналогии дисков.

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

Цитата

У меня не проходят ни COPY, ни COPYDUMP в ADRDSSU.
ADR331E (001)-CPYD (01), OUTPUT BLKSIZE 58786 FOR DATA SET ON DDNAME OUT IS SMALLER THAN INPUT BLKSIZE 65520

опишите подробнее процесс переноса.
на устройстве какого типа были расположены наборы данных, дампы которых Вы пытаетесь загружать?
как выглядит задание на восстановление ADRDSSU?
как выглядело задание, которым эти наборы данных были выгружены на картриджи (если это возможно, конечно)

Сообщение отредактировал Gregory - Пт, 17.06.2016, 18:09

mentor

Дата: Пн, 20.06.2016, 10:21 | Сообщение # 77

Лейтенант

Группа: Проверенные

Сообщений: 138

Репутация: 1

Статус: Offline

фалы сбрасываются на ленту группой с помощь программы, которая на самом деле вызывает ADRDSSU Dump.
Справка с ленты:


*****************************************************************************************************************************

                    CПPABKA O MACCИBAX HA MAГHИTHOИ ЛEHTE     02131C                      SL OS IBM            06/21/16

HOMEP   ИMЯ HAБOPA DAHHЫX KOЛ_BO DЛИHA DЛИHA ФOPMAT   D A T A ПPИЗHAK * ПOKOЛEHИЯ *    TOM HOMEP    ИДEHTИФИKATOP
HAБOPA                     БЛOKOB БЛOKA ЗAПИCИ БЛOKИP COЗД. ГOДH. ЗAЩИTЫ HOMEP BEPCИЯ HAЧAЛA TOMA      ЗAДAHИЯ
*****************************************************************************************************************************

0001   G0213130           003902 00000 00000 U     014349 000000   0                                 K020202A/S1
   END OF DATA SETS ON TAPE

Добавлено (20.06.2016, 10:21)
---------------------------------------------
вызывается процедура:
//DU$30730 EXEC DUMPF,DSN=G0213130

сама процедура:

//DUMPF    PROC R=Y,DSN=,VOL=
//*=============================================*
//*     ПРОЦЕДУРА КОПИРОВАНИЯ ФАЙЛОВ            *
//*          С ДИСКА НА SYSDA AND ЛЕНТУ(Ы)      *
//*                08.02.2006                   *
//*---------------------------------------------*
//*   R = Y - ПОВТОРНОЕ ИСПОЛЬЗОВАНИЕ ЛЕНТ.     *
//*   R = N - ЗАПРЕТ НА ПОВТОРНОЕ ИСПОЛЬЗОВАНИЕ.*
//*   M - ИМЯ ПОДГРУППЫ ФАЙЛОВ.                *
//*=============================================*
//S1       EXEC PGM=DUMPF,PARM='&R,&DSN,&VOL',REGION=4096K
//STEPLIB DD DSN=SYS1.LINKLIB2,DISP=SHR
//OUTDSSU DD DUMMY
//LST      DD DSN=&&AJK,DISP=(NEW,DELETE),UNIT=SYSDA,
//            SPACE=(121,(100,10))
//ZAKAZ    DD DSN=&&ARR,DISP=(NEW,DELETE),UNIT=SYSDA,
//            SPACE=(80,(100,10))
//PRINT    DD DSN=&&VTOCML,DISP=(NEW,DELETE),UNIT=SYSDA,
//            SPACE=(121,(100,10))
//EXCP     DD UNIT=(TAPE,,DEFER),VOL=(,RETAIN,1,1,SER=111111),
//            DISP=OLD,LABEL=(1,SL)
//SYSIN    DD DSN=&&PARM,DISP=(NEW,DELETE),UNIT=SYSDA,
//            SPACE=(80,(11,1))
//COPYIN   DD DSN=&©,DISP=(NEW,DELETE),UNIT=SYSDA,
//            SPACE=(3120,(400,20))
//SYSPRINT DD DSN=&&EOT,DISP=(NEW,DELETE),UNIT=SYSDA,
//            SPACE=(137,(100,10))
//UKCOPY   DD DUMMY SYSOUT=*
//PRINTUK DD SYSOUT=*
//NOWPRINT DD SYSOUT=*
//G305SL   DD DSN=ARXIV.GVC.TAPE,DISP=SHR      ПАСПОРТ АРХИВНЫХ ЛЕНТ
//GSYSIN   DD DSN=XXXXX.YYY.PARM,DISP=SHR   БИБЛИОТЕКА ПАРАМЕТРОВ
//S2       EXEC PGM=DUMPF,PARM='&R,&DSN,&VOL',REGION=4096K,
//            COND=(20,NE,S1)
//STEPLIB DD DSN=SYS1.LINKLIB2,DISP=SHR
//OUTDSSU DD DUMMY
//LST      DD DSN=&&AJK,DISP=(NEW,DELETE),UNIT=SYSDA,
//            SPACE=(121,(100,10))
//ZAKAZ    DD DSN=&&ARR,DISP=(NEW,DELETE),UNIT=SYSDA,
//            SPACE=(80,(100,10))
//PRINT    DD DSN=&&VTOCL,DISP=(NEW,DELETE),UNIT=SYSDA,
//            SPACE=(121,(100,10))
//EXCP     DD UNIT=(TAPE,,DEFER),VOL=(,RETAIN,1,1,SER=111111),
//            DISP=OLD,LABEL=(1,SL)
//SYSIN    DD DSN=&&PARM,DISP=(NEW,DELETE),UNIT=SYSDA,
//            SPACE=(80,(11,1))
//COPYIN   DD DSN=&©,DISP=(NEW,DELETE),UNIT=SYSDA,
//            SPACE=(3120,(400,20))
//SYSPRINT DD DSN=&&EOM,DISP=(NEW,DELETE),UNIT=SYSDA,
//            SPACE=(137,(100,10))
//UKCOPY   DD DUMMY SYSOUT=*
//PRINTUK DD SYSOUT=*
//NOWPRINT DD SYSOUT=*
//G305SL   DD DSN=ARXIV.GVC.TAPE,DISP=SHR      ПАСПОРТ АРХИВНЫХ ЛЕНТ
//GSYSIN   DD DSN=XXXXX.YYY.PARM,DISP=SHR   БИБЛИОТЕКА ПАРАМЕТРОВ

где:
DSLIST    ARXIV.GVC.TAPE(L02131C)
===========================================
2131C 0001 G0213130    006       15/12/2014 09:27 K020202A 000

группа
XXXXX.YYY.PARM(G0213130)
--------------------------------------------------------
xxxxxx.F0213VSD                             GVC42C ..
............................                             ..............

Gregory

Дата: Пн, 20.06.2016, 11:40 | Сообщение # 78

Генерал-майор

Группа: Доверенные

Сообщений: 482

Репутация: 22

Статус: Offline

Добрый день.

Цитата mentor (

)

фалы сбрасываются на ленту группой с помощь программы, которая на самом деле вызывает ADRDSSU Dump

понятно. В результате выполнения выгрузки на ленте Вы получаете наборы данных RECFM=U. Как Вы загружаете их на диск и как переносите полученный набор данных на PC? Диски у Вас все 3390?

Сообщение отредактировал Gregory - Пн, 20.06.2016, 11:40

mentor

Дата: Пн, 20.06.2016, 14:55 | Сообщение # 79

Лейтенант

Группа: Проверенные

Сообщений: 138

Репутация: 1

Статус: Offline

Здравствуйте.
Обычно их восстанавливают программой , тоже вызывается обычный restore ADRDSSU.
Повторяюсь, мне нужно без восстановления ленту перенести в Геркулес. Попытка загрузить на диск с помощью COPYDUMP из ADRDSSU не увенчался успехом. Ругается на blksize, а на выходе в Dummy "копирует".
диски 3390-9
на PC я обычно через blueZone скачиваю в binary режиме.

Добавлено (20.06.2016, 14:11)
---------------------------------------------
ADR006I (001)-STEND(01), 2016.172 14:07:31 EXECUTION BEGINS
ADR331E (001)-CPYD (01), OUTPUT BLKSIZE 58786 FOR DATA SET ON DDNAME OUT IS SMALLER THAN INPUT BLKSIZE 65520
ADR324E (001)-CPYD (01), THE VOLUME/DATA SET SPECIFIED BY DDNAME OUT HAS BECOME UNUSABLE

откуда он берет 65520, если на входе описано 32000, не пойму? почему с таким blksize пытается копировать?

Добавлено (20.06.2016, 14:54)
---------------------------------------------
HOMEP   ИMЯ HAБOPA DAHHЫX KOЛ_BO DЛИHA DЛИHA ФOPMAT   D A T A ПPИЗHAK * ПOKOЛEHИЯ *    TOM HOMEP
HAБOPA                     БЛOKOB БЛOKA ЗAПИCИ БЛOKИP COЗД. ГOДH. ЗAЩИTЫ HOMEP BEPCИЯ HAЧAЛA TOMA
.0001...G0213130         ..003902..00000..00000..U. ...014349.000000...0....    ... ....................

Добавлено (20.06.2016, 14:55)
---------------------------------------------
задала в IN LABEL=(1,BPL), закончился кодом 24:
ADR006I (001)-STEND(01), 2016.172 14:47:46 EXECUTION BEGINS
ADR351E (001)-MIO (01), UNEXPECTED END OF FILE ON DDNAME IN

Gregory

Дата: Пн, 20.06.2016, 15:11 | Сообщение # 80

Генерал-майор

Группа: Доверенные

Сообщений: 482

Репутация: 22

Статус: Offline

Цитата mentor (

)

на PC я обычно через blueZone скачиваю в binary режиме.

если можно, подробнее. Если Вы скачиваете набор данных в файл, то при этом происходит потеря границ записей, а это необратимое искажение данных. Выгрузите набор данных TRANSMIT (XMIT) или AMATERSE, перенесите полученный набор в файл, а затем восстановите оригинальный набор данных.

Цитата mentor (

)

откуда он берет 65520, если на входе описано 32000, не пойму? почему с таким blksize пытается копировать?

полагаю, это результат некорректного переноса данных...

mentor

Дата: Пн, 20.06.2016, 16:17 | Сообщение # 81

Лейтенант

Группа: Проверенные

Сообщений: 138

Репутация: 1

Статус: Offline

мне нужно получить м\л на геркулесе, так же, как и диски. Если диски сначала Dumpируем, потом преобразуем в aws формат, затем в геркулесе восстанавливаем restore, то как быть с м\л, в которые сброшена информация с DUMP, и в таком виде мне нужно их получить в Геркулесе?
у меня дело до передачи м\л в ПК не доходит еще.

Gregory

Дата: Пн, 20.06.2016, 17:23 | Сообщение # 82

Генерал-майор

Группа: Доверенные

Сообщений: 482

Репутация: 22

Статус: Offline

а, так это Вы пытаетесь с реального картриджа на диск восстановить на реальной машине? хорошо бы на задание посмотреть, потому что вызывает вопросы не только значение 65520, но значение 58786, ведь справка говорит о размере блока 14349.

Цитата mentor (

)

задала в IN LABEL=(1,BPL), закончился кодом 24:

если это лента со стандартными метками (SL), то (1,BLP) это как раз метки (VOL1+HDR1+HDR2), тогда уж (2,BLP).
Принципиально возможно и IEBGENER скопировать набор данных с ленты на диск, но интересно выяснить почему COPYDUMP не дает желаемый результат.

Сообщение отредактировал Gregory - Пн, 20.06.2016, 17:25

mentor

Дата: Вт, 21.06.2016, 09:16 | Сообщение # 83

Лейтенант

Группа: Проверенные

Сообщений: 138

Репутация: 1

Статус: Offline

Gregory, доброго утра.
Совершенно верно, именно этого я пытаюсь получить.
спасибо за информацию. Сейчас попробую.

Добавлено (21.06.2016, 09:16)
---------------------------------------------
увы, с (2,BLP) та же ситуация c BLKSIZE

Gregory

Дата: Вт, 21.06.2016, 10:04 | Сообщение # 84

Генерал-майор

Группа: Доверенные

Сообщений: 482

Репутация: 22

Статус: Offline

Цитата mentor (

)

увы, с (2,BLP) та же ситуация c BLKSIZE

может покажете все же Ваши задания?

mentor

Дата: Вт, 21.06.2016, 11:21 | Сообщение # 85

Лейтенант

Группа: Проверенные

Сообщений: 138

Репутация: 1

Статус: Offline

Gregory, мой опыт общения с МФ мне подсказывает, что собака может быть зарыта совсем в другом месте, а не в blksize. Зачастую сообщения вообще не соответствуют действительности.
однажды, система ругалась непонятно на что, оказалось, что на диске места не хватает. Когда сделала многотомный набор, все сообщения пропали.
мое задание:

//DASDDUMP JOB
// SET HLQ=HERCULES
// SET DHLQ=HERCULES.DUMP
// SET TAPE=02131C
// EXEC PGM=ADRDSSU

//**   КОПИРОВАНИЕ ЛЕНТ
//SYSPRINT DD SYSOUT=*
//IN       DD DSN=G0213130,
//            DISP=(OLD,KEEP),
//            UNIT=3480,VOL=SER=&TAPE,
//            LABEL=(2,BLP),DCB=(BLKSIZE=32000)
//*UT      DD DUMMY
//OUT      DD DSN=&HLQ..W&TAPE,UNIT=SYSDA,
//            DISP=(NEW,KEEP),VOL=SER=HERCUL,
//            SPACE=(TRK,(20000,10000))
//SYSIN DD *
      COPYDUMP INDD(IN) OUTDD(OUT)
/*
//
Я уже пробовала н\д создать предварительно c BLKSIZE 32760. Результат тот же.

Добавлено (21.06.2016, 11:19)
---------------------------------------------
ранее я копировала задания, как наборы дампируются на м\л.

Добавлено (21.06.2016, 11:21)
---------------------------------------------
результат выполнения:
ADR331E (001)-CPYD (01), OUTPUT BLKSIZE 58786 FOR DATA SET ON DDNAME OUT IS SMALLER THAN INPUT BLKSIZE 65520
ADR324E (001)-CPYD (01), THE VOLUME/DATA SET SPECIFIED BY DDNAME OUT HAS BECOME UNUSABLE
ADR006I (001)-STEND(02), 2016.173 08:16:05 EXECUTION ENDS
ADR013I (001)-CLTSK(01), 2016.173 08:16:05 TASK COMPLETED WITH RETURN CODE 0016

Gregory

Дата: Вт, 21.06.2016, 13:08 | Сообщение # 86

Генерал-майор

Группа: Доверенные

Сообщений: 482

Репутация: 22

Статус: Offline

Теперь когда я, наконец-то, понял что Вы хотите сделать, могу сказать что так у Вас не получится...
Я считаю, реальный размер блока на картридже 65520, такой размер блока ADRDSSU использует для лент.
А размер блока 12349, сообщаемый здесь
0001 G0213130 003902 00000 00000 U 014349 000000 0 K020202A/S1
вряд ли соответствует действительности.

58786 это максимальный блок, который можно записать на том 3390 (если записывать блок как r0, если как r1, то 56664 - константа, которая объявлена в документации IBM).
Так что сообщение ADRDSSU совершенно точно описывает происходящее и с помощью COPYDUMP дамп нельзя скопировать на диск. COPYDUMP не позволяет изменить размер блокаю так что ничего не получится. Нельзя также скопировать этот набор данных с помощью ICEGENER и других утилит, так как все они используют методы доступа для чтения ленты, а в таком случае размер блока ограничен 32767.

Вам нужно использовать программу VTT2DISK (файл 533 CBT). Эта программа читает блоки размером 64K и более, преобразуя данные в последовательный набор, моделирующий ленту (AWS). Полученный последовательный набор копируете на PC как binary любым доступным способом (ftp) и описываете как картридж для hercules:
0290 3490 DSSUDUMP.AWS

Сообщение отредактировал Gregory - Вт, 21.06.2016, 13:29

mentor

Дата: Вт, 21.06.2016, 13:16 | Сообщение # 87

Лейтенант

Группа: Проверенные

Сообщений: 138

Репутация: 1

Статус: Offline

Gregory, получила я ps файл с помощью IEBGENER. Далее как? преобразуем на aws формат?

Добавлено (21.06.2016, 13:14)
---------------------------------------------
//S1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DUMMY
//SYSUT1 DD DSN=PRINT,UNIT=3480,VOL=SER=02131C,DISP=OLD,
//          LABEL=(2,BLP),DCB=(BLKSIZE=32000)
//SYSUT2 DD DSN=PRINT1,UNIT=SYSDA,VOL=SER=HERCUL,
//          DISP=(NEW,KEEP),
//          DCB=(RECFM=U,BLKSIZE=32760),
//            SPACE=(TRK,(20000,10000))
/*
//

Добавлено (21.06.2016, 13:16)
---------------------------------------------

Цитата Gregory (

)

58786 это максимальный блок, который можно записать на том 3390 (если записывать блок как r0, если как r1, то 56664 - константа, которая объявлена в документации IBM).

вот и странно. На самом деле дампирована лента с blksize=32000

Gregory

Дата: Вт, 21.06.2016, 13:37 | Сообщение # 88

Генерал-майор

Группа: Доверенные

Сообщений: 482

Репутация: 22

Статус: Offline

Цитата mentor (

)

вот и странно. На самом деле дампирована лента с blksize=32000

и почему Вы так решили?

Цитата

//S1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DUMMY
//SYSUT1 DD DSN=PRINT,UNIT=3480,VOL=SER=02131C,DISP=OLD,LABEL=(2,BLP),DCB=(BLKSIZE=32000)
//SYSUT2 DD DSN=PRINT1,UNIT=SYSDA,VOL=SER=HERCUL,DISP=(NEW,KEEP),DCB=(RECFM=U,BLKSIZE=32760),SPACE=(TRK,(20000,10000))

задание завершилось с кодом 0 без сообщений об ошибках?

mentor

Дата: Вт, 21.06.2016, 14:30 | Сообщение # 89

Лейтенант

Группа: Проверенные

Сообщений: 138

Репутация: 1

Статус: Offline

Цитата Gregory (

)

и почему Вы так решили?

потому что при восстановлении такой BLKSIZE задают.
да, с кодом 0.

Добавлено (21.06.2016, 14:30)
---------------------------------------------

Цитата Gregory (

)

Для использования магнитной ленты (картриджа) подготовьте образ ленты командой HETINIT и добавьте его в конфигурацию:ATTACH vcuu 3490 tape.het

а формат команды можете написать?

Gregory

Дата: Вт, 21.06.2016, 16:26 | Сообщение # 90

Генерал-майор

Группа: Доверенные

Сообщений: 482

Репутация: 22

Статус: Offline

Цитата mentor (

)

потому что при восстановлении такой BLKSIZE задают.

неубедительно. ADRDSSU, скорее всего, его игнорирует.

Цитата

да, с кодом 0

тем не менее я думаю, что результат этого копирования непригоден для восстановления, несмотря на код 0.

Цитата mentor (

)

а формат команды можете написать?

hetinit файл volser

hetinit -h покажет формат команды

P.S. Поясню, почему я так считаю. В отличие от Вашей точки зрения я считаю, что любая стандартная программа z/OS и собственно сам z/OS априори функционируют правильно. Поэтому сообщение
ADR331E (001)-CPYD (01), OUTPUT BLKSIZE 58786 FOR DATA SET ON DDNAME OUT IS SMALLER THAN INPUT BLKSIZE 65520
и содержащиеся в нем значения являются для меня более убедительными, нежели все остальное. Следовательно, на этой ленте блоки размером 65520 (> 32K), и программа IEBGENER, как и любая другая программа, использующая методы доступа, скопировать их без усечения не сможет.

Сообщение отредактировал Gregory - Вт, 21.06.2016, 16:39