Пт, 01.07.2022, 08:39
Приветствую Вас Гость | RSS
Главная | Куча вопросов от новичка. - Страница 11 - Форум | Регистрация | Вход
Форма входа
Логин:
Пароль:
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 11 из 11
  • «
  • 1
  • 2
  • 9
  • 10
  • 11
Форум » Технические форумы » Hercules » Куча вопросов от новичка.
Куча вопросов от новичка.
smokerДата: Чт, 28.04.2022, 12:03 | Сообщение # 151
Лейтенант
Группа: Проверенные
Сообщений: 43
Репутация: 6
Статус: Offline
Цитата Shigure ()
А в Rexx можно вывести символ точно в указанную позицию на экране?

Экран дисплея представляет собой 24 строки по 80 символов.

Стерли экран, SAY куда надо (10 пустых SAY и вывод уже на 11 строке... и т.д.). И в цикл....


Сообщение отредактировал smoker - Чт, 28.04.2022, 12:04
 
akostДата: Чт, 28.04.2022, 13:12 | Сообщение # 152
Admin
Группа: Администраторы
Сообщений: 606
Репутация: 5
Статус: Offline
Цитата smoker ()
Стерли экран, SAY куда надо (10 пустых SAY и вывод уже на 11 строке... и т.д.). И в цикл....
потому и спрашивал, надо ли на экране чего сохранять))

а можно еще DMS/CMS раскопать и поля нарисовать, и туда рексом значения закидывать.
 
BibizyanДата: Пт, 29.04.2022, 00:20 | Сообщение # 153
Подполковник
Группа: Проверенные
Сообщений: 120
Репутация: 0
Статус: Offline
Из rexx-а вызывается ассемблер, в котором всё прекрасно делается! А есть готовый модуль от Лейбовича - называется XFS, - который позволяет в rexx-е очень легко создавать экраны, с кучей переменных, с полями ввода-вывода и т.п.
 
akostДата: Пт, 29.04.2022, 10:53 | Сообщение # 154
Admin
Группа: Администраторы
Сообщений: 606
Репутация: 5
Статус: Offline
Цитата Bibizyan ()
Из rexx-а вызывается ассемблер, в котором всё прекрасно делается!
Это да. Я из рекса печатал на матричный дисплейный принтер. Это, считай, тот же терминал. Склепал небольшой модулек на ассемблере для выполнения задачи вывода, типа упомянутого XFS, и на рексе делал всю прикладную логику обработки строк и наборов данных, а для вывода сформированной и обработанной строки на устройство вызывал его.
Работает до сих пор, уже две архитектуры пережил, XA и 390, сейчас в zVM существует.
 
BibizyanДата: Вс, 01.05.2022, 00:09 | Сообщение # 155
Подполковник
Группа: Проверенные
Сообщений: 120
Репутация: 0
Статус: Offline
мы в своё время получили от лейбовича модуль xfs с документацией, и у нас на него куча всего завязано. и после нескольких траблов от новых версий начали опасаться, что может перестать работать. и тут выяснилось, что у самого лейбовича сорсы не сохранились... сейчас потихоньку сами переписываем, на ассемблере. и таки самая большая проблема не ввод-вывод 3270-буфера, а нудный парсинг.
 
ShigureДата: Вс, 01.05.2022, 05:45 | Сообщение # 156
Сержант
Группа: Проверенные
Сообщений: 22
Репутация: 0
Статус: Offline
А Лейбович это какой-то известный разработчик времен союза ? Где можно почитать / скачать про этот модуль?
 
GregoryДата: Вс, 01.05.2022, 20:32 | Сообщение # 157
Генерал-майор
Группа: Доверенные
Сообщений: 449
Репутация: 18
Статус: Offline
Может быть, Вам XEDIT подойдет для организации диалога? Экрану можно придать практически любой желаемый вид. Как пример, можно посмотреть на FILELIST (не FLIST! FLIST - это программа), RDRLIST которые реализованы в виде процедуры + XEDIT.
Еще можно использовать замечательную программу PIPE (stages fullscr, fullscrq, fullscrs, overstr ...) https://u.to/P0sjHA
документ zVM, но я не думаю что там что-то сильно поменялось

P.S. В остром приступе ностальгии я тут набросал примитивный пример диалога с XEDIT smile
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
                                                   PASSWORD EXEC:

Код
/* REXX */                             
'XEDIT DUMMY DUMMY A (PROFILE PASSWORD'
exit

выполнение (экран прикреплен)
Код
password
19  qqq                           
Maint at ZVM; T=0.01/0.01 23:50:17
Прикрепления: password.htm(6.8 Kb)


Сообщение отредактировал Gregory - Вс, 01.05.2022, 22:53
 
BibizyanДата: Пн, 02.05.2022, 00:51 | Сообщение # 158
Подполковник
Группа: Проверенные
Сообщений: 120
Репутация: 0
Статус: Offline
Цитата Shigure ()
А Лейбович это какой-то известный разработчик времен союза ? Где можно почитать / скачать про этот модуль?
лейбович - очень таки известный в vm-сообществе разработчик! учитывая, что он уже давно на пенсии - то можно сказать, что ещё времён союза. модуль таки ещё в те времена написан. не удивлюсь, если даже до моего рождения...
а работал он как минимум последние лет 40 своей деятельности в израильской полиции...
документация базовая у меня есть, но она на иврите. т.е. надо её сперва на русский перевести. тут два варианта - или по быстрому, через гугл-транслейт, или найти время на перевод. много, конечно, не надо - но всё же.
 
Форум » Технические форумы » Hercules » Куча вопросов от новичка.
  • Страница 11 из 11
  • «
  • 1
  • 2
  • 9
  • 10
  • 11
Поиск: