Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ICETOOL Assembly Exit 0C4 Error.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
Mansik Kim

New User


Joined: 15 Dec 2006
Posts: 29
Location: Korea

PostPosted: Wed Mar 27, 2013 6:04 pm    Post subject: ICETOOL Assembly Exit 0C4 Error.
Reply with quote

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
View user's profile Send private message

Mansik Kim

New User


Joined: 15 Dec 2006
Posts: 29
Location: Korea

PostPosted: Wed Mar 27, 2013 6:16 pm    Post subject: Reply to: ICETOOL Assembly Exit 0C4 Error.
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Wed Mar 27, 2013 6:24 pm    Post subject: Reply to: ICETOOL Assembly Exit 0C4 Error.
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Wed Mar 27, 2013 6:46 pm    Post subject: Reply to: ICETOOL Assembly Exit 0C4 Error.
Reply with quote

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
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7230

PostPosted: Wed Mar 27, 2013 7:38 pm    Post subject: Reply to: ICETOOL Assembly Exit 0C4 Error.
Reply with quote

Do you just want to make all records 200+4 (for the RDW)?
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7230

PostPosted: Thu Mar 28, 2013 2:18 am    Post subject: Reply to: ICETOOL Assembly Exit 0C4 Error.
Reply with quote

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
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Fri Mar 29, 2013 12:52 pm    Post subject:
Reply with quote

Your exit is a copy of this one :

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA10/4.9.3?SHELF=&DT=20050222160456&CASE=

So if it is not working contact IBM.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts S922 Error yuvan ABENDS & Debugging 3 Fri Dec 02, 2016 6:58 pm
No new posts Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 pm
No new posts How to delete second instance from Fl... Gunapala CN DFSORT/ICETOOL 6 Tue Oct 18, 2016 11:42 pm
No new posts Error during restore rename archanamuthukrishnan All Other Mainframe Topics 2 Fri Oct 14, 2016 3:30 pm
No new posts Error IEC161I 052(009,XXXRS00)-084 wh... amitc23 JCL & VSAM 10 Wed Oct 12, 2016 5:00 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us