IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to solve a S4D8 abend?


IBM Mainframe Forums -> ABENDS & Debugging
Post new topic   Reply to topic
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
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: 3156
Location: Tucson AZ

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

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

Global Moderator


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

PostPosted: Thu Aug 23, 2007 10:05 pm
Reply with quote

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

Moderator Emeritus


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

PostPosted: Thu Aug 23, 2007 10:06 pm
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
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
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

Moderator Emeritus


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

PostPosted: Fri Aug 24, 2007 12:45 am
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: 8797
Location: Welsh Wales

PostPosted: Sat Aug 25, 2007 5:06 pm
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: 2146
Location: At my coffee table

PostPosted: Sat Aug 25, 2007 6:18 pm
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: 8797
Location: Welsh Wales

PostPosted: Sat Aug 25, 2007 6:45 pm
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: 2146
Location: At my coffee table

PostPosted: Sat Aug 25, 2007 7:02 pm
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: 8797
Location: Welsh Wales

PostPosted: Sat Aug 25, 2007 7:20 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> ABENDS & Debugging

 


Similar Topics
Topic Forum Replies
No new posts ISAM and abend S03B JCL & VSAM 9
No new posts Abend S0C4 11 (Page Translation Excep... PL/I & Assembler 16
No new posts WER999A - UNSUCCESSFUL SORT 8ED U Ab... SYNCSORT 5
No new posts the system or user abend SF0F R=NULL COBOL Programming 0
No new posts Need to get an DLI abend like U0200 IMS DB/DC 2
Search our Forums:

Back to Top