Вторник, 26.09.2017, 17:40
Приветствую Вас Гость | RSS
Главная | Assembler - Страница 5 - Форум | Регистрация | Вход
Форма входа
Логин:
Пароль:
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 5 из 5«12345
Форум » Технические форумы » MVS (OS/390, zOS) » Assembler
Assembler
mentorДата: Вторник, 28.02.2012, 08:28 | Сообщение # 61
Лейтенант
Группа: Проверенные
Сообщений: 125
Репутация: 0
Статус: Offline
Доброе утро!
Пожалуйста с region листинг:
Я Вам прислала свой SASMMOD1.
А Вы мне свой?! :-)) (Если не сложно)
Можно через BluZone скачать на свой комп и в rar)

Добавлено (28.02.2012, 08:23)
---------------------------------------------
Сорри, XOpen, отправила не Вам.

Добавлено (28.02.2012, 08:28)
---------------------------------------------
Похоже док файл не берет во вложениях.
Code
STEPLIB BECAUSE OF AN I/O ERROR.
08.04.23 JOB00858 IEW4005I FETCH FOR MODULE ASMA93 FROM DDNAME STEPLIB FAILED BECAUSE IEWFETCH ISSUED RC 0D AND REASON 40
08.04.23 JOB00858 CSV031I LIBRARY ACCESS FAILED FOR MODULE ASMA93 , RETURN CODE 24, REASON CODE 26080021, DDNAME STEPLIB
08.04.23 JOB00858 +ASMA944U LOAD OF ASMA93 MODULE FAILED. INSUFFICIENT GETMAIN STORAGE, OR MODULE NOT FOUND.
08.04.23 JOB00858 IEA705I ERROR DURING FREEMAIN SYS CODE = 378-1C XXXXXXQ C ST1 00
08.04.23 JOB00858 IEA705I 00F6ED00 008E68D0 008E68D0 00000300 00000820 00000000
08.04.23 JOB00858 IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=378 REASON CODE=0000001C
TIME=08.04.23 SEQ=00105 CPU=0040 ASID=03E9
PSW AT TIME OF ERROR 070C1000 81096D6E ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 01096D68 - 00181610 0A0D18CE 18FB180C
GR 0: 84000000 1: 84378000
2: 000084A8 3: 00000003
4: 008E68D0 5: 008F91B8
6: 813E7C40 7: 00F6ED00
8: 00000000 9: 00000820
A: 00000000 B: 7FFFEF08
C: 00000040 D: 0000B000
E: 00FEE900 F: 0000001C
END OF SYMPTOM DUMP
08.04.23 JOB00858 IEF450I XXXXXXQ C ST1 - ABEND=S378 U0000 REASON=0000001C
TIME=08.04.23
08.04.23 JOB00858 - --TIMINGS (MINS.)--
08.04.23 JOB00858 -JOBNAME STEPNAME PGMNAME RC EXCP TCB SRB CLOCK
08.04.23 JOB00858 -ST1 C ASMA90 *S378 48 .00 .00 .0
08.04.23 JOB00858 IEF404I XXXXXXQ - ENDED - TIME=08.04.23
08.04.23 JOB00858 -XXXXXXQ: TOTAL CPU TIME= .00 TOTAL ELAPSED TIME= .0
08.04.23 JOB00858 $HASP395 XXXXXXQ ENDED
0------ JES2 JOB STATISTICS ------
- 28 FEB 2012 JOB EXECUTION DATE
- 21 CARDS READ
- 143 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 10 SYSOUT SPOOL KBYTES
- 0.00 MINUTES EXECUTION TIME
1
// MSGCLASS=X,NOTIFY=XXXXXX, 00022002
// MSGLEVEL=(1,1),REGION=0M, 00023021
// TIME=1440
//* КОМПИЛЯЦИЯ HIGH LEVEL ASSEMBLER 00030006
//* OS/390
2 //ST1 EXEC HLASMC PARM='SIZE(MAX,ABOVE)' 00060019
3 XXASMAC PROC 00001000
XX* 00002000
XX******************************************************************** 00014000
XX* * 00015000
XX* ASMAC * 00016000
XX* * 00017000
XX* THIS PROCEDURE RUNS THE HIGH LEVEL ASSEMBLER AND CAN BE USED * 00018000
XX* TO ASSEMBLE PROGRAMS. * 00019000
XX* * 00020000
XX******************************************************************** 00021000
4 XXC EXEC PGM=ASMA90 00022000
5 XXSYSLIB DD DSN=SYS1.MACLIB,DISP=SHR 00023000
6 XXSYSUT1 DD DSN=&&SYSUT1,SPACE=(4096,(120,120),,,ROUND), 00024000
XX UNIT=SYSALLDA,DCB=BUFNO=1 00025000
7 //SYSPRINT DD SYSOUT=* 00063010
X/SYSPRINT DD SYSOUT=* 00026000
8 XXSYSLIN DD DSN=&&OBJ,SPACE=(3040,(40,40),,,ROUND), 00027000
XX UNIT=SYSALLDA,DISP=(MOD,PASS), 00028000
XX DCB=(BLKSIZE=3040,LRECL=80,RECFM=FB,BUFNO=1) 00029000
//*STEPLIB DD DSN=ASMA.V1R2M0.SASMMOD1,DISP=SHR 00061017
9 //STEPLIB DD DSN=ASM.SASMMOD1,DISP=SHR 00062020
10 //SYSIN DD DSN=XXXXXX.OCMO.SOUR(ZAXWATR),DISP=SHR 00070010
STMT NO. MESSAGE
2 IEFC001I PROCEDURE HLASMC WAS EXPANDED USING SYSTEM LIBRARY SYS1.PROCLIB
ICH70001I XXXXXX LAST ACCESS AT 08:03:18 ON TUESDAY, FEBRUARY 28, 2012
 
akostДата: Вторник, 28.02.2012, 09:40 | Сообщение # 62
Admin
Группа: Администраторы
Сообщений: 473
Репутация: 4
Статус: Offline
mentor,
попытка вернуть невзятую память из подпула 0 может указывать только на одно (по моему мнению) - что модуль или вся библиотека порченая. я бы поднял из копии, если оно когда-то работало.
 
EHabarovДата: Вторник, 28.02.2012, 10:14 | Сообщение # 63
Майор
Группа: Доверенные
Сообщений: 85
Репутация: 7
Статус: Offline
Добрый день!

IEW4005I с RC=0D (Bad record area) однозначно говорят о проблемах чтения модуля.
Можно попробовать скопировать содержимое библиотеки ASM.SASMMOD1 в другую (пустую).
И после этого указать в STEPLIB задания на компиляцию эту новую библиотеку.

Если не поможет - просто выложу содержимое библиотеки ASM.SASMMOD1 с моей системы OS/390.
 
mentorДата: Четверг, 22.03.2012, 11:56 | Сообщение # 64
Лейтенант
Группа: Проверенные
Сообщений: 125
Репутация: 0
Статус: Offline
akost, EHabarov, спасибо.
Я уже хотела сама собрать этот модуль, но не нашла информации.
Похоже нам уже досталась библиотека испорченная, либо собраны модули неверно.
Как я уже писала, их size отличается от Ваших.
Буду премного благодарна, если Вы пришлете работающий вариант ASM.SASMMOD1.

Добавлено (28.02.2012, 10:24)
---------------------------------------------
EHabarov, уже пробовали и копировать в другую блиотеку, и с другим blksize=6144, ...

Добавлено (28.02.2012, 11:21)
---------------------------------------------
EHabarov, спасибо большое!
Заработало! biggrin

Добавлено (22.03.2012, 11:56)
---------------------------------------------
Добрый день всем!
Похоже тут больше нет людей с проблемами, кроме меня :-))
Мне нужен чел., который умеет работать с с управляющими блоками UCB ?!

 
XOpenДата: Пятница, 23.03.2012, 22:30 | Сообщение # 65
Генерал-майор
Группа: Администраторы
Сообщений: 322
Репутация: 4
Статус: Offline
UCBSCAN ADDRESS,UCBPTR=OUCBADDR,WORKAREA=SCANWORK, *
RANGE=ALL,IOCTOKEN=TOKEN,DEVCLASS=DASD,DEVN=OCCUU,PIN, *
TEXT=TEXTSCAN,PTOKEN=PTOKSCAN,SUBCHANNELSET=ALL, *
LOC=ANY,DYNAMIC=YES,MF=(E,WORKUCB)

UCB DSECT
IEFUCBOB

VARS DSECT
SCANWORK DS CL100 Work area for SCAN
TOKEN DS 48C IOCTOKEN area
PTOKSCAN DS CL8 Pin Token
OCCUU DS XL2
UCBSCAN PLISTVER=1,MF=(L,WORKUCB)
VARSL EQU *-VARS
 
Форум » Технические форумы » MVS (OS/390, zOS) » Assembler
Страница 5 из 5«12345
Поиск: