СВМ 4.13, Natural 2.17. Когда отправляешь задание на BATCH, в котором надо запустить программу на Natural, оно завершается с ошибкой.
Код
Entering N A T U R A L / C M S Batch ... DMSABN148T Aвapийнoe зaвepшeниe cиcтeмы 23F; aдpec 38CD48 PTS
Зашел в систему под пользователем BATCH, подключил все необходимые минидиски, просто запустил Natural командой NAT217, результат тот же. В оглавлении добавили памяти BATCH, был 1М сделали 2М. На 1М сисадмин сказал что Natural не запустится, а на 2М все пользователи работают без проблем. Результат тот же.
Может дело с настройкой в оглавлении?
Код
USER BATCH BATCH 1M (меняли делали и 2М и 3М) 3M ABCDEG ACCOUNT SYS9 BATCH FILE CON DIR * (добавили) * OPTION REALTIMER ECMODE OPTION EUROPE OFF IUCV ANY IPL PTS PARM BATCH CONSOLE 009 7073 SPOOL 00C 6012 SPOOL 00D 7014 SPOOL 00E 7031 MDISK 195 3380 725 002 WORK02 MR R W M LINK SYSPRG 190 190 RR LINK SYSPRG 19E 19E RR LINK BMAUSERA 192 193 RR (добавили) LINK BMAUSERA 193 194 RR (добавили) LINK BMAUSERA 194 196 RR (добавили) LINK BMAUSERA 197 198 RR (добавили) LINK TCPMAINT 592 222 RR (добавили)
Подскажите, пожалуйста, в чем дело?
Добавлено (22.08.2018, 07:01) --------------------------------------------- Информация из DEBUG
Код
DEBUG DMSDBG728I Cpeдa oтлaдки
CSW 000060B00C000001 PSW 00E0023F4038CD48
Нужен ли DUMP из DEBUG чтобы разобраться?
Добавлено (22.08.2018, 10:54) --------------------------------------------- Об ошибке DМSАВN148Т говорится в документе на странице 197: Е1.00005-04 32 02-ЛУ Ссылка: http://s390soft.ru/load/11-1-0-63 Прочитал про аварийное завершение ПДО, может как то можно проще решить проблему?
Добавлено (22.08.2018, 13:56) --------------------------------------------- Всем спасибо))) Разобрались. Не хватало двух строк: SET LDRTBLS 32 EXEC NUCXTNTS USER
Сообщение отредактировал LionLexXx - Ср, 22.08.2018, 11:55
По поводу Натурала тоже есть вопрос. Можно ли вызывать из программы другую программу из другой библиотеки и при этом не заходить в библиотеку вызываемой программы через LOGON? Просто есть универсальные программы общего назначения и приходится их копировать по тем библиотекам, из которых они вызываются. NATURAL v.2.17, v.2.2 Подскажите, пожалуйста, кто знает?
Сообщение отредактировал LionLexXx - Чт, 23.08.2018, 06:28
[11:41, 8/23/2018] Ларичев Денис: В natparm есть параметр steplib. [12:03, 8/23/2018] Ларичев Денис: Если есть natural security steplib можно прописать там. [12:04, 8/23/2018] Ларичев Денис: Вроде бы даже динамически на сеанс можно назначить.
Боюсь , что в nat217 параметра STEPLIB и user exit USR3025 еще не было... В той версии , по моему только через библиотеку SYSTEM можно было общие программы использовать...
Добрый день. Столкнулся с такой проблемой, при отправлении на ридер Геркулеса задания, содержащее кирилические символы, в СВМ попадают некорректные символы. Кирилические символы перекодируются. И не понятно на каком этапе. Или их перекодируает программа HercRdr, которая в Геркулес отправляет тестовый файл с заданием, либо уже внутри СВМ ридер использует какую-то перекодировочную таблицу. 1. Если дело в HerRdr, то как научить его воспринимать кирилицу? 2. Если дело в СВМ, то какую таблицу использует ридер, где указывается перекодировочная таблица для ридера?
В командной строке CMD выполняем команду hercrdr ХХХ.ХХХ.ХХХ.ХХХ:3505 JOB_UNLOAD07.TXT
В файле содержится следующее задание
Код
ID BATCH /* /JOB OPERATOR 61000630 UNLOAD07 FI * CLEAR CP LINK BMAEXP1C 191 12 MR MW AC 12 A AC 193 B AC 194 E ERASE PARAM_07 TXT A EXECIO 1 DISKW PARAM_07 TXT A 1 F (FINIS STRING ЕО2088 EXECIO 1 DISKW PARAM_07 TXT A 2 F (FINIS STRING КР6016 UNLOAD07 /*
В этих строках: EXECIO 1 DISKW PARAM_07 TXT A 1 F (FINIS STRING ЕО2088 EXECIO 1 DISKW PARAM_07 TXT A 2 F (FINIS STRING КР6016
ЕО2088, КР6016 - "ЕО", "КР" - написаны кирилицей
В СВМ использую MAKLIST, просматриваем отчет о выполнении задания
И тут мы видим, что кирилические символы заменяются
Специалисты по ADABAS, помогите....При резервном копировании был испорчен том с текущим набором данных Ассоциатора. Есть только старый набор...
Есть ли возможность восстановить набор Ассоциатора по данным?? Или еще как нибудь?
добрался до сайта и до дома, спросил своих специалистов. 1) старый ассоциатор - насколько старый? 2) напрямую из данных пересобрать ассоциатор нельзя. можно восстановить всю базу, потом взять новый фрагмент данных и пытаться делать сравнения. но вообще-то нд Ассоциатора - это не вспомогательный кусок, это и есть значимый фрагмент базы, описывающий, в том числе, и ее структуру. 3) готовых утилит восстановления нет. только ручная работа.
Почему такой код на Natural при первом запуске игнорирует назначения для файлов:
Код
DEFINE SUBROUTINE SUBNAME CALL 'CMS' 'FI * CLEAR' CALL 'CMS' 'FI CMWKF01 DISK TEST1 TXT D (RECFM F' CALL 'CMS' 'STATE TEST1 TXT D' #RET(I4) IF #RET = 0 THEN DO READ WORK 1 ONCE #VAR CLOSE WORK 1 DOEND INPUT WINDOW='W-NAME' MAP 'MAPNAME' IF *PF-KEY = 'PF5' THEN DO WRITE WORK 1 #VAR2 CLOSE WORK 1 DOEND RETURN
PERFORM SUBNAME END
Natural 2.2 СВМ EDT/LEV 4.13 Y2000
Добавлено (29.02.2024, 10:27) --------------------------------------------- Почему такой код на Natural при первом запуске игнорирует назначения для файлов:
Код
DEFINE SUBROUTINE SUBNAME CALL 'CMS' 'FI * CLEAR' CALL 'CMS' 'FI CMWKF01 DISK TEST1 TXT D (RECFM F' CALL 'CMS' 'STATE TEST1 TXT D' #RET(I4) IF #RET = 0 THEN DO READ WORK 1 ONCE #VAR CLOSE WORK 1 DOEND INPUT WINDOW='W-NAME' MAP 'MAPNAME' IF *PF-KEY = 'PF5' THEN DO WRITE WORK 1 #VAR2 CLOSE WORK 1 DOEND RETURN