Чт, 28.03.2024, 14:13
Приветствую Вас Гость | RSS
Главная | Перенос os/390 на hercules - Страница 6 - Форум | Регистрация | Вход
Форма входа
Логин:
Пароль:
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Форум » Технические форумы » Hercules » Перенос os/390 на hercules
Перенос os/390 на hercules
GregoryДата: Пт, 17.06.2016, 18:05 | Сообщение # 76
Генерал-майор
Группа: Доверенные
Сообщений: 479
Репутация: 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
Генерал-майор
Группа: Доверенные
Сообщений: 479
Репутация: 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
Генерал-майор
Группа: Доверенные
Сообщений: 479
Репутация: 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
Генерал-майор
Группа: Доверенные
Сообщений: 479
Репутация: 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
Генерал-майор
Группа: Доверенные
Сообщений: 479
Репутация: 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
Генерал-майор
Группа: Доверенные
Сообщений: 479
Репутация: 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
Генерал-майор
Группа: Доверенные
Сообщений: 479
Репутация: 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
Генерал-майор
Группа: Доверенные
Сообщений: 479
Репутация: 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
 
Форум » Технические форумы » Hercules » Перенос os/390 на hercules
Поиск: