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
 

 

CA fastload abend S513-04 .

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DB2
View previous topic :: :: View next topic  
Author Message
gnanasekar80

New User


Joined: 11 Jan 2007
Posts: 6
Location: chennai

PostPosted: Tue Feb 19, 2008 7:24 am    Post subject: CA fastload abend S513-04 .
Reply with quote

Hi,

I am using CA FASTLOAD utility for loading. My input is a tape which has around 40 million records. I am getting an abend S513-04 when i try to load. The abend explanation is below.

S513-04 (04 is the only possible return code associated with S513) an OPEN macro was issued for a magnetic tape dataset allocated to a device that already has an open dataset on it.

can anyone help in solving this 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: Tue Feb 19, 2008 7:43 am    Post subject:
Reply with quote

Hello,

Please post all of the jcl and control statements from the abended run as well as any diagnostic info that was placed in any of the jes outputs.
Back to top
View user's profile Send private message
gnanasekar80

New User


Joined: 11 Jan 2007
Posts: 6
Location: chennai

PostPosted: Tue Feb 19, 2008 8:23 am    Post subject:
Reply with quote

Load Jcl
________


//JS030 EXEC PGM=WAAPLINK,REGION=0M,
// PARM='XSNUTILB,RC=4,D2T1,Tablename,NEW,,MSGLEVEL(0)'
//* LOAD LIBRARIES *
//STEPLIB DD DISP=SHR,DSN=D2T1.CA.LOADLIB
// DD DISP=SHR,DSN=D2T1.DSNEXIT
// DD DISP=SHR,DSN=D2T1.DSNLOAD
//* SYSTEM OUTPUT *
//PTIPARM DD DISP=SHR,DSN=D2T1.CA.PARMLIB
//SYSUDUMP DD SYSOUT=K,HOLD=YES
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//* LOAD CARDS *
//SYSIN DD DSN=CA7.SYSIN(LOADCARD),DISP=SHR
//* LOAD FILE *
//SYSULD01 DD DISP=SHR,DSN=SYSULD01.CA7 tAPE FILE
//* DISCARDED RECORDS *
//SYSDISC DD DSN=SYSDISC.CA7,
// DISP=(MOD,CATLG,CATLG),
// SPACE=(CYL,(1,1),RLSE),
// UNIT=SYSDA
//* RECORDS IN ERROR *
//SYSERR DD DSN=SYSERR.CA7,
// DISP=(MOD,CATLG,CATLG),
// SPACE=(CYL,(1,1),RLSE),
// UNIT=SYSDA
//SYSREC DD DSN=SYSREC.CA7,
// DISP=(MOD,CATLG,CATLG),
// UNIT=VSM,VOL=(,,,99,SER=)
//SYSMAP DD DSN=SYSMAP.CA7,
// DISP=(MOD,CATLG,CATLG),
// UNIT=VSM,VOL=(,,,99,SER=)
//* WORKFILES *
//SYSUT1 DD DSN=SYSUT01.CA7,
// DISP=(MOD,CATLG,CATLG),
// UNIT=VSM,VOL=(,,,99,SER=)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(300,50)),DISP=(,PASS)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(300,50)),DISP=(,PASS)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(300,50)),DISP=(,PASS)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(300,50)),DISP=(,PASS)
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(300,50)),DISP=(,PASS)
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(300,50)),DISP=(,PASS)
//SORTWK07 DD UNIT=SYSDA,SPACE=(CYL,(300,50)),DISP=(,PASS)
//SORTWK08 DD UNIT=SYSDA,SPACE=(CYL,(300,50)),DISP=(,PASS)
//SORTWK09 DD UNIT=SYSDA,SPACE=(CYL,(300,50)),DISP=(,PASS)
//SORTWK10 DD UNIT=SYSDA,SPACE=(CYL,(300,50)),DISP=(,PASS)
//SORTWK11 DD UNIT=SYSDA,SPACE=(CYL,(300,50)),DISP=(,PASS)
//SORTWK12 DD UNIT=SYSDA,SPACE=(CYL,(300,50)),DISP=(,PASS)
//* *


Load card
----------
CA7.SYSIN(LOADCARD)

FASTLOAD
INDDN SYSULD01
WORKDDN SYSUT1
UNLDDN SYSREC
LOG NO
UPDATE-CATSTATS ALL
RESUME NO REPLACE
ORDER PRESORTED
DISCARDDN SYSDISC
ERRDDN SYSERR
INTO TABLE Tablename

Abend message
----------------
**
IEC501A M 1D78,Y09018,SL,,TEA2P7DV,JS030,TDEA2.DEA2P7DM.TCDNOT.PROD
TMS009 IEC501A M 1D78,Y09018,SL,,TEA2P7DV,JS030,TDEA2.DEA2P7DM.TCDNOT.PROD
IEC146I 513-04,IFG0194A,TEA2P7DV,JS030,SYSULD01,1D78,Y09018,TDEA2.DEA2P7DM.TCDN
IEA848I NO DUMP WAS PRODUCED FOR THIS ABEND, DUE TO SYSTEM OR INSTALLATION REQU
IEF450I TEA2P7DV JS030 - ABEND=S513 U0000 REASON=40513000 346
TIME=07.28.28
IEF234E K 1D78,Y09018,PVT,TEA2P7DV,JS030
TMS014 IEF234E K 1D78,Y09018,PVT,TEA2P7DV,JS030
MVS0010I TEA2P7DV 08.049 X JS030 ** S513 **
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 Feb 19, 2008 9:12 am    Post subject:
Reply with quote

Hello,

Has a job like this executed successfully or is this the first attempt?

Is there some reason the disp is shr for the input tape? Many systems do not allow shr for tape files.

If the input data on a physical tape or is it on some version of virtual tape?

If the data resides on a virtual tape, has virtual tape been used successfully as input to this utility?


Quote:
(04 is the only possible return code associated with S513)

Just FYI - there are also 08 and 0c return codes possible with a s513 abend. Check msg IEC146I.
Back to top
View user's profile Send private message
gnanasekar80

New User


Joined: 11 Jan 2007
Posts: 6
Location: chennai

PostPosted: Tue Feb 19, 2008 9:17 am    Post subject:
Reply with quote

Hi,

This is the first attempt.Earlier the job using BMC load. The BMC load the tape file had disp as SHR. So Far i am not able to use tape as input for this utility. (XSNUTILB). So my basic question , will CA load supports tape file as input.
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 Feb 19, 2008 9:20 am    Post subject:
Reply with quote

Hello,

Quote:
will CA load supports tape file as input
I would think so, but i do not know that from my own experience.

To make sure, you could refer to the product documentation or open an issue with CA support.
Back to top
View user's profile Send private message
gnanasekar80

New User


Joined: 11 Jan 2007
Posts: 6
Location: chennai

PostPosted: Tue Feb 19, 2008 4:35 pm    Post subject:
Reply with quote

Hi,


CA FASTLOAD does support tape. I made a simple changes.
In the load parameters i used INDDN SYSULD instead of INDDN SYSULD01 and gave DISP=OLD. Now its working.

Thanks for your help
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 Feb 19, 2008 9:06 pm    Post subject: Reply to: CA fastload abend S513-04 .
Reply with quote

You're welcome - thank you for posting that it is working icon_smile.gif

d
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 -> DB2 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