Методом, аналогичным uuencode/uudecode через принтер/ридер.igorek2003 писал(а): ↑30.03.2023,16:56 Вопрос к сообществу (не совсем по СВМ, но тут уже пошла сборка): кто чем пользуется для ввода-вывода файлов из-в TKS? Я попробовал прикрутить ind$file от MVS. Он как бы ставится, но из-зf хитрого blksize=19069 в отдельный каталог (в I.LOAD - ошибка) - соответственно не видится TSO. Как это решить? И будет ли он работать?
СВМ ЕС
-
- Newbie
- Сообщения: 1
- Зарегистрирован: 09.04.2023,23:53
- Откуда: Санкт-Ленинград
СВМ ЕС
СВМ ЕС
еще один способ - это обмен данными через моделируемую ленту (AWS).
кстати, ind$file c CBTTAPE аварийно завершается с 0C4, я попробовал
кстати, ind$file c CBTTAPE аварийно завершается с 0C4, я попробовал
-
- Newbie
- Сообщения: 23
- Зарегистрирован: 24.08.2013,14:33
СВМ ЕС
У меня такое ощущение, что почти все вылетает по 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
- 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
СВМ ЕС
RECV370 из cbttape.org файл 571 (CBT571.zip) и сами собрали? или взяли SYSCPK отсюда?
вообще-то это написано и проверялось в MVS 3.8, что совсем не SVS 7.2, поэтому 0C4 я бы сказал, закономерен) Однако, поскольку исходные тексты XMIT370/RECV370 доступны в CBT571.zip, то это можно попробовать починить, только это займет некоторое время.
И, наверное, имеет смысл включить том SYSCPK в сборку OC7, там много интересного) до компиляторов у меня пока руки не дошли, есть же еще материалы из телеграм-канала.
вообще-то это написано и проверялось в MVS 3.8, что совсем не SVS 7.2, поэтому 0C4 я бы сказал, закономерен) Однако, поскольку исходные тексты XMIT370/RECV370 доступны в CBT571.zip, то это можно попробовать починить, только это займет некоторое время.
И, наверное, имеет смысл включить том SYSCPK в сборку OC7, там много интересного) до компиляторов у меня пока руки не дошли, есть же еще материалы из телеграм-канала.
-
- Newbie
- Сообщения: 23
- Зарегистрирован: 24.08.2013,14:33
СВМ ЕС
Собирал с обоих истоников. В конце с кодом 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)
p.s. Я amodgen и иже с ними брал с мвс. Видимо в этом моя ошибка (vol MVSDLB)
СВМ ЕС
Я считаю, что проблема с 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
- 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
СВМ ЕС
кстати, для ностальгирующих) недавно мне попался интересный документ - так называемый "отчет Гудмэна"
Я хорошо помню, какой интерес и активные обсуждения в курилках он вызвал у нас в середине 80-ых)
Я хорошо помню, какой интерес и активные обсуждения в курилках он вызвал у нас в середине 80-ых)
-
- Newbie
- Сообщения: 23
- Зарегистрирован: 24.08.2013,14:33
СВМ ЕС
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. Все норм.
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. Все норм.
СВМ ЕС
Я использую OOREXX, еще с тех времен, когда он был не OOREXX, а IBM OREXX :-) Спасибо за информацию, надо будет добавить проверку интерпретатора и выдавать сообщение, это просто - parse version и анализ ответа. Между прочим, во всех описаниях (.htm ) написано:
Требования:
Open Object REXX (OOREXX)
Требования:
Open Object REXX (OOREXX)
-
- Newbie
- Сообщения: 23
- Зарегистрирован: 24.08.2013,14:33
СВМ ЕС
Ктож мануалы то читает .-)
Если серьезно - просто не обратил внимание - каюсь
Если серьезно - просто не обратил внимание - каюсь
СВМ ЕС
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").
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").