MVSFORUMS.com

[gnanasekar80]

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.


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

[Nic Clouston]

As far as I can see the tape being mounted does not have the same DSN as the tape specified in your JCL. Has the tape been over-written? Also, use DISP=OLD when reading a tape.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

[gnanasekar80]

Hi,
I made a simple changes.
In the load parameters i used INDDN SYSULD instead of INDDN SYSULD01 and gave DISP=OLD. Now its working.