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
 

 

Assistance required to resolve S001 ABEND

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
Gaurav_193

New User


Joined: 08 Jan 2007
Posts: 4
Location: Charlotte, US

PostPosted: Wed Mar 14, 2007 9:22 pm    Post subject: Assistance required to resolve S001 ABEND
Reply with quote

Hi,

I'm facing an issue of bad read on a tape file and the Job abends with S001.

These are the current error messages from spool

IOS000I 035A,BA,SEQ,02,0600,,**,733316,MYJOB 030
.0850214140A1C7200500(3737373737360040)4C06(002C0000)CE0E242574720000

IEC020I DCB EROPT=ABE OR AN INVALID CODE, AND/OR NO SYNAD EXIT SPECIFIED

CEE3250C The system or user abend S001 R=00000004 was issued.

The program preparing the file has file description as
FD FILE1
RECORDING MODE IS V
BLOCK CONTAINS 0 RECORDS
LABEL RECORDS ARE STANDARD.

and the program reading the file has file description as
FD FILE1
RECORDING MODE IS V
BLOCK CONTAINS 0 RECORDS
LABEL RECORDS ARE STANDARD.
01 RECORD1 PIC X(22).
01 RECORD2 PIC X(4118).

The DCB parameters of the file are kept as DCB=(RECFM=VB,LRECL=4122) while it is created in JCL1 and it is accessed while read in a SHR mode in JCL2.

This issue doesn't occur everytime a tape is read but is persistant.

Can anyone explain here what can be the cause of this issue. Is the File description correct while the read program is accessing it?

Thank you in advance!

Regards,
Gaurav
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: Wed Mar 14, 2007 11:55 pm    Post subject:
Reply with quote

Hello,

Please look thru the output for something that looks like: S001-04 or -05. There should be an IEC020I message. Pleae post all of the messages from the jes log and other sysout datasets.

If you re-run the job with the same tape does it run or fail again?

One way to get a S001 error is to issue a read after end of file.
Back to top
View user's profile Send private message
Shobana Bhaskar

New User


Joined: 02 Mar 2007
Posts: 35
Location: Pennsylvania, US

PostPosted: Thu Mar 15, 2007 1:57 pm    Post subject:
Reply with quote

Yes, Please mention specifically.. Anyhow see any of the below can be the reason.
There can be more than one reason for S001 but all related to dataset length/blksize
S001-0 THE LRECL AND BLKSIZE SPECIFIED IN DCB DIFFERS FROM LRECL AND BLKSIZE INDICATED IN DATA SET.
S001-1 RECFM=U WAS SPECIFIED, BUT NO LRECL WAS SPECIFIED OR -
A WRITE WAS ATTEMPTED TO A DATA SET THAT WAS OPENED FOR INPUT OR -
READ WAS ATTEMPTED TO A DATA SET THAT WAS OPENED FOR OUTPUT OR -
INCORRECT CONCATENATION (I.E. LARGEST BLKSIZE NOT FIRST)
S001-4 THE MOST PROBABLY CAUSES OF A S001-4 ABEND ARE:
I/O ERROR BECAUSE OF DEFECTIVE VOLUME OR DEVICE OR -
AN EMPTY DATA SET OR -
OUT OF SPACE
Back to top
View user's profile Send private message
Gaurav_193

New User


Joined: 08 Jan 2007
Posts: 4
Location: Charlotte, US

PostPosted: Thu Mar 15, 2007 8:58 pm    Post subject: Re: Assistance required to resolve S001 ABEND
Reply with quote

Thank You Dick and Shobana for the inputs!

Here are some clarifications,

1) On restarting the Job from abended step, it completes sucessfully and that is the big question why and how if this is related to a bad read from tape?
The job is reading the Key from instream data in JCL and retrieving the Key record match from Tape File to VSAM file.
The Tape file is opened in Input mode and VSAM in I-O mode.
Also, can you please explain if this can be a space issue as suggested.

The error that it gives is coded as SEQ under IOS000I message which means
SEQ Block identifier sequence error.
Do you know of what exactly this means?

I'm pasting the spool messages again for reference

IOS000I 035A,BA,SEQ,02,0600,,**,733316,MYJOB 030
.0850214140A1C7200500(3737373737360040)4C06(002C0000)CE0E242
IEC020I 001-4,MYJOB,STEP5,FILEI,035A,733316,
IEC020I FILE.ON.TAPE


IEA995I SYMPTOM DUMP OUTPUT 034
USER COMPLETION CODE=4039 REASON CODE=00000000
TIME=20.24.35 SEQ=05474 CPU=0000 ASID=0095
PSW AT TIME OF ERROR 078D1000 88BE843E ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 08BE8438 - 00181610 0A0D58D0 D00498EC
AR/GR 0: 80CBB81E/84000000 1: 00000000/84000FC7
2: 00000000/0002E250 3: 00000000/0002000D
4: 00000000/08BDD258 5: 00000000/0002DD9C
6: 00000000/00000000 7: 00000000/3FD368B8
8: 00000000/0002E250 9: 00000000/0002F90E
A: 00000000/0002DD9C B: 00000000/08BE8368
C: 00000000/00027A88 D: 00000000/00030A50
E: 00000000/88BDC3A0 F: 00000000/00000000
END OF SYMPTOM DUMP



Thanks again for your co-operation and interest in resolving this issue!

Regards,
Gaurav
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 Mar 15, 2007 10:24 pm    Post subject:
Reply with quote

Hello,

You might want to talk with the Operations people about the possibility that the tape is dirty/damaged or that there is a tape drive problem.

If this persists, it is likely that one or the other needs cleaning or repair. If the tape is permanantly damages, you will need to look for a way to re-create the tape.

If this is an old tape, you might try to copy it to a new volume. Many sites have a policy that data that is to be kept for long periods have a backup and are copied to 2 new volumes each year.

Does this happen with multiple tapes or just this one?
Back to top
View user's profile Send private message
Suryanarayana.tadala

New User


Joined: 03 Nov 2005
Posts: 43
Location: St.Louis

PostPosted: Fri Mar 16, 2007 4:03 am    Post subject:
Reply with quote

Looks like solution provided by Dick is apt. In most of the cases there could be a problem at the operations during their maintanace.


Let us know if there is any other possibilty for this type of problem
Back to top
View user's profile Send private message
Gaurav_193

New User


Joined: 08 Jan 2007
Posts: 4
Location: Charlotte, US

PostPosted: Fri Mar 16, 2007 5:18 pm    Post subject: Re: Assistance required to resolve S001 ABEND
Reply with quote

Hi Dick,

Actually we archive certain records periodically from production files to tapes and when some record say for some reference is required we pull it out from tapes and put back in files.
Everytime the archival records are written on to different tape versions. This ABEND was not persistent in past but had started occuring only recently.

The point is how the job completes sucessfully on restart from abended step if we have a bad tape volume or device problem.
So i should answer your query here is this happens with multiple tapes.

I will talk with operations team and and have them look on to the condition of tapes.

I will update you as and when i get this resolved.

Thank you Dick and Suryanarayana for your assistance!


Regards,
Gaurav
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 Mar 16, 2007 7:16 pm    Post subject:
Reply with quote

You're welcome icon_smile.gif

If you have several abends and can view the output from them, it would be a good idea to check and see if the abends all occur on the same tape drive or in the same silo (if your site uses silos).

It would also be a good idea to see if the problem tapes were all put in use about the same time (in the same shipment). Sometimes tapes are defective and this is only found after some amount of time or some number of uses. If they are unable to initialize, this is detected before any data might be lost. If they degrade in unacceptable fashion (they will all have to be replaced eventually), that is harder to isolate.

Good luck and let us know if we may offer suggestions icon_smile.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 -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
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
No new posts How to resolve IMS DB status code FM Priyanka Boga IMS DB/DC 3 Fri Jun 10, 2016 1:54 pm


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