akpannur Currently Banned New User
Joined: 17 May 2008 Posts: 10 Location: Hyderabad
|
|
|
|
Hi
I am getting S001 abend during sort
Please help
Code: |
000013 //STEP010 EXEC PGM=SARBCH
000014 //*
000015 //SYSOUT DD SYSOUT=*
000016 //SYSPRINT DD SYSOUT=*
000017 //*
000018 //SARRPT1 DD DSN=VENEPU.CP000000.GLOB.FFB.SYSOUT,
000019 // DISP=(MOD,CATLG,DELETE),
// DCB=(DSORG=PS,LRECL=133,RECFM=FB),
// UNIT=SYSDA,
// SPACE=(CYL,(1,1),RLSE)
//*
//SYSIN DD DSN=VENEPU.VINOD.CTC(SARCTC),DISP=SHR
//*
//STEP11 EXEC PGM=SORT
//SYSOUT DD *
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=VENEPU.CP000000.GLOB.FFB.SYSOUT,
// DISP=(MOD,CATLG,DELETE)
//SORTOUT DD DSN=VENEPU.TSOXC.JOBS,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=100,RECFM=FB),
// UNIT=SYSDA,
// SPACE=(CYL,(1,1),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(86,10,CH,EQ,C'09/16/2008')
/* |
This is the jcl i am using
I am getting an error message as
IEC020I EROPT IS 'ABE' OR NOT SPECIFIED
WER999A SARBAT02,STEP11 , - UNSUCCESSFUL SORT 001 S
IEC020I 001-1,SARBAT02,STEP11 ,SYSOUT ,JES
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Your system uses Syncsort rather than DFSORT - the topic has been moved to JCL where Syncsort topics are discussed.
Code: |
//SORTIN DD DSN=VENEPU.CP000000.GLOB.FFB.SYSOUT,
// DISP=(MOD,CATLG,DELETE) |
I believe changing the disp to OLD would be better. You should not issue CATLG more than once for a dataset. |
|