Кирилизация zOS

Дата: Вт, 16.12.2014, 09:44 | Сообщение # 31

Лейтенант

Группа: Проверенные

Сообщений: 66

Репутация: 5

Статус: Offline

В результате моих многолетних ексерсизов в кирилизации OS/390 - z/OS пришел к следующему решению .

WTO/WTOR
NAME IEECVET1 IEECVFTX

STOP/MODIFY
NAME IEE0403D IEE5403D

Consoles
NAME CNZINIT CNZQ1LOG
NAME CNZINIT CNZS1TRC
Возможно правка одной из этих двух секций лишняя, но заниматься новыми исследованиями лень.
Консоль была кардинально переписана, для правильной поддержки sysplex и по-этому все старые правки не работают, модулей либо нет, либо они заменены пустышками для отлова древних программ, работающих с однобайтовым идентификатором консоли.

SEND
NAME IKTIOM02 IKT32OTR
Возможно IKT32OTR (редактирование TPUT) также есть еще в некоторых VTAM-модулях, но в связи с отсутствием VTAM-устройств никак себя не прроявляет

Поддержка советских принтеров
NAME HASJES20 HASPPRPU B_TEXT24
Удивительно живучие устройства оказались (7040), до сих пор кое-где работают

Еще создаются таблицы типа TCPIP.STANDARD.TCPXLBIN с помощью CONVXLAT для любителей олдскул перекодировки в telnet и ftp

ICEAM1-ICEAM4 - настраиваются с помощью русской локали, также как и ftp

Таблиц для ZAP-ания не привожу сознательно, так как великий Шура-Бура М.Р., придумавший таблицу ДКОИ, заложил такую мину под советско-росийскую кибернетику, что она до сих пор икается всем причастным.
В общем случае, где нет груза старых приложений, надо иметь ввиду IBM-1025, иначе ориентироваться на ДКОИ.

Gregory

Дата: Вт, 16.12.2014, 10:41 | Сообщение # 32

Генерал-майор

Группа: Доверенные

Сообщений: 482

Репутация: 22

Статус: Offline

Сортировка (ICEAM1-ICEAM4)
В современном состоянии

Цитата AKonev (

)

настраиваются с помощью русской локали

Код

//SORT    EXEC PGM=SORT
//SYSIN    DD  *
   SORT FIELDS=(1,20,CH,A)
//DFSPARM  DD  *
   [b]OPTION LOCALE=RU_RU
//SYSOUT   DD  SYSOUT=*
//SORTOUT  DD  SYSOUT=*
//SORTIN   DD  *
СОБАКИН
ЁЖИКОВ
...

или

Код

//SORT    EXEC PGM=SORT,PARM='LOCALE=RU_RU'
//SYSOUT   DD  SYSOUT=*
//SORTOUT  DD  SYSOUT=*
//SYSIN    DD  *
   SORT FIELDS=(1,20,CH,A)
//SORTIN   DD  *

для антикварных систем - user exit E61

Цитата

В общем случае, где нет груза старых приложений, надо иметь ввиду IBM-1025, иначе ориентироваться на ДКОИ.

Я бы предложил почаще смотреть в сторону UTF-8

Цитата

так как великий Шура-Бура М.Р., придумавший таблицу ДКОИ, заложил такую мину
под советско-росийскую кибернетику, что она до сих пор икается всем
причастным.

зато некоторые десятилетиями подкармливаются лечением этой икоты)

Сообщение отредактировал Gregory - Ср, 17.12.2014, 00:31

AKonev

Дата: Вт, 16.12.2014, 11:12 | Сообщение # 33

Лейтенант

Группа: Проверенные

Сообщений: 66

Репутация: 5

Статус: Offline

Цитата Gregory (

)

Я бы предложил почаще смотреть в сторону UTF-8

В UTF-8 прозапать прошитую в модуле обработки MODIFY однобайтовую таблицу забоя не английских символов - это как?
И как потом введенную команду будет исполнять пользовательская программа, сравнивая некий введенный текст со своим прошитым в теле программы?

Цитата Gregory (

)

зато некоторые десятилетиями подкармливаются лечением этой икоты)

За это, да ещё и деньги брать... cry

Только в качестве бесплатного подарка к контракту tongue

Gregory

Дата: Вт, 16.12.2014, 14:52 | Сообщение # 34

Генерал-майор

Группа: Доверенные

Сообщений: 482

Репутация: 22

Статус: Offline

Цитата AKonev (

)

В общем случае, где нет груза старых приложений, надо иметь ввиду IBM-1025, иначе ориентироваться на ДКОИ.

Цитата

В UTF-8 прозапать прошитую в модуле обработки MODIFY однобайтовую таблицу забоя не английских символов - это как?
И как потом введенную команду будет исполнять пользовательская
программа, сравнивая некий введенный текст со своим прошитым в теле
программы?

конечно же, имеются в виду новые приложения, разрабатываемые сегодня

Цитата

За это, да ещё и деньги брать...

так берут же biggrin

Gregory

Дата: Пн, 29.12.2014, 10:17 | Сообщение # 35

Генерал-майор

Группа: Доверенные

Сообщений: 482

Репутация: 22

Статус: Offline

Цитата AKonev (

)

NAME IEECVET1 IEECVFTX
NAME CNZINIT CNZQ1LOG
NAME CNZINIT CNZS1TRC

Спасибо, Александр! Проверено в 1.13, все замечательно:

Код

WTO      CSECT
           LR   12,15
           USING WTO,12
           WTO  'QWERTYUIOP'
           WTO  'qwertyuiop'
           WTO  'ЙЦУКЕНГШЩЗХЪ'
           WTO  'йцукенгшщзхъ'
           WTL  'ФЫВАПРОЛДЖЭ'
           WTL  'фывапролджэ'
           BR   14
           END

на консоли
      - 19.43.56 JOB02363  IEF403I IBMUSERA - STARTED - TIME=19.43.56
      - 19.43.58 JOB02363  +QWERTYUIOP
      - 19.43.58 JOB02363  +qwertyuiop
      - 19.43.58 JOB02363  +ЙЦУКЕНГШЩЗХЪ
      - 19.43.58 JOB02363  +йцукенгшщзхъ
      - 19.43.59 JOB02363  IEF404I IBMUSERA - ENDED - TIME=19.43.59

в log
   N 4000000 CPAC     14361 19:43:56.56 JOB02363 00000090  $HASP373 IBMUSERA START
   N 0000000 CPAC     14361 19:43:56.62 JOB02363 00000090  IEF403I IBMUSERA - STAR
   N FFFFFFF CPAC     14361 19:43:58.84 JOB02363 00000090  +QWERTYUIOP
   N FFFFFFF CPAC     14361 19:43:58.85 JOB02363 00000090  +qwertyuiop
   N FFFFFFF CPAC     14361 19:43:58.87 JOB02363 00000090  +ЙЦУКЕНГШЩЗХЪ
   N FFFFFFF CPAC     14361 19:43:58.89 JOB02363 00000090  +йцукенгшщзхъ
   X ФЫВАПРОЛДЖЭ
   X фывапролджэ

Сообщение отредактировал Gregory - Пн, 29.12.2014, 10:18