СВМ ЕС

Поиск, обмен ссылками, вопросы по устаревшему программному обеспечению.
kondor@epa.ru
Newbie
Сообщения: 1
Зарегистрирован: 09.04.2023,23:53
Откуда: Санкт-Ленинград

СВМ ЕС

Сообщение kondor@epa.ru » 10.04.2023,00:07

igorek2003 писал(а): 30.03.2023,16:56 Вопрос к сообществу (не совсем по СВМ, но тут уже пошла сборка): кто чем пользуется для ввода-вывода файлов из-в TKS? Я попробовал прикрутить ind$file от MVS. Он как бы ставится, но из-зf хитрого blksize=19069 в отдельный каталог (в I.LOAD - ошибка) - соответственно не видится TSO. Как это решить? И будет ли он работать?
Методом, аналогичным uuencode/uudecode через принтер/ридер.

Gregory
Newbie
Сообщения: 55
Зарегистрирован: 02.10.2021,15:16
Откуда: Беларусь, Минск

СВМ ЕС

Сообщение Gregory » 13.04.2023,21:15

еще один способ - это обмен данными через моделируемую ленту (AWS).
кстати, ind$file c CBTTAPE аварийно завершается с 0C4, я попробовал

igorek2003
Newbie
Сообщения: 23
Зарегистрирован: 24.08.2013,14:33

СВМ ЕС

Сообщение igorek2003 » 14.04.2023,12:57

У меня такое ощущение, что почти все вылетает по 0с4... Я тут возился с recv370. Собрал его с горем пополам, а он - вроде и копирует (архив разбирает, иебкопи пишет), но - в конце абенд.
- IEF403I RECV370 STARTED TIME=04.31.22
- IEF450I RECV370 .RECV1 . ABEND S0C4 TIME=04.31.22
- IEF404I RECV370 ENDED RC=ABND TIME=04.31.22
IEF429I INITIATOR 'C' WAITING FOR WORK

Gregory
Newbie
Сообщения: 55
Зарегистрирован: 02.10.2021,15:16
Откуда: Беларусь, Минск

СВМ ЕС

Сообщение Gregory » 14.04.2023,18:59

RECV370 из cbttape.org файл 571 (CBT571.zip) и сами собрали? или взяли SYSCPK отсюда?
вообще-то это написано и проверялось в MVS 3.8, что совсем не SVS 7.2, поэтому 0C4 я бы сказал, закономерен) Однако, поскольку исходные тексты XMIT370/RECV370 доступны в CBT571.zip, то это можно попробовать починить, только это займет некоторое время.
И, наверное, имеет смысл включить том SYSCPK в сборку OC7, там много интересного) до компиляторов у меня пока руки не дошли, есть же еще материалы из телеграм-канала.

igorek2003
Newbie
Сообщения: 23
Зарегистрирован: 24.08.2013,14:33

СВМ ЕС

Сообщение igorek2003 » 14.04.2023,22:05

Собирал с обоих истоников. В конце с кодом 04 (что пишут - допустимо: All steps should get RC=0, with the possible exception of the DELETE step which might get RC=8, and the LINK step which will probably get rc=4.). Основная проблема была с кривым blksize на этапе линкования.
p.s. Я amodgen и иже с ними брал с мвс. Видимо в этом моя ошибка (vol MVSDLB)

Gregory
Newbie
Сообщения: 55
Зарегистрирован: 02.10.2021,15:16
Откуда: Беларусь, Минск

СВМ ЕС

Сообщение Gregory » 05.05.2023,20:01

Я считаю, что проблема с XMIT370/RECV370, IND$FILE c CBTTAPE вызвана отсутствием в TKS SVC99 (DYNALLOC), там есть только IKJDAIR, так что все эти программы нужно достаточно сильно переделывать. Предлагаю альтернативу RECEIVE, базирующуюся на следующих идеях:
- XMIT содержит оригинальный набор данных, выгруженный IEBCOPY и затем преобразованный в формат IDTF;
- если образ IEBCOPY извлечь и превратить в набор данных на ленте AWS, его можно загрузить в TKS или OC PB штатной IEBCOPY.
awslist
последовательность действий такая:
- загружаем интересующий файл из CBTTAPE.org;
- извлекаем файл XMIT из архива ZIP с помощью 7zip (или pkunzip, winrar etc.)
- извлекаем образ IEBCOPY из файла XMIT с помощью DEXMIT;
- записываем файл IEBCOPY на ленту AWS с помощью AWSDUMP (лучше AWSINIT+AWSDUMP, чтобы получить ленту со стандартными метками);
- устанавливаем полученную ленту AWS в целевую систему (attach, vary online, mount);
- восстанавливаем оригинальный набор данных с ленты AWS заданием или процедурой
см. dexmit.htm

Gregory
Newbie
Сообщения: 55
Зарегистрирован: 02.10.2021,15:16
Откуда: Беларусь, Минск

СВМ ЕС

Сообщение Gregory » 05.05.2023,20:32

кстати, для ностальгирующих) недавно мне попался интересный документ - так называемый "отчет Гудмэна"
Я хорошо помню, какой интерес и активные обсуждения в курилках он вызвал у нас в середине 80-ых)

igorek2003
Newbie
Сообщения: 23
Зарегистрирован: 24.08.2013,14:33

СВМ ЕС

Сообщение igorek2003 » 06.05.2023,21:15

Gregory, какой интерпретатор рекса Вы использовали? у меня на федоре Regina выдает ошибку;
igor@igor awsu]$ rexx dexmit.rex FILE415.XMI FILE415.IEBCOPY
021I Data set 'CBT.V505.FILE415.PDS' from SBGOLOB at S0W1
023I Original data set attributes: DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=5600
024I Original data set allocation: SPACE=(5600,(1911,955,12))
022I Unloaded data set attributes: DSORG=PS,RECFM=VS,LRECL=5616,BLKSIZE=5620
158 +++ p = stream(target, 'c', 'query position')
Error 93 running "/home/igor/awsu/dexmit.rex", line 158: [Incorrect call to routine]
Error 93.1: [STREAM command QUERY POSITION must be followed by one of "READ WRITE SYS"; found ""]
Или я что=то не так делаю?
Выходной файл при этом пишется. Но корректен ли он?
P.S
Поставил OOREXX. Все норм.

Gregory
Newbie
Сообщения: 55
Зарегистрирован: 02.10.2021,15:16
Откуда: Беларусь, Минск

СВМ ЕС

Сообщение Gregory » 07.05.2023,18:47

Я использую OOREXX, еще с тех времен, когда он был не OOREXX, а IBM OREXX :-) Спасибо за информацию, надо будет добавить проверку интерпретатора и выдавать сообщение, это просто - parse version и анализ ответа. Между прочим, во всех описаниях (.htm ) написано:
Требования:
Open Object REXX (OOREXX)

igorek2003
Newbie
Сообщения: 23
Зарегистрирован: 24.08.2013,14:33

СВМ ЕС

Сообщение igorek2003 » 07.05.2023,21:17

Ктож мануалы то читает .-)
Если серьезно - просто не обратил внимание - каюсь

Gregory
Newbie
Сообщения: 55
Зарегистрирован: 02.10.2021,15:16
Откуда: Беларусь, Минск

СВМ ЕС

Сообщение Gregory » 06.06.2023,19:43

https://sourceforge.net/projects/aws-xmit-tools/
11 процедур для обработки лент формата AWS и файлов формата XMIT в Windows/Unix.
XMITLIST - полноэкранный просмотр содержимого файла XMIT аналогично XMITMGR, но работает в любых версиях Windоws/Unix, в которых есть OOREXX и THE. Ну и, в отличие от XMITMGR, 100% open source) Проверил на > 200 файлов из CBTTAPE.ORG

Обновил файлы, теперь можно использовать как OOREXX, так и Regina REXX (и вся разница была только в том, что OOREXX допускает команду STREAM "QUERY POSITION", а Regina требует, чтобы был явно указан способ доступа, т.е. "QUERY POSITION READ").

Ответить