Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
System abend S413 return code 1C

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

New User


Joined: 04 Jan 2007
Posts: 23
Location: Chennai

PostPosted: Tue Oct 14, 2008 4:28 pm    Post subject: System abend S413 return code 1C
Reply with quote

Hi,
I encountered a system abend S413-1C while running a job. A dataset is created in the first step and the same dataset is accessed as input in the second step. the job abends in teh second step with abend code S413 and reason code 1C. I am not able to locate the reason for the abend. I have not specified any vol serial in the JCL. Has anybody encountered a similar abend and found a solution? A quick response wil be much appreciated.


Thanks in advance
Saradha.
Back to top
View user's profile Send private message

gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Tue Oct 14, 2008 4:33 pm    Post subject:
Reply with quote

Hi,

the response will be quicker if you can post the JCL used and the job log output.


Gerry
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: Tue Oct 14, 2008 4:45 pm    Post subject:
Reply with quote

Quote:
I am not able to locate the reason for the abend.


Why, do you NOT have any manuals at your shop ?

Quote:

413

Explanation: The error occurred during processing of an OPEN macro instruction for a data set on magnetic tape or on a direct access device. This system completion code is accompanied by message IEC145I. Refer to the explanation of message IEC145I for complete information about the task that was ended and for an explanation of the return code (rc in the message text) in register 15.
Application Programmer Response: Respond as indicated for message IEC145I.

System Programmer Response: If the error recurs and the program is not in error, look at the messages in the job log for more information. Search problem reporting data bases for a fix for the problem. If no fix exists, contact the IBM Support Center. Provide the JCL and the program listing for the job.

Source: DFSMSdfp
Back to top
View user's profile Send private message
Saradha Ramalingam

New User


Joined: 04 Jan 2007
Posts: 23
Location: Chennai

PostPosted: Tue Oct 14, 2008 5:05 pm    Post subject:
Reply with quote

Code:

//STEP010  EXEC  PGM=NWOMC,
//         REGION=4096K   
//DD01 DD DSN=TWUST.CBS.TWUSL06A.T.OPTCLS.CYC0T2.DIM.JUL08,
//             DISP=(NEW,CATLG,DELETE),                     
//             RECFM=FB,                                     
//             LRECL=660,                                   
//             DATACLAS=HUGE                               


Above is the step which creates the dataset.This dataset is used in an IMs program.

Code:

//STEP020  EXEC  PGM=DFSRRC00,
//        PARM=(DLI,TWAOPTD1,TWAOPTD1,,,,,,,,,IMSN,,Y,N,,,,DB2D)
//STEP020.TWOPDM2O  DD DSN=TWUST.CBS.TWUSL06A.T.OPTCLS.CYC0T2.DIM.JUL08,
//        DISP=(MOD,CATLG,CATLG)                                   


I hope the above data is sufficient

Thanks,
Saradha
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Tue Oct 14, 2008 5:15 pm    Post subject:
Reply with quote

Hi,

you need to show the listing from the run


Gerry
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: Tue Oct 14, 2008 10:21 pm    Post subject:
Reply with quote

Hello,

Code:
//STEP020.TWOPDM2O  DD DSN=TWUST.CBS.TWUSL06A.T.OPTCLS.CYC0T2.DIM.JUL08,
//        DISP=(MOD,CATLG,CATLG)   
While not the cause of the 413 abend, this DD should not use CATLG, CATLG as the dataset has already been cataloged. KEEP, KEEP would be a better choice.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Wed Oct 15, 2008 3:16 am    Post subject:
Reply with quote

Hi Dick,

if I remember correctly, DISP=(MOD,CATLG) had to be used if the dataset extended beyond the first CATALOGED volume, in other words, it had to RECATALOG the dataset to add the additional volume(s), this was probably pre SMS.


Gerry
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Wed Oct 15, 2008 4:12 am    Post subject:
Reply with quote

Saradha ,

I would assume that STEP010, EXECuting PGM NWOMC, pre-allocates the file which is being used in IMS program , so that IMS program doesn't abend because of the absence of the the DSN.

So, I would suggest -

- Try using SHR in DISP for that DSN in step20 And
- execute the STEP10 with UNIT=DASD or TAPE along with other DCB info.
Back to top
View user's profile Send private message
Saradha Ramalingam

New User


Joined: 04 Jan 2007
Posts: 23
Location: Chennai

PostPosted: Wed Oct 15, 2008 12:11 pm    Post subject:
Reply with quote

Thanks for your responses.

The joblog is as below.

Code:

+BMC150139I AR/CTL RESTART FOR TWUSL06A, STEP2   , STEP020 , TWAOPTD1, AND TWAOPTD1 AT NC000002 2008/288
         03:14:31.78                                                           
IEC145I 413-1C,IFG0193A,TWUSL06A,STEP020,TWOPDM2O,BB1F,MIZAB5,TWUST.CBS.TWUSL06A.T.OPTCLS.CYC0T2.DIM.JUL08
+DFS629I IMS BATCH REGION ABEND- SYS 0413  IMSN                                 
+DFS629I PSW AT ERROR = 075C1000 80E1AD96  IMSN                                 
IEC205I IEFRDER,TWUSL06A,STEP020,FILESEQ=1, COMPLETE VOLUME LIST,  033         
DSN=TWUST.CBS.IM.TWUSL06A.LOG.TWAOPTD1.G0001V00,VOLS=AN7033,                   
TOTALBLOCKS=2                                                                   
+DFS092I IMS LOG TERMINATED    IMSN                                             
+ BMC44009I DI+ TERMINATION COMPLETE 


In the IMS step, the file is used as output. So I think we cannot use DISP=SHR here.
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 ASP3 ABEND IN CICS Vedant CICS 0 Fri Oct 20, 2017 3:18 pm
No new posts Speed-up/reduce CPU use of code prino PL/I & Assembler 0 Tue Sep 26, 2017 12:05 am
No new posts Return a Non Numeric value from REXX Learncoholic CLIST & REXX 3 Fri Sep 01, 2017 8:33 pm
This topic is locked: you cannot edit posts or make replies. how to code for GDG in Rexx cvnlynn CLIST & REXX 13 Wed Aug 09, 2017 9:13 pm
This topic is locked: you cannot edit posts or make replies. rexx code to create a ps file Bharath Vikraman CLIST & REXX 4 Mon Aug 07, 2017 10:30 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us