Пт, 07.08.2026, 02:53
Приветствую Вас Гость | RSS
Главная | Перенос os/390 на hercules - Страница 8 - Форум | Регистрация | Вход
Форма входа
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Перенос os/390 на hercules
mentorДата: Сб, 25.06.2016, 18:20 | Сообщение # 106
Лейтенант
Группа: Проверенные
Сообщений: 138
Репутация: 1
Статус: Offline
Gregory, спасибо за разъяснение. Я пробовала подавать на вход так же, но как sl.
Аналогично, могу попробовать вновь лишь в понедельник.
Все же, должен быть способ, из aws файла получить полноценный аналог ленты под геркулес.
Видела программу, тоже на ассемблере, который якобы aws tape записывает на реальный tape.
Но я не стала пробовать, так как aws файл не могла заставить считаться.
нет ли ещё способа, аналогично восстановлению диска из aws под геркулес?
С дисками тоже хитрость обнаружилась. После инициализации командой геркулес, необходимо сначала инициализировать под ОС VTOC в оффлайн icksdf, затем только восстананавливать опят под "чистый" геркулес, командой restore.
Во всяком случае я так приноровилась и диски выглядят, как полноценные.


Сообщение отредактировал mentor - Сб, 25.06.2016, 18:21
 
GregoryДата: Пн, 27.06.2016, 09:10 | Сообщение # 107
Генерал-майор
Группа: Доверенные
Сообщений: 484
Репутация: 22
Статус: Offline
Цитата mentor ()
Все же, должен быть способ, из aws файла получить полноценный аналог ленты под геркулес.
Так веь файл AWS и есть "полноценный аналог ленты под Hercules"...
Цитата mentor ()
нет ли ещё способа
Так я же еще в посте #86 предлагал программу VTT2DISK (файл 533 CBT).
Цитата mentor ()
С дисками тоже хитрость обнаружилась. После инициализации командой геркулес, необходимо сначала инициализировать под ОС VTOC в оффлайн icksdf,
так это в документауии написано - после DASDINIT том для использования в z/OS нужно форматировать IBCDASDI (автономная) или ICKDSF. Кроме z/OS существуют и другие операционные системы (zVSE, zVM, ...) и формат используемых томов имеет некоторые особенности, так что форматировать том нужно соотвествующей программой...
 
mentorДата: Пн, 27.06.2016, 09:33 | Сообщение # 108
Лейтенант
Группа: Проверенные
Сообщений: 138
Репутация: 1
Статус: Offline
добрый день, удачного начала недели!

FTT2Tape, в нашем случае, программа на ассемблере? Где можно взять исходник?
хотелось бы, все таки, получить полноценный эмулятор ленты, чтоб можно было использовать из пп, не изменяя настройки, с (SL,...)
 
GregoryДата: Пн, 27.06.2016, 10:20 | Сообщение # 109
Генерал-майор
Группа: Доверенные
Сообщений: 484
Репутация: 22
Статус: Offline
Цитата mentor ()
Где можно взять исходник?
файл 533 CBT

Цитата mentor ()
отелось бы, все таки, получить полноценный эмулятор ленты, чтоб можно было использовать из пп, не изменяя настройки, с (SL,...)
не понимаю, в чем проблема.
 
mentorДата: Пн, 27.06.2016, 12:16 | Сообщение # 110
Лейтенант
Группа: Проверенные
Сообщений: 138
Репутация: 1
Статус: Offline
Свежий прогон. в ПП написала  (NL,1):

