Сб, 05.10.2024, 10:26
Приветствую Вас Гость | RSS
Главная | Ошибка при вызове NATURAL пользователем BATCH в СВМ - Форум | Регистрация | Вход
Форма входа
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Ошибка при вызове NATURAL пользователем BATCH в СВМ
LionLexXxДата: Ср, 22.08.2018, 06:32 | Сообщение # 1
Лейтенант
Группа: Проверенные
Сообщений: 50
Репутация: 1
Статус: Offline
СВМ 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
 
akostДата: Ср, 22.08.2018, 19:02 | Сообщение # 2
Admin
Группа: Администраторы
Сообщений: 619
Репутация: 5
Статус: Offline
Ну и отлично. А то я уже знакомого натуралиста напряг, сидит, вспоминает, где какие куски памяти лежат.
 
LionLexXxДата: Чт, 23.08.2018, 06:21 | Сообщение # 3
Лейтенант
Группа: Проверенные
Сообщений: 50
Репутация: 1
Статус: Offline
По поводу  Натурала тоже есть вопрос. Можно ли вызывать из программы другую программу из другой библиотеки и при этом не заходить в библиотеку вызываемой программы через LOGON?
Просто есть универсальные программы общего назначения и приходится их копировать по тем библиотекам, из которых они вызываются.
NATURAL v.2.17, v.2.2
Подскажите, пожалуйста, кто знает?


Сообщение отредактировал LionLexXx - Чт, 23.08.2018, 06:28
 
akostДата: Чт, 23.08.2018, 12:52 | Сообщение # 4
Admin
Группа: Администраторы
Сообщений: 619
Репутация: 5
Статус: Offline
Ответ от Дениса, нашего специалиста по Natural:

Цитата
[11:41, 8/23/2018] Ларичев Денис: В natparm есть параметр steplib.
[12:03, 8/23/2018] Ларичев Денис: Если есть natural security steplib можно прописать там.
[12:04, 8/23/2018] Ларичев Денис: Вроде бы даже динамически на сеанс можно назначить.

вдруг поможет?
 
sagerДата: Чт, 23.08.2018, 17:12 | Сообщение # 5
Сержант
Группа: Проверенные
Сообщений: 29
Репутация: 3
Статус: Offline
Боюсь , что в nat217 параметра STEPLIB и user exit USR3025 еще не было...
В той версии , по моему только через библиотеку SYSTEM  можно было общие программы использовать...
 
LionLexXxДата: Вт, 07.04.2020, 09:22 | Сообщение # 6
Лейтенант
Группа: Проверенные
Сообщений: 50
Репутация: 1
Статус: Offline
Добрый день. 
Столкнулся с такой проблемой, при отправлении на ридер Геркулеса задания, содержащее кирилические символы, в СВМ попадают некорректные символы.
Кирилические символы перекодируются. И не понятно на каком этапе. Или их перекодируает программа 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, просматриваем отчет о выполнении задания



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

Подскажите пожалуйста что делать?
Прикрепления: 4925502.jpg (35.3 Kb) · 1618446.jpg (36.1 Kb) · 4143823.jpg (182.8 Kb) · 1787511.jpg (158.9 Kb)
 
smokerДата: Вт, 07.04.2020, 10:34 | Сообщение # 7
Лейтенант
Группа: Проверенные
Сообщений: 46
Репутация: 6
Статус: Offline
HerCRdr не понимает кириллицы...

Выход:

1. Пересобрать сам Геркулес, изменив таблицу.

2. Написать свой собственный HercRDR c нужной таблицей (CP866, CP1251...)

Добавлено (11.08.2020, 20:59)
---------------------------------------------
Специалисты по ADABAS, помогите....

При резервном копировании был испорчен том с текущим набором данных Ассоциатора. Есть только старый набор...

Есть ли возможность восстановить набор Ассоциатора по данным?? Или еще как нибудь?

 
akostДата: Чт, 20.08.2020, 11:48 | Сообщение # 8
Admin
Группа: Администраторы
Сообщений: 619
Репутация: 5
Статус: Offline
Цитата smoker ()
Специалисты по ADABAS, помогите....При резервном копировании был испорчен том с текущим набором данных Ассоциатора. Есть только старый набор...

Есть ли возможность восстановить набор Ассоциатора по данным?? Или еще как нибудь?
добрался до сайта и до дома, спросил своих специалистов.
1) старый ассоциатор - насколько старый?
2) напрямую из данных пересобрать ассоциатор нельзя. можно восстановить всю базу, потом взять новый фрагмент данных и пытаться делать сравнения. но вообще-то нд Ассоциатора - это не вспомогательный кусок, это и есть значимый фрагмент базы, описывающий, в том числе, и ее структуру.
3) готовых утилит восстановления нет. только ручная работа.
 
MFNewbieДата: Чт, 29.02.2024, 09:58 | Сообщение # 9
Рядовой
Группа: Пользователи
Сообщений: 1
Репутация: 0
Статус: Offline
Почему такой код на 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

PERFORM SUBNAME
END


Natural 2.2
СВМ EDT/LEV 4.13 Y2000
 
  • Страница 1 из 1
  • 1
Поиск: