Доброе утро! Пожалуйста с 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
mentor, попытка вернуть невзятую память из подпула 0 может указывать только на одно (по моему мнению) - что модуль или вся библиотека порченая. я бы поднял из копии, если оно когда-то работало.
IEW4005I с RC=0D (Bad record area) однозначно говорят о проблемах чтения модуля. Можно попробовать скопировать содержимое библиотеки ASM.SASMMOD1 в другую (пустую). И после этого указать в STEPLIB задания на компиляцию эту новую библиотеку.
Если не поможет - просто выложу содержимое библиотеки ASM.SASMMOD1 с моей системы OS/390.
akost, EHabarov, спасибо. Я уже хотела сама собрать этот модуль, но не нашла информации. Похоже нам уже досталась библиотека испорченная, либо собраны модули неверно. Как я уже писала, их size отличается от Ваших. Буду премного благодарна, если Вы пришлете работающий вариант ASM.SASMMOD1.
Добавлено (28.02.2012, 10:24) --------------------------------------------- EHabarov, уже пробовали и копировать в другую блиотеку, и с другим blksize=6144, ...
Добавлено (22.03.2012, 11:56) --------------------------------------------- Добрый день всем! Похоже тут больше нет людей с проблемами, кроме меня :-)) Мне нужен чел., который умеет работать с с управляющими блоками UCB ?!
