View previous topic :: View next topic
Author
Message
Mansik Kim New User Joined: 15 Dec 2006Posts: 29 Location: Korea
Hi All,
There was 0C4 abend occurred in ICETOOL assembly exit program.
Please let me have a solution for this problem.
1. 0C4 Abend JOB Log
IRR010I USERID CONSOL1 IS ASSIGNED TO THIS JOB.
ICH70001I CONSOL1 LAST ACCESS AT 14:29:29 ON WEDNESDAY, MARCH 27, 2013
$HASP373 SYSMONI1 STARTED - INIT 5 - CLASS A - SYS SYP1
IEF403I SYSMONI1 - STARTED - TIME=14.56.17
IEA995I SYMPTOM DUMP OUTPUT 187
SYSTEM COMPLETION CODE=0C4 REASON CODE=00000011
TIME=14.56.17 SEQ=26418 CPU=0000 ASID=004B
PSW AT TIME OF ERROR 078D1000 000FBEB6 ILC 4 INTC 11
ACTIVE LOAD MODULE ADDRESS=000FBE70 OFFSET=00000046
NAME=E35MOD1
DATA AT PSW 000FBEB0 - C0C3C0C2 06404440 C06ED201
AR/GR 0: 9471E1AC/00000001 1: 00000000/0000C534
2: 00000000/0000C534 3: 00000000/0001A608
4: 00000000/FFFFF2EF 5: 00000000/0050E078
6: 00000000/40D6DCEE 7: 00000000/1580FFC0
8: 00000000/8891A898 9: 00000000/0891B628
A: 00000000/8891B386 B: 00000000/88996028
C: 00000000/000FBE70 D: 00000000/000FBEE4
E: 00000000/000FBEE4 F: 01000002/000FBE70
END OF SYMPTOM DUMP
IEF450I SYSMONI1 STEP1 - ABEND=S0C4 U0000 REASON=000FBE70 188
TIME=14.56.17
2. ICETOOL JCL
//SYSMONI1 JOB 127965,CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//******************************************************************
//** DOC : ICETOOL COPY TEST PROGRAM *
//******************************************************************
//STEP1 EXEC PGM=ICETOOL
//DFSMSG DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//INDD DD DISP=SHR,DSN=SYSMON.SYP1.SMF110S1
//OUTDD DD DISP=SHR,DSN=SYSMON.SYP1.SMF110S2
//MODLIB DD DISP=SHR,DSN=SYSMON.LOAD.LIB
//REPORT1 DD SYSOUT=*
//REPORT2 DD SYSOUT=*
//TOOLIN DD *
COPY FROM(INDD) TO(OUTDD) USING(CPY1)
/*
//CPY1CNTL DD *
INCLUDE COND=(10,8,CH,EQ,C'CICSP1A1')
MODS E15=(E35MOD1,200,MODLIB)
3. E35MOD1 Compile Output
000000 00000 0018A 1 E35MOD1 CSECT
2 *
3 * IF A RECORD IS GREATER THAN 204 BYTES,
4 * IF A RECORD IS LESS THAN 204 BYTES, PA
5 * ALL OF THE RESULTING RECORDS WILL BE 2
6 * (4 BYTES FOR THE RDW AND 200 BYTES OF
7 *
8 PRINT GEN
9 *
R:C 00000 10 USING E35MOD1,12
000000 90EC D00C 0000C 11 STM 14,12,12(13)
000004 41C0 F000 00000 12 LA 12,0(0,15)
000008 50D0 C078 00078 13 ST 13,SAVE15+4
00000C 41E0 C074 00074 14 LA 14,SAVE15
000010 50ED 0008 00008 15 ST 14,8(13)
000014 18DE 16 LR 13,14 SET
000016 1821 17 LR 2,1
000018 5830 2000 00000 18 L 3,0(,2)
00001C 1233 19 LTR 3,3
00001E 4780 C05C 0005C 20 BZ EOF
000022 4840 3000 00000 21 LH 4,0(,3)
000026 4940 C0BC 000BC 22 CH 4,CON204
00002A 4780 C054 00054 23 BE ACCEPT
00002E 4740 C03A 0003A 24 BL PAD
000032 4840 C0BC 000BC 25 LH 4,CON204
000036 47F0 C044 00044 26 B TRUNC
00003A 27 PAD DS 0H
00003A 9200 C0C2 000C2 28 MVI DATA,X'00'
00003E D2C6 C0C3 C0C2 000C3 000C2 29 MVC DATA+1(199),DATA
000044 30 TRUNC DS 0H
000044 0640 31 BCTR 4,0
000046 4440 C06E 0006E 32 EX 4,MVPAD MOVE
00004A D201 C0BE C0BC 000BE 000BC 33 MVC NEWRDW(2),CON204
000050 4130 C0BE 000BE 34 LA 3,BUFFER POINT
000054 35 ACCEPT DS 0H
000054 1BFF 36 SR 15,15
000056 1813 37 LR 1,3
000058 47F0 C060 00060 38 B GOBACK
00005C 41F0 0008 00008 39 EOF LA 15,8
000060 58D0 D004 00004 40 GOBACK L 13,4(,13)
000064 58E0 D00C 0000C 41 L 14,12(,13)
000068 982C D01C 0001C 42 LM 2,12,28(13)
00006C 07FE 43 BR 14 RETURN
00006E D200 C0BE 3000 000BE 00000 44 MVPAD MVC BUFFER(*-*),0(3)
000074 45 SAVE15 DS 18F
0000BC 00CC 46 CON204 DC H'204'
0000BE 47 BUFFER DS 0H
0000BE 48 NEWRDW DS H
0000C0 0000 49 DC H'0'
0000C2 0000000000000000 50 DATA DC XL200'00' BUFFE
51 END
Thanks,
Mansik.
Back to top
Mansik Kim New User Joined: 15 Dec 2006Posts: 29 Location: Korea
Code:
000000 00000 0018A 1 E35MOD1 CSECT
2 *
3 * IF A RECORD IS GREATER THAN 204 BYTES,
4 * IF A RECORD IS LESS THAN 204 BYTES, PA
5 * ALL OF THE RESULTING RECORDS WILL BE 2
6 * (4 BYTES FOR THE RDW AND 200 BYTES OF
7 *
8 PRINT GEN
9 *
R:C 00000 10 USING E35MOD1,12
000000 90EC D00C 0000C 11 STM 14,12,12(13)
000004 41C0 F000 00000 12 LA 12,0(0,15)
000008 50D0 C078 00078 13 ST 13,SAVE15+4
00000C 41E0 C074 00074 14 LA 14,SAVE15
000010 50ED 0008 00008 15 ST 14,8(13)
000014 18DE 16 LR 13,14 SET
000016 1821 17 LR 2,1
000018 5830 2000 00000 18 L 3,0(,2)
00001C 1233 19 LTR 3,3
00001E 4780 C05C 0005C 20 BZ EOF
000022 4840 3000 00000 21 LH 4,0(,3)
000026 4940 C0BC 000BC 22 CH 4,CON204
00002A 4780 C054 00054 23 BE ACCEPT
00002E 4740 C03A 0003A 24 BL PAD
000032 4840 C0BC 000BC 25 LH 4,CON204
000036 47F0 C044 00044 26 B TRUNC
00003A 27 PAD DS 0H
00003A 9200 C0C2 000C2 28 MVI DATA,X'00'
00003E D2C6 C0C3 C0C2 000C3 000C2 29 MVC DATA+1(199),DATA
000044 30 TRUNC DS 0H
000044 0640 31 BCTR 4,0
000046 4440 C06E 0006E 32 EX 4,MVPAD MOVE
00004A D201 C0BE C0BC 000BE 000BC 33 MVC NEWRDW(2),CON204
000050 4130 C0BE 000BE 34 LA 3,BUFFER POINT
000054 35 ACCEPT DS 0H
000054 1BFF 36 SR 15,15
000056 1813 37 LR 1,3
000058 47F0 C060 00060 38 B GOBACK
00005C 41F0 0008 00008 39 EOF LA 15,8
000060 58D0 D004 00004 40 GOBACK L 13,4(,13)
000064 58E0 D00C 0000C 41 L 14,12(,13)
000068 982C D01C 0001C 42 LM 2,12,28(13)
00006C 07FE 43 BR 14 RETURN
00006E D200 C0BE 3000 000BE 00000 44 MVPAD MVC BUFFER(*-*),0(3)
000074 45 SAVE15 DS 18F
0000BC 00CC 46 CON204 DC H'204'
0000BE 47 BUFFER DS 0H
0000BE 48 NEWRDW DS H
0000C0 0000 49 DC H'0'
0000C2 0000000000000000 50 DATA DC XL200'00' BUFFE
51 END
Code'd
Back to top
enrico-sorichetti Superior Member Joined: 14 Mar 2007Posts: 10873 Location: italy
when posting code ands sysout snippets good manners dictate the use of the code tags
to make things more readable by preserving the alignment for people willing to help
Back to top
enrico-sorichetti Superior Member Joined: 14 Mar 2007Posts: 10873 Location: italy
the PSW points at offset 46 of the exit ( the EX instruction)
as per logic in the comment
low order byte of register 4 should be at most 203 x'cb' ( after the bctr )
I do not like the EF value in it
Back to top
Bill Woodger Moderator Emeritus Joined: 09 Mar 2011Posts: 7309 Location: Inside the Matrix
Do you just want to make all records 200+4 (for the RDW)?
Back to top
Bill Woodger Moderator Emeritus Joined: 09 Mar 2011Posts: 7309 Location: Inside the Matrix
Let's guess yes. Try this:
Code:
//ALL204 EXEC PGM=SORT
//SORTIN DD DSN=your input
//SORTOUT DD DSN=your output datset and stuff it needs
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFOUTLEN=204,IFTHEN=(WHEN=INIT,OVERLAY=(205:X))
//*
Back to top
PeterHolland Global Moderator Joined: 27 Oct 2009Posts: 2481 Location: Netherlands, Amstelveen
Back to top
Please enable JavaScript!