Вт, 26.11.2024, 12:40
Приветствую Вас Гость | RSS
Главная | Перенос os/390 на hercules - Страница 4 - Форум | Регистрация | Вход
Форма входа
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Перенос os/390 на hercules
GregoryДата: Чт, 22.10.2015, 13:31 | Сообщение # 46
Генерал-майор
Группа: Доверенные
Сообщений: 482
Репутация: 22
Статус: Offline
Цитата sager ()
Но если говорить о копировании дисков, то мне кажется , что вариант с mfnetdisc как то естественней выглядел:
Так а Вам удалось запустить mfnetdisk из общедоступных материалов?
 
sagerДата: Чт, 22.10.2015, 21:21 | Сообщение # 47
Сержант
Группа: Проверенные
Сообщений: 29
Репутация: 3
Статус: Offline
Да.Там документация , конечно, сумбурная несколько , но для использования базовых функций вполне достаточна.
Гораздо понятнее все выглядит , когда Shai сам это демонстрирует в роликах..  :)
я какое то время даже использовал его для ежедневного резерного копирования, когда нехватало дисковой памяти..Очень помогло.. Да и при  миграция дисков  в Hercules пригодился...
 
GregoryДата: Пт, 23.10.2015, 17:34 | Сообщение # 48
Генерал-майор
Группа: Доверенные
Сообщений: 482
Репутация: 22
Статус: Offline
Спасибо! какую версию mfnetdisc использовали, V012?
 
sagerДата: Пт, 23.10.2015, 22:54 | Сообщение # 49
Сержант
Группа: Проверенные
Сообщений: 29
Репутация: 3
Статус: Offline
Начинал , вроде, с v011,но я использовал их только в Os390 (c 2.5 по 2.10)
А лучше всего,действительно, прижилась v012.
Позже перешел на v013, Но там кажется были проблемы с совместимостью то ли с протоколом , то ли с форматами дисков предыдущих версий...
Лучше , конечно, попробывать с v012.
 
akostДата: Сб, 24.10.2015, 14:44 | Сообщение # 50
Admin
Группа: Администраторы
Сообщений: 619
Репутация: 5
Статус: Offline
sager, а не могли бы Вы написать статью про то, как запустить mfnetdisk и про Ваш опыт его использования? было бы классно и полезно.
 
GregoryДата: Вс, 25.10.2015, 23:35 | Сообщение # 51
Генерал-майор
Группа: Доверенные
Сообщений: 482
Репутация: 22
Статус: Offline
схему, описанную в посте #43 выше опробовали для передачи данных их z/OS в AIX, работает icecream
 
GregoryДата: Пн, 26.10.2015, 14:40 | Сообщение # 52
Генерал-майор
Группа: Доверенные
Сообщений: 482
Репутация: 22
Статус: Offline
запустил я MFNetDisk V12:

DSLIST - Data Sets on volume MPC000                                 Row 1 of 2
                                                                               
Command - Enter "/" to select action                  Message           Volume
-------------------------------------------------------------------------------
         IBMUSER.ZZZ                                                    MPC000
         SYS1.VTOCIX.MPC000                                             MPC000


насколько я понимаю, MFNetDisk использует собственный формат моделируемого диска (Dasd000.dvv). Если это так, то копирование диска с использованием MFNetDisk в два раза менее эффективно, чем с помощью fifo-файлов: сначала нужно  скопировать оригинальный диск на эмулируемый MFNetDisk в исходной системе, а затем - с эмулируемого диска на целевой диск в принимающей системе. С помощью же fifo-файлов реализуется прямое копирование с оригинального диска на целевой. И тем не менее, использование MFNetDisk для копирования томов, безусловно, оправдано, и я, пожалуй, соглашусь тем что выглядит оно "более естественно", не говоря уже о том, что у MFNetDisk может быть и множество других полезных применений.
 
sagerДата: Пн, 26.10.2015, 14:56 | Сообщение # 53
Сержант
Группа: Проверенные
Сообщений: 29
Репутация: 3
Статус: Offline
Цитата
sager, а не могли бы Вы написать статью про то, как запустить mfnetdisk и про Ваш опыт его использования? было бы классно и полезно.


Спасибо за лестное предложение! Но на порядочную статью я вряд ли потяну.
У рожденного писать инструкции программистам о том, как пользоваться системой, и жалобы на них за то, что они неправильно ей пользуются, вряд ли получиться спеть песню об этом симпатичном продукте.
Если только в соавторстве с Вами.Тем более , что Вы о нем и рассказали года 4 назад.
А я волей судеб тогда занимался рутинной работой переноса системы и данных с нашей системы на машину в другом городе.
И соответсвенно,после установки MFNETDISK, нудная многошаговая процедура:
 
- DFDSS dump исх. диска или НД
- Pack Terse или Xmit
- FTP на target систему
- Unpack Terse
- DFDSS Restore на target диск
+ постоянный контроль выпполнения каждого шага и т д...

превратилась в два шага:

- DFDSS copy  исх. диска или НД на эмулируемые mfnetdiskом диски
(поскольку другой возможности не было, то я использовал просто диск своего ноутбука)
- И последующее копирование DFDSS copy c моего ноутбука на target систему.

А уже после того, как запустили эту систему в другом городе, оказалось , что не правильно расчитали необходимые объемы дисковой памяти HDS под данные ИС и пришлось на эмулируемых Mfnetdisk дисках на обычном сервере размещать временную информацию,резервные копии и т д. Я просто добавил их SMS storage pool и на удивление Mfnetdisk ни разу не подвел,не сбойнул, пока не подкупили дополнительных дисков.
Конечно, же не стоит расчитывать на него , как на дисковые подсистемы.Понятно, что производительность(осутствие многопутевого доступа-ввода-вывода) и надежность несравнимы. Но для отдельных (возможно пакетных)заданий скорость вполне приемлимая. Могу сказать , что время выполнения копирования с диска на диск на родной дисковой подсистеме (ESCON) вполне соизмеримо с временем копирования того же диска на эмулятор в гигабитной локальной сети.Разница не более 20%%.

Ну и конечно же с запуском Herculesa очень помог. C ним просто делаешь копии дисков COPY FULL и подсовываешь их hercules.

(Кстати, вот здесь возникает мой больной вопрос, когда вариант предложенный Gregory очень актуален)
Но после того, как систему под hercules запустишь в эксплуатацию, то пользователю хочется оперативная синхронизация данных.
В нашем случае, даже хотя бы на уровне периодических накатов журналов изменений adabas. А как расшарить эти диски с Hercules?
(Говорят, что якобы можно установить некий Hercules Shared Server...? Либо в самом Mfnetdisk использовать mirror-диски...? - У меня не получилось sad )

А вообще,если уж говорить про Mfnetdisk, то надо сказать, что функционально он гораздо шире,чем я его использовал и проверял практически.
- Здесь есть и возможность репликации, мирроринга, некое подобие PAV и тд. Впервые увидел здесь идею использование iCKD/iECKD.
- Эмулирует он не только диски , но ленты (картриджи), MTL (tape library). Так что его можно использовать и в HSM.
(Кстати,одни мои знакомые экплуатировали леночные эмуляторы на PC, работающие по bus/tag.Если помните,они были популярны в свое время и соответвенно, на них завязывалась технология.Это был хороший вариант для замены.)
- Есть свой API для доступа к НД на эмулируемых дисках в среде PC.

В общем симпатичен он мне.
Автором данного произведения является Shai Hess. (Здесь наверно д б аплодисменты).
И я был приятно удивлен, что он в начале этого года , после перерыва, решил продолжить развитие этого продукта и я надеюсь , что мы увидим наконец разделяемых диски майнфреймов и hercules через интернет... и можно будет стандарными pc-приложениями обрабатывать наборы данных эмулируемых дисков. :)

Алесандр,после всего изложенного, с Вашего разрешения я подготовлю просто инструкцию по запуску эмуляции дисков...?

Добавлено (26.10.2015, 14:56)
---------------------------------------------

Цитата
насколько я понимаю, MFNetDisk использует собственный формат моделируемого диска (Dasd000.dvv).

Там при создании диска можно указать тип AWS и тогда будет родной геркулесовский...
 
GregoryДата: Пн, 26.10.2015, 15:20 | Сообщение # 54
Генерал-майор
Группа: Доверенные
Сообщений: 482
Репутация: 22
Статус: Offline

Цитата
Автором данного произведения является Shai Hess. (Здесь наверно д б аплодисменты).
+1 hands
вот только я не совсем понимаю, каков текущий статус у MFNetDisk, freeware on demand? surprised
Цитата sager ()
Там при создании диска можно указать тип AWS и тогда будет родной геркулесовский...
спасибо, по-видимому, у меня описание какое-то неактуальное, потому что в моем экземпляре вообще не встречается "AWS".

P.S. Кстати, AWSCKD появился в P390
 
sagerДата: Пн, 26.10.2015, 17:27 | Сообщение # 55
Сержант
Группа: Проверенные
Сообщений: 29
Репутация: 3
Статус: Offline
По поводу текущего статуса - не знаю...
Он года на два притормозил этот проект.
А сейчас он выходит с новым названием - MCD .

https://sites.google.com/site/zosnetdisk

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

Добавлено (26.10.2015, 17:27)
---------------------------------------------
...почему то файл не крепится ? Жалуется на формат изображения...?
Установка MFNETDISK

В Windows:

1. Распаковать .zip – архив.

2. В папке C:\...\MFNetDisk\pcserver – запустить MPCPCServerAll.exe .
a. На запрос – ответить Y

3. В папке C:\...\MFNetDisk\pctool – запустить MPCPCTool.exe

4. Создаем диски для эмуляции в PCTOOL :

- в поле PCDEV указать, например, 0040. Это номер устройства в эмуляторе.
(Этот номер должен быть указан в параметрах mfnetdisk на майнфрейме);

- В командной строке введите - cmd=FAWSDiskOn и нажать Run.
(Эта команда определяет создание диска типа AWS)

- Выбрать в меню CONFIG -> DEV -> ADDEMULATORDEV

- В командной строке появится шаблон для команды создания диска.
Например:
cmd=AddNewEmulatorDev,ifnetdev=n,path=c:\mpcdasd\,cyl=200,ssid=00,
local=y

Ее необходимо адаптировать к нашим требованиям:

- После path= указать директорию, где будет создаваться диск;
- После cyl= указать M9 (cyl=M9 – это объем диска. В данном случае -9гб);
( Должно получиться , что то вроде cmd=AddNewEmulatorDev,ifnetdev=n,path=е:\hercules\DASD\,cyl=M9,ssid=00,local=y

- Нажать RUN
Начнется форматирование диска (для 9гб – это занимает минут 7-9)
- должны появится сообщение типа:
- Mirrors verification Crc OK for dev 040 cc 0 hh 0
- Thread start to Init or Sync Dev 40 Mirror 0
- Pcdev 40 Script addnewemulatordev ended OK
- Завершение можно проследить на окне самого сервера.

То же самое повторить для остальных дисков, меняя PCDEV.
Например: 0041,0042 и т. д.



В среде zOS/OS390:

1. Файлы из папки MFfiles установить на MF:
- там 2 файла в формате XMIT : *.LOAD и *.SAMPLIB
- Перекачать на Os390 по FTP (binary)
- выполнить функцию TRANSMIT RECEIVE

- Авторизовать LOAD-библиотеку ( добавить ее в раздел PROGxx и выполнить команду SET PROG=xx)
- Настроить и выполнить задание ALCLOG ( * . SAMPLIB)
- Настроить и скопировать в PROCLIB процедуру MPCPROC ( PARM=COLD и установить имя LOG и имя SAMPLIB) ( … и возможно авторизовать ее в RACF);

2. Добавить в IODF устройства типа 3390. (CU и Path в этом случае не нужны. Достаточно просто, чтобы система имела такое UCB).
Если же есть уже свободные UCB , то можно использовать их и не генерить IODF.

3 . Настроить параметры в разделе MPCOPT:

* SAMPLE MPCOPT

TCP PORT=11001,TIMEOUT=30
SERVER TASKS=5
LICKEY EXPDATE=20180101,REQCPUS=(0026239672,
123456789F),ACTKEY=6BB5C488E5,REQDEV=512
*PRODUCTION
DEVICE MVSDVNUM=0720,
PCDEV=0040,
PCIP=192.168.10.157,RANGE=10
DEVICE MVSDVNUM=072A,
PCDEV=0050,
PCIP=192.168.199.18,RANGE=5

- Указать номер порта. Например: PORT=11001;
- установить параметры MVSDVNUM = Unit Number (UA) выбранного устройства;
- PCDEV=0040 – указывает начало ранга номеров дисков , соответствующих Номерам устройств из параметра MVSDVNUM ;
- PCIP – адрес сервера, где будет работать эмулятор ;
- RANGE=5 - количество дисков в данном ранге(диапозоне).

4. Запустить процедуру MPCPROC;

На консоли появятся сообщения :
MPC065I COLD START REQUEST FOUND
MPC064I HW 009672,R46,066408 SW OS/390 02.10.00
MPC001I MPC PRO VER 13.00 - 11/11/11 STARTED
MPC051I MPC PTFID=00194, TOKENID=0064
MPC035I ECSA GETMAIN SIZE 000016K
MPC092I IO HND FLAGS 7F437D17 7F436C9F
MPC062I TPS START INITIALIZATION
MPC063I TPS END INITIALIZATION WAS OK
MPC062I TWR START INITIALIZATION
MPC149I MPCLOG DATA VALIDATION ENDED OK
MPC150I COLD START ENDED SUCCESFULLY <TWR>
MPC063I TWR END INITIALIZATION WAS OK
MPC062I TTK START INITIALIZATION
MPC063I TTK END INITIALIZATION WAS OK
MPC043I SERVER INITIALIZATION COMPLETED SUCCESSFULLY
MPC078I CONFIG UPDATE ENDED OK

Это значит , что соединение с сервером успешно.
И можно инициализировать эти диски и переводить в Online.

 
akostДата: Пн, 26.10.2015, 17:58 | Сообщение # 56
Admin
Группа: Администраторы
Сообщений: 619
Репутация: 5
Статус: Offline
sager, вот спасибо, от всей души и от имени всех. кучу времени сэкономили, правда!
 
mentorДата: Вт, 10.05.2016, 15:59 | Сообщение # 57
Лейтенант
Группа: Проверенные
Сообщений: 138
Репутация: 1
Статус: Offline
Здравствуйте всем!

Создала cckd диски. Восстановила туда из aws файлов несколько дисков. А есть еще способ, без расширения cckd диски подготовить?


Сообщение отредактировал mentor - Вт, 10.05.2016, 16:44
 
GregoryДата: Пт, 13.05.2016, 16:19 | Сообщение # 58
Генерал-майор
Группа: Доверенные
Сообщений: 482
Репутация: 22
Статус: Offline
Цитата mentor ()
А есть еще способ, без расширения cckd диски подготовить?
Здравствуйте. Не понимаю Ваш вопрос, не могли бы Вы уточнить? Файл с образом диска cckd (и ckd) может иметь любое расширение или не иметь его вообще.
Например, некоторые именуют файлы так:
Z13RES.A00
Z13CAT.A01
...
то есть в качестве расширения используют адрес
 
mentorДата: Пн, 16.05.2016, 16:40 | Сообщение # 59
Лейтенант
Группа: Проверенные
Сообщений: 138
Репутация: 1
Статус: Offline
Gregory, я только начала осваивать просторы Herculesа. Поэтому такой вопрос был. По скачанным инструкциям не сразу все понятно.

я:
1. преоброзовала диски на aws формат;
2. скачала на ПК
3. на ПК под геркулес инициализировала диски:
call :crevol 910res 3390-9
call :crevol 910cat 3390-9
call :crevol GVCLIB 3390-9
call :crevol USRLIB 3390-9
call :crevol 910HFS 3390-9 

далее, по рекомендации в инструкции "опыт переноса..."  под ОС в Геркулесе инициализировала резидентный диск:

 INIT UNITADDRESS(0200) DEVTYPE(3390) NORCLM MAP NOVAL  -      
     VFY(910RES) VOLID(910RES) VTOC(0,3,150) INDEX(10,3,75) -  
     IPLDD(IN) BOOTSTRAP                                       

получила диск со Vtocом:

 SYS1.VTOCIX.V10RES                               75  100   1  3390

вопрос, что не так? Почему Vtoc не выглядит так:

SYS1.VTOCIX.V10RES                               75  100   1  3390
SYS1.VVDS.V910RES                                10    ?   1  3390

ранее я пробовала восстановить диски с aws без инициализации под ОС, только после п. 3, тогда содержимое диска не показывал.

подскажите пожалуйста, что не так делаю?

Добавлено (16.05.2016, 16:40)
---------------------------------------------
да, листинг:

                       J E S 2  J O B  L O G  --  S Y S T E M  M V S T  --  N O
                                                                               
14.18.35 JOB00342 ---- MONDAY,    16 MAY 2016 ----                             
14.18.35 JOB00342  IRR010I  USERID IBMUSER  IS ASSIGNED TO THIS JOB.           
14.18.35 JOB00342  ICH70001I IBMUSER  LAST ACCESS AT 14:15:59 ON MONDAY, MAY 16,
14.18.35 JOB00342  $HASP373 IBMUSERA STARTED - INIT 1    - CLASS A - SYS MVST  
14.18.35 JOB00342  IEF403I IBMUSERA - STARTED - TIME=14.18.35                  
14.18.35 JOB00342  ICK091I   0200 NED=  3390.00C.HRC.ZZ.000000000001           
14.18.35 JOB00342 *02 ICK003D REPLY U TO ALTER VOLUME 0200 CONTENTS, ELSE T    
14.19.00 JOB00342  R 02,U                                                      
14.19.00 JOB00342  ICK061I   0200 VTOC INDEX CREATION SUCCESSFUL: VOLUME IS IN I
14.19.00 JOB00342  -IBMUSERA INITA             RC=  0008                       
14.19.00 JOB00342  IEF404I IBMUSERA - ENDED - TIME=14.19.00                    
14.19.00 JOB00342  $HASP395 IBMUSERA ENDED                                     
------ JES2 JOB STATISTICS ------                                              
  16 MAY 2016 JOB EXECUTION DATE                                               
            8 CARDS READ             
        1 //IBMUSERA JOBIBMUSER,'',CLASS=A,MSGCLASS=A,NOTIFY=IBMUSER, 
          //           MSGLEVEL=(1,1)                                 

        2 //INITA EXECPGM=ICKDSF,REGION=2048K                         

        3 //SYSPRINT DDSYSOUT=*    
                                   
        4 //SYSIN DD*                                                 

ICH70001I IBMUSER  LAST ACCESS AT 14:15:59 ON MONDAY, MAY 16,2016     
IEF236I ALLOC. FOR IBMUSERAINITA                                      

IEF237I JES2 ALLOCATED TOSYSPRINT                                     

IEF237I JES2 ALLOCATED TOSYSIN                                        

IEF142I IBMUSERA INITA - STEP WAS EXECUTED - COND CODE0008            
IEF285I  IBMUSER.IBMUSERA.JOB00342.D0000102.?        
SYSOUT
          

IEF285I  IBMUSER.IBMUSERA.JOB00342.D0000101.?        
SYSIN
           

IEF373I STEP/INITA   /START2016137.1418                                       

IEF374I STEP/INITA   /STOP  2016137.1419CPU    0MIN 00.39SEC SRB    0MIN 00.05S
IEF375I  JOB/IBMUSERA/START2016137.1418                                       

IEF376I  JOB/IBMUSERA/STOP  2016137.1419 CPU   0MIN 00.39SEC SRB    0MIN 00.05S

 
GregoryДата: Вт, 17.05.2016, 09:44 | Сообщение # 60
Генерал-майор
Группа: Доверенные
Сообщений: 482
Репутация: 22
Статус: Offline
Добрый день.

Цитата mentor ()
-IBMUSERA INITA RC= 0008
а почему код завершения 8? мне кажется, у Вас не весь вывод задания приведен, так как должно быть какое-то сообщение об ошибке
Цитата mentor ()
INIT UNITADDRESS(0200) DEVTYPE(3390) NORCLM MAP NOVAL - VFY(910RES) VOLID(910RES) VTOC(0,3,150) INDEX(10,3,75) -
IPLDD(IN) BOOTSTRAP
указан IPLDD(IN), а я не вижу в задании //IN DD DSN=SYS1.SAMPLIB(IEAIPL00),DISP=SHR
Вы вывод как-то частями копировали?
 
Поиск: