|
Куча вопросов от новичка.
|
|
| smoker | Дата: Чт, 28.04.2022, 12:03 | Сообщение # 151 |
|
Лейтенант
Группа: Проверенные
Сообщений: 46
Статус: Offline
| Цитата Shigure (  ) А в Rexx можно вывести символ точно в указанную позицию на экране?
Экран дисплея представляет собой 24 строки по 80 символов.
Стерли экран, SAY куда надо (10 пустых SAY и вывод уже на 11 строке... и т.д.). И в цикл....
Сообщение отредактировал smoker - Чт, 28.04.2022, 12:04 |
| |
| |
| akost | Дата: Чт, 28.04.2022, 13:12 | Сообщение # 152 |
 Admin
Группа: Администраторы
Сообщений: 619
Статус: Offline
| Цитата smoker ( ) Стерли экран, SAY куда надо (10 пустых SAY и вывод уже на 11 строке... и т.д.). И в цикл....
а можно еще DMS/CMS раскопать и поля нарисовать, и туда рексом значения закидывать.
|
| |
| |
| Bibizyan | Дата: Пт, 29.04.2022, 00:20 | Сообщение # 153 |
 Подполковник
Группа: Проверенные
Сообщений: 131
Статус: Offline
| Из rexx-а вызывается ассемблер, в котором всё прекрасно делается! А есть готовый модуль от Лейбовича - называется XFS, - который позволяет в rexx-е очень легко создавать экраны, с кучей переменных, с полями ввода-вывода и т.п.
|
| |
| |
| akost | Дата: Пт, 29.04.2022, 10:53 | Сообщение # 154 |
|
Admin
Группа: Администраторы
Сообщений: 619
Статус: Offline
| Цитата Bibizyan ( ) Из rexx-а вызывается ассемблер, в котором всё прекрасно делается!
Работает до сих пор, уже две архитектуры пережил, XA и 390, сейчас в zVM существует.
|
| |
| |
| Bibizyan | Дата: Вс, 01.05.2022, 00:09 | Сообщение # 155 |
|
Подполковник
Группа: Проверенные
Сообщений: 131
Статус: Offline
| мы в своё время получили от лейбовича модуль xfs с документацией, и у нас на него куча всего завязано. и после нескольких траблов от новых версий начали опасаться, что может перестать работать. и тут выяснилось, что у самого лейбовича сорсы не сохранились... сейчас потихоньку сами переписываем, на ассемблере. и таки самая большая проблема не ввод-вывод 3270-буфера, а нудный парсинг.
|
| |
| |
| Shigure | Дата: Вс, 01.05.2022, 05:45 | Сообщение # 156 |
 Сержант
Группа: Проверенные
Сообщений: 22
Статус: Offline
| А Лейбович это какой-то известный разработчик времен союза ? Где можно почитать / скачать про этот модуль?
|
| |
| |
| Gregory | Дата: Вс, 01.05.2022, 20:32 | Сообщение # 157 |
 Генерал-майор
Группа: Доверенные
Сообщений: 482
Статус: Offline
| Может быть, Вам XEDIT подойдет для организации диалога? Экрану можно придать практически любой желаемый вид. Как пример, можно посмотреть на FILELIST (не FLIST! FLIST - это программа), RDRLIST которые реализованы в виде процедуры + XEDIT.
Еще можно использовать замечательную программу PIPE (stages fullscr, fullscrq, fullscrs, overstr ...) https://u.to/P0sjHA
документ zVM, но я не думаю что там что-то сильно поменялось
P.S. В остром приступе ностальгии я тут набросал примитивный пример диалога с XEDIT 
PASSWORD XEDIT
Код /* REXX */
width = 80
hight = 24
'SET CTLCHAR % ESCAPE'
'SET CTLCHAR $ NOPROTECT TURQ INVISIBLE'
'SET CTLCHAR [ PROTECT YELLOW HIGH'
'SET CTLCHAR ! PROTECT TURQ HIGH'
'SET RESERVED 1 NOH %!'center('super-duper tool', width-1)
'SET MSGLINE OFF'
'SET CMDLINE OFF'
do i = 2 to hight
if i = hight%2
then 'SET RESERVED 'i' NOH %[ Enter password %$ %!'
else 'SET RESERVED 'i' NOH %!' copies(' ', width-1)
end i
'CURSOR SCREEN 12 20'
'READ NOCHANGE TAG'
do queued()
parse pull line column string
end
say string
'QUIT'
return
Код /* REXX */
'XEDIT DUMMY DUMMY A (PROFILE PASSWORD'
exit
выполнение (экран прикреплен)
Код password
19 qqq
Maint at ZVM; T=0.01/0.01 23:50:17
Сообщение отредактировал Gregory - Вс, 01.05.2022, 22:53 |
| |
| |
| Bibizyan | Дата: Пн, 02.05.2022, 00:51 | Сообщение # 158 |
|
Подполковник
Группа: Проверенные
Сообщений: 131
Статус: Offline
| Цитата Shigure ( ) А Лейбович это какой-то известный разработчик времен союза ? Где можно почитать / скачать про этот модуль?
а работал он как минимум последние лет 40 своей деятельности в израильской полиции...
документация базовая у меня есть, но она на иврите. т.е. надо её сперва на русский перевести. тут два варианта - или по быстрому, через гугл-транслейт, или найти время на перевод. много, конечно, не надо - но всё же.
|
| |
| |
| echess | Дата: Пн, 13.02.2023, 08:37 | Сообщение # 159 |
 Рядовой
Группа: Пользователи
Сообщений: 1
Статус: Offline
| akost, Добрый день.
Уважаемый Akost, столкнулся с проблемой, что не знаю как отформатировать диск под БОСом.
БОС стоит внутри VM/ESA, которая работает под минским эмулятором
очень, нужно так как закончилось место на дисках на которых стоит инесс и требуется нарезать дополнительное место
help!!!!!
|
| |
| |
| smoker | Дата: Ср, 15.02.2023, 15:13 | Сообщение # 160 |
|
Лейтенант
Группа: Проверенные
Сообщений: 46
Статус: Offline
| Цитата echess ( ) столкнулся с проблемой, что не знаю как отформатировать диск под БОСом.БОС стоит внутри VM/ESA, которая работает под минским эмулятором
очень, нужно так как закончилось место на дисках на которых стоит инесс и требуется нарезать дополнительное место
Добрый день!
Вы спрашиваете о том, как проинициализировать новый том?
В БОС есть команда Процедурных средств работы : S INTDK,A=<адрес тома>,NM=<имя тома>
В VM/ESA проинициализировать диск БОС можно программой ICKDSF
А какие версии VM, БОС? Какой тип тома?
Сообщение отредактировал smoker - Ср, 15.02.2023, 15:31 |
| |
| |
| Gregory | Дата: Чт, 16.02.2023, 10:00 | Сообщение # 161 |
|
Генерал-майор
Группа: Доверенные
Сообщений: 482
Статус: Offline
| Цитата стоит внутри VM/ESA, которая работает под минским эмулятором
Здравствуте. А про "минский эмулятор" можно подробнее? Хоть название скажите. При инициализацию диска Вам уже Smoker ответил.
|
| |
| |
