CA fastload abend S513-04 .

gnanasekar80 · New User Joined: 11 Jan 2007 Posts: 6 Location: chennai

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.

dick scherrer · Posted: Tue Feb 19, 2008 7:43 am

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.

gnanasekar80 · New User Joined: 11 Jan 2007 Posts: 6 Location: chennai

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 **

dick scherrer · Posted: Tue Feb 19, 2008 9:12 am

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?

gnanasekar80 · New User Joined: 11 Jan 2007 Posts: 6 Location: chennai

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.

dick scherrer · Posted: Tue Feb 19, 2008 9:20 am

Hello,

gnanasekar80 · New User Joined: 11 Jan 2007 Posts: 6 Location: chennai

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

dick scherrer · Posted: Tue Feb 19, 2008 9:06 pm

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

d