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
 

 

How to solve a S4D8 abend?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
Swami-gs

New User


Joined: 27 Apr 2007
Posts: 20
Location: Chennai

PostPosted: Thu Aug 23, 2007 9:51 pm    Post subject: How to solve a S4D8 abend?
Reply with quote

I tried accessing Feb 2005 old dataset, by giving VOLSERS. But I get this abend.
Back to top
View user's profile Send private message

William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Thu Aug 23, 2007 9:56 pm    Post subject:
Reply with quote

Huh?
No search hits found for: S4D8
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Thu Aug 23, 2007 10:05 pm    Post subject: Reply to: How to solve a S4D8 abend?
Reply with quote

Must be a non-IBM product producing the abend?
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Aug 23, 2007 10:06 pm    Post subject:
Reply with quote

Hello,

Please post your jcl, control statements (if any), and the diagnostic information presented by the system. There was more than just an abend code.

Did you see a message like IEFTMSxx? If so, it is a tape management system problem.

When you provide the info, we may be able to offer suggestions.
Back to top
View user's profile Send private message
Swami-gs

New User


Joined: 27 Apr 2007
Posts: 20
Location: Chennai

PostPosted: Thu Aug 23, 2007 10:14 pm    Post subject: Reply to: How to solve a S4D8 abend?
Reply with quote

Actually I think its because of VOLSERS were not given in the proper order.
I think some one has catalogued long ago with wrong order of VOLSERs.

Anyway I have attached the jcl & my job's LOG report.

Thanks
Code:
//STEP13   EXEC PGM=M7476505,PARM='G747667A'                         
//STEPLIB  DD DSN=ENDH1.B06CL003.SBATLOAD,DISP=SHR                   
//         DD DSN=SYS1.LE.SCEERUN,DISP=SHR                           
//         DD DSN=SYS2.COBLIB,DISP=SHR                               
//*                                                                   
//*NFILE   DD DSN=P7476BTX.SS57A.SSET0.MITDIFI.G0029V00,             
//*           DISP=SHR DCB=BUFNO=20                                   
//INFILE   DD DSN=P7476BTX.SS57A.SSET0.MITDIFI.G0012V00,             
//            DISP=SHR,UNIT=TAP5,                                     
//         VOL=SER=(X32986,X33112,X33594,X33638,X34306,X35137,X35348,
//             X35450,X37371,X37593)                                 
//*                                                                   
//OUTFILE  DD DSN=N438A1.SS57A.SSET0.MITDIFI.G012V0.KEY,             
//            DISP=(NEW,CATLG,DELETE),RETPD=35,                       
//            UNIT=TPUB,SPACE=(CYL,(80,50),RLSE),                     
//            DCB=(SYS2.GDG,LRECL=12,BLKSIZE=0,RECFM=FB,BUFNO=20)     
//*                                                                   
//SYSOUT   DD SYSOUT=*                                               
//SYSPRINT DD SYSOUT=*                                               
Code:
     J E S 2  J O B  L O G  --  S Y S T E M  1 1 5 1  --  N O D E  H T F 1     
                                                                               
---- THURSDAY,  23 AUG 2007 ----                                               
 IRR010I  USERID N438A1   IS ASSIGNED TO THIS JOB.                             
 UJVNOTE  STMT# 0011 DUMP/CLASS-C SYSOUT CHANGED TO D(TEST)                     
 ICH70001I N438A1   LAST ACCESS AT 11:31:04 ON THURSDAY, AUGUST 23, 2007       
 $HASP373 N438A167 STARTED - WLM INIT  - SRVCLASS RJESHORT - SYS 1151           
 IEF403I N438A167 - STARTED                                                     
*IEC501A M 7E3D,W50301,SL,,N438A167,STEP13,P7476BTX.SS57A.SSET0.MITDIFI.G0013V00
*TMS009  IEC501A M 7E3D,W50301,SL,,N438A167,STEP13,P7476BTX.SS57A.SSET0.MITDIFI.
 IEC712I 7E3D,W50301,N438A167,STEP13,INFILE READ - NOT FIRST VOLUME OF DATA SET
 IEC502E K 7E3D,W50301,SL,N438A167,STEP13,P7476BTX.SS57A.SSET0.MITDIFI.G0013V00
 TMS014  IEC502E K 7E3D,W50301,SL,N438A167,STEP13,P7476BTX.SS57A.SSET0.MITDIFI.G
*IEC501A M 7E3D,W51330,SL,COMP,N438A167,STEP13,P7476BTX.SS57A.SSET0.MITDIFI.G001
*TMS009  IEC501A M 7E3D,W51330,SL,COMP,N438A167,STEP13,P7476BTX.SS57A.SSET0.MITD
 IEC709I 7E3D,W51330,N438A167,STEP13,INFILE EXPECTED VOLSEQ: 0011 FOUND: 0001   
 IECTMS7 7E3D,W50301,SPECIFIC REQUEST                                           
 IEFTMS50 4XX- 20 N438A167,STEP13  ,INFILE  ,7E3D,W51330,0001,.MITDIFI.G0013V00
 IEFTMS50 ***** CA-1 ABEND,EV,28 *****                  **                     
 IEA995I SYMPTOM DUMP OUTPUT  690                                               
   USER COMPLETION CODE=4039 REASON CODE=00000000                               
  TIME=11.42.33  SEQ=08782  CPU=0000  ASID=027A                                 
  PSW AT TIME OF ERROR  078D1000   A28D3F3E  ILC 2  INTC 0D                     
    ACTIVE LOAD MODULE           ADDRESS=22810338  OFFSET=000C3C06             
    NAME=CEEPLPKA                                                               
    DATA AT PSW  228D3F38 - 00181610  0A0D58D0  D00498EC                       
    AR/GR 0: 80CF3990/84000000   1: 00000000/84000FC7                           
          2: 00000000/00031AB8   3: 00000000/0002000D                           
          4: 00000000/228C8DD8   5: 00000000/00031604                           
          6: 00000000/00000000   7: 00000000/2280B278                           
          8: 00000000/00031AB8   9: 00000000/0003317E                           
          A: 00000000/00031604   B: 00000000/228D3E68                           
          C: 00000000/00025AD0   D: 00000000/000342B8                           
          E: 00000000/A28C7F1A   F: 00000000/00000000                           
  END OF SYMPTOM DUMP                                                           
 CAPE022I N438A167 STEP13   ABENDED S4D8  IN PROGRAM IGG019AQ AT OFFSET +0000A4.
 SEND 'CAPE022I N438A167 STEP13   ABENDED S4D8  IN PROGRAM IGG019AQ AT OFFSET +0
          USER=(N438A1)                                                         
 IEF450I N438A167 STEP13 - ABEND=S4D8 U0000 REASON=00000000                     
 IEF234E K 7E3D,W51330,PVT,N438A167,STEP13                                     
 TMS014  IEF234E K 7E3D,W51330,PVT,N438A167,STEP13                             
Back to top
View user's profile Send private message
Swami-gs

New User


Joined: 27 Apr 2007
Posts: 20
Location: Chennai

PostPosted: Thu Aug 23, 2007 10:17 pm    Post subject: Reply to: How to solve a S4D8 abend?
Reply with quote

Hi Dick

As you told I am getting that IEFTMS50 in my log report.

Even you can refer in snapshot i have attached
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Aug 24, 2007 12:45 am    Post subject:
Reply with quote

Hello,

You should talk with your tape management people.

They can help you determine which order the volsers should be specified. They can also determine if your volumes are one "set" or if there might be more than one set of volumes.

It appears that you specified them in external volser sequence in your jcl. It is very likely that they were not created in that order - note the message about "NOT FIRST VOLUME OF DATA SET ".

Once the proper sequence is determined, change the jcl and re-submit.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Sat Aug 25, 2007 5:06 pm    Post subject:
Reply with quote

Mmmmmmmm, unless CA-1 has retained the correct volser sequence you are going to have to try and try to get the sequence correct by trial and error, and then uncatalog / recatalog the volsers in the correct sequence.

Good luck ..................... icon_confused.gif
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Sat Aug 25, 2007 6:18 pm    Post subject:
Reply with quote

If the OS headers are anything like VSE headers, the sequence number is there......a quick (DITTO) dump of the VOL and HDR should provide enough information to get them in sequence....
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Sat Aug 25, 2007 6:45 pm    Post subject:
Reply with quote

Here are the links to VOL & DSN labels.

VOL http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT1M311/2.2.1?SHELF=&DT=20001012173744&CASE=

DSN http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT1M311/2.2.2?SHELF=&DT=20001012173744

Looks like the DSN label may work here.
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Sat Aug 25, 2007 7:02 pm    Post subject:
Reply with quote

Good, I guess that a HDR1 is an HDR1....grin.....
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Sat Aug 25, 2007 7:20 pm    Post subject:
Reply with quote

Yeah, it's yonks since I last had to look at tape labels, and even then had to refer to the IBM material.

Must admit to having a chuckle at the probability of being recataloged in volser order. If only life were sooooooooooooooo simple icon_biggrin.gif
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 -> ABENDS & Debugging All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm
No new posts hot to get details when "EXEC CI... Andi1982 CICS 11 Tue Sep 20, 2016 5:01 pm
No new posts S213-14 ABEND explantion Apurva Mehta JCL & VSAM 5 Thu Jul 07, 2016 10:56 pm


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