Добавлено (27.06.2016, 12:16)
---------------------------------------------
Gregory, увы, ни  (1,nl), ни (2,nl) не берет :-(

Прикрепления: 1995451.png (33.4 Kb)
 
GregoryДата: Пн, 27.06.2016, 13:31 | Сообщение # 111
Генерал-майор
Группа: Доверенные
Сообщений: 484
Репутация: 22
Статус: Offline
Цитата mentor ()
Gregory, увы, ни (1,nl), ни (2,nl) не берет :-(
как лента в задании описана? из сообщений видно, что лента перематывается и разгружается, z/OS ее отвергает: IEF503I INCORRECT VOLUME LABEL.
В ответ на "снимите/поставьте"
D 281
M 281,02131C...
не пробовали ленту в "готово" перевести (devinit 281)?

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


Сообщение отредактировал Gregory - Пн, 27.06.2016, 13:32
 
mentorДата: Пн, 27.06.2016, 16:08 | Сообщение # 112
Лейтенант
Группа: Проверенные
Сообщений: 138
Репутация: 1
Статус: Offline
я сейчас пытаюсь с нее снять справку:

//SPRAV PROC U=3480,V=AAAAAA                        
//ML  EXEC PGM=SPRAVNL                              
//SNAP DD SYSOUT=*                                  
//PRINT DD SYSOUT=*                                 
//EXCP DD UNIT=&U,VOL=SER=&V,DISP=OLD,LABEL=(2,NL)  
//    

висит:

Добавлено (27.06.2016, 16:08)
---------------------------------------------
Gregory, да, я пробовала отсоединить и вновь подсоединить. или монтировать. И не монтируется, и справка не снимается, беда совсем :-)

Прикрепления: 9532329.png (24.1 Kb)
 
mentorДата: Вт, 28.06.2016, 11:19 | Сообщение # 113
Лейтенант
Группа: Проверенные
Сообщений: 138
Репутация: 1
Статус: Offline
Задание на восстановление:

//K020201A JOB KP020120,                            
//   NOTIFY=K020201,MSGLEVEL=(2,0),MSGCLASS=X,      
//   TIME=1440,REGION=8192K,RESTART=(*)             
//JOBLIB DD DSN=K020000.GVC.PGM,DISP=SHR            
/*JOBPARM P=PROC00                                  
//J0120VS1  EXEC P012010F,TAPE=02131C               
//                                                  

процедура:

//P0120VS1 PROC PREF=K020000.,OUT=X,U=SYSDA,V=GVC160,TAPE=02131D
//************************************************************ 
//*  ВОССТАН. ФАЙЛОВ F0213... С КАРТРИДЖА НА М/Д GVC160      * 
//* TAPE - ИМЯ КАРТРИДЖА, С КОТОРОГО ДЕЛАЕТСЯ СБРОС          * 
//************************************************************ 
//ST01  EXEC PGM=IEFBR14                                       
//F1     DD DSN=F021310F,UNIT=&U,VOL=SER=&V,DISP=(OLD,DELETE)  
//F3     DD DSN=F021301D,UNIT=&U,VOL=SER=&V,DISP=(OLD,DELETE)  
//ST02  EXEC PGM=ADRDSSU,REGION=0K,COND=(0,NE)                 
//SYSPRINT DD  SYSOUT=&OUT                                     
//DASD     DD  DISP=OLD,UNIT=&U,VOL=SER=&V                     
//TAPE     DD  DSN=G0213130,                                   
//             DISP=(OLD,KEEP),                                
//             VOL=SER=&TAPE,     
далее, вместо:                             
//             LABEL=(1,SL),DCB=(BLKSIZE=32000),UNIT=3480     
подсунула: 
//             LABEL=(2,NL),DCB=(BLKSIZE=32000),UNIT=3480

//SYSIN    DD  DISP=SHR,DSN=&PREF.GVC.PARM(R021310F)         

со скрипом, но процесс пошел, вроде:

  

далее, я намудрила с swap, но благодаря DEVINIT, о которой я узнала вчера от  Вас,

IGF513I  DEVICE .284 INVALID FOR SWAP - UNIT REFERENCE INVALID 
IEF196I IGF509I  SWAP 0284 - I/O ERROR                         
IGF509I  SWAP 0284 - I/O ERROR                                 
IEF196I IGF509D  REPLY DEVICE, OR 'NO'                         
38 IGF509D  REPLY DEVICE, OR 'NO'                              
R 38,284                                                       
IEE600I REPLY TO 38 IS;284                                     
IEF196I IGF502E  PROCEED WITH SWAP OF 0284 TO 0284             
IGF502E  PROCEED WITH SWAP OF 0284 TO 0284                     
IEF196I IGF505I  SWAP FROM 0284 TO 0284 COMPLETE               
IGF505I  SWAP FROM 0284 TO 0284 COMPLETE                       
IEC502E K 0284,02131C,NL,K020201A,ST02,G0213130                
-J0120VS1 ST02     ADRDSSU     04   4490    .06    .00   23.3  
IEF404I K020201A - ENDED - TIME=07.13.33                       

файлы восстановлены, проверены.

осталось переварить, работать над ошибками и искать способ, получения aws файл с SL меткой, если это возможно.
Gregory, спасибо Вам за поддержку и за дельные рекомендации.
Прикрепления: 7953493.png (24.3 Kb)
 
mentorДата: Вт, 28.06.2016, 14:31 | Сообщение # 114
Лейтенант
Группа: Проверенные
Сообщений: 138
Репутация: 1
Статус: Offline


а от чего идут эти сообщения про Swap?:
Прикрепления: 8175481.png (6.0 Kb)


Сообщение отредактировал mentor - Вт, 28.06.2016, 15:50
 
GregoryДата: Вт, 28.06.2016, 15:51 | Сообщение # 115
Генерал-майор
Группа: Доверенные
Сообщений: 484
Репутация: 22
Статус: Offline
Добрый день.

А почему (2,NL), а не (1,NL)? по моему разумению на ленте один файл (записи данных и tapemark). если так то (2,NL) вызывает перемотку ленты в конец и ошибку ввода-вывода, а ошибка ввода-вывода вызывает swap...
 
mentorДата: Чт, 30.06.2016, 10:20 | Сообщение # 116
Лейтенант
Группа: Проверенные
Сообщений: 138
Репутация: 1
Статус: Offline
Gregory, видимо у меня что-то не пошло тогда.
Вы правы, с (1,NL) отработала без ошибки.
Но, если с NL на вход подать не тот картридж, программа не распознает ошибку?


Сообщение отредактировал mentor - Чт, 30.06.2016, 13:51
 
mentorДата: Чт, 30.06.2016, 15:37 | Сообщение # 117
Лейтенант
Группа: Проверенные
Сообщений: 138
Репутация: 1
Статус: Offline
кстати, по Вашей ссылке скачала файл 533,  перекачала на МФ в binary,  но распаковать не удается:
                                    
 receive indsn('K010101.FILE533.XMI')

Прикрепления: 5944181.png (12.7 Kb)
 
GregoryДата: Пн, 04.07.2016, 18:18 | Сообщение # 118
Генерал-майор
Группа: Доверенные
Сообщений: 484
Репутация: 22
Статус: Offline
Цитата mentor ()
Но, если с NL на вход подать не тот картридж, программа не распознает ошибку?
Нет. Различить две ленты без меток нельзя, собственно, для того и придуманы стандартные метки. И именно поэтому z/OS не позволяет установить ленту NL заранее - чтобы минимизировать риск неумышленного уничтожения данных.

Цитата mentor ()
кстати, по Вашей ссылке скачала файл 533, перекачала на МФ в binary, но распаковать не удается:
receive indsn('K010101.FILE533.XMI')
файл нужно передать как binary в последовательный набор данных F 80.


Сообщение отредактировал Gregory - Пн, 04.07.2016, 21:43
 
mentorДата: Пн, 01.08.2016, 08:36 | Сообщение # 119
Лейтенант
Группа: Проверенные
Сообщений: 138
Репутация: 1
Статус: Offline
Gregory,  я так и передавала, в bynary.
Gregory, у меня сеть еще не пошла  в геркулесе. По  инструкции Ижевских коллег,  не получается. Либо я недопонимаю чего-то, либо там написано на "знатока".
через Vtam  работает telnet:
а при старте TCPIP выдает следующее сообщение:
 EZZ4202I OPENEDITION-TCP/IP CONNECTION ESTABLISHED FOR TCPIP  
 EZZ4308I ERROR: CODE=80103332 DURING ACTIVATION OF DEVICE LCS1.
 DIAGNOSTIC CODE: 02
 
mentorДата: Пн, 01.08.2016, 09:03 | Сообщение # 120
Лейтенант
Группа: Проверенные
Сообщений: 138
Репутация: 1
Статус: Offline
Здравствуйте.
мои настройки сети:



IODF:


_ 0800   CTC
_ 0801   CTC
_ 0802   3172
_ 0803   3172

TCPIP PROFILE:

DEVICE  LCS1  LCS      0802 AUTORESTART
LINK    ETH1  ETHERNET  0 LCS1
;
HOME
;   192.168.1.250 ETH1
10.74.1.240   ETH1
PRIMARYINTERFACE  ETH1
GATEWAY
10.74.1.41  = ETH1 1492  0
;   10         =   ETH1   1492    0.255.0.0 0.74.1.41
;   10           = ETH1   1492    0.255.0.0    0.0.0.0
DEFAULTNET
;  192.168.1.1  ETH1 1492     0
10.74.1.41   ETH1 1492     0
START LCS1

Hercules config:

0802-0803   LCS  -n  10.74.1.41 10.74.1.240



C такими параметрами TCPIP стартует без ошибок. Состояние устройств в системе:
0800 CTC  OFFLINE
0801 CTC  OFFLINE
0802 3172 A-BSY
0803 3172 A

Gregory,  Что не так?
Прикрепления: 5693212.png (747.2 Kb) · 0946916.png (432.6 Kb)


Сообщение отредактировал mentor - Ср, 03.08.2016, 12:48
 
Поиск: